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:
Delphi-Quellcode:
type
TUserObjData = record
FPageNumberMark: Integer;
end;
PUserObjData = ^TUserObjData;
procedure TFBImageEn.AddPageNumber(Number: Integer);
var
UserObjData : PUserObjData;
begin
with ImageEnVect do
begin
New(UserObjData);
UserObjData.FPageNumberMark := 1;
ObjUserData[-1] := UserObjData;
// Test
UserObjData := ObjUserData[-1];
Writeln('AddPageNumber');
Writeln(UserObjData.FPageNumberMark); // Test OK "1" wird ausgegeben
//
ObjFontName[-1] := 'Tahoma';
ObjFontHeight[-1] := -12;
ObjFontStyles[-1] := [];
ObjPenColor[-1] := clBlack;
ObjBrushStyle[-1] := bsClear;
ObjMemoCharsBrushStyle[-1] := bsClear;
ObjMemoBorderStyle[-1] := psClear;
ObjTextEditable[-1] := False;
ObjText[-1] := IntToStr(Number);
ObjTop[-1] := Height - 25;
ObjWidth[-1] := 20;
ObjTextAlign[-1] := iejCenter;
ObjLeft[-1] := (Width div 2) - (ObjWidth[-1] div 2);
AddNewObject;
Update;
end;
end;
In diesem Fall erstelle ich ein Textobjekt mit einer Seitenzahl. Damit ich das Textobjekt wiederfinden (Ich muss wissen ob es ein Seitenzahl-Textobjkekt ist oder nicht), speichere ich in der Eigenschaft
UserObjData einen Marker, de rmir das Textobjekt als Seitenzahl-Textobjekt markiert. Ok, soweit verstanden?
Weiter. Alle TImage-Komponenten werden nun in einer TPageCollection vom Typ TList verwaltet. Die Methode
Update aktualisiert ein Objekt in dieser Liste:
Delphi-Quellcode:
procedure TPageCollection.Update(Index: Integer; Item: TImageEnVect);
var
i : Integer;
j : Integer;
begin
// Test
Writeln('PageCollection.Update');
for i := 0 to Item.ObjectsCount - 1 do
begin
if Assigned(Item.ObjUserData[i]) then // Item.ObjUserData ist immer nil
begin
j := PUserObjData(Item.ObjUserData[i])^.FPageNumberMark;
Writeln(j);
end;
end;
//
self.Items[Index] := Item;
end;
Und schon hier kommen die benutzerspezifischen Daten nicht mehr an uns sind verloren. Das kann jetzt natürlich ein Bug in der Komponente sein. Es kann allerdings auch sein, dass ich grundsätzlich was falsch mache.
Vergleichen kann man das wohl mit der Methode AddObject von TListBox oder TComboBox etc.