Sign in to follow this  
Followers 0
myspacee

Any way to have button on desktop like these

6 posts in this topic

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 :

Posted Image

thank you all for support,

m.

Share this post


Link to post
Share on other sites



custom GUI with a transparent background is perfect,

but need an example so build mine can be easier for me :)

m.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Here's a test I did a while back:

#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.

post-25602-1227870055_thumb.gif

post-25602-1227870087_thumb.gif

Edited by dbzfanatic

Share this post


Link to post
Share on other sites

Nice script, but gif trasparencies don't working...

(using vista, and last Autoit - not beta)

wrong something ?

m.

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0