Menggambar Kotak Sudut Tumpul dengan RoundRect

Menggambar kotak seperti biasa dapat dilakukan dengan perintah Rectangle, namun dengan Delphi, kita dapat membuat sudut-sudutnya tumpul. Secara sintak, hampir sampai dengan Rectangle, hanya saja, kita menambahkan dua parameter tambahan untuk mendefinisikan "seberapa tumpul sudutnya" di parameter x3, y3.

Sintak.
Canvas.RoundRect(x1, y1, x2, y2, x3, y3);

Seperti pada Rectangle. x1, y1 adalah koordinat kiri atas, sedangkan x2, y2 adalah koordinat kanan bawah.

Contoh program dibawah ini akan menggambar kotak sudut tumpul bergaris merah dengan tebal 5:
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 5;

yang akan diisi warna solid kuning:
Canvas.Brush.Color := clyellow;
Canvas.Brush.Style := bsSolid;

Jangan lupa menyertakan unit Graphics yang memuat class TCanvas.

Contoh Program:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin invalidate; end; procedure TForm1.FormPaint(Sender: TObject); begin Canvas.Pen.Color := clRed; Canvas.Pen.Width := 5; Canvas.Brush.Color := clyellow; Canvas.Brush.Style := bsSolid; Canvas.RoundRect(25,25, 300,175, 50,50); end; end.

Menggambar Kotak Sudut Tumpul dengan RoundRect 2019-05-27T11:01:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer