Czas na grafikę
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:
4) Uruchamiamy program.
Porada pierwsza
W powyższym przykładzie wykonaliśmy rysunek elipsy, jednak płótno (Canvas) umożliwia jeszcze rysowanie paru innych figur. Oto one:
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:
Drugim atrybutem dostępnym przez płótno jest Brush. Posiada m.in. ustawienia takie jak:
Kod źródłowy
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 pierwsza
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 |
| Elipsa | 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.
Materiał dodany przez użytkownika: alphan