Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mysterio08,
5. Nov 2009
Vielen Dank, ich habe es hinbekommen:
procedure TForm1.FormShow(Sender: TObject);
begin
with Image1.Canvas do
begin
Brush.Color := clRed;
Ellipse(200, 50, 400, 200);
Image1.Canvas.Pen.Mode := pmXOR;
Ellipse(x1, y1, x2, y2);
end
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mysterio08,
5. Nov 2009
Guten Tag Programmierer,
beim Programmieren von Grafiken ist gerade ein Problem mit dem Pen.Mode := pmXOR aufgetaucht. Zuerst erstelle ich eine Ellipse auf dem Image:
procedure TForm1.FormCreate(Sender: TObject);
begin
with Image1.Canvas do
begin
Brush.Color := clRed;
Ellipse(200, 50, 400, 200)
end
end;