Membuat Elips dengan Ellipse

Elips adalah kurva yang membatasi suatu daerah. Di Delphi, kita memanfaatkan fungsi Ellipse yang merupakan property dari Canvas untuk membuat gambar semacam ini. Ada empat parameter yang dibutuhkan. .Dua parameter pertama menyatakan koordinat diatas kiri. Lainnnya, titik koordinat di kanan bawah.

Sintak
Canvas.Ellipse(TitikLebarKiri, TitikTinggiKiri, TitikLebarKananBawah, TitikTinggiKananBawah);

Ketebalan Garis
Besar garis ditentukan oleh property Canvas.Pen.Width
Contoh:
Canvas.Pen.Width := 5;

Arsiran Area Dalam
Bagian dalam Elips dapat diarsir dengan memberikan kostanta berikut:

• bsSolid
• bsBDiagonal
• bsFDiagonal
• bsHorizontal
• bsVertical
• bsCross
• bsDiagCross
• bsClear

Arsiran dapat ditentukan dengan menuliskan Canvas.Brush.Style
Contoh:
Canvas.Brush.Style := bsVertical;

Warna Arsiran
Dapat ditentukan lewat Canvas.Brush.Color dengan menggunakan kostanta warna atau lewat definisi RGB lewat TColor

Warna Garis
Garis kurva dapat ditentukan dengan Canvas.Pen.Color
Contoh:
Canvas.Pen.Color := clGreen.
atau
Canvas.Pen.Color := TColor(RGB(00,80,00));

Warna-warna dapat dipilih dari kostanta warna yang sudah didefinisikan oleh Delphi di unit Graphics seperti berikut:

clBlack = TColor($000000);
clMaroon = TColor($000080);
clGreen = TColor($008000);
clOlive = TColor($008080);
clNavy = TColor($800000);
clPurple = TColor($800080);
clTeal = TColor($808000);
clGray = TColor($808080);
clSilver = TColor($C0C0C0);
clRed = TColor($0000FF);
clLime = TColor($00FF00);
clYellow = TColor($00FFFF);
clBlue = TColor($FF0000);
clFuchsia = TColor($FF00FF);
clAqua = TColor($FFFF00);
clLtGray = TColor($C0C0C0);
clDkGray = TColor($808080);
clWhite = TColor($FFFFFF);

clMoneyGreen = TColor($C0DCC0);

clSkyBlue = TColor($F0CAA6);

clCream = TColor($F0FBFF);

clMedGray = TColor($A4A0A0);

Program Selengkapnya:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormResize(Sender: TObject); procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ClientHeight := 220; ClientWidth := 210; end; procedure TForm1.FormPaint(Sender: TObject); var TitikLebarKiri, TitikTinggiKiri, TitikLebarKanan, TitikTinggiKanan : integer; begin TitikLebarKiri := 30; TitikTinggiKiri := 40; TItikLebarKanan := 175; TitikTinggiKanan := 175; //-- Lingkaran paling besar Canvas.Pen.Color := clRed; Canvas.Brush.Style := bsCross; Canvas.Brush.Color := clPurple; Canvas.Pen.Width := 1; Canvas.Pen.Style := psDot; Canvas.Ellipse( TitikLebarKiri, TitikTinggiKiri, TitikLebarKanan, TitikTinggiKanan ); //-- Lingkaran kecil kiri atas Canvas.Pen.Width := 5; Canvas.Brush.Color := clBlack; Canvas.Brush.Style := bsSolid; Canvas.Ellipse(10, 10, 50, 50); //-- Lingkaran kecil kiri bawah Canvas.Pen.Width := 5; Canvas.Brush.Color := clGreen; Canvas.Brush.Style := bsDiagCross; Canvas.Ellipse(10, 10 + 150, 50, 50 + 150); //-- Lingkaran kecil kanan atas Canvas.Pen.Width := 5; Canvas.Brush.Color := clYellow; Canvas.Brush.Style := bsFDiagonal; Canvas.Ellipse(150, 10, 190, 50); //-- Lingkaran kecil kanan bawah Canvas.Pen.Width := 5; Canvas.Brush.Color := clBlue; Canvas.Brush.Style := bsHorizontal; Canvas.Ellipse(150, 10 + 150, 190, 50 + 150); end; procedure TForm1.FormResize(Sender: TObject); begin invalidate; end; end.

Membuat Elips dengan Ellipse 2019-05-23T11:32:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer