Jump to content
Sign in to follow this  
zaini

close button picture dosnt work...

Recommended Posts

Valuater

Like this....

;#NoTrayIcon
#include <GuiConstantsEX.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>

$CloseDefault = 'C:\Temp\close0.bmp'
$CloseHoover = 'close1.bmp'
$CloseClick = 'close2.bmp'
$MinDefault = 'C:\temp\min0.bmp'
$MinHoover = 'min1.bmp'
$MinClick = 'min2.bmp'

$ico = @ScriptDir & "\Folder Blue Documents.ico"
Opt("GUIEventOptions",1)
$TopImage = "C:\Temp\Top.gif"
Global $Parent

ZAguicreate("Sendiri Cuba cuba",470,400,$TopImage,30,$ico,12)
ZAguicreateBg(430,330,20,20,0xFFFFFF,$Parent)



While 1
    Sleep(10)
WEnd

; =========================================================================================================================
; Function:     ZAguicreate($title,$x,$y,$GuiImage,$GIy,$ico,$titleFontSize)
;
; Description:  Creates a Gui using your own image as a top bar
;
; Requirements: #include <GuiConstants.au3>
;
; Parameters:   $title          - your title
;               $x              - x Coordinate for Creation
;               $y              - y Coordinate for Creation
;               $GuiImage       - your image(.gif;.bmp)
;               $ico            - your icon file
;               $titleFontSize  - your title size
;
; Usage:        $ZAguicreate("Sendiri Cuba cuba",473,400,$TopImage,30,$ico,12)
; Author(s):    Z.A.Z.A
; =========================================================================================================================

Func ZAguicreate($title,$x,$y,$GuiImage,$GIy,$ico,$titleFontSize)
    If $x < 250 Then $x = 250
    If $y < 50 Then $y = 50
    If $GIy < 25 Then $GIy = 25
    
