Sabtu, 20 Februari 2010

Function Center Window

Membuat Tampilan window agar berada ditengah-tengah layar monitor

1. Buat Variable Global pada Declare Global Variables :

Long ScreenWidth, ScreenHeight



2. Buat Nama function misalkan dengan nama f_center

3. Pilih dengan tipe data argumen :window dan nama argumen tersebut a_window

4. pilih tipe data return : integer



5. Ketik Script Dibawah ini :


Environment le_Env
Integer li_ScreenH, li_ScreenW


GetEnvironment(le_Env)


li_ScreenH = PixelsToUnits(le_Env.ScreenHeight, YPixelsToUnits!)
li_ScreenW = PixelsToUnits(le_Env.ScreenWidth, XPixelsToUnits!)

a_window.Y = (li_ScreenH - a_window.Height) / 2
a_window.X = (li_ScreenW - a_window.Width) / 2
a_window.SetPosition(Topmost!)

return 1

6. Untuk Syntax pemanggilan function ini f_center(nama_window) pada saat event open()

7. Selamat Mencoba!!

Tidak ada komentar:

Posting Komentar