gleiche farben in tcolor abfangen

[track]

wir haben also eine auswahl auf dem formular
http://img107.imageshack.us/img107/4...benannt4tt.jpg

und eine konstante für dern hintergrund der canvas fläche!

die frage ist nun: wie fang ich es ab dass Mindestens eine der 2 Farben (Randfarbe und Füllfarbe) ist ungleich der Hintergrundfarbe der Zeichenfläche (einstellbar).
hab das so versucht aber irgendwie kalppt das nich wirklich

Delphi-Quellcode:

function ColorTest(PenColor, BrushColor : TColor):boolean;
begin
  if (PenColor = cHintergrundFarbe) and (BrushColor  = cHintergrundFarbe) then
      ColorTest := true;  
end;

und dann

Delphi-Quellcode:

If ColorTest(ClBox_Pen.Selected, ClBox_Back.Selected)= false then
    
     PB_Bild.Canvas.Pen.Color := ClBox_Pen.DefaultColorColor; //Randfarbe
     PB_Bild.Canvas.Brush.Color := ClBox_Back.DefaultColorColor; //Fullfarbe

der zeichnet zwar mit der standart eingestellten farbe, aber ich hätte es besser das er garnet zeichnen würde!
wäre es möglich?

[MrKnogge]

Natürlich ist das möglich, du zeichnest doch auf das Canvas !?

Oder hab ich da jetzt etwas falsch verstanden ?

gruss

[track]

nein das ist schon richtig, gezeichnet wird aufm canvas!
nun die frage wie?

[MrKnogge]

Ich dachte du zeichnest "von Hand".
Was zeichnest du denn ?
Zeig doch bitte mal ein bisschen Code.

gruss

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

[track]

vielen dank das funktioniert :) :hello: