Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
22. Feb 2007
Nun ja, der Gag ist ja, dass man es auch anders rum machen kann, wenn man diese Eigenschaft nicht braucht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
22. Feb 2007
Ich habs, ich habs, ich habs. :firejump:
Man muss das Objekt zu erst erstellen:
procedure TFBImageEn.AddPageNumber(Number: Integer);
var
UserObjData : PUserObjData;
hObj: Integer;
begin
with ImageEnVect do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
Na, das istaber kein Grund hier meinen Arbeitsplatz voll zu kotzen. ;)
Das dumme ist nur, ich habe sonst keine andere Möglichkeit diese Textobjekte zu markieren damit ich sie von anderen unterscheiden kann. Eine Eigenschaft wie Tag gibt es nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
Das habe ich mir kurz vor Feierabend auch über legt und ObjUserDataLength sizeof(TUserObjData) zugewiesen. Das hat aber auch nicht funktioniert. :wall:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
Nein. Die Variable UseroOjData wird ungültig, da der Speicher aber nicht freigegen wird, ist der Speicherbereich für die Eigenschaft ObjUserData des Objektes noch gültig.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
Nein, das macht schon die Compilermagic.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
Nein, das Thema ist leider nicht erledigt. Sie sollen ja da bleiben, die schönen Daten, MEINE schönen Daten. ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
-1 ist OK. Damit wird ein noch zu erstellendes Objekt indiziert.
@f.siebler: Das ist unerheblich, da die Daten schon vorher weg sind, wie ich feststellen musste.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
ObjUserData ist ein Pointer. Den Quellcode habe ich leider nicht zur Verfügung.
Alles was ich habe ist die Hilfe:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
Update: Neue Erkenntnis.
Die Daten gehen schon vorher verloren:
procedure TForm1.chkPageNumersClick(Sender: TObject);
var
i, j : Integer;
fbimage : TFBImageEn;
b : Boolean;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Luckie,
21. Feb 2007
Ich habe eine Art TImage. Auf dieser Komponente kann man Objekte erzeugen, zum Beispiel Textobjekte. Diesen Objekten kann man benutzerspezifische Daten anhängen in der Eigenschaft UserObjData. Das sieht dann so aus:
type
TUserObjData = record
FPageNumberMark: Integer;
end;
PUserObjData = ^TUserObjData;
procedure TFBImageEn.AddPageNumber(Number: Integer);
var