Vista Glass Styled AutoIt UDF

[Synapse 0]

Hello everyone...i want to present you a Vista Glass lookalike theme...no so complicated...a very simple thing...but with a lot of things that need to be improved...for that i`m looking for someone that would like to help me build this style that i think a lot of you would love to use it to design your GUIs...

DONE:

• Dragging
• Button hover (needs improvement)
• Glass border

TO DO:

• embeded the close, minimize and maximize button in the udf (now they are separate)
• resizing (i didn`t tried, but i think it does not supports resizing)

BUGS

• when rezolution is changed...the parent GUI separates from the child GUI

The UDF was made with some other UDFs found in this forum...i hope that the owner won`t be mad for using them...i`m don`t wanna take credit for them...

SCREENSHOTS:

DOWNLOADS:

Example:

expandcollapse popup

#include <GUIConstants.au3>
#include "_VistaGUI.au3"
;Define Buttons
$CloseBtn0 = "res\close0.bmp"
$CloseBtn1 = "res\close1.bmp"
$CloseBtn2 = "res\close2.bmp"
$MinBtn0 = "res\min0.bmp"
$MinBtn1 = "res\min1.bmp"
$MinBtn2 = "res\min2.bmp"
;Define Buttons

$GUI = VistaGUI("Vista Gui", 500, 300, "0x328978", "0xffffff", $CloseBtn0, $MinBtn0)
$btn_explore1 = GUICtrlCreateButton("Close", 185, 200, 75, 25, 0)

_ControlHover(2, "", $winmin_sett);add the minimize image to the hover list
_ControlHover(2, "", $winclose_sett);add the close image to the hover list

While 1
    AutoItSetOption("MouseCoordMode",0)
    $pos = MouseGetPos()
    $Over = _ControlHover(0, $GUI)
    If $Over = 1 Then
        $tempID = @extended
        _Over($winmin_sett, $MinBtn0,$MinBtn1)
        _Over($winclose_sett, $CloseBtn0,$CloseBtn1)
    EndIf
    
    Global $Click = _ControlHover(1, $GUI)
    If $Click = 1 And @extended = $winclose_sett Then
        GUICtrlSetImage($winclose_sett,$CloseBtn2)
        Sleep(200)
        If $tempID = $winclose_sett Then
            GUICtrlSetImage($winclose_sett,$CloseBtn1)
        Else
            GUICtrlSetimage($winclose_sett,$CloseBtn0)
        EndIf
    EndIf
        If $Click = 1 And @extended = $winmin_sett Then
        GUICtrlSetImage($winmin_sett,$MinBtn2)
        Sleep(138)
        If $tempID = $winmin_sett Then
            GUICtrlSetImage($winmin_sett,$MinBtn1)
        Else
            GUICtrlSetimage($winmin_sett,$MinBtn0)
        EndIf
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE,$btn_explore1,$winclose_sett
            Exit
        Case $winmin_sett
            GUISetState(@SW_MINIMIZE,$GUI)
    EndSwitch
WEnd

The images can be found here:

http://download32.mediafire.com/ytmt5qzjjo...gtz1/close0.bmp

http://download32.mediafire.com/xyqnljmlww...ylcn/close1.bmp

http://download32.mediafire.com/120yuglymk...unvy/close2.bmp

http://download32.mediafire.com/2mfmtyxdjm...mmwlqj/min0.bmp

http://download32.mediafire.com/xjqnhdaujh...fh5tjj/min1.bmp

http://download32.mediafire.com/itj5yccdcd...vjygyj/min2.bmp

NOTICE:

- This is just an example....with the UDF i gave u, u can do whatever u want...like the program that i showed u in the screenshots....

Download TC-Backup (Example of what i did with this UDF...sorry..the prog it`s in italian...just check out the GUI)

_VistaGUI.au3

Edited October 10, 2007 by Synapse

[GaryFrost 13]

Moved to support, no script(s).

[James 374]

I started work on something like this, but realised that it would take a few back windows or a graphic to make it look just right, this would/could result in a big file size. Looks nice though

[Greenhorn 0]

Hi,

I did a trial in this way, but it's a little bit complicated I think, isn't it !?

Source and pictures are packed in the attachment ...

Example:

expandcollapse popup

#include 'AeroGUI.au3'