$Main_GUI2 = GuiCreate($title, $x, $y, -1, -1, $WS_POPUP, $WS_EX_LAYERED); + $WS_CLIPCHILDREN)
;GUICtrlCreatePic($GuiImage, 0, 0, $x, $GIy, $SS_NOTIFY, BitOR($GUI_WS_EX_PARENTDRAG, $WS_CLIPSIBLINGS)); Graphic for window dragging
;GUICtrlSetState( -1, $GUI_DISABLE)
GUICtrlCreateLabel("", 0, 0, $x - 80, 17, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreatePic($GuiImage, 0, 0, $x, $GIy, $SS_NOTIFY, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetState( -1, $GUI_DISABLE)
$Title_Label = GUICtrlCreateLabel($title, 0, (Ceiling($GIy/2)-8), (Ceiling($x/2)+110), 17, $SS_CENTER)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetResizing(-1, 512)
GUICtrlSetFont(-1,$titleFontSize, 700, 0, "Arial")
$Icon1 = GUICtrlCreateIcon($ico, 0, 70,10, 16, 16)
$winmin_sett = GUICtrlCreateButton ($MinDefault,$x-72,0,26,17, $BS_BITMAP, $WS_EX_TOPMOST)
GUICtrlSetImage( -1, $MinDefault)
$winclose_sett = GUICtrlCreateButton ($CloseDefault,$x-47,0,43,17, $BS_BITMAP, $WS_EX_TOPMOST)
GUICtrlSetImage( -1, $CloseDefault)
;$winmin_sett = GUICtrlCreatePic ($MinDefault,$x-72,0,26,17, BitOR($SS_NOTIFY,$WS_GROUP))
;$winclose_sett = GUICtrlCreatePic ($CloseDefault,$x-47,0,43,17, BitOR($SS_NOTIFY,$WS_GROUP))
_GuiRoundCorners($Main_GUI2, 0, 0, 15, 15)
GUISetState(@SW_SHOW, $Main_GUI2)
$Parent = GUICreate("", $x, (Ceiling($y-$GIy)), 0, 30, $WS_CHILD, -1, $Main_GUI2)
GUISetBkColor(0xe1e1e1)
GUISetState(@SW_SHOW, $Parent)
EndFunc

; =========================================================================================================================
; Function:     ZAguicreateBg($bgw,$bgh,$x,$y,$bgc,$Hwnd)
;
; Description:  Creates a a background color for your ZAgui
;
; Requirements: 
;
; Parameters:   $bgw            - your background width
;               $bgh            - your background height
;               $x              - x background coordinate from your ZAgui
;               $y              - y background coordinate from your ZAgui
;               $bgc            - Background color
;               $Hwnd           - window handle($Parent)
;
; Usage:        ZAguicreateBg(430,330,20,20,0xFFFFFF,$Parent)
; Author(s):    Z.A.Z.A
; =========================================================================================================================

Func ZAguicreateBg($bgw,$bgh,$x,$y,$bgc,$Hwnd)
$Child = GUICreate("",$bgw,$bgh,$x,$y, $WS_CHILD, -1, $Hwnd)
GUISetBkColor($bgc)
GUISetState(@SW_SHOW, $Child)
EndFunc

;;---FUNCTION UNTUK BUAT ROUND CORNER KT GUI---------->
Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3);==>_GuiRoundCorners
   Dim $pos, $ret, $ret2
   $pos = WinGetPos($h_win)
    $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long",  $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3,  "long", $i_y3)
   If $ret[0] Then
      $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
      If $ret2[0] Then
         Return 1
      Else
         Return 0
      EndIf
   Else
      Return 0
   EndIf
EndFunc ;==>_GuiRoundCorners




#cs
CreateDynamicMenuBar(0,0,473,20,1,$Master_GUI)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $BTN_EXIT
            ExitLoop
        Case $msg = $BTN_EXIT2
            Minimize()
            
    EndSelect
WEnd
#ce



#cs
Func Minimize()
    Traytip ("My App", "click here to restore", 5)
    GUISetState(@SW_MINIMIZE, $Main_GUI2)
    GUISetState(@SW_MINIMIZE, $Master_GUI)
    GUISetState(@SW_MINIMIZE, $Child)
    GuiSetState(@SW_HIDE, $Main_GUI2)
    GuiSetState(@SW_HIDE, $Master_GUI)
    GuiSetState(@SW_HIDE, $Child)
    
    TraySetState(1)
    
EndFunc   ;==>Minimize

Func Restore()
    
    GUISetState(@SW_RESTORE, $Main_GUI2)
    GUISetState(@SW_RESTORE, $Master_GUI)
    GUISetState(@SW_RESTORE, $Child)
    GuiSetState(@SW_Show,$Main_GUI2)
    GuiSetState(@SW_Show,$Master_GUI)
    GuiSetState(@SW_Show, $Child)
    TraySetState(2)

EndFunc   ;==>Minimize


Func CreateDynamicMenuBar($DMB_x, $DMB_y, $DMB_width, $DMB_height, $DMB_Opt, $DBM_hWin)
    
    If $DMB_Opt = 0 Then
        $_hWIN = GUICreate("", $DMB_width, $DMB_height, $DMB_x, $DMB_y, BitOR($WS_CHILD, $WS_TABSTOP), $WS_EX_TOOLWINDOW, $DBM_hWin)
        GUISetBkColor($MenuInactiveColor)
        GUISetState(@SW_ENABLE, $_hWIN)
        GUISetState(@SW_SHOW, $_hWIN)
        $_MenuDecoration = 0
    ElseIf $DMB_Opt = 1 Then
        $_hWIN = GUICreate("", $DMB_width, $DMB_height + 2, $DMB_x, $DMB_y, BitOR($WS_CHILD, $WS_TABSTOP), $WS_EX_TOOLWINDOW, $DBM_hWin)
        GUICtrlCreateLabel("", 0, $DMB_height, $DMB_width, 2, $SS_ETCHEDFRAME)
        GUISetBkColor($MenuInactiveColor)
        GUISetState(@SW_ENABLE, $_hWIN)
        GUISetState(@SW_SHOW, $_hWIN)
        $_MenuDecoration = 1
    EndIf
    
    $_MainGUI = $DBM_hWin
    
EndFunc   ;==>CreateDynamicMenuBar
#ce

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites
zaini

Thank you...MR EVALUATER..

its nice to get a help from a senior programmer like you... :)


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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.