Jump to content

Trans


Recommended Posts

is it possible, to make a GUI invisible, but the ONLY the window.

so the buttons and all other looks like its floating.

i need this, so i can make a NON square window (using circle as background picture)

thank you.

NOEDIT: typo's :)

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...
Link to comment
Share on other sites

can't a use somekind of a winsettrans for ONLY the GUI, not the buttons.

or make a layer or whatever

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...
Link to comment
Share on other sites

;Include constants
#include <GUIConstants.au3>

;Create window
GUICreate("title", 300, 20, 0, 0, $WS_POPUP, $WS_EX_TRANSPARENT)

;Create an edit box with no text in it
$Edit_1 = GUICtrlCreateInput("", 0, 0, 300, 20, -1, $WS_EX_TRANSPARENT)

;$n = GUICtrlCreatePic("a.bmp", 0, 0, 400, 400)

;Show window/Make the window visible
GUISetState(@SW_SHOW)


While 1
    
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            GUIDelete()
            Exit
    EndSelect
    
WEnd

My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Link to comment
Share on other sites

  • 2 weeks later...

nice one, thanks, but it still shows the gry :)

i'll see if this will come in use so thanks anyway.

i think the next autoitversion need more command over its GUI, not for creating stuff, but for controlling and editing.

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...
Link to comment
Share on other sites

i made my new little scripto now, but it's still not like i wanted :(

because i can't click on the window :(

opt("GUIONEVENTMODE",1)
#include <GUIConstants.au3>

;GUI
GUICreate("title", 300,300,0,0,$WS_POPUP,0x00080020)
$n = GUICtrlCreatePic("Background1.gif",0,0,300,300,-1,0x00000020)
$B = GUICtrlCreateButton("TEST",100,100.50,50,-1,0x00000020)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")

while 1
Wend

func _exit()
    Exit
EndFunc

and here is the background pic

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...
Link to comment
Share on other sites

Hello,

it's not perfect, but with this way, we can push on the button :

opt("GUIONEVENTMODE",1)
#include <GUIConstants.au3>

;GUI
GUICreate("title", 300,300,30,30,$WS_POPUP,$WS_EX_LAYERED)

$B = GUICtrlCreateButton("TEST",100,100.50,50,-1,0x00000020)
GuiCtrlSetOnEvent($B,"hello")
$n = GUICtrlCreatePic("Background1.gif",0,0,300,300,-1,0x00000020)
GUISetState(@SW_SHOW)
GuiCtrlSetState($B,$GUI_FOCUS)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")

while 1
Wend

func _exit()
    Exit
EndFunc

Func Hello()
    MsgBox(0,"hello","hello")
EndFunc
Link to comment
Share on other sites

mm, is this just becouse of the focus?? strange.

but why is it ALWAYS when things get transparent, they can't be clicked?? msnplus has a standard trans funcion, but then you CAN click the stuf, why is it differnt here??

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...
Link to comment
Share on other sites

well if tryed ur script and altered it, but it seems if you focus only one thing, the rest works also, but it looks sooooo ugly :(

i think the trans REALLY needs to be better, is this possible??

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...
Link to comment
Share on other sites

is it possible, to make a GUI invisible, but the ONLY the window.

so the buttons and all other looks like its floating.

i need this, so i can make a NON square window (using circle as background picture)

thank you.

NOEDIT: typo's :(

<{POST_SNAPBACK}>

sounds like you might want to put each control in its own separate window(sized the same as the control) then 'lock' thier screen positions together relative to each other.
[u]Do more with pre-existing apps![/u]ANYGUIv2.8
Link to comment
Share on other sites

well not really, i'm just trying to make a NON square window, by using a picture as GUI shape

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...
Link to comment
Share on other sites

well not really, i'm just trying to make a NON square window, by using a picture as GUI shape

If you want a non square window for the main GUI, I think that this new script may be satisfactory. (it's nearly the same that above, but I have added some controls, because I have read that it was ugly with several, so tell me if it' s ok now).

opt("GUIONEVENTMODE",1)
#include <GUIConstants.au3>

;GUI
GUICreate("title", 300,300,30,30,$WS_POPUP,$WS_EX_LAYERED)

$B = GUICtrlCreateButton("TEST",100,100,50,50,-1,0x00000020)
GuiCtrlSetOnEvent($B,"hello")
$B2 = GUICtrlCreateButton("quit",200,100,50,50,-1,0x00000020)
GuiCtrlSetOnEvent($B2,"_exit")
$inp=GUICtrlCreateInput("world",150,220,50,20)
$n = GUICtrlCreatePic("Background1.gif",0,0,300,300,-1,0x00000020)
GuiCtrlSetOnEvent($n,"_move")
GUISetState(@SW_SHOW)
GuiCtrlSetState($B,$GUI_FOCUS)
GuiCtrlSetState($B2,$GUI_FOCUS)
GuiCtrlSetState($inp,$GUI_FOCUS)
GuiCtrlSetState($B,$GUI_FOCUS)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")

while 1
Wend

func _exit()
    Exit
EndFunc

Func Hello()
    MsgBox(0,"hello",GUICtrlRead($inp))
EndFunc

func _move()
    opt("GUIONEVENTMODE",0)
    While _IsPressed('d')=0
        ToolTip ( "move the mouse and press enter to move the window" )
        Sleep(100)
    WEnd
    ToolTip ( "" )
    $pos=MouseGetPos()
    WinMove("title","",$pos[0],$pos[1])
    opt("GUIONEVENTMODE",1)
EndFunc

Func _IsPressed($hexKey)



Local $aR, $bRv
$hexKey = '0x' & $hexKey
$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)

If $aR[0] <> 0 Then
    $bRv = 1
Else
    $bRv = 0
EndIf

Return $bRv
EndFunc

I have added a function to move the window, but I haven't succeded to do a drag and drop ... so if some body may have a better soluce...

Now, if you want to use another pictures like gif to replace the square buttons..., you have to do like Quaizywabbit have said :

opt("GUIONEVENTMODE",1)
#include <GUIConstants.au3>

;GUI
$mother=GUICreate("title", 300,300,130,130,$WS_POPUP,$WS_EX_LAYERED)


$n = GUICtrlCreatePic("Background.gif",0,0,300,300,-1,0x00000020)
GUISetState(@SW_SHOW)
$daughter1=GUICreate("B", 100,100,150,200,$WS_POPUP,$WS_EX_LAYERED,$mother)
$B=GUICtrlCreatePic("test.gif",0,0,100,100)
GUISetState(@SW_SHOW)
$daughter2=GUICreate("B2",100,100, 300,200,$WS_POPUP,$WS_EX_LAYERED,$mother)
$B2=GUICtrlCreatePic("quit.gif",0,0,100,100)
GuiCtrlSetOnEvent($B2,"_exit")
GuiCtrlSetOnEvent($B,"hello")
GUISetState(@SW_SHOW)

GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
while 1
Wend

func _exit()
    GUICtrlSetImage ( $B2, "quitinv.gif")
    sleep(100)
    GUICtrlSetImage ( $B2, "quit.gif")
    Exit
EndFunc

Func Hello()
    GUICtrlSetImage ( $B, "testinv.gif")
    sleep(100)
    GUICtrlSetImage ( $B, "test.gif")
    MsgBox(0,"hello","hello"    )
    
EndFunc

I hope that will help you.

tranpex1.zip

transpex2.zip

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...