AeroGUI('Window Title ...')
  
  While 1
      Event_Buttons()
      Sleep(10)
  WEndoÝ÷ Ø« ejíÚºÚ"µÍÚ[ÛYK[ÛÙBÚ[ÛYH    ÑÕRPÛÛÝ[Ë]LÉÝÂÒ[ÛYH  ÐÛÛÝ[Ë]LÉÝÂ[H   ÌÍÚÛ[   ÌÍÚÛÚ[ÌK  ÌÍÚÛÚ[Ì   ÌÍØÛÜÙK   ÌÍØZ[ÈHÛÜÙH  [ÈZ[[Z^H]Û[XYÙÂÌÍÐÛÜÙQY][H    ÌÎNÚ[XYÙÉÌLØÛÜÙL  ÌÎNÂÌÍÐÛÜÙRÛÝH   ÌÎNÚ[XYÙÉÌLØÛÜÙLK ÌÎNÂÌÍÐÛÜÙPÛXÚÈH    ÌÎNÚ[XYÙÉÌLØÛÜÙL  ÌÎNÂÌÍÓZ[Y][H ÌÎNÚ[XYÙÉÌLÛZ[   ÌÎNÂÌÍÓZ[ÛÝH    ÌÎNÚ[XYÙÉÌLÛZ[K  ÌÎNÂÌÍÓZ[ÛXÚÈH ÌÎNÚ[XYÙÉÌLÛZ[   ÌÎNÂ[ÈYÑÕRJ   ÌÍÝÕ]K  ÌÍÙÝZ]ÚYH

K   ÌÍÙÝZZZYÚH
L   ÌÍÙÝZ[YHLK  ÌÍÙÝZ]ÜHLK ÌÍÙ[YXÛÛÜH    ][ÝÌÙ    ][ÝÊBÈÕRHÜYÈÝ[B  ÌÍÚÛ[HÕRPÜX]J ÌÍÝÕ]K  ÌÍÙÝZ]ÚY   ÌÍÙÝZZZYÚ  ÌÍÙÝZ[Y ÌÍÙÝZ]Ü    ÌÍÕÔ×ÔÔT
BÕRTÙ]ÐÛÛÜ    ÌÍÙ[YXÛÛÜBÕRPÝÜX]SX[
    ÌÍÝÕ]KÍK
