Einzelnen Beitrag anzeigen

Benutzerbild von stoxx
stoxx

Registriert seit: 13. Aug 2003
1.111 Beiträge
 
#5

Re: SynEdit: Alle Highlighter ändern

  Alt 17. Feb 2009, 20:07
Zitat:
Aber nun stellt sich die Frage: Wie bekommt man die zwischengespeicherten Daten vom Optionsmenü in alle Highlighter rein?
also ich wüsste ja, wie ich es machen würde
bin aber noch nicht so weit. Über RTTI ..

die Quelltexte wollte ich noch aktualisieren, .....
müsste man aber noch den Klassencheck ausbauen, funktioniert im Moment nur, wenn es der gleiche Typ ist.
solange ich das noch nciht habe, müsstest Du die Komponente mal selbst umändern

Delphi-Quellcode:
function CopyPupProperties(const aSource, aDestination : TObject) : boolean;
const
  cTempName = 'Temp';
var
  XMLSerializer : TXMLSerializer;

begin
  result := false;
  XMLSerializer := TXMLSerializer.Create(nil);
  try
      DefaultSettings(XMLSerializer);

      if (aSource is TComponent) and (aDestination is TComponent) then begin
           result := XMLSerializer.SaveComponent(TComponent(aSource), cTempName ) <> nil;
           if result then
               result := ( XMLSerializer.LoadComponent(TComponent(aDestination), cTempName ) <> nil);
      end else begin
          result := XMLSerializer.SaveObject(aSource, cTempName) <> nil;
          if result then
              result := XMLSerializer.LoadObject(aDestination,cTempName) <> nil;
      end;

  finally
      XMLSerializer.Free;
  end;

end;

siehe da ..

http://www.delphipraxis.net/internal...+serialisierer


deswegen wundert es mich ja, dass die RTTI funktionen auf so wenig begeisterung stoßen
Phantasie ist etwas, was sich manche Leute gar nicht vorstellen können.
  Mit Zitat antworten Zitat