gleiche farben in tcolor abfangen

[Phistev]

Delphi-Quellcode:

function ColorTest(PenColor, BrushColor : TColor):boolean;
begin
  Result:= (PenColor <> cHintergrundFarbe) or (BrushColor <> cHintergrundFarbe);
end;

überprüft, ob mindestens eine Farbe unterschiedlich ist. In der Prozedur zum Zeichnen dann einfach

Delphi-Quellcode:

if ColorTest(...) then begin
  //Zeichnen
end else ShowMessage('Mind. eine Farbe muss vom Hintergrund verschieden sein');