Ikuti caranya ya.......
IMAGE (segi empat dengan garis putus-putus)
· Klik additional>image kemudian drag pada grid. Akan terbentuk segi empat dengan garis putus-putus. Lebar canvas buka gambar dapat disesuaikan oleh kita.
LABEL (menampilkan teks)
· Klik additional>Static Text (A), kemudian drag ke daerah grid, diluar kanvas atau image yang telah kita buat di langkah pertama.
· Buat static sebanyak dua kali pada layer, yakni Static Text1 dan Static Text2.
· Ganti nama dengan Posisi x dan posisi y, dengan cara mengubah caption pada object inspector
BUTTON (Membuat tombol tekan)
· Klik standard> Button dan drag ke form, lakukan sebanyak tiga kali, sesuai dengan aplikasi yang kita buat.
· Pada form akan tampak Button1, Button2, Button3. Lalu ganti nama button tersebut pada bagian caption dengan Warna, Baru dan Keluar.
DIALOG
· Pada form letakkan MainMenu, OpenPicturesDialogs, SavePictureDialog dan ColorDialog.
· Standard>MainMenu
· Dialogs>OpenPictureDialogs
· Dialogs>SavePictureDialogs
· Dialogs>ColorDialogs
Ikuti source codenya....
#include
#pragma hdrstop
#include “Unit1.h”
#pragma package(smart_init)
#pragma resource “*.dfm”
TForm1 *Form1;
int Tergambar;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (ColorDialog1->Execute())
Image1->Canvas->Pen->Color=ColorDialog1->Color;
}
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Tergambar=True;
Image1->Canvas->MoveTo(X,Y);
}
void __fastcall TForm1::BaruClick(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,
Image1->Width,Image1->Height);
}
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Tergambar=false;
}
void __fastcall TForm1::KeluarClick(TObject *Sender)
{
Close();
}
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (Tergambar)
{
Image1->Canvas->LineTo(X,Y);
}
}
void __fastcall TForm1::Open1Click(TObject *Sender)
{
if (OpenPictureDialog1->Execute())
{
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
}
Klo sudah di ikuti source codenya....
jalankan programnya....
nah muncul tampilan gini.....
dah dulu,,, tunggu laporan berikutnya.....
0 Comments:
Posting Lebih Baru Posting Lama Beranda