Jump to content

Menü


korasoglu

Recommended Posts

arkadaşlar şu kodların kullanımı hakkında bir bilgi veren olursa sevinirim.

çünkü bunu ortaya atanlar ortalıkta yok.

bu menüye yeni itemler nasıl ekleriz ve nasıl görev atarız. yani herhangi bir dosyadaki bir uygulamayı çalıştırma veya formlar arasında gezinti yapabilme konusunda yardımlarınızı bekliyorum.

kodların hangi satırlarının ne işe yaradığıda işaretlenirse bundan iyisi balbaklava şimdiden teşekkür ederim...

--------------------------------------

#include <GUIConstants.au3>

;#include "ModernMenu.au3"

#include "ModernMenuRaw.au3" ; Only unknown constants are declared here

#NoTrayIcon

$hMainGUI = GUICreate("Sample Menu")

;$bUseAdvMenu = TRUE ; Global variable to switch on/off advanced menu, default is TRUE

;$bUseAdvTrayMenu = TRUE ; Global variable to switch on/off advanced tray menu, default is TRUE

;$bUseRGBColors = FALSE; Global variable to change color mode, set TRUE to use RGB color values, default is FALSE

; Set default color values - BGR-values!

SetGreenMenuColors()

SetBlueTrayColors()

;SetOLBlueColors() ; near blue outlook 2003 style

;SetOLSilverColors() ; near silver outlook 2003 style

; Set flash timeout for tray flashing icons (milliseconds) - default are 750, minimum is 50

_SetFlashTimeOut(250)

; _SetFlashTimeOut() - set back to default

; To activate flashing use _TrayIconSetState($ID, 4)

; To dactivate flashing use _TrayIconSetState($ID, 8)

; !!! To delete menu items please use:

; _TrayDeleteItem($nID)

; or

; _GUICtrlODMenuItemDelete($nID)

; !!!

; File-Menu

$FileMenu = GUICtrlCreateMenu("&File")

$nSideItem1 = _CreateSideMenu($FileMenu)

_SetSideMenuText($nSideItem1, "My File Menu")

_SetSideMenuColor($nSideItem1, 0xFFFFFF) ; default color - white

_SetSideMenuBkColor($nSideItem1, 0x921801) ; bottom start color - dark blue

_SetSideMenuBkGradColor($nSideItem1, 0xFBCE92) ; top end color - light blue

; You can also set a side menu bitmap

; !Must be min. 8bppand "bmp"-format

; Samples:

; _SetSideMenuImage($nSideItem1, @ScriptDir & "\test.bmp")

; _SetSideMenuImage($nSideItem1, "test.exe", 178) ; Load the bitmap resource ordinal number 178 from 'test.exe'

; _SetSideMenuImage($nSideItem1, "mydll.dll", "#120") ; Load the bitmap resource with name '120' from 'mydll.dll'

$OpenItem = _GUICtrlCreateODMenuItem("&Open..." & @Tab & "Ctrl+O", $FileMenu)

_GUICtrlODMenuItemSetIcon(-1, "shell32.dll", -4)

_GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -5)

$SaveItem = _GUICtrlCreateODMenuItem("&Save" & @Tab & "Ctrl+S", $FileMenu, "shell32.dll", -7)

_GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -79)

_GUICtrlCreateODMenuItem("", $FileMenu) ; Separator

$RecentMenu = _GUICtrlCreateODMenu("Recent Files", $FileMenu)

_GUICtrlCreateODMenuItem("", $FileMenu) ; Separator

$ExitItem = _GUICtrlCreateODMenuItem("E&xit", $FileMenu, "shell32.dll", -28)

; Tools-Menu

$ToolsMenu = GUICtrlCreateMenu("&Tools")

$CalcItem = _GUICtrlCreateODMenuItem("Calculator", $ToolsMenu, "calc.exe", 0)

$CmdItem = _GUICtrlCreateODMenuItem("CMD", $ToolsMenu, "cmd.exe", 0)

$EditorItem = _GUICtrlCreateODMenuItem("Editor", $ToolsMenu, "notepad.exe", 0)

$RegeditItem = _GUICtrlCreateODMenuItem("Regedit", $ToolsMenu, "regedit.exe", 0)

; View-Menu

$ViewMenu = GUICtrlCreateMenu("&View")

$ViewColorMenu = _GUICtrlCreateODMenu("Menu Colors", $ViewMenu, "mspaint.exe", 0)

$nSideItem2 = _CreateSideMenu($ViewColorMenu)

_SetSideMenuText($nSideItem2, "Choose a color")

_SetSideMenuColor($nSideItem2, 0x00FFFF)

_SetSideMenuBkColor($nSideItem2, 0xD00000)

$SetDefClrItem = _GUICtrlCreateODMenuItem("Default", $ViewColorMenu, "", 0, 1)

_GUICtrlCreateODMenuItem("", $ViewColorMenu) ; Separator

$SetRedClrItem = _GUICtrlCreateODMenuItem("Red", $ViewColorMenu, "", 0, 1)

$SetGrnClrItem = _GUICtrlCreateODMenuItem("Green", $ViewColorMenu, "", 0, 1)

GUICtrlSetState(-1, $GUI_CHECKED)

$SetBlueClrItem = _GUICtrlCreateODMenuItem("Blue", $ViewColorMenu, "", 0, 1)

_GUICtrlCreateODMenuItem("", $ViewColorMenu) ; Separator

$SetOLBlueItem = _GUICtrlCreateODMenuItem("Outlook-Blue", $ViewColorMenu, "", 0, 1)

$SetOLSlvItem = _GUICtrlCreateODMenuItem("Outlook-Silver", $ViewColorMenu, "", 0, 1)

$ViewStateItem = _GUICtrlCreateODMenuItem("Enable Config", $ViewMenu)

GUICtrlSetState(-1, $GUI_CHECKED)

; Help-Menu

$HelpMenu = GUICtrlCreateMenu("&?")

$HelpItem = _GUICtrlCreateODMenuItem("Help Topics" & @Tab & "F1", $HelpMenu, "shell32.dll", -24)

_GUICtrlCreateODMenuItem("", $HelpMenu) ; Separator

$AboutItem = _GUICtrlCreateODMenuItem("About...", $HelpMenu)

; You can also the same things on context menus

$GUIContextMenu = GUICtrlCreateContextMenu(-1)

$ConAboutItem = _GUICtrlCreateODMenuItem("About...", $GUIContextMenu, "explorer.exe", -8)

_GUICtrlCreateODMenuItem("", $GUIContextMenu) ; Separator

$ConExitItem = _GUICtrlCreateODMenuItem("Exit", $GUIContextMenu, "shell32.dll", -28)

GUICtrlCreateButton("Test", 100, 200, 70, 20)

GUISetState()

; *** Create the tray icon ***

$nTrayIcon1 = _TrayIconCreate("Tools", "shell32.dll", -13)

_TrayIconSetClick(-1, 16)

_TrayIconSetState() ; Show the tray icon

; *** Create the tray context menu ***

$nTrayMenu1 = _TrayCreateContextMenu() ; is the same like _TrayCreateContextMenu(-1) or _TrayCreateContextMenu($nTrayIcon1)

$nSideItem3 = _CreateSideMenu($nTrayMenu1)

_SetSideMenuText($nSideItem3, "My Tray Menu")

_SetSideMenuColor($nSideItem3, 0x00FFFF) ; yellow; default color - white

_SetSideMenuBkColor($nSideItem3, 0x802222) ; bottom start color - dark blue

_SetSideMenuBkGradColor($nSideItem3, 0x4477AA) ; top end color - orange

;_SetSideMenuImage($nSideItem3, "shell32.dll", 309, TRUE)

