PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (x:\foxv\hugo\prog\transparent.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 05/10/07 09:09:08 AM * DEFINE CLASS form1 AS form ShowWindow = 2 DoCreate = .T. Caption = "Form1" BackColor = RGB(254,254,254) && changing to 255,255,255 will make the edit and text boxes transparents too Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; Top = 218, ; Left = 286, ; Height = 27, ; Width = 84, ; Caption = "Exit", ; Name = "Command1" ADD OBJECT text1 AS textbox WITH ; Height = 23, ; Left = 17, ; Top = 14, ; Width = 126, ; Name = "Text1" ADD OBJECT edit1 AS editbox WITH ; Height = 53, ; Left = 17, ; Top = 41, ; Width = 124, ; Name = "Edit1" PROCEDURE Init #DEFINE LWA_COLORKEY 1 #DEFINE LWA_ALPHA 2 #DEFINE GWL_EXSTYLE -20 #DEFINE WS_EX_LAYERED 0x00080000 DECLARE INTEGER SetLayeredWindowAttributes IN win32api; INTEGER HWND, INTEGER crKey, INTEGER bAlpha, INTEGER dwFlags DECLARE INTEGER SetWindowLong IN user32.DLL ; INTEGER hWnd, INTEGER nIndex, INTEGER dwNewLong DECLARE INTEGER GetWindowLong IN user32.DLL ; INTEGER hWnd, INTEGER nIndex local lnFlags lnFlags = BITOR(GetWindowLong(thisform.HWnd, GWL_EXSTYLE), WS_EX_LAYERED) SetWindowLong(thisform.HWnd, GWL_EXSTYLE, lnFlags) SetLayeredWindowAttributes(thisform.HWnd,thisform.backCOlor, 0, LWA_COLORKEY) ENDPROC PROCEDURE command1.Click thisform.Release() ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************