mini paint->rechtecke zeichnen

[Klaus01]

Guten Abend,

eine Schönheitskorrektur:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  gros := 1;
  if StrToInt(edit1.Text) < 10 then
    begin
      form1.font.color := clblack;
      label8.hide;
      gros := StrToInt(edit1.text);
    end
  else
    begin
      form1.font.color := clred;
      Label8.show;
      Label8.caption := 'Fehler!';
    end;
end;

Wie benutze ich rectangle:

Zitat von DelphiHilfe:

Draws a rectangle on the canvas.

procedure Rectangle(X1, Y1, X2, Y2: Integer); overload;
procedure Rectangle(const Rect: TRect); overload;

Description

Use Rectangle to draw a rectangle using Pen and fill it with Brush. Specify the rectangle’s coordinates in one of two ways:

Giving four coordinates that define the upper left corner at the point (X1, Y1) and the lower right corner at the point (X2, Y2).
Using a TRect type.

To fill a rectangular region without drawing the boundary in the current pen, use FillRect. To outline a rectangular region without filling it, use FrameRect or Polygon. To draw a rectangle with rounded corners, use RoundRect.

Grüße
Klaus