$MenuMenu = _TrayCreateMenu("Menu") ; is the same like _TrayCreateMenu("Menu", -1) or _TrayCreateMenu("Menu", $nTrayMenu1)

_TrayCreateItem("")

_TrayItemSetIcon(-1, "", 0)

$MenuDrives = _TrayCreateMenu("Driveinfo")

_TrayCreateItem("")

_TrayItemSetIcon(-1, "", 0); Force changing to ownerdrawn sometimes needed, i.e. in mixed menu

$MenuTools = _TrayCreateMenu("Tools")

_TrayCreateItem("")

_TrayItemSetIcon(-1, "", 0)

$TrayHelp = _TrayCreateItem("Help")

$TrayRun = _TrayCreateItem("Run...")

_TrayCreateItem("")

_TrayItemSetIcon(-1, "", 0)

$TrayExit = _TrayCreateItem("Exit")

_TrayItemSetIcon($MenuMenu, "", 0)

_TrayItemSetIcon($MenuDrives, "shell32.dll", -9)

_TrayItemSetIcon($MenuTools, "shell32.dll", -20)

_TrayItemSetSelIcon($MenuTools, "shell32.dll", -44)

_TrayItemSetIcon($TrayHelp, "shell32.dll", -24)

_TrayItemSetIcon($TrayRun, "shell32.dll", -25)

_TrayItemSetIcon($TrayExit, "shell32.dll", -28)

GUICtrlSetState($TrayHelp, $GUI_DEFBUTTON)

; *** Sub menu items ***

$TrayAdvanced = _TrayCreateItem("Modern", $MenuMenu, -1, 1)

$TraySimple = _TrayCreateItem("Classic", $MenuMenu, -1, 1)

_TrayItemSetIcon($TrayAdvanced, "", 0)

_TrayItemSetIcon($TraySimple, "", 0)

GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)

$TrayCalc = _TrayCreateItem("Calculator", $MenuTools)

$TrayCMD = _TrayCreateItem("CMD", $MenuTools)

$TrayNotepad = _TrayCreateItem("Notepad", $MenuTools)

$TrayRegedit = _TrayCreateItem("Regedit", $MenuTools)

_TrayItemSetIcon($TrayCalc, "calc.exe", 0)

_TrayItemSetIcon($TrayCMD, "cmd.exe", 0)

_TrayItemSetIcon($TrayNotepad, "notepad.exe", 0)

_TrayItemSetIcon($TrayRegedit, "regedit.exe", 0)

GUICtrlSetState($TrayNotepad, $GUI_DISABLE)

_TrayCreateItem("Free Space:", $MenuDrives)

_TrayCreateItem("", $MenuDrives)

$arDrives = DriveGetDrive("FIXED")

For $i = 1 To $arDrives[0]

_TrayCreateItem(StringUpper($arDrives[$i]) & " -> " & _

StringFormat("%.2f GB", DriveSpaceFree($arDrives[$i])), $MenuDrives)

Next

; WM_MEASUREITEM and WM_DRAWITEM are registered in

; "ModernMenu.au3" so they don"t need to registered here

; Also OnAutoItExit() is in "ModernMenu.au3" to cleanup the

; menu imagelist and font

Dim $nTrayIcon2 = 0

; Create an icon which demonstrates how to use click event - see the function 'MyTrayTipCallBack'

Dim $nTrayIcon3 = _TrayIconCreate("Click me", "shell32.dll", -16, "MyTrayTipCallBack")

_TrayIconSetState()

; Main GUI Loop

While 1

$Msg = GUIGetMsg()

Switch $Msg

Case $GUI_EVENT_CLOSE, $ExitItem, $ConExitItem, $TrayExit

ExitLoop

Case $AboutItem, $ConAboutItem

Msgbox(64, "About", "Menu color sample by Holger Kotsch")

_GUICtrlODMenuItemSetText($OpenItem, "Open thisone or not..." & @Tab & "Ctrl+O")

