Image objekte austauschen

rabatscher

Ich habe zwei verschiedene Klassen von TWPOImage abgeleitet wobei die erste Klasse eine Art Lokalisierung beinhaltet, die dynamisch beim Zeichnen eingefügt wird.

Jetzt brauche ich aber eben eine zweite Klasse, die keine dynamischen Elemente mehr beinhaltet (die dynamische Klasse beinhaltet einige Properties, die ich in einer weiteren Anwendung nicht befüllen kann) - deshalb die Idee in einem Zwischenschritt alle Elemente der Ersten Klasse durch die der zweiten - statischen - auszutauschen.

prinzipiell würde die Schleife so aussehen:

Code

for counter := richText.TextObjects.Count - 1 downto 0 do
        begin
             obj := richText.TextObjects.List[counter];


             if obj is TLocWPImage then
             begin
                  TLocWPImage(obj).DataObj := fDataObj;
                  obj.Transparent := True;


                  // draw localizations
                  staticGraphic := TLocWPImage(obj).LocalizeAndConvertToStaticImg;


                  // replace old object with the new one
                  // todo????
             end;
        end;

Alles anzeigen

Wie geht das am Besten?

Danke im Voraus
Rabatscher Michael

rabatscher

Die folgende Schleife macht genau das was ich brauche:

Code

for counter := richText.TextObjects.ObjCount - 1 downto 0 do
        begin
             txtObj := richText.TextObjects.ObjList[counter];


             if Assigned(txtObj.ObjRef) and (txtObj.ObjRef is TLocWPImage) then
             begin
                  obj := txtObj.ObjRef as TLocWPImage;


                  TLocWPImage(obj).DataObj := fDataObj;
                  obj.Transparent := True;


                  // draw localizations and convert to a static swapped image
                  staticGraphic := TLocWPImage(obj).LocalizeAndConvertToStaticImg;


                  // change references
                  txtObj.ObjRef := staticGraphic;
                  obj.Free;
             end;
        end;

Alles anzeigen