myspacee Posted November 28, 2008 Posted November 28, 2008 hello,in last time i'm searching to create a T9 on screen for my mediacenter computer.Reach good level and learn a lot from all people that help me in last post.Now i've a joypad in my hand and want to apply my t9 job also for this.Is possible to have big buttons on screen like this :thank you all for support,m.
dbzfanatic Posted November 28, 2008 Posted November 28, 2008 Why not just make a custom GUI with a transparent background? That seems like the easiest way. Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote]
myspacee Posted November 28, 2008 Author Posted November 28, 2008 custom GUI with a transparent background is perfect, but need an example so build mine can be easier for me m.
dbzfanatic Posted November 28, 2008 Posted November 28, 2008 (edited) Here's a test I did a while back: expandcollapse popup#Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=Moon GUI.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_UseUpx=n #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> #include <GUIConstantsEX.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> Dim $files[3],$CGUI[3],$X[2] $files[0] = @TempDir & "\moon transparent.gif" $files[1] = @TempDir & "\rings.gif" $files[2] = "" If Not FileExists(@TempDir & "\moon transparent.gif") Then FileInstall("C:\Users\Owner\Desktop\moon transparent.gif",@TempDir & "\moon transparent.gif") EndIf If Not FileExists(@TempDir & "\rings.gif") Then FileInstall("C:\Users\Owner\Desktop\rings.gif",@TempDir & "\rings.gif") EndIf #Region ### START Koda GUI section ### Form= $frmCustomGUI = GUICreate("Custom GUI", 561, 385, 193, 125, $WS_POPUP, $WS_EX_LAYERED) For $n = 0 To 2 If $n = 0 Then $CGUI[$n] = GUICtrlCreatePic($files[0], 0, 0, 561,385, -1, $GUI_WS_EX_PARENTDRAG) ElseIf $n = 1 Then $CGUI[$n] = GUICtrlCreatePic($files[1],0,0,561,350,-1,$GUI_WS_EX_PARENTDRAG) GUICtrlSetState(-1,$GUI_DISABLE) ElseIf $n = 2 Then $CGUI[$n] = GUICtrlCreatePic("",0,0,561,385,-1) GUICtrlSetState(-1,$GUI_DISABLE) EndIf Next $X[1] = GUICtrlCreateButton("X", 543, 0, 18, 18, -1) GUICtrlSetColor(-1,0xB30000) GUICtrlSetFont(-1,10,575) $X[0] = GUICtrlCreateButton("Button1", 250, 288, 57, 25, -1) For $n = 0 To 1 GUICtrlSetState($X[$n],$GUI_ONTOP) Next GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $cur_coor = MouseGetPos() Opt("MouseCoordMode",0) MouseMove(250,288,0) MouseMove(543,0,0) Opt("MouseCoordMode",1) MouseMove($cur_coor[0],$cur_coor[1],0) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $X[1] Exit Case $X[0] MsgBox(0,"Message","It works") EndSwitch WEnd Yes, I made the pictures from scratch. Edited November 28, 2008 by dbzfanatic Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote]
myspacee Posted November 28, 2008 Author Posted November 28, 2008 Nice script, but gif trasparencies don't working... (using vista, and last Autoit - not beta) wrong something ? m.
dbzfanatic Posted November 28, 2008 Posted November 28, 2008 I wrote the script in vista and I tried it with the latest stable (3.2.12.1) and the beta and it worked. What do you see for a background? Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote]
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now