mungkin ini bisa membantu (tapi contoh di bawah adalah transparansi untuk window, nilai transparant bisa di_set)
local external function = << Function long GetWindowLong (ulong hWnd, int nIndex) & Library "USER32.DLL" Alias for "GetWindowLongA" Function long SetWindowLong (ulong hWnd, int nIndex, long & dwNewLong) Library "USER32.DLL" Alias for "SetWindowLongA" Function Long SetLayeredWindowAttributes(long hWnd, Long & crKey , char /*Byte*/ bAlpha , Long dwFlags) Library "user32" function boolean AnimateWindow(long lhWnd, long lTm, long lFlags) library 'user32' >> user event = (di trigger saat window open) << // Tip submitted by Olivier Citeau ([EMAIL PROTECTED]) // I just combined it with the numeric module from Simon Harris ([EMAIL PROTECTED]) //Open event of your window Constant long LWA_COLORKEY = 1, LWA_ALPHA = 2 Constant long GWL_EXSTYLE = - 20 Constant long WS_EX_LAYERED = 524288 //2^19 524288 Long ll_Ret, ll_handle n_cst_numerical lnc_N // Set the window style to 'Layered' ll_handle = Handle (this) ll_Ret = GetWindowLong(ll_handle, GWL_EXSTYLE) //ll_Ret = ll_Ret Or WS_EX_LAYERED ll_Ret = lnc_N.of_bitwiseor( ll_Ret, WS_EX_LAYERED) SetWindowLong (ll_handle, GWL_EXSTYLE, ll_Ret) // Set the opacity of the layered window to 128 SetLayeredWindowAttributes (ll_handle, 0, char(235),LWA_ALPHA) //Note that if you set opacity to 0, your window will be //invisible. With 255, it will be a "normal" window. >> Syaiful Rojak wrote: > semua objeck yang bisa diwarnai seperti window,static > text,rectangle,round rectangle,oval , object object di dalam > datawindow de el el > misal : w_main.backcolor = 2^28 > st_1.backcolor = 2^29 -- warna st_1 menjadi > transparent > st_1.textcolor = 2^25 > r_1.fillcolor = 2^26 > > untuk semi transparent ??? > > riky andrian <[EMAIL PROTECTED]> wrote: > maksudnya transparent window? > > Syaiful Rojak wrote: > > > berikut ini adalah value RGB standar. > > > > 67108864 ButtonFace > > 1073741824 WindowBackground > > 33554432 WindowText > > 268435456 ApplicationWorkspace > > 553648127 Transparent / tembus pandang > > > > atau > > > > 2^25 - Window Text > > 2^26 - buttonface > > 2^27 - scrollbar background > > 2^28 - app. workspace > > 2^29 - transparent / tembus pandang > > 2^30 - Window Background > > > > Ada yang tahu gak, berapa value untuk semi transparent ? > > > > > > > > > > --------------------------------- > > Do you Yahoo!? > > Yahoo! Mail - now with 250MB free storage. Learn more. > > > > [Non-text portions of this message have been removed] > > > > > > > > IndoPB - Indonesia PB User Group > > To Post a message, send it to: [EMAIL PROTECTED] > > To Unsubscribe,send a blank message to: [EMAIL PROTECTED] > > > > > > *Yahoo! Groups Sponsor* > > ADVERTISEMENT > > click here > > > <http://us.ard.yahoo.com/SIG=1294jf89i/M=298184.5639630.6699735.3001176/D=groups/S=1705007181:HM/EXP=1102580817/A=2434971/R=0/SIG=11eeoolb0/*http://www.netflix.com/Default?mqso=60185400> > > > > > > > > > > ------------------------------------------------------------------------ > > *Yahoo! Groups Links* > > > > * To visit your group on the web, go to: > > http://groups.yahoo.com/group/indopb/ > > > > * To unsubscribe from this group, send an email to: > > [EMAIL PROTECTED] > > <mailto:[EMAIL PROTECTED]> > > > > * Your use of Yahoo! Groups is subject to the Yahoo! Terms of > > Service <http://docs.yahoo.com/info/terms/>. > > > > > > > -- > > http://rikyandrian.blogspot.com <http://rikyandrian.blogspot.com/> > > riky andrian > > /*no better future than the processors...*/ > > > > IndoPB - Indonesia PB User Group > To Post a message, send it to: [EMAIL PROTECTED] > To Unsubscribe,send a blank message to: [EMAIL PROTECTED] > > > Yahoo! Groups SponsorADVERTISEMENT > > > --------------------------------- > Yahoo! Groups Links > > To visit your group on the web, go to: > http://groups.yahoo.com/group/indopb/ > > To unsubscribe from this group, send an email to: > [EMAIL PROTECTED] > > Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. > > > > --------------------------------- > Do you Yahoo!? > Read only the mail you want - Yahoo! Mail SpamGuard. > > [Non-text portions of this message have been removed] > > > > IndoPB - Indonesia PB User Group > To Post a message, send it to: [EMAIL PROTECTED] > To Unsubscribe,send a blank message to: [EMAIL PROTECTED] > > > *Yahoo! Groups Sponsor* > ADVERTISEMENT > click here > <http://us.ard.yahoo.com/SIG=129jq8917/M=295196.4901138.6071305.3001176/D=groups/S=1705007181:HM/EXP=1102656305/A=2128215/R=0/SIG=10se96mf6/*http://companion.yahoo.com> > > > > > ------------------------------------------------------------------------ > *Yahoo! Groups Links* > > * To visit your group on the web, go to: > http://groups.yahoo.com/group/indopb/ > > * To unsubscribe from this group, send an email to: > [EMAIL PROTECTED] > <mailto:[EMAIL PROTECTED]> > > * Your use of Yahoo! Groups is subject to the Yahoo! Terms of > Service <http://docs.yahoo.com/info/terms/>. > > -- http://rikyandrian.blogspot.com <http://rikyandrian.blogspot.com/> riky andrian /*no better future than the processors...*/ ------------------------ Yahoo! Groups Sponsor --------------------~--> Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar. Now with Pop-Up Blocker. Get it for free! http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/NhFolB/TM --------------------------------------------------------------------~-> IndoPB - Indonesia PB User Group To Post a message, send it to: [EMAIL PROTECTED] To Unsubscribe,send a blank message to: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indopb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
