menggambar lewat C++4

Buatlah program Latih-3 dengan mengikuti petunjuk berikut :

1. Aktifkan software C++ Builder dan buat aplikasi baru dengan memilih menu File, New application.
2.Rancanglah Form Output program seperti gambar di bawah ini :



- Letakkan 2 buah komponen Panel pada Form
- Letakkan 1 buah komponen PaintBox di dalam Panel1
- Letakkan 6 buah komponen Shape pada Panel2
- Letakkan 3 buah komponen SpeedButton pada Panel2
- Letakkan 2 buah komponen BitBtn pada Panel2

3. Ubahlah properti untuk komponen form1 :



4. Ketik perintah berikut pada bagian halaman Events pada jendela object inspector untuk objek :
-Form1 : klik ganda tempat kosong disamping kanan event OnCreate:
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Gambar=false;
BidGb->Canvas->Pen->Color=clBlack;
BidGb->Canvas->Pen->Width=1;
}
//---------------------------------------------------------------------------

-PaintBox1 : klik ganda tempat kosong disamping kanan event OnMouseDown :
//---------------------------------------------------------------------------
void __fastcall TForm1::BidGbMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if (Button==mbLeft)
Gambar=true;
else
Gambar=false;
BidGb->Canvas->MoveTo(X,Y);
}

PaintBox1 : klik ganda tempat kosong disamping kanan event OnMouseMove :
//---------------------------------------------------------------------------
void __fastcall TForm1::BidGbMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (Gambar==true)
BidGb->Canvas->LineTo(X,Y);
}

PaintBox1 : klik ganda tempat kosong disamping kanan event OnMouseUp :
//---------------------------------------------------------------------------
void __fastcall TForm1::BidGbMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Gambar=false;
}

-Shape1 : klik ganda tempat kosong disamping kanan event OnMouseDown :
//---------------------------------------------------------------------------
void __fastcall TForm1::shHitamMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shHitam->Brush->Style=bsSolid;
shUngu->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clBlack;
}

-Shape2 : klik ganda tempat kosong disamping kanan event OnMouseDown :
//---------------------------------------------------------------------------
void __fastcall TForm1::shUnguMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shUngu->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clPurple;
}

-Shape3 : klik ganda tempat kosong disamping kanan event OnMouseDown :
//---------------------------------------------------------------------------
void __fastcall TForm1::shMerahMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shMerah->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clRed;
}

-Shape4 : klik ganda tempat kosong disamping kanan event OnMouseDown :
//---------------------------------------------------------------------------
void __fastcall TForm1::shKuningMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shKuning->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clYellow;
}

-Shape5 : klik ganda tempat kosong disamping kanan event OnMouseDown :
//---------------------------------------------------------------------------
void __fastcall TForm1::shBiruMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shBiru->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clBlue;
}

-Shape6 : klik ganda tempat kosong disamping kanan event OnMouseDown :
//---------------------------------------------------------------------------
void __fastcall TForm1::shHijauMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shHijau->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clGreen;
}

-SpeedButton1 : klik ganda tempat kosong disamping kanan event OnClick :
//---------------------------------------------------------------------------
void __fastcall TForm1::spTipisClick(TObject *Sender)
{
BidGb->Canvas->Pen->Width=1;
}

-SpeedButton2 : klik ganda tempat kosong disamping kanan event OnClick :
//---------------------------------------------------------------------------
void __fastcall TForm1::spSedangClick(TObject *Sender)
{
BidGb->Canvas->Pen->Width=4;
}

-SpeedButton3 : klik ganda tempat kosong disamping kanan event OnClick :
//---------------------------------------------------------------------------
void __fastcall TForm1::spTebalClick(TObject *Sender)
{
BidGb->Canvas->Pen->Width=7;
}

- BitBtn1 : klik ganda tempat kosong disamping kanan event OnClick :
//---------------------------------------------------------------------------
void __fastcall TForm1::bitHapusClick(TObject *Sender)
{
BidGb->Refresh();
}

-BitBtn2 : klik ganda tempat kosong disamping kanan event OnClick :
//---------------------------------------------------------------------------
void __fastcall TForm1::bitKeluarClick(TObject *Sender)
{
Close();
}

5. Simpan lembar kerja anda.
6. Run program dengan menekan tombol F9 atau tekan icon ► pada speedbar.
7. Contoh hasil running program :

maka hasil dari output setelah program di running



adapun listing lengkapnya :

//---------------------------------------------------------------------------
#include
#pragma hdrstop

#include "fPrak6.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
bool Gambar;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BidGbMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if (Button==mbLeft)
Gambar=true;
else
Gambar=false;
BidGb->Canvas->MoveTo(X,Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BidGbMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (Gambar==true)
BidGb->Canvas->LineTo(X,Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BidGbMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Gambar=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Gambar=false;
BidGb->Canvas->Pen->Color=clBlack;
BidGb->Canvas->Pen->Width=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::spTipisClick(TObject *Sender)
{
BidGb->Canvas->Pen->Width=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::spSedangClick(TObject *Sender)
{
BidGb->Canvas->Pen->Width=4;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::spTebalClick(TObject *Sender)
{
BidGb->Canvas->Pen->Width=7;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bitHapusClick(TObject *Sender)
{
BidGb->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bitKeluarClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::shHitamMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shHitam->Brush->Style=bsSolid;
shUngu->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clBlack;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::shUnguMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shUngu->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clPurple;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::shMerahMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shMerah->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clRed;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::shKuningMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shKuning->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clYellow;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::shBiruMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shBiru->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
shHijau->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clBlue;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::shHijauMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
shHijau->Brush->Style=bsSolid;
shHitam->Brush->Style=bsDiagCross;
shMerah->Brush->Style=bsDiagCross;
shKuning->Brush->Style=bsDiagCross;
shBiru->Brush->Style=bsDiagCross;
shUngu->Brush->Style=bsDiagCross;
BidGb->Canvas->Pen->Color=clGreen;
}
//---------------------------------------------------------------------------