Zitat von
xaromz:
Hallo,
Zitat von
Martin K:
Ne, das funzt irgendwie nicht.
Da bekomme ich ja negative Zahlen raus...
Ja, und?
Gruß
xaromz
Hab mir sowas gebastelt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
If ColorDialog1.Execute then
Form1.Color := not ColorToRGB(ColorDialog1.Color);
end;
Entweder bleibt dann die Farbe meiner Form (clBtnFace) oder sie wird schwarz.
Das hier dagegen funzt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
If ColorDialog1.Execute then
Form1.Color := $FFFFFF-ColorDialog1.Color;
end;
Meine Form hat dann immer die Komplimentärfarbe von der im Colordialog.