Negativ bei TImage

[Martin K]

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.