ich habe das Problem, dass die Farbe des Stiftes nicht angewendet wird. Anzumerken ist, dass ich dabei in ein vorher geladenes Bild hineinzeichen möchte, und zwar eine Kreis an der Stelle, wo ich mit der Maus clicke. Es funktioniert alles, nur die Farbe des Stiftes wird nicht geändert, sondern bleibt immer weiß.
Was mache ich falsch? Unten mal mein Code mit meinen Kommentaren dazu...
Gruß und Danke für Hinweise,
Alpinus
Code: Alles auswählen
procedure TfmMain.Image3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Zeichnen:=True; //jetzt wird gezeichnet
x0:=X; y0:=X; //Mittelpunkt des Kreises
Image3.Canvas.MoveTo(X,Y);
end;
procedure TfmMain.Image3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Zeichnen:=False;
with Image3.Canvas do begin
Pen.Color:=clRed; // funkioniert nicht
Pen.Style:=psSolid; // funkioniert
Pen.Width:=5; // funkioniert
Brush.Style:=bsClear; // funkioniert
Ellipse(x0-25,y0-25,x0+25, y0+25); // wird in weiß gezeichnet, müsste aber rot sein
Pen.Color:=clBlack; // funkioniert nicht
Brush.Style:=bsSolid; // funkioniert
Brush.Color:=clBlack; // funkioniert nicht
Ellipse(x0-1,y0-1,x0+1, y0+1); // wird in weiß gezeichnet, müsste aber schwarz sein
end;
SpeedButton39.Visible:=true;
SpeedButton38.Visible:=true;
end;
Verein
Links
