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

markieren

Delphi-Quellcode:

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

und dann

markieren

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?

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

Oder hab ich da jetzt etwas falsch verstanden ?

gruss

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

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

gruss

markieren

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

markieren

Delphi-Quellcode:

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

vielen dank das funktioniert