[FERNANDO]

Вот я пытаюсь нарисовать на форме прям, или окружность. Вроде бы сделал правильно, но в форме ничего нету. Как мне нарисовать?

Код:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  procedure FormPaint(Sender: TObject);
  private
    { Private declarations }


  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  r1: TRect;

implementation
{ TForm1 }

procedure TForm1.FormPaint(Sender: TObject);

begin
r1:= Rect(100,100,100,100);
 Form1.Canvas.Brush.Color:=clBlack;

  Canvas.FillRect(r1);
end;

{$R *.dfm}

end.

Админ: Пользуемся тегами для оформления кода!