Menggambar Bentuk Dengan Delphi 7

Saya akan membuat gambar 2D dengan Program Borland Delphi7 yang hasilnya akan sama dengan screenshoot dibawah logo android Jellybean dan Kitkat.  Ukuran windownya 505x369 dengan 2 buah gambar.

1. Gambar Android Jellybean

    Berikut Source Kodenya

   

begin

image1.Canvas.Brush.Color:=clGreen;

image1.Canvas.RoundRect(70,70,170,170,90,60);

 //objek kepala

Empat angkat pertama pada roundrect sebagai koordinat (x1,y1,x2,y2,x3,y3) sedangkan x3dan y3 sebagai sudut lengkung.

With

image1.Canvas do

begin

MoveTo(70,60);

LineTo(80,80);

end;

With

image1.Canvas do

begin

MoveTo(160,80);

LineTo(170,60);

end;

// sebagai antenna menggunkan dengan koordinat

image1.Canvas.Brush.Color:=clWhite;

image1.Canvas.Ellipse(140,90,150,100); //mata kiri

image1.Canvas.Ellipse(90,90,100,100);  //mata kanan

//koordinat ellipse adalah (x1,y1,x2,y2)

image1.Canvas.RoundRect(70,110,170,210,10,10); //badan

badan koordinatnya sama dengan kepala bedanya pada sudut lengkung yang diperkecil

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Ellipse(80,150,100,180);    //Jellybean

image1.Canvas.Brush.Color:=clGreen;

image1.Canvas.Ellipse(90,160,110,190);

image1.Canvas.Brush.Color:=clYellow;

image1.Canvas.Ellipse(70,160,90,190);

image1.Canvas.Brush.Color:=clBlue;

image1.Canvas.Ellipse(110,160,140,180);

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Ellipse(100,160,130,180);

image1.Canvas.Brush.Color:=clYellow;

image1.Canvas.Ellipse(110,170,140,190);

image1.Canvas.Brush.Color:=clBlue;

image1.Canvas.Ellipse(100,150,120,180);

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Ellipse(140,150,160,180);

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Ellipse(140,150,160,180);

image1.Canvas.Brush.Color:=clGreen;

image1.Canvas.Ellipse(140,140,160,170);

image1.Canvas.Brush.Color:=clGreen;

image1.Canvas.Ellipse(100,190,130,200);

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Ellipse(90,180,120,200);

image1.Canvas.Brush.Color:=clYellow;

image1.Canvas.Ellipse(110,140,140,160);

image1.Canvas.Brush.Color:=clBlue;

image1.Canvas.Ellipse(130,180,160,200);

end;

end.

//untuk jellybeannya sendiri menggunakan ellipse yang dibuat secara berulang-ulang sesuai kebutuhan banyaknya

2. Gambar Android Kitkat

begin

image1.Canvas.Brush.Color:=clMaroon;

image1.Canvas.RoundRect(250,170,355,270,90,60); //kepala

image1.Canvas.RoundRect(310,230,350,340,20,20); //kaki kanan

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Rectangle(315,220,345,330);

image1.Canvas.Brush.Color:=clMaroon;

image1.Canvas.RoundRect(255,230,295,340,20,20); //kaki kiri

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Rectangle(260,230,290,330);

//untuk kepala sudut lengkung sebesar 90,60 sedangkan untuk kaki kanan dan kaki kiri lebih kecil 20,20 untuk bagian dalam kaki menggunakan rectangle

image1.Canvas.Brush.Color:=clMaroon;

image1.Canvas.RoundRect(250,210,355,310,10,10); //badan

image1.Canvas.Brush.Color:=clRed;

image1.Canvas.Rectangle(255,215,275,305); //coklat badan

image1.Canvas.Rectangle(280,215,300,305);

image1.Canvas.Rectangle(305,215,325,305);

image1.Canvas.Rectangle(330,215,350,305);

//badan luar menggunkan roundrect yang memiliki sudut lengkung 10,10 untuk bagian dalam menggunakan rectangle yang terdiri dari 4 object

image1.Canvas.Ellipse(270,200,290,180); //mata kiri

image1.Canvas.Ellipse(310,200,330,180); //mata kanan

image1.Canvas.RoundRect(225,215,250,300,20,20); //tangan kiri

image1.Canvas.RoundRect(355,215,380,300,20,20); //tangan kanan

With

image1.Canvas do

begin

MoveTo(270,175);

LineTo(250,150);

end;

With

image1.Canvas do

begin

MoveTo(320,170);

LineTo(340,150);

end;

end;

end.