myspacee Posted November 28, 2008 Share 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. Link to comment Share on other sites More sharing options...
dbzfanatic Posted November 28, 2008 Share 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] Link to comment Share on other sites More sharing options...
myspacee Posted November 28, 2008 Author Share 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. Link to comment Share on other sites More sharing options...
dbzfanatic Posted November 28, 2008 Share 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] Link to comment Share on other sites More sharing options...
myspacee Posted November 28, 2008 Author Share Posted November 28, 2008 Nice script, but gif trasparencies don't working... (using vista, and last Autoit - not beta) wrong something ? m. Link to comment Share on other sites More sharing options...
dbzfanatic Posted November 28, 2008 Share 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] Link to comment Share on other sites More sharing options...
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