Diesen Rahmen lasse ich Rot blinken, bis der zurück Button gedrückt wurde, dann wird dieser Progress mit MoveDraw ins Nirwana geschickt bis ich ihn wieder brauche.
Das sieht auch recht gut aus, aber der Rahmen könnte etwas dicker sein. Geht das?
Danke fürs lesen
Mit
Code: Select all
Control ExStyle, -0x20000,, % "ahk_id" HthisListViewAnsichtErweiternProgress ; https://www.autohotkey.com/boards/viewtopic.php?p=279363#p279363 by Ragnar <> progress rahmenlos
Code: Select all
.....
Gui,1: Add, Progress, vthisListViewAnsichtErweiternProgress hwndHthisListViewAnsichtErweiternProgress
GuiControl,1: MoveDraw, thisListViewAnsichtErweiternProgress, % thisX(0) thisY(0) thisW(0) thisH(0) ; default
; GuiControl,1: MoveDraw, thisListViewAnsichtErweiternProgress, % thisX(12.4) thisY(17.9) thisW(9.8) thisH(2.9) ; default
GuiControl,1: hide, thisListViewAnsichtErweiternProgress
GuiControl,1: disable, thisListViewAnsichtErweiternProgress
GuiControl,1: +BackgroundRed, thisListViewAnsichtErweiternProgress
; Control ExStyle, -0x20000,, % "ahk_id" HthisListViewAnsichtErweiternProgress ; https://www.autohotkey.com/boards/viewtopic.php?p=279363#p279363 by Ragnar <> progress rahmenlos
; Control ExStyle, +0x20000,, % "ahk_id" HthisListViewAnsichtErweiternProgress ; test
AnsichErweitern
if MaßNehmen
Gui,1: Add, text , 0x1000 vListViewAnsichErweitern ; Maß nehmen
else
Gui,1:Add, button, vListViewAnsichErweitern Hidden gListViewEinUndAusblenden BackgroundTrans ; 0x200
Gui,1: Font, % thisZoomFactorNormal(9.011) " cBlack "
GuiControl,1: MoveDraw, ListViewAnsichErweitern, % thisX(12.5) thisY(18.0) thisW(9.5) thisH(2.6) ; default
GuiControl,1: Font, ListViewAnsichErweitern
GuiControl,1: , ListViewAnsichErweitern, Ansicht erweitern
GuiControl,1: show, ListViewAnsichErweitern
BlinkenFuerthisListViewAnsichtErweiternProgress:
if thisListViewAnsichtErweiternProgressModus
{
loop
{
GuiControl,1: show, thisListViewAnsichtErweiternProgress
sleep, 500
GuiControl,1: hide, thisListViewAnsichtErweiternProgress
sleep, 500
}
} else {
;msgbox,4096,% a_linenumber,% a_index,.1
if thisListViewAnsichtErweiternProgressModus
settimer, BlinkenFuerthisListViewAnsichtErweiternProgress, -1
;settimer, BlinkenFuerthisListViewAnsichtErweiternProgress, off
}
return
....