Tab loses theme

Get help with using AutoHotkey and its commands and hotkeys
User avatar
F4Jonatas
Posts: 33
Joined: 22 Oct 2015, 06:35

Tab loses theme

11 Jul 2017, 17:17

Code: Select all

Gui, Color, Red ; When to use this, remove the theme
; Gui, Font, S8 CRed ; Or this
Gui, Add, Tab3, w460 h330, Setup||Basic|General|Gameplay|Interface|Detail|View Distance|Foliage
Gui, Add, Text, x30 y54, Hi!
Gui, Show
Any idea?
Thank you!
Last edited by F4Jonatas on 11 Jul 2017, 17:50, edited 2 times in total.
gregster
Posts: 3729
Joined: 30 Sep 2013, 06:48

Re: Tab loses theme

11 Jul 2017, 17:28

Not absolutly sure, what you mean, but that

Code: Select all

Gui, Color, FBFBFFFB
is most probably wrong. Which Color should that be?
The docs say:
...specify one of the 16 primary HTML color names or a 6-digit RGB color value (the 0x prefix is optional)...
I count 8 digits in your script...
(https://autohotkey.com/docs/commands/Gui.htm#Color)
User avatar
F4Jonatas
Posts: 33
Joined: 22 Oct 2015, 06:35

Re: Tab loses theme

11 Jul 2017, 17:31

Just a typo ...
Excuse!
User avatar
F4Jonatas
Posts: 33
Joined: 22 Oct 2015, 06:35

Re: Tab loses theme

15 Jul 2017, 16:13

I found a solution
But needs improvement
https://www.daniweb.com/programming/sof ... ost1593016

Code: Select all

OnMessage( 15, "WM_PAINT" )
Global WinHandle
Global Brush := DllCall( "Gdi32.dll\CreateSolidBrush", "UInt", 0x0000FF )
; Gui, Color, Red ; When to use this, remove the theme
; Gui, Font, CBlue ; Or this
Gui, +LastFound +Resize +HwndWinHandle
Gui, Font, S15
Gui, Add, Text, x30 y4 +BackgroundTrans, Hi Color!
Gui, Add, Tab3, w460 h330, Setup||Basic|General|Gameplay|Interface|Detail|View Distance|Foliage
Gui, Show


WM_PAINT( wParam, lParam, Msg, Handle ) {
   Local DC
   Local Paint
   Local Rect

   VarSetCapacity( Paint, 64 )
   VarSetCapacity( Rect, 16 )

   If ( Handle == WinHandle ) {
      DC := DllCall( "User32.dll\BeginPaint", "Ptr", Handle, "UInt", &Paint )
      DllCall( "User32.dll\GetClientRect", "Ptr", Handle, "UInt", &Rect )
      DllCall( "User32.dll\FillRect", "Ptr", DC, "UInt", &Rect, "UInt", Brush )
      DllCall( "User32.dll\EndPaint", "Ptr", Handle, "UInt", &Paint )
      DllCall( "User32.dll\UpdateWindow", "Ptr", Handle )
   }

   Return 0
}

Return to “Ask For Help”

Who is online

Users browsing this forum: Alexzemm, Bing [Bot], Chunjee, enrica, jmasiak, jNizM, sdkyron and 237 guests