Code: Select all
Gui, Color, black, black
Gui, add, progress, x0 y0 w600 h50 CBlack BackgroundBlack disabled -border
Gui, show, maximize
Code: Select all
Gui, Color, black, black
Gui, add, progress, x0 y0 w600 h50 CBlack BackgroundBlack disabled -border
Gui, show, maximize
Code: Select all
Gui, Add, Progress, x0 y0 w600 h50 CBlack BackgroundBlack Disabled -E0x0200 ; WS_EX_CLIENTEDGE = 0x0200
Code: Select all
Gui, Add, Progress, x0 y0 w600 h50 cBlack BackgroundBlack Disabled HwndHPB
Control, ExStyle, -0x0200, , ahk_id %HPB%
I looked at the help file before I posted. Do you have any specific suggestions to try?Klarion wrote: ↑05 May 2019, 03:16use the help file, all are there already
https://www.autohotkey.com/docs/misc/Styles.htm#Edit
Thanks, just me but I'm not seeing any difference.just me wrote: ↑05 May 2019, 03:48Better?Code: Select all
Gui, Add, Progress, x0 y0 w600 h50 cBlack BackgroundBlack Disabled HwndHPB Control, ExStyle, -0x0200, , ahk_id %HPB%
Code: Select all
X := A_ScreenWidth
Y := A_ScreenHeight
V := Y - (X/10)
TB := floor(X/10)
Gui, Back:New, -Caption +ToolWindow -DPIScale
Gui, Back:Color, c99ff66, black
Gui, Back:add, progress, x0 y0 w%X% h%TB% Background%bc% Disabled HwndHPB
Control, ExStyle, -0x0200, , ahk_id %HPB%
Gui, Back:add, picture, x0 y%V% w%X% h%TB%, bckBlack.png
Gui, Back:show, center w%X% h%Y%, BackPlate
Gui, Back:maximize,
return
esc:: exitapp
Code: Select all
#NoEnv
Gui, Margin, 20, 20
Gui, Color, Black
Gui, Add, Pic, xm ym w100 h100, % "HBITMAP:" . CreateDIB(0xFF0000) ; red
Gui, Add, Pic, ym w100 h100, % "HBITMAP:" . CreateDIB(0x00FF00) ; green
Gui, Add, Pic, xm w100 h100, % "HBITMAP:" . CreateDIB(0x0000FF) ; blue
Gui, Add, Pic, x+m yp w100 h100, % "HBITMAP:" . CreateDIB(0xFFFFFF) ; white
Gui, SHow, , Colors
Return
GuiClose:
ExitApp
; ==================================================================================================================================
; Modified version of a function by SKAN, 01-Apr-2014, autohotkey.com/boards/viewtopic.php?t=3203
; Creates an uni-colored bitmap of 1 * 1 pixels.
; ==================================================================================================================================
CreateDIB(Color) {
VarSetCapacity(BMBITS, 4, 0)
, Numput(Color, BMBITS, "UInt")
, HBM := DllCall("CreateBitmap", "Int", 1, "Int", 1, "UInt", 1, "UInt", 24, "Ptr", 0, "UPtr")
, HBM := DllCall("CopyImage", "Ptr", HBM, "UInt", 0, "Int", 0, "Int", 0, "UInt", 0x2008, "UPtr")
, DllCall("SetBitmapBits", "Ptr", HBM, "UInt", 4, "Ptr", &BMBITS)
Return HBM
}
Users browsing this forum: mikeyww and 139 guests