_GUICtrlODMenuItemSetText($ConAboutItem, "About this demo")

Case $ViewStateItem

If BitAnd(GUICtrlRead($ViewStateItem), $GUI_CHECKED) Then

GUICtrlSetState($ViewStateItem, $GUI_UNCHECKED)

GUICtrlSetState($ViewColorMenu, $GUI_DISABLE)

Else

GUICtrlSetState($ViewStateItem, $GUI_CHECKED)

GUICtrlSetState($ViewColorMenu, $GUI_ENABLE)

EndIf

Case $SetDefClrItem

SetCheckedItem($SetDefClrItem)

SetDefaultMenuColors()

Case $SetRedClrItem

SetCheckedItem($SetRedClrItem)

SetRedMenuColors()

Case $SetGrnClrItem

SetCheckedItem($SetGrnClrItem)

SetGreenMenuColors()

Case $SetBlueClrItem

SetCheckedItem($SetBlueClrItem)

SetBlueMenuColors()

Case $SetOLBlueItem

SetCheckedItem($SetOLBlueItem)

SetOLBlueColors()

Case $SetOLSlvItem

SetCheckedItem($SetOLSlvItem)

SetOLSilverColors()

Case $TrayAdvanced, $TraySimple

If BitAnd(GUICtrlRead($TraySimple), $GUI_CHECKED) Then

GUICtrlSetState($TraySimple, $GUI_UNCHECKED)

GUICtrlSetState($TrayAdvanced, $GUI_CHECKED)

$bUseAdvTrayMenu = TRUE

Else

GUICtrlSetState($TraySimple, $GUI_CHECKED)

GUICtrlSetState($TrayAdvanced, $GUI_UNCHECKED)

$bUseAdvTrayMenu = FALSE

EndIf

Case $TrayHelp

If $nTrayIcon2 = 0 Then

$nTrayIcon2 = _TrayIconCreate("New message", "shell32.dll", -14, "MyTrayTipCallBack")

_TrayIconSetState(-1, 5) ; Show icon and start flashing -> 1 + 4

Else

_TrayIconSetState($nTrayIcon2, 5) ; Show icon and start flashing -> 1 + 4

EndIf

_TrayTip($nTrayIcon2, "New message", "A new message has arrived." & @CRLF & "Please click here to read...", 15, $NIIF_INFO)

EndSwitch

WEnd

_TrayIconDelete($nTrayIcon1)

_TrayIconDelete($nTrayIcon3)

If $nTrayIcon2 > 0 Then _TrayIconDelete($nTrayIcon2)

Exit

Func MyTrayTipCallBack($nID, $nMsg)

Switch $nID

Case $nTrayIcon2

Switch $nMsg

Case $NIN_BALLOONUSERCLICK, $NIN_BALLOONTIMEOUT

_TrayIconSetState($nTrayIcon2, 8) ; Stop icon flashing

If $nMsg = $NIN_BALLOONUSERCLICK Then MsgBox(64, "Information", "This could be your message.")

_TrayIconSetState($nTrayIcon2, 2) ; Hide icon

EndSwitch

Case $nTrayIcon3

Switch $nMsg

;;; Case $WM_LBUTTONDOWN

; Put your stuff here

;;; case $WM_LBUTTONUP

; Put your stuff here ; One click and double click to put together is difficult

case $WM_LBUTTONDBLCLK

MsgBox(0, "Info", "You left double clicked on TrayIcon3.")

GUISetState(@SW_RESTORE, $hMainGUI) ; Restore/put focus back to our main GUI

;;; case $WM_RBUTTONDOWN

; Put your stuff here

case $WM_RBUTTONUP

MsgBox(0, "Info", "You right clicked on TrayIcon3.")

GUISetState(@SW_RESTORE, $hMainGUI) ; Restore/put focus back to our main GUI

;;; case $WM_RBUTTONDBLCLK

