Delphi Prob (WICHTIG)

[Tonic1024]

Hi...

Ich hab ein bissel länger gebraucht, will aber auch noch posten...

Mein CFD-beitrag zum thema viereck basierend auf dem code von hezekiel:

Delphi-Quellcode:

[..]
  private
    { Private-Deklarationen }
    MausGedrueckt: Boolean;
    X1: Integer;
    Y1: Integer;
[..]

procedure TForm1.FormMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y: Integer);
begin
  MausGedrueckt := True;
  Canvas.MoveTo (X,Y) ;
  X1:= X;
  Y1:= Y;
end;

procedure TForm1.FormMouseMove (Sender: TObject; Shift: TShiftState;
X,Y: Integer);
begin
  if MausGedrueckt then
  begin
    if not BitBtn_stift.Enabled then
      Canvas.LineTo(X,Y);
    if not Bitbtn_viereck.Enabled then
    begin
      canvas.Pen.Color:=clbtnface;
      Canvas.Rectangle(X1, Y1, X, Y);
      canvas.Pen.Color:=clblack;
      Canvas.Rectangle(X1, Y1, X, Y);
    end;
  end;
end;


procedure TForm1.FormMouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y: Integer);
begin
  MausGedrueckt := False;
  if not Bitbtn_viereck.Enabled then
  begin
    canvas.Pen.Color:=clblack;
    Canvas.Rectangle(X1, Y1, X, Y);
  end;
end;

[Edit]Nachtrag: Matze hat Recht... ist umständlich und kein schöner Style[/Edit]