Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
15. Mär 2007
Hallo,
du hast bei onMouseMove if ssLeft in Shift then vergessen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
9. Mär 2007
Moin,
dein Programm habe ich jetzt umgeschrieben, ich hoffe mal dass es jetzt deinen Vorstellungen entspricht.
War doch etwas aufwendiger, da ich mit Canvas.Pen.Mode:= pmNotXor; gearbeitet habe.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
9. Mär 2007
Hi,
du klickst auf "Antwort erstellen" und dort unten auf den Button "durchsuchen".
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
9. Mär 2007
Hallo,
bei mir funktioniert es jedenfalls wenn ich die 3 Zeilen rausnehme, das Projekt habe ich angehängt. Wenn gar nicht anders, dann zeige uns doch mal deinen Code oder das Programm.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
8. Mär 2007
Hi,
ich hatte mich auch schon deswegen gewundert, denn bei mir funktionierte es ja.
Du hast es schon richtig erkannt, also entferne doch einfach die 3 Zeilen Code:
(*Image1.Canvas.Brush.Style:= bsSolid;
Image1.Canvas.Pen.Style :=graphics.psSolid;
Image1.Canvas.Rectangle(0,0,Image1.Width, image1.Height);*)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
7. Mär 2007
Hallo,
füge doch mal folgenden Code deinem Programm hinzu:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
begin
image1.Canvas.Pen.Style:= pssolid;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
1. Mär 2007
Hi,
ich habe jetzt den Code so abgeändert, dass der Quader erst gezeichnet wird, nachdem man auf dem Button klickt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
28. Feb 2007
Moin,
dein Programm hat irgendwie überhaupt nicht funktioniert. Ich habe mal ein neues geschrieben, wo man mit der Maus einen Quader zeichnen kann.