Deutsches Lazarusforum

Hast du dir das Projekt einmal angeschaut:

http://imaginglib.sourceforge.net

Nunja, das schöne wäre ja, getreu dem Motto "einmal schreiben, überall kompilieren", eben nicht alles in Swift noch einmal neu machen zu müssen...

Ah, vielen Dank. Das bringt schon mal ein wenig Licht ins dunkle. Ohne dich wäre ich niemals darauf gekommen!

Das merkwürdige ist, das TPageControl zwar von besagtem TCustomTabControl abgeleitet ist, TNotebook allerdings nicht (hier ist es TCustomControl):



TNotebook = class(TCustomControl ...

Ich würde gerne eine eigene Komponente erstellen, die eine variable Anzahl von Sub-Komponenten enthält, auf die man auch zur Design-Zeit andere Controls legen kann.
Ähnlich ist zum Beispiel TPageControl oder TNoteBook aufgebaut. Es gibt also zunächst eine Basis-Komponente (abgeleitet von ...

Passt perfekt! Vielen Dank.

Ich habs mal so angepasst, dass man direkt den Dateinamen übergeben kann:



function FileModeToStrEx(AFileName: string): String;
var
AStMode, v: Cardinal;
AIndex: integer;
AInfo : stat;
begin
Result := '';

if fpstat (PCHar(AFileName), AInfo) <> 0 then exit ...

Sehr gut, vielen Dank! Dann haben wir schon mal die Möglichkeit es auszulesen.

Ist nur die Frage wie man das dann umrechnen kann. Mit den Zahlensystemen? Von welchem in welches System müsste man das denn umrechnen? Das soll ja irgendwie oktal (8) sein oder?

Ich hatte mir fpStat auch schon angesehen bzw vermutet dass es damit klappen könnte. Man bekommt auch eine Menge zurück in Form eines Records, aber die Permissions habe ich darin nicht gefunden. Oder habe ich da etwas übersehen?

Den Namen der Gruppe suche ich übrigens nicht, es geht einfach nur um ...

Wenn das Problem dadurch entsteht, dass du nicht jede Form aus einer Unit heraus aufrufen kannst, solltest du einmal probieren, die Unit der Form nicht oben unter "uses" zu deklarieren sondern erst nach der Zeile "implementation".

Also zum Beispiel:


unit u_form1;

interface

uses
Classes ...

Ich würde gerne in Linux die Berechtigungen einer Datei mit auslesen. Das Ergebnis sollte dann so etwas sein wie "777".

Bisher habe ich dazu nur die Funktion FpAccess gefunden, diese Funktion liefert mir aber lediglich die Flags des aktuellen Nutzers. Wie ist es möglich alle Flags zu bekommen, also ...

Hast du da eventuell eine Lösung gefunden?
Also für den komischen blauen Rahmen und für die ItemHeight-Geschichte?
Habe gerade genau das gleiche Problem unter Mac OS X... Unter Windows dagegen läuft alles perfekt.

Es geht mir um den automatischen Zeilenumbruch. Da ich nicht weiß wie groß das Fenster, die Schrift etc sein wird, kann ich leider vorher nicht wissen, wo die richtige Stelle für einen Zeilenumbruch wäre und ihn vorher setzen, zumal es ja auch schön wäre, wenn sich die Größe automatisch anpasst ...

Ist leider keine Lösung.. Mit anderer Lösung meinte ich eher so etwas wie OwnerDraw (falls das geht) oder vergleichbares um den Umbruch hinzubekommen.

So, jetzt auch mit Anhängen, das Forum funktioniert wieder...

Kann ich auch bestätigen.

Je nachdem ob man ein Bild oder eine sonstige Datei hochladen will, kommt einer der beiden Fehler.

Den Zeilenumbruch konnte ich schon mit der folgenden Funktion realisieren:


procedure RadioButtonEnableWordWrap(ARadioButton: TRadioButton);
var
rb: DWORD;
begin

rb := GetWindowLong(ARadioButton.Handle, GWL_STYLE);

if rb <> 0 then begin
rb := rb or BS_MULTILINE or BS_VCENTER ...