Ë  ÌÍÙÝZ]ÚYLLL
BÕRPÝÙ]Û
LKL ][ÝÕZÛXI][ÝÊBÕRTÙ]Ý]JÕ×ÑTÐPJBÕRTÙ]Ý]JÕ×ÔÒÕÊBÑÝZTÝ[ÛÜÊ    ÌÍÚÛ[
K
JBÚ[Ù][Ê ÌÍÚÛ[   ][ÝÉ][ÝËL
BÈÕRHÜÛÜÙH[Z[[Z^H]Û    ÌÍÚÛÚ[ÌHHÕRPÜX]J    ÌÎNÉÌÎNË
KMË    ÌÍÙÝZ]ÚYH
ÎKLÌ  ÌÍÕÔ×ÔÔT ÌÍÕÔ×ÑVÓQPÒS    ÌÍÚÛ[
B   ÌÍØÛÜÙHHÕRPÝÜX]TXÊ    ÌÍÐÛÜÙQY][
ËMÊBÕRPÝÙ]ÐÛÛÜLK   ÌÍÑÕRWÐÐÓÓÔÕSÔTS
B   ÌÍØZ[HÕRPÝÜX]TXÊ ÌÍÓZ[Y][MÊBÕRPÝÙ]ÐÛÛÜLK  ÌÍÑÕRWÐÐÓÓÔÕSÔTS
BÕRTÙ]Ý]J    ÌÍÑÕRWÑSPJBÕRTÙ]Ý]JÕ×ÔÒÕË ÌÍÚÛÚ[ÌJBÈÕRHÜÚ]][ÝHØ[  ÌÍÚÛÚ[ÌHÕRPÜX]J ÌÎNÉÌÎNË  ÌÍÙÝZ]ÚYHN ÌÍÙÝZZZYÚHÎ
K   ÌÍÕÔ×ÔÔT ÌÍÕÔ×ÑVÓQPÒS    ÌÍÚÛ[
BÕRTÙ]ÐÛÛÜ    ÌÎNÌÌÎNË  ÌÍÚÛÚ[ÌBÕRTÙ]Ý]JÕ×ÔÒÕË   ÌÍÚÛÚ[ÌB[[ÈÏOIÝÐYÑÕRB[ÈÑÝZTÝ[ÛÜÊ ÌÍÚÝÚ[ ÌÍÚWÞK  ÌÍÚWÞLK ÌÍÚWÞË ÌÍÚWÞLÊNÏOIÝ×ÑÝZTÝ[ÛÜÂ[H  ÌÍÜÜË  ÌÍÜ] ÌÍÜ] ÌÍÜÜÈHÚ[Ù]ÜÊ   ÌÍÚÝÚ[B    ÌÍÜ]HØ[
    ][ÝÙÙLÌ ][ÝË  ][ÝÛÛÉ][ÝË    ][ÝÐÜX]TÝ[XÝÛ][ÝË   ][ÝÛÛÉ][ÝË    ÌÍÚWÞK  ][ÝÛÛÉ][ÝË    ÌÍÚWÞLK ][ÝÛÛÉ][ÝË    ÌÍÜÜÖÌK   ][ÝÛÛÉ][ÝË    ÌÍÜÜÖÌ×K ][ÝÛÛÉ][ÝË    ÌÍÚWÞË ][ÝÛÛÉ][ÝË    ÌÍÚWÞLÊBY  ÌÍÜ]ÌH[ ÌÍÜ]HØ[
    ][ÝÝÙÌ  ][ÝË  ][ÝÛÛÉ][ÝË    ][ÝÔÙ]Ú[ÝÔÛ][ÝË    ][ÝÚÛ    ][ÝË  ÌÍÚÝÚ[ ][ÝÛÛÉ][ÝË    ÌÍÜ]ÌK  ][ÝÚ[ ][ÝËJBY   ÌÍÜ]ÌH[]B[ÙB][Y[ÙB][Y[[ÈÏOIÝ×ÑÝZTÝ[ÛÜÂ[È][Ð]ÛÊ
B   ÌÍØÓÙÈHÕRQÙ]ÝÛÜ[Ê   ÌÍÚÛÚ[ÌJBY    ÌÍØÓÙÖÍHH    ÌÍØÛÜÙH[ÕRPÝÙ][XYÙJ   ÌÍØÛÜÙK   ÌÍÐÛÜÙRÛÝB  ÌÍØÓÙÈHÕRQÙ]ÝÛÜ[Ê   ÌÍÚÛÚ[ÌJBÚ[H ÌÍØÓÙÖÍHH    ÌÍØÛÜÙBYÕRQÙ]ÙÊ
HH  ÌÍØÛÜÙH[ÕRPÝÙ][XYÙJ   ÌÍØÛÜÙK   ÌÍÐÛÜÙPÛXÚÊBÛY
ML
B^][YÛY
L
B   ÌÍØÓÙÈHÕRQÙ]ÝÛÜ[Ê   ÌÍÚÛÚ[ÌJBÑ[ÕRPÝÙ][XYÙJ   ÌÍØÛÜÙK   ÌÍÐÛÜÙQY][
B[ÙRY  ÌÍØÓÙÖÍHH    ÌÍØZ[[ÕRPÝÙ][XYÙJ    ÌÍØZ[    ÌÍÓZ[ÛÝB   ÌÍØÓÙÈHÕRQÙ]ÝÛÜ[Ê   ÌÍÚÛÚ[ÌJBÚ[H ÌÍØÓÙÖÍHH    ÌÍØZ[YÕRQÙ]ÙÊ
HH  ÌÍØZ[[ÕRPÝÙ][XYÙJ    ÌÍØZ[    ÌÍÓZ[ÛXÚÊBÛY
L
BZ[[Z^J
B[YÛY
L
B   ÌÍØÓÙÈHÕRQÙ]ÝÛÜ[Ê   ÌÍÚÛÚ[ÌJBÑ[ÕRPÝÙ][XYÙJ   ÌÍØZ[    ÌÍÓZ[Y][
B[Y[[ÈÏOIÝÑ][Ð]ÛÂ[ÈZ[[Z^J
BÕRTÙ]Ý]JÕ×ÓRSSRVK    ÌÍÚÛ[
BÕRTÙ]Ý]JÕ×ÓRSSRVK    ÌÍÚÛÚ[ÌJBÕRTÙ]Ý]JÕ×ÓRSSRVK  ÌÍÚÛÚ[ÌB[[ÈÏOIÝÓZ[[Z^

Greetz

Greenhorn

Edited December 11, 2007 by Greenhorn