Chcemy uzyskać efekt, aby po uruchomieniu programu został wyświetlony okrąg
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.
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); |
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 |
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; |
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.