unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Y
Canvas.Brush.Color:=clScrollBar;
Canvas.Polygon([Point(40,10),Point(50,10),Point(55,25),Point(60,10),Point(70,10),Point(60,30),Point(60,60),Point(50,60),Point(50,30)]);
//U
Canvas.Polygon([Point(90,10),Point(100,10),Point(100,50),Point(120,50),Point(120,10),Point(130,10),Point(130,60),Point(90,60)]);
//D
Canvas.Polygon([Point(150,10),Point(165,10),Point(185,35),Point(165,60),Point(150,60)]);
//A
Canvas.Polygon([Point(205,10),Point(223,60),Point(213,60),Point(208,40),Point(203,40),Point(198,60),Point(188,60)]);
//bendera
Canvas.Brush.Color:=clWhite;
Canvas.Polygon([Point(400,100),Point(420,100),Point(420,120),Point(540,160),Point(420,160),Point(540,190),Point(420,190),Point(420,240),Point(400,240)]);
//badan kapal
Canvas.Brush.Color:=clBlack;
Canvas.Polygon([Point(200,200),Point(300,300),Point(700,300),Point(800,230)]);
// with Canvas do
// begin
// MoveTo(1,300); //pindahkan posisi ke koordinat 50,50
// LineTo(1000,300); //buat garis yang menghubungkan titik (50,50) ke (100,100)
// end;
begin
Canvas.Brush.Color:=clred;
canvas.Ellipse(315,215,265,265);
canvas.Brush.Color:=clLime;
canvas.Ellipse(600,250,650,300);
end;
with Canvas do
begin
Canvas.Brush.Style:=bsFDiagonal; //garis horizontal
Canvas.FloodFill(5,290,clblack,fsBorder); //isi warna dg patokan 15,15
Brush.Color:=clBlue;
Rectangle(1,302,910,400); //buat kotak
//warna merah
end;
end;
end.
Tidak ada komentar:
Posting Komentar