Delphi-PRAXiS - Delphi Farben umkehren

Zitat:

Zitat von capo

hi...
wie kann ich alle farben einer form umkehren.
aus schwarz mach weiss und umgekehrt.
gruss vom capo

Hallo,

wenn es eine brauchbare Definition für "eine Farbe umkehren" gibt, dann Ru := 255 - R usw. wie schon beschrieben.

ALLE Farben in einer Form umzukehren wird allerdings sehr mühsam - ich würde die VCL ändern. In der Hierarchie müsste TControl die erste Klasse mit der Eigenschaft Color sein, also sollte man da die Eigenschaft ColorInversed dazufügen und den constructor Create so überschreiben, dass diese Eigenschaft vom Parent übernommen wird und wenn gesetzt die Eigenschaft Color durch die inverse Farbe ersetzt wird.

Mit Bordmitteln wird das nicht gehen, weil z.B. ein TButton kein OnCreate-Ereignis hat. Um die Farbe zu manipulieren, müsste man daher Create überschreiben, also eine geänderte Komponente anlegen für alle in der Form vorkommenden Komponenten. Das ist mehr Arbeit und fehleranfälliger als meine erste Methode.

Gruss Reinhard