; Put your stuff here

;;; case $WM_MOUSEMOVE

; Put your stuff here

EndSwitch

EndSwitch

EndFunc

Func SetCheckedItem($DefaultItem)

GUICtrlSetState($SetDefClrItem, $GUI_UNCHECKED)

GUICtrlSetState($SetRedClrItem, $GUI_UNCHECKED)

GUICtrlSetState($SetGrnClrItem, $GUI_UNCHECKED)

GUICtrlSetState($SetBlueClrItem, $GUI_UNCHECKED)

GUICtrlSetState($SetOLBlueItem, $GUI_UNCHECKED)

GUICtrlSetState($SetOLSlvItem, $GUI_UNCHECKED)

GUICtrlSetState($DefaultItem, $GUI_CHECKED)

EndFunc

Func SetDefaultMenuColors()

_SetMenuBkColor(0xFFFFFF)

_SetMenuIconBkColor(0xDBD8D8)

_SetMenuSelectBkColor(0xD2BDB6)

_SetMenuSelectRectColor(0x854240)

_SetMenuSelectTextColor(0x000000)

_SetMenuTextColor(0x000000)

EndFunc

Func SetRedMenuColors()

_SetMenuBkColor(0xAADDFF)

_SetMenuIconBkColor(0x5566BB)

_SetMenuSelectBkColor(0x70A0C0)

_SetMenuSelectRectColor(0x854240)

_SetMenuSelectTextColor(0x000000)

_SetMenuTextColor(0x000000)

EndFunc

Func SetGreenMenuColors()

_SetMenuBkColor(0xAAFFAA)

_SetMenuIconBkColor(0x66BB66)

_SetMenuSelectBkColor(0xBBCC88)

_SetMenuSelectRectColor(0x222277)

_SetMenuSelectTextColor(0x770000)

_SetMenuTextColor(0x000000)

EndFunc

Func SetBlueMenuColors()

_SetMenuBkColor(0xFFB8B8)

_SetMenuIconBkColor(0xBB8877)

_SetMenuSelectBkColor(0x662222)

_SetMenuSelectRectColor(0x4477AA)

_SetMenuSelectTextColor(0x66FFFF)

_SetMenuTextColor(0x000000)

EndFunc

Func SetBlueTrayColors()

_SetTrayBkColor(0xFFD8C0)

_SetTrayIconBkColor(0xEE8877)

_SetTrayIconBkGrdColor(0x703330)

_SetTraySelectBkColor(0x662222)

_SetTraySelectRectColor(0x4477AA)

_SetTraySelectTextColor(0x66FFFF)

_SetTrayTextColor(0x000000)

EndFunc

Func SetOLBlueColors()

_SetMenuBkColor(0xFFFFFF)

_SetMenuIconBkColor(0xFFEFE3)

_SetMenuIconBkGrdColor(0xE4AD87)

_SetMenuSelectBkColor(0xC2EEFF)

_SetMenuSelectRectColor(0x800000)

_SetMenuSelectTextColor(0x000000)

_SetMenuTextColor(0x000000)

EndFunc

Func SetOLSilverColors()

_SetMenuBkColor(0xF9F9F9)

_SetMenuIconBkColor(0xFDFDFD)

_SetMenuIconBkGrdColor(0xC0A0A0)

_SetMenuSelectBkColor(0xC2EEFF)

_SetMenuSelectRectColor(0x800000)

_SetMenuSelectTextColor(0x000000)

_SetMenuTextColor(0x000000)

EndFunc

Link to comment
Share on other sites

@korasoglu

Autoitte acemiysen; bu kadar gelişmiş udfler (kodlar) ile ne işin var? Sen tam olarak ne öğrenmek istiyorsun.

Burda autoiti baştan sonra anlatmak çok zor. Yardım dosyasından yararlanmalısın. Yardım dosyası gerçekten çok güzel hazırlanmış...

Koda Form Designer zaten tasarımı baya kolaylaştırıyor...

Yardım dosyasındaki örnekleri incele!

Takıldığın yerde ise tabiki forumda sor, lakin ne istediğin nerde takıldığını tam olarak belirt...

#include &lt;GUIConstantsEx.au3&gt;
#include &lt;StaticConstants.au3&gt;

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $defaultstatus, $status, $filemenu, $fileitem, $helpmenu, $saveitem
    Local $infoitem, $exititem, $recentfilesmenu, $separator1, $viewmenu
    Local $viewstatusitem, $okbutton, $cancelbutton, $statuslabel, $msg, $file

    GUICreate("My GUI menu", 300, 200)

    Global $defaultstatus = "Ready"
    Global $status

    $filemenu = GUICtrlCreateMenu("&amp;File")
    $fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $helpmenu = GUICtrlCreateMenu("?")
    $saveitem = GUICtrlCreateMenuItem("Save", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
    $exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu, 1)

    $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2)   ; create a separator line

    $viewmenu = GUICtrlCreateMenu("View", -1, 1)    ; is created before "?" menu
    $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $okbutton = GUICtrlCreateButton("OK", 50, 130, 70, 20)
    GUICtrlSetState(-1, $GUI_FOCUS)
    $cancelbutton = GUICtrlCreateButton("Cancel", 180, 130, 70, 20)

    $statuslabel = GUICtrlCreateLabel($defaultstatus, 0, 165, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

    GUISetState()
    While 1
        $msg = GUIGetMsg()

        If $msg = $fileitem Then
            $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
            If @error &lt;&gt; 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
        EndIf
        If $msg = $viewstatusitem Then
            If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
                GUICtrlSetState($statuslabel, $GUI_HIDE)
            Else
                GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
                GUICtrlSetState($statuslabel, $GUI_SHOW)
            EndIf
        EndIf
        If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
        If $msg = $infoitem Then MsgBox(0, "Info", "Only a test...")
    WEnd
    GUIDelete()
EndFunc   ;==&gt;Example

Link to comment
Share on other sites

hocam evet iki tane var biri benim sizden yardım istediğim diğerinide siz koymuşunuz fakat

ModernMenuRaw.au3 bu çalışmıyor bunu bende indirmiştim oda çalışmıyordu çok uzun kodlar var içinde hatada

vermiyor ama çalışmıyor..

Link to comment
Share on other sites

@korasoglu

#include ile başka bir au3 dosyasındaki bilgileri yazdığımız *.au3 dosyasına ekliyoruz.

Dikatta edersen senin aa.au3 içinde #include "ModernMenuRaw.au3" satırı var.

Bu da demek oluyorki senin aa.au3 ilgili dosyayı kullanıyor. Bu dosya yanında olmaz ise hata verecektir.

ModernMenuRaw.au3 içinde gelişmiş kodlar bulunmakta! Biz kısaca bu topluluğa udf diyoruz...

Link to comment
Share on other sites

@ korasoğlu

Bu menü scriptini aldığın konudada onların udf olduğunu söylemiştik. Udf nin ne olduğunu araştırsaydın keşke. Herşeyi devletten beklememek lazım :)

UDF açılımı User Defined Functions

Kullanıcı tanımlı fonksyonlar AutoIT piyasaya çıktığında yoktu. Belli başlı işlemlerin yapılabildiği bir script diliydi zamanında.

Sonra kullanıcılar kendi ürettikleri toplu fonksyonları biraraya getirip ufdleri yayınlamaya başladıkça dallanıp budaklandı.

Kısacası udf üst düzey kullanıcıların yazdığı fonksyon dosyasıdır.

Udf dosyasını çalıştırmak yerine onun üzerinden işlem yapan scripti çalıştırman gerekiyor. Tabi blue_life hocamızın dediği gibi include edilen udfnin belrtilen dizinde olduğuna dikkat etmen gerekiyor.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...