Jump to content

Recommended Posts

Posted

Yes, look at WinAPIEx.au3 and the _WinAPI_Dwm*** functions.

I just did some searching for you and a good example is in the _WinAPI_DwmExtendFrameIntoClientArea section.

UDF List:

  Reveal hidden contents

Updated: 22/04/2018

Posted
  Quote

Require Windows Vista or later with enabled Aero theme.

Correct, what's the problem?

UDF List:

  Reveal hidden contents

Updated: 22/04/2018

Posted (edited)

OK, well you could do a check to see if Aero is enabled and then display the relevant GUI style.

Try this:

#include <WinAPIEx.au3> ; Download From http://www.autoitscript.com/forum/topic/98712-winapiex-udf/ by Yashied.

ConsoleWrite(_IsClassicTheme() & @LF)

Func _IsClassicTheme() ; By guinness 2012.
   _WinAPI_GetCurrentThemeName()
   Return @error > 0
EndFunc   ;==>_IsClassicTheme
Edited by guinness

UDF List:

  Reveal hidden contents

Updated: 22/04/2018

Posted (edited)

Here is what i have done until now, still playing with _WinAPI_DwmExtendFrameIntoClientArea().

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>

$formMain = GUICreate('Lorem Ipsum', 575, 421)
GUISetFont(9, 400, 0, 'Segoe UI')
GUISetBkColor(0xFFFFFF, $formMain)
$lblInstruction = GUICtrlCreateLabel('Lorem ipsum dolor sit amet?', 25, 25, 300, 25)
GUICtrlSetFont($lblInstruction, 12, 400, 0, 'Segoe UI')
GUICtrlSetColor($lblInstruction, 0x003399)
$Graphic = GUICtrlCreateGraphic(-1, 375, 577, 47)
GUICtrlSetColor($Graphic, 0xDFDFDF)
GUICtrlSetBkColor($Graphic, 0xF0F0F0)
GUICtrlSetState($Graphic, $GUI_DISABLE)
$btnButton1 = _GUICtrlCreateCommandLink('Lorem ipsum dolor sit amet', _
  'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aliquam vel placerat eros. Vivamus fringilla justo justo, ut accumsan diam. Aliquam ut laoreet purus.', _
  50, 75, 475, 85)
_GUICtrlButton_SetImage($btnButton1, "shell32.dll", 14, True)
$btnButton2 = _GUICtrlCreateCommandLink('Lorem ipsum dolor sit amet', _
  'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aliquam vel placerat eros. Vivamus fringilla justo justo, ut accumsan diam. Aliquam ut laoreet purus.', _
  50, 170, 475, 85)
_GUICtrlButton_SetImage($btnButton2, "shell32.dll", 21, True)
$btnButton3 = _GUICtrlCreateCommandLink('Lorem ipsum dolor sit amet', _
  'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aliquam vel placerat eros. Vivamus fringilla justo justo, ut accumsan diam. Aliquam ut laoreet purus.', _
  50, 265, 475, 85)
_GUICtrlButton_SetImage($btnButton3, "shell32.dll", 23, True)
$btnCancel = GUICtrlCreateButton('Cancel', 490, 386, 75, 25)
GUISetState(@SW_SHOW, $formMain)

While 1
Switch GUIGetMsg()
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd

Func _GUICtrlCreateCommandLink($Text, $Note, $Left, $Top, $Width, $Height)
$controlID = GUICtrlCreateButton($Text, $Left, $Top, $Width, $Height, $BS_COMMANDLINK)
_GUICtrlButton_SetNote($controlID, $Note)
Return $controlID
EndFunc   ;==>_GUICtrlCreateCommandLink

Require Windows Vista or later with enabled Aero theme.

Edited by D4RKON3
Posted

Let us know if you get stuck.

UDF List:

  Reveal hidden contents

Updated: 22/04/2018

Posted

Have a look at this:

Programming today is a race between software engineers striving to
build bigger and better idiot-proof programs, and the Universe
trying to produce bigger and better idiots.
So far, the Universe is winning.

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
  • Recently Browsing   0 members

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