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');