Cel :

Chcemy uzyskać efekt, aby po uruchomieniu programu został wyświetlony okrąg


Końcowy efekt :


Metoda :

1) Tworzymy nowy projekt

2) Klikamy w pustym miejscu formularza i przechodzimy do zakładki Event. Wybieramy funkcję OnPaint

3) Wstawiamy poniższy kod:

Canvas.Brush.Color := clRed;
Canvas.Brush.Style := bsSolid;
Canvas.Ellipse(10,10, 200, 200);

4) Uruchamiamy program.


Porada pieerwsza :

W powyższym przykładzie wykonaliśmy rysunek elipsy, jednak płótno (Canvas) umożliwia jeszcze rysowanie paru innych figur. Oto one:

Rodzaj rysunku: Przykładowy kod
Ellipsa Canvas.Ellipse(50, 50, 200, 200);
Łuk Canvas.Arc(0, 0, 100, 100, 0, 20, 90, 180);
Kwadrat Canvas.Rectangle(20, 20, 100, 200);
Text Canvas.TextOut(30, 30, 'text');
Linia Canvas.MoveTo(0, 0);
Canvas.LineTo(100, 100);

Porada druga :

Nasze płótno(Canvas) posiada dodatkowe opcje. Ustawienia dotyczące pędzla dostępne są poprzez atrybut Pen, który posiada m.in. takie ustawienia jak:

Opis: Przykładowy kod
Zmienia kolor pędzla Canvas.Pen.Color := clBlue;
Zmienia grubość pędzla Canvas.Pen.Width := x

Drugim atrybutem dostępnym przez płótno jest Brush. Posiada m.in. ustawienia takie jak:

Opis: Przykładowy kod
Zmienia color wypełnienia Canvas.Brush.Color := clBlue;
Zmienia styl wypełnienia. Posiada takie wartości jak: bsSolid, bsCross, bsDiagCross, bsVertical, bsHorizontal. Canvas.Brush.Style := bsSolid;

Kod źródłowy :

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color := clRed;
Canvas.Brush.Style := bsSolid;
Canvas.Ellipse(10,10, 200, 200);
end;

end.