Transparent grid code#

NExStyle = BITXOR(nExStyle, WS_EX_LAYERED) SetLayeredWindowAttributes( THISform.HWnd, rgb(0,255,0), 190,LWA_COLORKEY+LWA_ALPHA) SetWindowLong( THISform.HWnd, GWL_EXSTYLE, nExStyle) NExStyle = BITOR(nExStyle, WS_EX_LAYERED)

NExStyle = GetWindowLong( THISform.HWnd, GWL_EXSTYLE) Name = 'Form1' ADD OBJECT grid1 AS grid WITH show read events return DEFINE CLASS asup AS form DataSession = 1Д¬aption = 'DBLclick on form (borders) to change transparency ' KeyPreview =.

Transparent grid code#

*!*-Author Yousfi Benameur El Bayadh Algeria *!*-Time stamp mercredi 15 juin 2011 11:09:20 *!*-Subject :Transparency in top level form *!*-Version Vfp9Sp2 windows xp sp3 *!*-Begin Code publi yform The grid is implemented with a cursor.The transparency is applied to the to level form (see back of your form the transparency effect in desktop for ex.). This.picture is encoded in the code (to dont send a zip). NB: the image (photo below) is a very small one but when rendered with pictureVal property(with gdiplus) it have a singular look in conjonction with form.backcolor property (not the same with native picture property). I give you my personal adapted code of one i posted in past in this forum: Even in this case the APIs transparency can applied only to top level forms. In VFP the native handle (in windows sens) is a property for _screen or form only. The grid for ex have no hwnd and no backstyle property. Native vfp controls dont support variable transparency.For whose having a backstyle property its 0 or 1 (0 transparent or 1 opaque and no intermediate state). The APIs transparency methods can applied in Microsoft windows to objects having handles (hwnd). I am using VFP 7 i want to make a Transparent grid in form but i cannt build it please help me.