GRAFKOM MEMBUAT KAPAL LAUT

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.