MEMBUAT PROJECT TPaintBox

MEMBUAT PROJECT TPaintBox

Program di bawah ini merupakan contoh program aplikasi dengan memanfaatkan fasilitas TPaintBox.
Dengan langkah – langkah pembutan program adalah sbb:

1.Pembuatan Antarmuka

Langkah – Langkahnya :
Tempatkan komponen Panel, TpainBox dan beberapa button ke dalam form rancangan. Atur propertinya seperti terlihat pada Antarmuka.
Tuliskan script dibawah ini :
#include
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
}

Script Garis

Void__fastcall Tform1::GarisClick(Tobject *Sender)
{
PaintBox1->Canvas->Pen->Color=c1White;
PaintBox1->Canvas->Pen->Width=3;
PaintBox1->Canvas->MoveTo(50,50);
PaintBox1->Canvas->LineTo(50,200);
}

Script Arc :

Void__fastcall Tform1::ArcClick(Tobject *Sender)
{
PaintBox1->Canvas->Arc(100,100,50,50,150,150,100,100);
}

Script Chord

Void__fastcall Tform1::ChordClick(Tobject *Sender)
{
PaintBox1->Canvas->Chord->Arc(100,100,50,50,150,150,100,100);
}

script Kotak

Void__fastcall TForm1::KotakClick(TObject *Sender)
{
PaintBox1->Canvas->Rectangle(300,200,250,100);
}

Script Keluar

Void__fastcall TForm1::KeluarClick(TObject *Sender)
{
Close();
}

CATATAN :

1.MoveTo berfungsi untuk mengubah posisi gambar dar X ke Y, MoveTo di ikuti LineTo.
Cara pemanggilan : void__fastcall MoveTo(int X, int Y);

2.LineTo berfungsi untuk menggambar garis pada canvas dengan pen dimana garis dimulai dari titik X menuju Y.
Cara pemanggilan : void__fastcall LineTo (int X, int Y);

3.Arc berfungsi untuk menggambar bentuk kurva elips yang di batasi oleh garis.
4.Chord berfungsi untuk membuat gambar tertutup berupa interseksi antar garis dan elips.
5.Rectangle berfungsi untuk membentuk segi empat.