Bagi anda yg gemar menggunakan Visual Basic 6.0 berikut langkah membuat id sehingga ketika user login akan terus tersunting di form anda login sebagai siapa, pada sebuah form yg dijadikan halaman utama atau index form.
Langkah pertama tentunya kita membuat form utama.boleh menggunakan midi form dan tentunya form login..pada form utama beri komponen label dengan property name ID dan caption semisal : Anda tidak loginBagi anda yg gemar menggunakan Visual Basic 6.0 berikut langkah membuat id sehingga ketika user login akan terus tersunting di form anda login sebagai siapa, pada sebuah form yg dijadikan halaman utama atau index form.
Langkah pertama tentunya kita membuat form utama.boleh menggunakan midi form dan tentunya form login..pada form utama beri komponen label dengan property name ID dan caption semisal : Anda tidak login
lihat gambar beriku ini
Pada menu utama set Tombol Logout dengan tag berikut
private sub SmLogout_click()
smLogin.Enabled = True
smLogout.Enabled = False
{definiskan form yg di set disabled karena pada status logout}
ID.Caption = (“Status :Anda Tidak Login”)
End Sub
langkah selanjutnya definisikan status untuk membuat ID pada form login.Pada dasarnya ID di Dapatkan setelah kita melakukan proses login.Jadi setelah login kita baru dapat menentukan user login sebagai siapa dan mengubah Label pada Form Utama dengan text yg didapat pada saat login misal dari username…setelah sebelumnya ad pengecekan ke database tentang verifikasi username dan password.berikut script setelah pengecekan login selesai dilakukan…
buat variable golobal dan non global pada modul yg kita buat sebagai koneksi ke database.sebagai contoh untuk globalnya kita membuat variable umum sebagai koneksi pengecekan ke table dimana login dapat diakses :
Public Rs_cekuser As ADODB.Recordset
Set Rs_cekuser = New ADODB.Recordset
Rs_cekuser.Open “Select * FROM Master”, _
DbKoneksi, adOpenDynamic, adLockBatchOptimistic
End Sub
dan variable Yg di set public yaitu
Public PenggunaID As String
Public PenggunaNm As String
kembali pada form login
{ Bagian ini merupakan bagian segala pengecekan tentang username dan password jika sukses maka berikan informasi bahwa user sukses melakukan login bisa menggunakan procedure vbinformation semisal :
Konfirmasi = MsgBox(“Anda berhasil Login ke sistem!”, _
vbOKCancel + vbInformation, “informasi”)
dan setelah itu perhatikan script dibawah ini
If Konfirmasi = vbOK Then
With fmUtama{nama form utama}
.Show {menu yg dienable kan setelah login semisal form dengan sub menu dibawah ini} .smLogin.Enabled = False
.smLogout.Enabled = True
.MuPenugasan.Enabled = True
.MuPencarian.Enabled = True
.MuLaporan.Enabled = True
.MuMaster.Enabled = True
PenggunaID = _
Rs_cekuser!UserName
PenggunaNm = TxtUser.Text
.ID.Caption = ” Status Login Sebagai : ” _
& UCase(TxtUser.Text)
Unload Me
End With
bagian Yg dicetak tebal diatas merupakan proses pengantian label ID di menu utama dengan text yg dicek oelh RS_cek user sebagai username.sehinga ketika user sukses masuk ke dalam sistem maka pada menu utama label id akan berubah mejadi –> Status login sebagai username)
semoga bermanfaat..
Membuat Form Login
Maret 18, 2008 oleh Nawan
Hello2…. lama juga ga posting, kangen juga neh…. kali ini walau informasinya agak Jadul tapi tetep saya posting. oke, kali ini saya membahas form untuk login, tentunya dengan menggunakan Visual Basic 6.0 yang merupakan paket program dari Visual Basic Studio. Oke…. login?.. apa itu?.. (Tapi sepertinya kalian tidak mungkin bertanya tentang itu).
Form login adalah bagian dimana program mencocokkan input yang user masukkan dengan database yang ada pada dirinya(server maksudnya). Dan agar kalian mengerti tentang login-melogin. Ini ada simple program untu kalian semua. Oke… mari kita berkreasi.
• Siapkan Microsoft Visual Basic 6.0
• Buka Standard.EXE
• Dalam membuat Form, terserah kalian tampilannya akan bagaimana karena itu hak asasi anda. Oke akan saya beri propertiesnya. Properties sebagai berikut:
o Untuk obyek Form pengaturanya: Name = Flogin, Caption = Form Login,
o Untuk obyek label1 pengaturannya: Name = Label1, Caption = User
o Untuk obyek label2 pengaturannya: Name = label2, Caption = Password
o Untuk obyek Command1 pengaturannya: Name = CmdOK, Caption = OK
o Untuk obyek Command2 pengaturannya: Name = CmdKeluar, Caption = Keluar
Oke…. sekarang halaman untuk login anda telah selesai, kini tinggal mengisinya saja, agar bisa berjalan sebagaimana mestinya. oke.. langkah berikutnya adalah pemberian script:
• Untuk obyek Command1 kalian doble klik lalu isikan script seperti dibawah ini:
If TUser.Text = ” ” Then
MsgBox “Nama user harus diisi”, 0 + 64
Exit Sub
ElseIf TPasswd = ” ” Then
MsgBox “Password harus diisi”, 0 + 64
Exit Sub
End If
If TUser.Text = “halo” And TPasswd = “halo” Then
MsgBox “SELAMAT ANDA LAYAK DAPAT BINTANG”, 0 + 64
Else
MsgBox “AKSES DITOLAK “, vbOKOnly + vbCritical,
“Konfirmasi”
End If
Membuat Tabel Konversi Suhu
April 16, 2008 oleh Nawan
Kalian pasti tidak jarang mendengar kata-kata Celcius, Reamur,Fahrenhiet dan Kelvin?. Yup bener banget itu memang nama-nama satuan suhu dalam standar internasional. Nah… karena kemaren baru tak ada kerjaan, dan pengen buat apa gtu… jadi kepikiran deh buat bikin tabel konversi suhu. walaupun prinsipnya sama aja kaya kalkulator sih. Tapi tak apa-apalah yang penting tiap hari terus berkarya. ya kagak?…. pengen tahu cara pembuatannya?… gampang kok.
• Siapin Microsoft Visual Basic 6.0
• Buka Standard.EXE
• lalu letakkan obyek seperti:
Karena saya sudah menganggap anda bisa, maka saya tidak akan memberikan nilai Obyek dan propertiesnya. Oke setelah anda membuat obyek-obyeknya. Kini tinggal source codenya saja. Tenang saja saya tidak mengbubah Name dari properti tiap Object, jadi anda dengan mudah dapat meletakkan Source codenya ditempat yang tepat. Source Codenya :
Private Sub Command1_Click()
Text4.Text = 4 / 5 * Text1.Text
Text3.Text = 32 + (9 / 5 * Text1.Text)
Text2.Text = Text1.Text + 273
End Sub
——————————————–
Private Sub Command2_Click()
Text6.Text = Text5.Text – 273
Text7.Text = 32 + (9 / 5 * (Text5.Text – 273))
Text8.Text = (Text5.Text – 273) * 4 / 5
End Sub
—————————————————-
Private Sub Command3_Click()
Text10.Text = 5 / 9 * (Text9.Text – 32)
Text11.Text = (5 / 9 * (Text9.Text – 32)) + 273
Text12.Text = (Text9.Text – 32) * 4 / 9
End Sub
———————————————————
Private Sub Command4_Click()
Text14.Text = Text13.Text * 5 / 4
Text15.Text = (5 / 4 * Text13.Text) + 273
Text16.Text = (9 / 4 * Text13.Text) + 32
End Sub
———————————————————–
Private Sub Command5_Click()
End
End Sub
———————————————————
Private Sub Command6_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text6.Text = Clear
Text7.Text = Clear
Text8.Text = Clear
Text9.Text = Clear
Text10.Text = Clear
Text11.Text = Clear
Text12.Text = Clear
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
Text16.Text = Clear
End Sub
Membuat Form Pencarian (Lookup) Menggunakan Visual Basic 6 + ADO (Source Code)
Written by admin on 20/11/2009 — Leave a Comment
Form pencarian ini saya gunakan di banyak aplikasi Visual Basic 6 yang saya buat. Form pencarian ini bisa digunakan beberapa kali, di banyak tempat sesuai dengan kebutuhan. Sama sekali tidak menggunakan component pihak ketiga.
Pada form ini terdapat beberapa property tambahan yang digunakan untuk setting form pencarian. Form pencarian ini saya gunakan di aplikasi Point Of Sales.
Property tersebut adalah :
frmCari.sql = “SELECT * FROM karyawan ORDER BY nama”
frmCari.ColumnSize = “500:1000″
frmCari.ColumnHeader = “Kode:Nama”
frmCari.ReturnValueColumn = 0
Set frmCari.Koneksi = conn
frmCari.Caption = “Cari Karyawan”
frmCari.TextColumn = “0″
frmCari.DefaultCol = 1
Penjelasan property :
sql = SQL Statement untuk menampilkan data yang akan ditampilkan di grid form pencarian
ColumnSize = ukuran kolom, untuk tiap kolom dipisah dengan tanda : (titik dua )
ColumnHeader = Header tiap kolom
ReturnValueColumn = Nilai yang dikembalikan diambil dari kolom yang mana
Koneksi = koneksi ADO ke database
Caption = Judul Form
TextColumn = Kolom yang disable
DefaultCol = default kolom pencarian
Untuk lebih jelasnya berikut screen capture dari pemakain form pencarian :
Jika tombol … ditekan, maka muncul form pencarian seperti dibawah
pada kolom nama, terdapat textbox, ketik lalu enter, maka textbox aktif menuju ke nama dengan huruf awal yang anda ketikkan. Contoh anda ketik ‘vo’ lalu enter, maka textbox aktif di nama ‘Vonny’. Tekan tombol OK atau F12 untuk memilih.
Hasil pencarian akan tampak seperti form diatas.
/*
Source Code ini merupakan modifikasi
dari template SDL Code::Blocks dan
Source Code ini adalah bahan/materi
untuk blog:
http://membuatgamedengancpp.blogspot.com/
*/
#ifdef __cplusplus
#include
#else
#include
#endif
#ifdef __APPLE__
#include
#else
#include
#endif
#include
const int lebar_layar = 640;
const int tinggi_layar = 480;
/*membuat fungsi untuk memeriksa terjadinya tabrakan (collision)
antara kotak pertama (A) dengan kotak kedua (B)
*/
bool f_PeriksaTabrakan(SDL_Rect A, SDL_Rect B)
{
int kiriA, kiriB;
int kananA, kananB;
int atasA, atasB;
int bawahA, bawahB;
kiriA = A.x;
kananA = A.x + A.w;
atasA = A.y;
bawahA = A.y + A.h;
kiriB = B.x;
kananB = B.x + B.w;
atasB = B.y;
bawahB = B.y + B.h;
if (bawahA <= atasB) return false; if (atasA >= bawahB) return false;
if (kananA <=kiriB) return false; if (kiriA >=kananB) return false;
return true;
}
//clsKotak = class Kotak
class clsKotak
{
SDL_Rect kotak;
int red,green,blue;
int kecX, kecY;
public:
clsKotak(int,int,int,int,int);
SDL_Rect getKotak();
void bergerak(int,SDL_Rect O_[]);
void tampil(SDL_Surface *_O);
};
//konstruktor kelas kotak
clsKotak::clsKotak(int _red, int _green, int _blue, int _X, int _Y)
{
//variabel red, green, blue (rgb) untuk
//membedakan warna dengan kotak yang lain
red = _red;
//diperiksa nilainya jika ada kesalahan
if( red < red =" 0;"> 255) red = 255;
green = _green;
if( green < green =" 0;"> 255) green = 255;
blue = _blue;
if( blue < blue =" 0;"> 255) blue = 255;
kecX = 5+_X%3;
kecY = 5+_Y%3;
kotak.x = _X;
kotak.y = _Y;
kotak.w = 20;
kotak.h = 20;
}
SDL_Rect clsKotak::getKotak()
{
return kotak;
}
void clsKotak::bergerak(int banyakKotak, SDL_Rect kotakLainnya[])
{
//menggerakan kotak dengan sumbu x
kotak.x += kecX;
//memeriksa apakah sih kotak masih ada dilayar
//atau sudah keluar dari layar
if( kotak.x < x =" 0;" kecx =" -kecX;"> lebar_layar){
kotak.x = lebar_layar - kotak.w;
kecX = -kecX;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c< y =" 0;" kecy =" -kecY;"> tinggi_layar){
kotak.y = tinggi_layar - kotak.h;
kecY = -kecY;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c220) red = 0;
green+=rand()%7;
if( green>220) green = 0;
blue+=rand()%9;
if( blue>220) blue = 0;
//warna diisi sesuai dengan variabel red, green, blue
SDL_FillRect( _screen, &kotak, SDL_MapRGB( _screen->format, red, green, blue));
}
int main ( int argc, char** argv )
{
srand((unsigned)time(NULL));
// initialize SDL video
if ( SDL_Init( SDL_INIT_VIDEO ) < screen =" SDL_SetVideoMode(lebar_layar," bykkotak =" banyak" bykkotak =" 50;" c="0;cformat,255,255,255));
for( int b=0;bgetKotak();
}
else{
_ktkLain[c].x=0;
_ktkLain[c].y=0;
_ktkLain[c].w=0;
_ktkLain[c].h=0;
}
}
kotakKu[b]->bergerak(bykKotak,_ktkLain);
}
for( int c=0;ctampil(screen);
}
// DRAWING ENDS HERE
// finally, update the screen :)
SDL_Flip(screen);
//perhitungan frame rate
int getDetik = SDL_GetTicks() - fps;
if( getDetik<(1000/frame_per_second)){ SDL_Delay((1000/frame_per_second) - getDetik); } } // end main loop for( int c=0;c
Fungsi ubah wrna diatas bisa diganti mnjadi sebuah prosedur..
cnth’a..
void setcolor(unsigned short color)
{
HANDLE hCon = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hCon,color);
}
panggil prsdr trsbut dngn..
setcolor(10);
angka 10 fngsi’a sama dngn angka 14 pada pnjelasan diatas..!!
untk mngset ulng ke mode stndar ketikan code..
setcolor(7);
7 adlh warna putih biasa.., bukan white bright….!!
Berikut fungsi untuk mngubah warna text sekaligus mngbh warna background..
code’a..
system(“Color 0A”);
dngn library.. #include
0A = adlh dua angka Hexadecimal… 0-F..
digit pertama buat ngatur warna background, sdngkan digit kedua buat ngatur warna text..
jadi klo kalian udh ngeset tmplan ke wrna lain.., untk mngubh ke default warna’a pake code…
system(“Color 07″);
0 , digunakn untuk backround..(hitam)
7 , digunakn untuk text..(putih)
brikut adalah code Hexadecimal buat ngubah warna..
0 = Black
1 = Blue
2 = Green
3 = Aqua
4 = Red
5 = Purple
6 = Yellow
7 = White
8 = Gray
9 = Light Blue
A = Light Green
B = Light Aqua
C = Light Red
D = Light Purple
E = Light Yellow
F = Light White
NB: fungsi system(“color ..”);
hanya dpt mngubh SEMUA warna text!!!
Script Project dengan TImage
#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::Button3Click(TObject *Sender)
{
Close();
}
//———————————————————–
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
}
//———————————————————–
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);
}
//———————————————————–
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Edit1->Text=IntToStr(X);
Edit2->Text=IntToStr(Y);
if (Tergambar)
{
Image1->Canvas->LineTo(X,Y);
}
}
//———————————————————–
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Tergambar=false;
}
//———————————————————
#else
#include
#endif
#ifdef __APPLE__
#include
#else
#include
#endif
#include
const int lebar_layar = 640;
const int tinggi_layar = 480;
/*membuat fungsi untuk memeriksa terjadinya tabrakan (collision)
antara kotak pertama (A) dengan kotak kedua (B)
*/
bool f_PeriksaTabrakan(SDL_Rect A, SDL_Rect B)
{
int kiriA, kiriB;
int kananA, kananB;
int atasA, atasB;
int bawahA, bawahB;
kiriA = A.x;
kananA = A.x + A.w;
atasA = A.y;
bawahA = A.y + A.h;
kiriB = B.x;
kananB = B.x + B.w;
atasB = B.y;
bawahB = B.y + B.h;
if (bawahA <= atasB) return false; if (atasA >= bawahB) return false;
if (kananA <=kiriB) return false; if (kiriA >=kananB) return false;
return true;
}
//clsKotak = class Kotak
class clsKotak
{
SDL_Rect kotak;
int red,green,blue;
int kecX, kecY;
public:
clsKotak(int,int,int,int,int);
SDL_Rect getKotak();
void bergerak(int,SDL_Rect O_[]);
void tampil(SDL_Surface *_O);
};
//konstruktor kelas kotak
clsKotak::clsKotak(int _red, int _green, int _blue, int _X, int _Y)
{
//variabel red, green, blue (rgb) untuk
//membedakan warna dengan kotak yang lain
red = _red;
//diperiksa nilainya jika ada kesalahan
if( red < red =" 0;"> 255) red = 255;
green = _green;
if( green < green =" 0;"> 255) green = 255;
blue = _blue;
if( blue < blue =" 0;"> 255) blue = 255;
kecX = 5+_X%3;
kecY = 5+_Y%3;
kotak.x = _X;
kotak.y = _Y;
kotak.w = 20;
kotak.h = 20;
}
SDL_Rect clsKotak::getKotak()
{
return kotak;
}
void clsKotak::bergerak(int banyakKotak, SDL_Rect kotakLainnya[])
{
//menggerakan kotak dengan sumbu x
kotak.x += kecX;
//memeriksa apakah sih kotak masih ada dilayar
//atau sudah keluar dari layar
if( kotak.x < x =" 0;" kecx =" -kecX;"> lebar_layar){
kotak.x = lebar_layar - kotak.w;
kecX = -kecX;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c
kotak.y = tinggi_layar - kotak.h;
kecY = -kecY;
}
//pemeriksaan terhadap kotak lainnya
for(int c=0;c
green+=rand()%7;
if( green>220) green = 0;
blue+=rand()%9;
if( blue>220) blue = 0;
//warna diisi sesuai dengan variabel red, green, blue
SDL_FillRect( _screen, &kotak, SDL_MapRGB( _screen->format, red, green, blue));
}
int main ( int argc, char** argv )
{
srand((unsigned)time(NULL));
// initialize SDL video
if ( SDL_Init( SDL_INIT_VIDEO ) < screen =" SDL_SetVideoMode(lebar_layar," bykkotak =" banyak" bykkotak =" 50;" c="0;c
for( int b=0;b
}
else{
_ktkLain[c].x=0;
_ktkLain[c].y=0;
_ktkLain[c].w=0;
_ktkLain[c].h=0;
}
}
kotakKu[b]->bergerak(bykKotak,_ktkLain);
}
for( int c=0;c
}
// DRAWING ENDS HERE
// finally, update the screen :)
SDL_Flip(screen);
//perhitungan frame rate
int getDetik = SDL_GetTicks() - fps;
if( getDetik<(1000/frame_per_second)){ SDL_Delay((1000/frame_per_second) - getDetik); } } // end main loop for( int c=0;c
Fungsi ubah wrna diatas bisa diganti mnjadi sebuah prosedur..
cnth’a..
void setcolor(unsigned short color)
{
HANDLE hCon = GetStdHandle(STD_OUTPUT_HANDLE);
SetConsoleTextAttribute(hCon,color);
}
panggil prsdr trsbut dngn..
setcolor(10);
angka 10 fngsi’a sama dngn angka 14 pada pnjelasan diatas..!!
untk mngset ulng ke mode stndar ketikan code..
setcolor(7);
7 adlh warna putih biasa.., bukan white bright….!!
Berikut fungsi untuk mngubah warna text sekaligus mngbh warna background..
code’a..
system(“Color 0A”);
dngn library.. #include
0A = adlh dua angka Hexadecimal… 0-F..
digit pertama buat ngatur warna background, sdngkan digit kedua buat ngatur warna text..
jadi klo kalian udh ngeset tmplan ke wrna lain.., untk mngubh ke default warna’a pake code…
system(“Color 07″);
0 , digunakn untuk backround..(hitam)
7 , digunakn untuk text..(putih)
brikut adalah code Hexadecimal buat ngubah warna..
0 = Black
1 = Blue
2 = Green
3 = Aqua
4 = Red
5 = Purple
6 = Yellow
7 = White
8 = Gray
9 = Light Blue
A = Light Green
B = Light Aqua
C = Light Red
D = Light Purple
E = Light Yellow
F = Light White
NB: fungsi system(“color ..”);
hanya dpt mngubh SEMUA warna text!!!
Script Project dengan TImage
#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::Button3Click(TObject *Sender)
{
Close();
}
//———————————————————–
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Tergambar=false;
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
}
//———————————————————–
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);
}
//———————————————————–
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
Edit1->Text=IntToStr(X);
Edit2->Text=IntToStr(Y);
if (Tergambar)
{
Image1->Canvas->LineTo(X,Y);
}
}
//———————————————————–
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Tergambar=false;
}
//———————————————————
