Mengubah bentuk jendela Visual Foxpro dengan "Command Window"

Mengubah bentuk jendela Visual Foxpro dengan "Command Window"

Membuat sebuah bentuk tampilan form aplikasi menjadi tidak kotak adalah hal sudah biasa dilakukan untuk mempercantik tampilan form. Tapi jika yang dirubah bentuknya menjadi tidak kotak adalah jendela utama dari editor bahasa pemrograman itu sendiri apakah bisa???..berikut ini kita akan mencoba untuk memodifikasi tampilan jendela editor Visual Foxpro dengan mengubah bentuknya menjadi bulat dan menjadikan tampilannya menjadi transparan melalui Command Window seperti yang pernah kita coba pada trik mempercantik layar editor visual foxpro.

Pertama kita akan membuat form editor foxpro yang semula kotak akan kita ubah menjadi bulat dengan cara mengetikkan syntak dibawah ini ke dalam Command Window. (Jangan lupa blok dulu ke tiga baris syntax tersebut di Comman Window sebelum dijalankan atau di tekan enter).

Declare long SetWindowRgn in win32api Long, Long, string 
Declare long CreateEllipticRgn in win32api Long, Long, Long, Long
setwindowrgn(_vfp.hwnd,createellipticrgn(1,1,500,500),"true") 

Bentuk Jendela Utama Visual Foxpro Setelah Menjalankan Syntax di atas.

Untuk mengembalikan bentuk Jendela Utama Visual Foxpro agar kembali seperti semula (kotak) jalankanlah syntax dibawah ini.

Declare long CreateRectRgn in win32api Long, Long, Long, Long 
Declare long SetWindowRgn in win32api Long, Long, string 
setwindowrgn(_vfp.hwnd,createrectrgn(0,0,1000,1000),"true")

Untuk mengatur ukuran bentuk perubahan jendela utama Visual Foxpro, anda bisa mengotak - atik angka berwarna merah pada syntax diatas.

Trik Selanjutnya adalah kita akan mencoba mengubah tampilan jendela utama Visual Foxpro menjadi TRANSPARAN dengan cara menjalankan syntax dibawah ini.

DECLARE SetWindowLong In Win32Api Integer, Integer, Integer 
DECLARE SetLayeredWindowAttributes In Win32Api Integer, String,; 
Integer, Integer 
SetWindowLong(_vfp.hWnd, -20, 0x00080000) 
SetLayeredWindowAttributes(_vfp.hWnd, 0, 100, 2)

Tampilan transparan dari jendela utama Visual Foxpro

Untuk mengatur tingkat transparansi, ubah nilai angka yang berwarna merah pada syntax dengan rentang nilai 1-255