Tugas 1

Pada praktikum pertama yang diajarkan pada plug6 adalah membuat sebuah project dengan Timage, seperti form yang ada di bawah ini :

Pembuatan Antarmuka:

Langkah-langkah pembuatannya adalah sebagai berikut :

1. Buka aplikasi Borland C++ Builder

2. Image (Membuat segi empat dengan putus-putus) yaitu dengan cara menggunakan Image yaitu klik additional kemudian Image lalu di drag pada pada grid atau form 1 daerah berbintik-bintik.
   

3. Label (menampilkan teks posisi X dan posisi Y )

Klik additional kemudian static text kemudian drag ke daerah grid diluar kanvas atau image pada langkah kedua tadi. Kemudian buat static text sebanyak dua kali pada layar, yakni static text 1 dan static text 2.

4. Membuat Button

Klik standard setelah itu button dan drag ke form sebanyak 3 kali, setelah itu akan tampak button 1,2 dan 3 lalu ganti caption pada object inspector

Klik standardmain menu (Membuat MainMenu sehingga dapat memudahkan dalam menggunakan aplikasi, main menu yang dibuat terdiri atas File Open, File save. Kemudian klik Dialogs OpenPictureDialogs (Membuka file yang pernah disimpan dalam aplikasi buku gambar). Setelah itu klik Dialogs SavePictureDialogs (Menyimpan file yang telah dibuat dalam aplikasi buku gambar). Kemudian klik Dialogs ColorDialogs(User dapat memilih warna pena yang akan dugunakan untuk menggambar).

Program :

//---------------------------------------------------------------------------

#include vcl.h

#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::FormActive(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::Button2Click(TObject *Sender)

{

Tergambar=false; Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);

}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender) { Close();

}

//---------------------------------------------------------------------------
void __fastcall TForm1::OpenPictureDialog1CanClose(TObject *Sender, bool &CanClose)

{ if (OpenPictureDialog1->Execute())

{ Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);

}

}

//---------------------------------------------------------------------------
void __fastcall TForm1::SavePictureDialog1CanClose(TObject *Sender, bool &CanClose)

{ if (SavePictureDialog1->Execute()) { Image1->Picture->SaveToFile(SavePictureDialog1->FileName);

} }

//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { Tergambar=True; Image1->Canvas->MoveTo(X,Y); }

Output: