Hallo!
Ich würde gern die GUI vom Win7-Aero-Alt-Tab-Programmumschalter nachbauen, um eigene Icons (zum wechseln zwischen Funktionen meines Fußpedals, falls das jemand mitbekommen hat) draufzuhauen.
Bisher habe ich nur die klassische ApplyGlass () Funktion gefunden, welche leider Probleme mit der Darstellung von Controls hat, sowie eine GDI+Funktion, welche ich nicht durchschauen kann.
Ich würde mich sehr über eure Hilfe freuen, wenn sich jemand mit der Materie auskennt.
Im Grunde will ich also auf einer Aero-GUI Controls malen können. Mit einem Beispielskript wäre mir sehr geholfen.
liebe grüße!
Skripte
ApplyGlass() - Autor verloren
#include <StructureConstants.au3>
#include <GUIConstants.au3>
$GUI = GUICreate("Windows Vista DWM", 243, 243)
$Apply = GUICtrlCreateButton("Apply", 80, 104, 83, 25, 0)
GUISetState(@SW_SHOW)
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Apply
$Ret = ApplyGlass($GUI,243,243,243,243,0x000000); produces full glass window, the glass is red colored
EndSwitch
WEnd
Func ApplyGlass($hWnd,$leftw,$rightw,$toph,$bottomh,$glasscolor = "0x000000")
$struct=DllStructCreate("int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;")
DllStructSetData($struct,"cxLeftWidth",$leftw)
DllStructSetData($struct,"cxRightWidth",$rightw)
DllStructSetData($struct,"cyTopHeight",$toph)
DllStructSetData($struct,"cyBottomHeight",$bottomh)
GUISetBkColor($glasscolor)
Return DllCall("dwmapi.dll", "int", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "ptr", DllStructGetPtr($struct))
EndFunc
GDI-Skript
http://www.autoitscript.com/forum/topic/13…-menu-estetics/
[autoit]#region parts that are not my work:
;JamesBrooks for Vista glass functions: http://www.autoitscript.com/forum/topic/..…ions/page__hl__
;Authenticity and Yashied for glow txt on glass: http://www.autoitscript.com/forum/topic/..…owing-text-on-a
;Malkey for GDI+ gradient: http://www.autoitscript.com/forum/topic/75…ent-line-brush/
#endregion
#include <FontConstants.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
OnAutoItExitRegister( "_CleanUp" )
[/autoit] [autoit][/autoit] [autoit]Global $IconSize = 48
Global $width = 300
Global $height = 350
Global $shine1 = 5
Global $shine2 = 5
Global $shine3 = 125
Global $menuFontSize = 16
Global $title = 'Some cool menu'
Global $temp_image = @TempDir & '\my_seven_image.bmp'
Global $Win_Back_Color = 0x636363;0xC5C5C5;454545 <--- color of lower dark grey line
For $i = 1 to Int($IconSize/4.8) ;adding space in front of the title so that it doesn't overlap top left image
$title = ' ' & $title
Next
#region values requires for text shine on glass area
Global Const $DTT_TEXTCOLOR = 0x00000001
Global Const $DTT_GLOWSIZE = 0x00000800
Global Const $DTT_COMPOSITED = 0x00002000
If Not IsDeclared("tagDTTOPTS") Then Global Const $tagDTTOPTS = _
"uint Size;uint Flags;uint clrText;uint clrBorder;uint clrShadow;int TextShadowType;" & $tagPOINT & _
";int BorderSize;int FontPropId;int ColorPropId;int StateId;int ApplyOverlay;int GlowSize;ptr DrawTextCallback;int lParam;"
Global $Struct = DllStructCreate("int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;")
Global $sStruct = DllStructCreate("dword;int;ptr;int")
Global $Area[4] = [0, 0, $IconSize-23, 0]
#endregion
Global $Form1 = GUICreate($title, $width, $height, -1, -1, -1, -1)
Global $GlassArea = GUICtrlCreateLabel("", 0, 0, $width, $IconSize-23) ;area that will be filled with glass
GUICtrlSetBkColor(-1, 0x000000)
Global $DarkGreyArea = GUICtrlCreateGraphic(0, 0, $width, $height-45) ;work area (to add controls in)
GUICtrlSetBkColor(-1, 0xC5C5C5) ;with light grey area
Global $CloseButton = GUICtrlCreateButton("Close", $width-90, $height-35, 80, 25)
Global $hTheme = _WinAPI_OpenThemeData($Form1, "globals") ;required function for label shine in glass area
If (@OSVersion <> "WIN_VISTA") OR (@OSVersion <> "WIN_7") Then _Vista_ApplyGlassArea($Form1, $Area, $Win_Back_Color) ;applying glass area to main GUI (area where $GlassArea label is)
GUISetState(@SW_SHOW, $Form1)
[/autoit] [autoit][/autoit] [autoit];creating child GUI with top left image-menu-control
Global $iX = 0, $iY = 0, $iWidth = $IconSize, $iHeight = $IconSize
Global $controlGui, $HoverImage, $Mask, $FileGUI, $FileMenu, $EditGUI, $EditMenu, $HelpGUI, $HelpMenu, $DownGUI, $DownMenu
#region create fake GUIs with each holding a clickable control
$ImageState = 1
_CreateFakeGUI($controlGui, 'ControlGUI', 48, 48, -1, -23, 1, $HoverImage)
$FileState = 1
_CreateFakeGUI($FileGUI, 'FileGUI', 35, $menuFontSize*2-Round($menuFontSize/1.5), 52, 4, 2, $FileMenu)
$EditState = 1
_CreateFakeGUI($EditGUI, 'EditGUI', 35, $menuFontSize*2-Round($menuFontSize/1.5), 92, 4, 2, $EditMenu)
$HelpState = 1
_CreateFakeGUI($HelpGUI, 'HelpGUI', 45, $menuFontSize*2-Round($menuFontSize/1.5), 130, 4, 2, $HelpMenu)
$DownState = 1
_CreateFakeGUI($DownGUI, 'DownGUI', 20, $menuFontSize*2-Round($menuFontSize/1.5), $width-18, 4, 2, $DownMenu)
#endregion
#region create context menus
;----------Image Menu------------------------
$ImageDummy = GUICtrlCreateDummy()
$ImageContext = GUICtrlCreateContextMenu($ImageDummy)
$ImMinimize = GUICtrlCreateMenuItem("Minimize", $ImageContext)
$ImMaximize = GUICtrlCreateMenuItem("Maximize", $ImageContext)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateMenuItem("", $ImageContext)
$imExit = GUICtrlCreateMenuItem("Exit", $ImageContext)
;----------File Menu------------------------
$FileDummy = GUICtrlCreateDummy()
$FileContext = GUICtrlCreateContextMenu($FileDummy)
$FileNew = GUICtrlCreateMenu("New", $FileContext)
$FileNewProject = GUICtrlCreateMenuItem("Project", $FileNew)
$FileNewFile = GUICtrlCreateMenuItem("File", $FileNew)
$FileOpen = GUICtrlCreateMenuItem("Open", $FileContext)
$FileSave = GUICtrlCreateMenuItem("Save", $FileContext)
$FileSaveAs = guictrlcreatemenuitem("Save As...", $FileContext)
GUICtrlCreateMenuItem("", $FileContext)
$FileExit = guictrlcreatemenuitem("Exit", $FileContext)
;----------Edit Menu------------------------
$EditDummy = GUICtrlCreateDummy()
$EditContext = GUICtrlCreateContextMenu($EditDummy)
$EditUndo = GUICtrlCreateMenuItem("Undo", $EditContext)
$EditRedo = GUICtrlCreateMenuItem("Redo", $EditContext)
GUICtrlCreateMenuItem("", $EditContext)
$EditCut = GUICtrlCreateMenuItem("Cut", $EditContext)
$EditCopy = GUICtrlCreateMenuItem("Copy", $EditContext)
$EditPaste = GUICtrlCreateMenuItem("Paste", $EditContext)
GUICtrlCreateMenuItem("", $EditContext)
$EditPref = GUICtrlCreateMenuItem("Preferences", $EditContext)
;----------Help Menu------------------------
$HelpDummy = GUICtrlCreateDummy()
$HelpContext = GUICtrlCreateContextMenu($HelpDummy)
$HelpHelp = GUICtrlCreateMenuItem("Help", $HelpContext)
GUICtrlCreateMenuItem("", $HelpContext)
$HelpAbout = GUICtrlCreateMenuItem("About", $HelpContext)
;----------Down arrow Menu------------------------
$DownDummy = GUICtrlCreateDummy()
$DownContext = GUICtrlCreateContextMenu($DownDummy)
$DownTab = GUICtrlCreateMenuItem("Tab Groups", $DownContext)
$DownTabOther = GUICtrlCreateMenuItem("Tabs from other computers", $DownContext)
GUICtrlCreateMenuItem("", $DownContext)
$DownTabExample = GUICtrlCreateMenuItem("Example tab", $DownContext)
#endregion
_Draw_menus() ;drawing all menu items
[/autoit] [autoit][/autoit] [autoit]Global $Mask = GUICreate('Mask', $iWidth-2, $iHeight-2, 0, -22, $WS_POPUP, $WS_EX_MDICHILD, $Form1) ;another child window for shade and gloss when moving mouse over image-menu or clicking it
GUISetBkColor(0xFFFFFF, $Mask)
WinSetTrans($Mask, '', 40)
GUISetState(@SW_DISABLE, $Mask) ;still not shown, only disabled
GUIRegisterMsg(0xF,"MY_PAINT")
[/autoit] [autoit][/autoit] [autoit]While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $HelpAbout
MsgBox(48, 'About', 'Cool menus by... sandin' & @CRLF & @CRLF & '07.07.2011', -1, $Form1)
Case $ImMinimize
WinSetState($Form1, '', @SW_MINIMIZE)
Case $GUI_EVENT_CLOSE, $imExit, $CloseButton, $FileExit
Exit
Case $GlassArea ;moving window when holding glass area that isn't menu
dllcall("user32.dll","int","SendMessage","hWnd", $Form1,"int",0xA1,"int", 2,"int", 0)
EndSwitch
#region detection clicks and hovering above menu items
If WinActive($Form1) then ;<-- here's one problem, I need this in order for window not to detect any clicks if you click on another window that is above this one
;but then you can't click on any control even if the window is aside your currently active window.
_MenuBehavior($FileGUI, $FileMenu, $FileState, 'File', $FileContext)
_MenuBehavior($EditGUI, $EditMenu, $EditState, 'Edit', $EditContext)
_MenuBehavior($HelpGUI, $HelpMenu, $HelpState, 'Help', $HelpContext)
_MenuBehavior($DownGUI, $DownMenu, $DownState, ChrW(9660), $DownContext)
_MenuBehavior($controlGui, $HoverImage, $ImageState, '', $ImageContext)
EndIf
#endregion
WEnd
Func _MenuBehavior($WinHWND, $i_MenuItem, ByRef $i_MenuState, $i_Label, $i_ContextMenu);, $i_Shine1, $i_Shine2, $i_Shine3, $i_Color1, $i_Color2)
Local $a = GUIGetCursorInfo($WinHWND)
Switch $a[4]
Case $i_MenuItem
If $a[2] = 1 Then
If $i_MenuState <> 3 Then
$i_MenuState = 3
if ($FileState <> 1) AND ($FileMenu <> $i_MenuItem) then
$FileState = 1
_Draw_Menu_ex($FileGUI, 'File', $menuFontSize, $shine3, 0x000000)
EndIf
if ($EditState <> 1) AND ($EditMenu <> $i_MenuItem) then ;making sure that disable all other menu clicked state (if there are any)
$EditState = 1
_Draw_Menu_ex($EditGUI, 'Edit', $menuFontSize, $shine3, 0x000000)
EndIf
if ($HelpState <> 1) AND ($HelpMenu <> $i_MenuItem) Then
$HelpState = 1
_Draw_Menu_ex($HelpGUI, 'Help', $menuFontSize, $shine3, 0x000000)
EndIf
if ($DownState <> 1) AND ($DownMenu <> $i_MenuItem) Then
$DownState = 1
_Draw_Menu_ex($DownGUI, ChrW(9660), $menuFontSize-Round(Sqrt($menuFontSize)), $shine3, 0x555555)
EndIf
if ($ImageState <> 1) AND ($HoverImage <> $i_MenuItem) Then
$ImageState = 1
GUISetState(@SW_HIDE, $Mask)
EndIf
If $i_MenuItem = $DownMenu then
_Draw_Menu_ex($WinHWND, ChrW(9660), $menuFontSize-Round(Sqrt($menuFontSize)), $shine2+2, 0x000099)
ElseIf $i_MenuItem = $HoverImage Then
GUISetBkColor(0x000000, $Mask)
GUISetState(@SW_SHOWNOACTIVATE, $Mask)
Else
_Draw_Menu_ex($WinHWND, $i_Label, $menuFontSize, $shine1, 0x000099) ;clicked File menu state, drawing average glow, and red color
EndIf
ShowMenu($WinHWND, $i_MenuItem, $i_ContextMenu) ;showing context menu for File
EndIf
Else
If $i_MenuState <> 2 Then
$i_MenuState = 2
If $i_MenuItem = $DownMenu Then
_Draw_Menu_ex($WinHWND, '| ' & ChrW(9660) & ' |', $menuFontSize-Round(Sqrt($menuFontSize)), $shine2, 0x555555)
ElseIf $i_MenuItem = $HoverImage Then
GUISetBkColor(0xFFFFFF, $Mask)
GUISetState(@SW_SHOWNOACTIVATE, $Mask)
Else
_Draw_Menu_ex($WinHWND, $i_Label, $menuFontSize, $shine2, 0x000000) ;high glow, black color
EndIf
EndIf
EndIf
Case Else
If $i_MenuState <> 1 Then
$i_MenuState = 1
If $i_MenuItem = $DownMenu Then
_Draw_Menu_ex($WinHWND, ChrW(9660), $menuFontSize-Round(Sqrt($menuFontSize)), $shine3, 0x555555)
ElseIf $i_MenuItem = $HoverImage Then
GUISetState(@SW_HIDE, $Mask)
Else
_Draw_Menu_ex($WinHWND, $i_Label, $menuFontSize, $shine3, 0x000000) ;spread glow so there aren't any, black color
EndIf
EndIf
EndSwitch
EndFunc
Func _CreateFakeGUI(ByRef $WinHWND, $WinTitle, $WinWIdth, $WinHeight, $Win_X, $Win_Y, $AddCtrl, ByRef $CtrlHWND);, $LabelSize = 35)
$WinHWND = GUICreate($WinTitle, $WinWIdth, $WinHeight, $Win_X, $Win_Y, $WS_POPUP, $WS_EX_MDICHILD, $Form1)
If $AddCtrl = 1 then
$CtrlHWND = GUICtrlCreatePic('', 0, 0, $iWidth, $iHeight) ;control to put image later on
ElseIf $AddCtrl = 2 Then
$CtrlHWND = GUICtrlCreateLabel('', 0, 0, $WinWIdth, $menuFontSize*2-Round($menuFontSize/1.5)) ;clickable area
GUICtrlSetBkColor(-1, 0x000000)
If (@OSVersion <> "WIN_VISTA") OR (@OSVersion <> "WIN_7") Then _Vista_ApplyGlass($WinHWND, $Win_Back_Color) ;apply glass on entire child window
EndIf
GUISetState(@SW_DISABLE, $WinHWND) ;disabling window so that it doesn't take focus from parent when you click on it
GUISetState(@SW_SHOWNOACTIVATE, $WinHWND) ;show and doesn't focus
If $AddCtrl = 1 Then
_Create_7Image() ;creating image with 7 number on it (like win7)
GUICtrlSetImage($CtrlHWND, $temp_image) ;setting image into control we created earlier.
;Why did I use this method and not redrew image 7 in MY_PAINT? because it would be very slow, this method is faster.
EndIf
EndFunc
Func ShowMenu($hWnd, $CtrlID, $nContextID)
Local $timez = TimerInit()
Local $arPos, $x, $y
Local $hMenu = GUICtrlGetHandle($nContextID)
$arPos = ControlGetPos($hWnd, "", $CtrlID)
[/autoit] [autoit][/autoit] [autoit]$x = $arPos[0]
$y = $arPos[1] + $arPos[3]
ClientToScreen($hWnd, $x, $y)
TrackPopupMenu($hWnd, $hMenu, $x, $y)
EndFunc ;==>ShowMenu
[/autoit] [autoit][/autoit] [autoit]Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
Local $stPoint = DllStructCreate("int;int")
DllStructSetData($stPoint, 1, $x)
DllStructSetData($stPoint, 2, $y)
DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))
[/autoit] [autoit][/autoit] [autoit]$x = DllStructGetData($stPoint, 1)
$y = DllStructGetData($stPoint, 2)
$stPoint = 0
EndFunc ;==>ClientToScreen
Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc ;==>TrackPopupMenu
#region glass functions for aero graphic environment (link at the top of the script)
Func _Vista_ApplyGlass($hWnd, $bColor = 0x000000)
GUISetBkColor($bColor)
$Ret = DllCall("dwmapi.dll", "long", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "long*", DllStructGetPtr($Struct))
If @error Then
Return 0
SetError(1)
Else
Return $Ret
EndIf
EndFunc ;==>_Vista_ApplyGlass
Func _Vista_ApplyGlassArea($hWnd, $Area, $bColor = 0x000000)
If IsArray($Area) Then
DllStructSetData($Struct, "cxLeftWidth", $Area[0])
DllStructSetData($Struct, "cxRightWidth", $Area[1])
DllStructSetData($Struct, "cyTopHeight", $Area[2])
DllStructSetData($Struct, "cyBottomHeight", $Area[3])
GUISetBkColor($bColor); Must be here!
$Ret = DllCall("dwmapi.dll", "long*", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "ptr", DllStructGetPtr($Struct))
If @error Then
Return 0
Else
Return $Ret
EndIf
Else
MsgBox(16, "_Vista_ApplyGlassArea", "Area specified is not an array!")
EndIf
EndFunc ;==>_Vista_ApplyGlassArea
#endregion
Func _Draw_menus()
_Draw_Menu_ex($FileGUI, 'File', $menuFontSize, $shine3, 0x000000)
_Draw_Menu_ex($EditGUI, 'Edit', $menuFontSize, $shine3, 0x000000)
_Draw_Menu_ex($HelpGUI, 'Help', $menuFontSize, $shine3, 0x000000)
_Draw_Menu_ex($DownGUI, ChrW(9660), $menuFontSize-Round(Sqrt($menuFontSize)), $shine3, 0x555555)
EndFunc
Func _Draw_Menu_ex($WinHandle, $iCaption, $iSize, $iShine, $iColor)
Local $hDC = _WinAPI_GetDC($WinHandle)
Local $tClientRect = _WinAPI_GetClientRect($WinHandle)
Local $sText = $iCaption
Local $hFont = _WinAPI_CreateFont($iSize, $iSize/2-1, 0, 0, 400, False, False, False, $DEFAULT_CHARSET, _
$OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'SegoeUI')
_DrawGlowingText($hDC, $sText, $tClientRect, $iShine, $hFont, $iColor)
_WinAPI_DeleteObject($hFont)
_WinAPI_ReleaseDC($WinHandle, $hDC)
EndFunc
#region making label shine in glass area (Link at the top of the script)
Func _DrawGlowingText($hDC, $sText, $tRc, $iGlowSize = 10, $hFont = 0, $iTextClr = -1)
Local $hCDC
Local $hBrush, $hOldBrush
Local $tRcText
Local $tBI, $tDTO
Local $hDIBBmp, $hOldBmp
Local $hOldFont
Local $tST
Local $iFlags = BitOR($DTT_GLOWSIZE, $DTT_COMPOSITED)
$hCDC = _WinAPI_CreateCompatibleDC($hDC)
[/autoit] [autoit][/autoit] [autoit]$tBI = DllStructCreate($tagBITMAPINFO)
DllStructSetData($tBI, "Size", DllStructGetSize($tBI)-4)
DllStructSetData($tBI, "Width", DllStructGetData($tRc, "Right")-DllStructGetData($tRc, "Left"))
DllStructSetData($tBI, "Height", -(DllStructGetData($tRc, "Bottom")-DllStructGetData($tRc, "Top")))
DllStructSetData($tBI, "Planes", 1)
DllStructSetData($tBI, "BitCount", 32)
DllStructSetData($tBI, "Compression", 0) ; BI_RGB
$hDIBBmp = _WinAPI_CreateDIBSection($hDC, $tBI)
$hOldBmp = _WinAPI_SelectObject($hCDC, $hDIBBmp)
If $hFont Then $hOldFont = _WinAPI_SelectObject($hCDC, $hFont)
$tDTO = DllStructCreate($tagDTTOPTS)
DllStructSetData($tDTO, "Size", DllStructGetSize($tDTO))
If $iTextClr <> -1 Then
$iFlags = BitOR($iFlags, $DTT_TEXTCOLOR)
DllStructSetData($tDTO, "clrText", $iTextClr)
EndIf
DllStructSetData($tDTO, "Flags", $iFlags)
DllStructSetData($tDTO, "GlowSize", $iGlowSize)
_WinAPI_DrawThemeTextEx($hTheme, $hCDC, 0, 0, $sText, _
BitOR($DT_SINGLELINE, $DT_CENTER, $DT_VCENTER, $DT_NOPREFIX), $tRc, $tDTO)
_WinAPI_BitBlt($hDC, DllStructGetData($tRc, "Left"), DllStructGetData($tRc, "Top"), _
DllStructGetData($tRc, "Right")-DllStructGetData($tRc, "Left"), _
DllStructGetData($tRc, "Bottom")-DllStructGetData($tRc, "Top"), $hCDC, 0, 0, 0xCC0020) ; SRCCOPY ;top+Sqrt($menuFontSize)
_WinAPI_SelectObject($hCDC, $hOldBmp)
If $hFont Then _WinAPI_SelectObject($hCDC, $hOldFont)
_WinAPI_DeleteObject($hDIBBmp)
_WinAPI_DeleteDC($hCDC)
EndFunc
Func _WinAPI_CreateDIBSection($hDC, Const ByRef $tBmpInfo, $iUsage = 0, $pBits = 0, $hSecond = 0, $iOffset = 0)
Local $aResult = DllCall("gdi32.dll", "hwnd", "CreateDIBSection", "hwnd", $hDC, "ptr", DllStructGetPtr($tBmpInfo), _
"uint", $iUsage, "ptr", $pBits, "hwnd", $hSecond, "uint", $iOffset)
If @error Then Return SetError(@error, @extended, 0)
If $aResult[0] = 87 Then Return SetError(1, 1, 0); 87 = ERROR_INVALID_PARAMETER
If $aResult[0] = 0 Then Return SetError(1, 2, 0)
Return SetError(0, 0, $aResult[0])
EndFunc
Func _WinAPI_DrawThemeTextEx($hTheme, $hDC, $iPartId, $iStateId, $sText, $iFlags, ByRef $tRect, Const ByRef $tDTTOPTS)
Local $aResult = DllCall("uxtheme.dll", "int", "DrawThemeTextEx", "ptr", $hTheme, "hwnd", $hDC, "int", $iPartId, "int", $iStateId, _
"wstr", $sText, "int", -1, "uint", $iFlags, "ptr", DllStructGetPtr($tRect), "ptr", DllStructGetPtr($tDTTOPTS))
If @error Then Return SetError(@error, @extended, 0)
If $aResult[0] <> 0 Then Return SetError(1, 0, 0)
Return SetError(0, 0, $aResult[0] = 0)
EndFunc
Func _WinAPI_OpenThemeData($hWnd, $sClassList)
Local $aResult = DllCall("uxtheme.dll", "hwnd", "OpenThemeData", "hwnd", $hWnd, "wstr", $sClassList)
If @error Then Return SetError(@error, @extended, 0)
If $aResult[0] = 0 Then Return SetError(1, 0, 0)
Return SetError(0, 0, $aResult[0])
EndFunc
Func _WinAPI_CloseThemeData($hTheme)
Local $aResult = DllCall("uxtheme.dll", "int", "CloseThemeData", "hwnd", $hTheme)
If @error Then Return SetError(@error, @extended, 0)
Return SetError(0, 0, $aResult[0] = 0)
EndFunc
#endregion
Func MY_PAINT($hWnd, $Msg, $wParam, $lParam)
_Draw_menus()
Return $GUI_RUNDEFMSG
EndFunc
Func _Create_7Image() ;drawn by myself xP
_GDIPlus_Startup()
Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($controlGui)
Local $hbitmap = _GDIPlus_BitmapCreateFromGraphics($iwidth, $iheight, $hGraphic)
Local $backbuffer = _GDIPlus_ImageGetGraphicsContext($hbitmap)
Local $LetterSize = 36
Local $Letter = '7'
Local $hbrush = _GDIPlus_BrushCreateSolid(0xFF152a3d)
Local $hbrushB = _GDIPlus_BrushCreateSolid(0xFF000000)
Local $hbrush2 = _GDIPlus_BrushCreateSolid(0x3A152a3d)
Local $hbrush3 = _GDIPlus_BrushCreateSolid(0x28FFFFFF)
Local $hFormat = _GDIPlus_StringFormatCreate ()
Local $hFamily = _GDIPlus_FontFamilyCreate ("Times New Roman")
Local $hPen = _GDIPlus_PenCreate (0xFF454545)
Local $hFont = _GDIPlus_FontCreate ($hFamily, $LetterSize, 1)
Local $tLayout
Local $tLayout2
#region malkey's gradient example ;creating gradient
Local $aFact[4] = [0, 0.3, 0.6, 1.0]
Local $aPosit[4] = [0.0, 0.3, 0.6, 1.0]
Local $hBrushLin2 = gdiplus_CreateLineBrushFromRect($iX, $iY, $iWidth, $iHeight, $aFact, $aPosit, _
0xFF5078fb, 0xFF91e9ff, 0x00000002, 1)
_GDIPlus_GraphicsFillRect($backbuffer, $iX, $iY, $iWidth, $iHeight, $hBrushLin2)
#endregion
Local $StartNum = 1 ;creating little pixels to add texture
for $j = 1 to 48
for $i = $StartNum to 48 step 3
_GDIPlus_GraphicsFillRect($backbuffer, $i-1, $j-1, 1, 1, $hbrush2)
Next
$StartNum += 1
If $StartNum > 3 then $StartNum = 1
Next
Local $3D_Depth = 3
$tLayout2 = _GDIPlus_RectFCreate ($iX+7, $iY-1, $iWidth, $iHeight)
_GDIPlus_GraphicsDrawStringEx ($backbuffer, $Letter, $hFont, $tLayout2, $hFormat, $hbrush2) ;creating shadow under character
For $i = 1 to $3D_Depth
$tLayout = _GDIPlus_RectFCreate ($iX+6-$i, $iY-$i-2, $iWidth-4, $iHeight+4)
If $i = $3D_Depth then
_GDIPlus_GraphicsDrawStringEx ($backbuffer, $Letter, $hFont, $tLayout, $hFormat, $hBrush) ;creating character
Else
_GDIPlus_GraphicsDrawStringEx ($backbuffer, $Letter, $hFont, $tLayout, $hFormat, $hBrushB) ;creating character depth
EndIf
Next
Local $i_a = 48 ;ellipse points
Local $i_b = 32
For $j = 1 to 48
For $i = 1 to 48
if $i >= Sqrt($i_a^2-$i_a^2*$j^2/$i_b^2) then _GDIPlus_GraphicsFillRect($backbuffer, 48-$i, 48-$j, 1, 1, $hbrush3) ;creating gloss with ellipse equation
Next
Next
_GDIPlus_GraphicsDrawRect($backbuffer, $iX, $iY, $iWidth-1, $iHeight-1, $hPen) ;boxing entire image with dark grey line
[/autoit] [autoit][/autoit] [autoit]Local $GC = _GDIPlus_ImageGetGraphicsContext($hbitmap)
Local $newBmp = _GDIPlus_BitmapCreateFromGraphics($iwidth, $iheight, $GC)
Local $newGC = _GDIPlus_ImageGetGraphicsContext($newBmp)
_GDIPlus_GraphicsDrawImageRect($newGC, $hbitmap, 0, 0, $iwidth, $iheight)
_GDIPlus_ImageSaveToFile($newBmp, $temp_image) ;saving created image - it's easier to show image and leave it there, than redrawing this entire thing
;when GID+ gets disappeared
_WinAPI_DeleteObject($hbitmap) ;disposing all the unneeded stuff
_GDIPlus_GraphicsDispose($backbuffer)
_GDIPlus_GraphicsDispose($GC)
_GDIPlus_GraphicsDispose($newGC)
_GDIPlus_BitmapDispose($newBmp)
_GDIPlus_BrushDispose($hBrushLin2)
_GDIPlus_BrushDispose($hbrush)
_GDIPlus_BrushDispose($hbrushB)
_GDIPlus_BrushDispose($hbrush2)
_GDIPlus_BrushDispose($hbrush3)
_GDIPlus_PenDispose ($hPen)
_GDIPlus_FontDispose ($hFont)
_GDIPlus_FontFamilyDispose ($hFamily)
_GDIPlus_StringFormatDispose ($hFormat)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($temp_image)
_GDIPlus_Shutdown()
EndFunc
#region drawing gradient by Malkey (link at the top of the script)
Func gdiplus_CreateLineBrushFromRect($iX, $iY, $iWidth, $iHeight, $aFactors, $aPositions, _
$iArgb1 = 0xFF0000FF, $iArgb2 = 0xFFFF0000, $LinearGradientMode = 0x00000001, $WrapMode = 0)
Local $tRect, $pRect, $aRet, $tFactors, $pFactors, $tPositions, $pPositions, $iCount
[/autoit] [autoit][/autoit] [autoit]If $iArgb1 = -1 Then $iArgb1 = 0xFF0000FF
If $iArgb2 = -1 Then $iArgb2 = 0xFFFF0000
If $LinearGradientMode = -1 Then $LinearGradientMode = 0x00000001
If $WrapMode = -1 Then $WrapMode = 1
$tRect = DllStructCreate("float X;float Y;float Width;float Height")
$pRect = DllStructGetPtr($tRect)
DllStructSetData($tRect, "X", $iX)
DllStructSetData($tRect, "Y", $iY)
DllStructSetData($tRect, "Width", $iWidth)
DllStructSetData($tRect, "Height", $iHeight)
;Note: Withn _GDIPlus_Startup(), $ghGDIPDll is defined
$aRet = DllCall($ghGDIPDll, "int", "GdipCreateLineBrushFromRect", "ptr", $pRect, "int", $iArgb1, _
"int", $iArgb2, "int", $LinearGradientMode, "int", $WrapMode, "int*", 0)
If IsArray($aFactors) = 0 Then Dim $aFactors[4] = [0.0, 0.4, 0.6, 1.0]
If IsArray($aPositions) = 0 Then Dim $aPositions[4] = [0.0, 0.3, 0.7, 1.0]
$iCount = UBound($aPositions)
$tFactors = DllStructCreate("float[" & $iCount & "]")
$pFactors = DllStructGetPtr($tFactors)
For $iI = 0 To $iCount - 1
DllStructSetData($tFactors, 1, $aFactors[$iI], $iI + 1)
Next
$tPositions = DllStructCreate("float[" & $iCount & "]")
$pPositions = DllStructGetPtr($tPositions)
For $iI = 0 To $iCount - 1
DllStructSetData($tPositions, 1, $aPositions[$iI], $iI + 1)
Next
$hStatus = DllCall($ghGDIPDll, "int", "GdipSetLineBlend", "hwnd", $aRet[6], _
"ptr", $pFactors, "ptr", $pPositions, "int", $iCount)
Return $aRet[6] ; Handle of Line Brush
EndFunc ;==>Gdiplus_CreateLineBrushFromRect
#endregion
Func _CleanUp()
_WinAPI_CloseThemeData($hTheme)
FileDelete($temp_image)
EndFunc
).
. Ich musste lediglich den Pfad manuell eingeben, weil der beim ausführen als 64-bit Anwendung nicht korrekt erzeugt wird ;).