Aber an welcher STelle sagt mein Script denn stelle den TextHintergrund, wenn auch nur für ein Flackern, auf schwarz, ich finde nichts.
lg und schöne Woche noch
Aber an welcher STelle sagt mein Script denn stelle den TextHintergrund, wenn auch nur für ein Flackern, auf schwarz, ich finde nichts.
lg und schöne Woche noch
WIe gesagt, das niedrige Intervall hatte ich nur um es zu verdeutlichen, der schwarze Flackerbalken ist aber in jedem Falle vorhanden, auch bei einem MinutenIntervall. Mich stört es im Prinzip nicht, aber erfahrungsgemäß ist das das erste was den Leuten unangenehm auffält, oft noch vor funktionellen Fehlern. Aber ich gehe halt mal davon aus dass das noch ein Bug von Autoit ist und hoffe mal darauf dass es in der nächsten Version behoben sein wird. Viellen Dank noch mal füpr den Input, werde die Vorschläge bei weiteren Scripten gerne berücksichtigen
Vielen Dank und schöne Restwoche noch
Hallo,
ja ich beziehe mich ja auch auf diesen Post, zumidest diese Zeile:
If Round($iFreeSpace, 1) <> Round($iFree, 1) Then ; Eine Stelle hinter dem Komma vergleichen
ist weder in deinem Vorschlag, noch in meinem Post, das hatte mich nur stutzig gemacht;)
Übrigens noch mal zu Deinem freundlcihen Umbau des Scripts, was ist in dieser Form denn nun der konkrete Vorteil, bzw. was hätte ich für Macken in der Ursprungsform erwarten dürfen? Also dass mit meinem Problem lassen wir mal aussen vor, das dieses Problem ja dadurch auch nicht behoben wurde. Will ja schliesslich auch etwas lernen;)
lg und schönen Sonntag noch
HI,
also nun bin ich ein bisl verwirrt, welchje Zeilen muss ich denn nun ersetzen,
If $iFreeSpace <> $iFree Then ; Zwei Stellen hinter dem Komma vergleichen If Int($iFre
;~ If Round($iFreeSpace, 1) <> Round($iFree, 1) Then ; Eine Stelle hinter dem Komma ve
Diese beiden Zeilen sind in dem Script nicht vorhanden, ich denke wir reden von 2 verschiednen Scripten
lg und schönes WE noch
okay, danke Dir werde ich ausprobieren
lg und schönen Abend noch
ich hatte Deinen Ansatz auch probiert Bit, ebenfalls das selbe. Ich hatte ja gesagt, die kurze Zeit war nur um es zu verdeutlichen, wenn ich die Zeit höher stelle ist der Effekt aber auch zu sehen. Ist jetzt nicht direkt ein Funktionsfehler, aber schaut halt blöd aus. Ich habe keinen schwatzen Hintegrund für das Lebel gesetzt.
lg
hi und danke erstmal,
stimmt das mit dem weglassen war sehr effektiv. blinkt nicht mehr wenn Bedingung nicht erfüllt ist.
...
Func _Testspace()
global $fslabel = ""
Global $free = DriveSpaceFree($drive) / 1024
Local $rFree = Round($free, 2)
if $rfree < $SW Then
GUICtrlSetData($LabelSpace, "freier Speicher auf SystemDrive wird knapp!: ( " & $rfree & "GB)")
else
;GUICtrlSetData($LabelSpace, "")
endif
EndFunc
Alles anzeigen
Dafür is der schwarze Balken wieder da, wenn die BEdingung erfült ist und er das Label zeigen soll.
lgund schönen Abend
okidoki, nicht in die Haare kriegen hier in meinem Post lach,, ok dann weiss ich erst mal Bescheid.
Mir ist noch ein ähnlicher Effekt aufgefallen, deswegen zeig ich dass gleich mal hier, denke passt hier gut rein. Bei einer Drive Abfrage soll nur ein Text erscheinen, wenn der Schwellwert unterschritten ist. Ich habe die Set Zeile für den Fall, das dies nicht der Fall ist transparent geschaltet, trotzdem kommt beim Aufruf der Adlib Funktion immer ein störender schwarzer Balken. Dieser Effekt entsteht wiederum nur mit einem Hintegrund. Leider konnte ich diesen Effekt mit der obigen Methode nicht beseitigen. Die AdlibRegister Zeit ist hier sehr kurz eingestellt, nur um diesen Effekt zu verdeutlichen.
; includes ---------------------------------------------------------------------
#include-once
#include "GUIBkImage.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
FileInstall("C:\Users\Riegert\Pictures\TufaSunset-1-2.bmp", "C:\Windows\Temp\hg.bmp", 1)
; opt --------------------------------------------------------------------------
Opt('MustDeclareVars', 1)
;Opt("TrayAutoPause", 0)
;declaration ------------------------------------------------------------------
;GUI Variables
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
Global $BG
Global $SW = 20
global $var_system_drive = StringLeft(@WindowsDir, 2); SystemDrive auslesen
Global Const $drive = StringLeft( $var_system_drive, 3)
global $iFreeSpace = ""
global $fslabel = ""
global $LabelSpace, $labelTemp, $temp
;AdLibRegistering--------------------------------------------------------------------------------------------------------------------------------------------
AdlibRegister('_Testspace', 100)
; processing ---------------------------------------------------------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Integrator 4 Release 076", 840, 625)
_createLabels()
;GUICtrlSetImage($BG, 'C:\Windows\Temp\hg.bmp')
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;Main Logic-------------------------------------------------------------------------------------------------------------------------------------------------------
While True
CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
local $gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
GUIDelete($hGui)
AdlibUnRegister('_Testspace')
Exit
EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _createLabels()
GUICtrlSetState($hgui, $GUI_DISABLE)
$labelSpace = GUICtrlCreateLabel($FSlabel, 10, 530, 350, 20)
GUICtrlSetColor(-1, 0xF00404) ; red
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 100) ; bold
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _Testspace()
global $fslabel = ""
Global $free = DriveSpaceFree($drive) / 1024
Local $rFree = Round($free, 2)
if $rfree < $SW Then
GUICtrlSetData($LabelSpace, "freier Speicher auf SystemDrive wird knapp!: ( " & $rfree & "GB)")
else
GUICtrlSetData($LabelSpace, "")
endif
EndFunc
;--------------------------------------------------------------------------------------------------------------------------------------------------------------------
;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
$BG = GUICtrlCreatePic('C:\Windows\Temp\hg.bmp', 0, 25, 920, 660)
GUICtrlCreatePic ( $BG, 0, 25, 920, 660 )
;GUICtrlSetState($hGUI, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor($GUIBKCOLOR, $GUI)
_GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
$RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
$Title &= " "
Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
GUICtrlSetBkColor($hTitle, -2)
Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
GUICtrlSetState($Graphic, $Gui_DISABLE)
If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
Return $GUI
EndFunc
Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
Local $cGui = GUIGetCursorInfo($hGui)
If Not IsArray($cGui) Then
Return 0
EndIf
If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
Dim $pos, $ret, $ret2
$pos = WinGetPos($h_win)
$ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
If $ret[0] Then
$ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func GradientFill($im, $x1, $y1, $width, $height, $left_color, $right_color)
Local $color0=($left_color[0]-$right_color[0])/$height, $color1=($left_color[1]-$right_color[1])/$height
local $color2=($left_color[2]-$right_color[2])/$height
For $Y=0 to $height-1
local $red=$left_color[0]-floor($Y*$color0)
local $green=$left_color[1]-floor($Y*$color1)
local $blue=$left_color[2]-floor($Y*$color2)
local $col = Dec(Hex($blue,2) & Hex($green,2) & Hex($red,2))
GUICtrlSetGraphic($im,$GUI_GR_COLOR, $col)
GUICtrlSetGraphic($im,$GUI_GR_MOVE,0,$Y)
GUICtrlSetGraphic($im,$GUI_GR_LINE,$width,$Y)
Next
GUICtrlSetGraphic($im,$GUI_GR_COLOR, 0x000000)
GUICtrlSetGraphic($im,$GUI_GR_MOVE,0,$height)
GUICtrlSetGraphic($im,$GUI_GR_LINE,$width,$height)
GUICtrlSetGraphic($im,$GUI_GR_REFRESH)
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Alles anzeigen
okidoki, dann fehlte das GUICtrlCreatePic, hatte mich schon gwundert. Jetzt schauts sauber aus.
Dann bedanke ich mich noch mal recht herzlich bei euch
lg und schöne Feiertage noch
Hallo,
das lauffähige Beispiel hatte ich doch gepostet, ich habe es doch auch entsprechend den Vorschlägen von Mombass gepostet! Da er ja gesagt hatte, er konnte das Problem nachvollziehen, kann ich nun Deine Einlassung nicht ganz nachvollziehen. Soll ich den Inhalt von den UDFs posten, meinst Du das? Oder das Hintergrundbild? Ich hatte es mit meheren Bildern und Formaten probiert,
lg
So, erst mal recht lieben Dank Moombas für die tattkräfrige Unterstützung. Ich habe deine Vorschläge entsprechend eiingarbeitet, er bemeckert aber aus irgend einem Grunde eine angeblich fehlende Klammer,, wahrscheinlich bin blind, daber sewhe da keine Klammer die fehlt. Das ganze schaut jetzt so aus:
#include-once
#include "GUIBkImage.au3"
#include "Services.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <Constants.au3>
#include <FontConstants.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIGdiInternals.au3>
#include <WinAPIHObj.au3>
#include <WinAPISysInternals.au3>
#include <ComboConstants.au3>
FileInstall("C:\Users\user\Pictures\scr09082022-084252.bmp", "C:\Windows\Temp\hg.bmp", 1)
; opt --------------------------------------------------------------------------
Opt('MustDeclareVars', 1)
;declaration ------------------------------------------------------------------
;GUI Variables
Global $BG
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
; processing ---------------------------------------------------------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Integrator 4 Release 076", 840, 625)
;FunctionCalls---------------------------------------------------------------------------------------------------------------------------------------------------
_createButtons()
;_createLabels()
GUICtrlSetImage($BG, 'C:\Windows\Temp\hg.bmp')
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------------------------------------
While True
CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
local $gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
GUIDelete($hGui)
Case $Combo1 ; Combo fires <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
GUICtrlSetState($btnStart, $GUI_ENABLE) ; Button enabled <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Case $btnStart
IF GUICtrlRead($combo1) = "key one" Then _fu1()
IF GUICtrlRead($combo1) = "key two" Then _fu2()
EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;BUTTONS----------------------------------------------------------------------------------------------------------------------------------------------------------
Func _createButtons()
GUICtrlSetState($hgui, $GUI_DISABLE)
global $combo1 = GUICtrlCreateCombo ("Scripte", 300, 557, 150, 120)
global $btnStart = GUICtrlCreateButton("🟥", 450, 557, 23, 23)
Local $aTest[5][4] = [[4, 0], ["Key One", "V1"], ["Key Two", "V2"], ["Key three", "V3"], ["Key four", "V4"]]
Local $sTest = ""
;Inhalt Combobox
For $i = 1 To $aTest[0][0]
$sTest &= "|" & $aTest[$i][0]
Next
GUICtrlSetData($Combo1, $sTest)
EndFunc
;----------------------------------------------------------------------------------------------------------------------------------------------------------------
;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
$BG = ('C:\Windows\Temp\hg.bmp', 0, 25, 920, 660)
GUICtrlCreatePic ($BG)
;GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor($GUIBKCOLOR, $GUI)
_GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
$RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
$Title &= " "
Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
GUICtrlSetBkColor($hTitle, -2)
Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
GUICtrlSetState($Graphic, $Gui_DISABLE)
If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
Return $GUI
EndFunc
Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
Local $cGui = GUIGetCursorInfo($hGui)
If Not IsArray($cGui) Then
Return 0
EndIf
If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
Dim $pos, $ret, $ret2
$pos = WinGetPos($h_win)
$ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
If $ret[0] Then
$ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc
Alles anzeigen
lg und schönen Sonntag noch
Danke noch mal, also ich habs jetzt in 4 versionen gestestet, einmal direkt danach mit -1 und ein mal mit dem Handl $hGui jeweils bei der Button Definition und hinter dem Bildaufruf. Es bleibt immer der selbe Effekt.
; includes ---------------------------------------------------------------------
#include-once
#include "GUIBkImage.au3"
#include "Services.au3"
#include <GDIPlus.au3>
#include <GuiCtrlSetOnHover_UDF.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WinApi.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <StringConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <date.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <Constants.au3>
#include <FontConstants.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIGdiInternals.au3>
#include <WinAPIHObj.au3>
#include <WinAPISysInternals.au3>
#include <ComboConstants.au3>
FileInstall("C:\Users\user\Pictures\scr09082022-084252.bmp", "C:\Windows\Temp\hg.bmp", 1)
; opt --------------------------------------------------------------------------
Opt('MustDeclareVars', 1)
;declaration ------------------------------------------------------------------
;GUI Variables
Global $ActiveCheck, $result
Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
Global $RBOX_EVENT_CLOSE = 1
Global $ROUNDES = 20, $LastHwnd = 0
Global $LastHwnd
Global $GUIBKCOLOR = 0x738599
Global $SubBack = 0xEAF0E2
; processing ---------------------------------------------------------------------------------------------------------------------------------------------------
Global $hGui = RBoxCreate("Integrator 4 Release 076", 840, 625)
;FunctionCalls---------------------------------------------------------------------------------------------------------------------------------------------------
_createButtons()
;_createLabels()
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------------------------------------
While True
CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
local $gMsg = GUIGetMsg()
Switch $gMsg
Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
GUIDelete($hGui)
Case $Combo1 ; Combo fires <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
GUICtrlSetState($btnStart, $GUI_ENABLE) ; Button enabled <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Case $btnStart
IF GUICtrlRead($combo1) = "key one" Then _fu1()
IF GUICtrlRead($combo1) = "key two" Then _fu2()
EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;BUTTONS----------------------------------------------------------------------------------------------------------------------------------------------------------
Func _createButtons()
GUICtrlSetState($hgui, $GUI_DISABLE)
global $combo1 = GUICtrlCreateCombo ("Scripte", 300, 557, 150, 120)
global $btnStart = GUICtrlCreateButton("🟥", 450, 557, 23, 23)
Local $aTest[5][4] = [[4, 0], ["Key One", "V1"], ["Key Two", "V2"], ["Key three", "V3"], ["Key four", "V4"]]
Local $sTest = ""
;Inhalt Combobox
For $i = 1 To $aTest[0][0]
$sTest &= "|" & $aTest[$i][0]
Next
GUICtrlSetData($Combo1, $sTest)
EndFunc
;----------------------------------------------------------------------------------------------------------------------------------------------------------------
;GUI STYLE--------------------------------------------------------------------------------------------------------------------------------------------------------
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
GUICtrlCreatePic('C:\Windows\Temp\hg.bmp', 0, 25, 920, 660)
;GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor($GUIBKCOLOR, $GUI)
_GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
$RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
$Title &= " "
Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
GUICtrlSetBkColor($hTitle, -2)
Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
GUICtrlSetState($Graphic, $Gui_DISABLE)
If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
Return $GUI
EndFunc
Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
Local $cGui = GUIGetCursorInfo($hGui)
If Not IsArray($cGui) Then
Return 0
EndIf
If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
Dim $pos, $ret, $ret2
$pos = WinGetPos($h_win)
$ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
If $ret[0] Then
$ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
If $ret2[0] Then
Return 1
Else
Return 0
EndIf
Else
Return 0
EndIf
EndFunc
Alles anzeigen
Einen schönen Tag noch
lg
jo, danke Dir, gelesen hatte ich das auch schon, aber es funktioniert bloss nicht
Func _createButtons()
GUICtrlSetState(-1, $GUI_DISABLE)
global $combo1 = GUICtrlCreateCombo ("Scripte", 300, 557, 150, 120)
global $btnStart = GUICtrlCreateButton("🟥", 450, 557, 23, 23)
Local $aTest[5][4] = [[4, 0], ["Key One", "V1"], ["Key Two", "V2"], ["Key three", "V3"], ["Key four", "V4"]]
Local $sTest = ""
;Inhalt Combobox
For $i = 1 To $aTest[0][0]
$sTest &= "|" & $aTest[$i][0]
Next
GUICtrlSetData($Combo1, $sTest)
EndFunc
Alles anzeigen
Hallo allerseits,
ich habe mal eine kleine Frage. Mir ist jetzt schon des öfteren aufgefallen, dass es bei der Verwendung von Hintergrundbildern, die via Fileinstall installiert werden zu Bildfehlern kommt. Dass sieht dann zB so aus, dass bspw. bei comboboxen zunächst nur das innere weisse dargestellt wird, machchmal ist sogar eine vertikale Einschnürung der Box zu sehen, auch der Arrow ist nicht da. Erst wenn mann mit der Maus über das Element streift, ist die Box dann vollständig zu sehen. Dass schaut natürlich ziemlich blöd aus, kennt jemand den Effekt? Ich habe es mit jpg und nmit bmp versucht
lg und schöne Restwoche noch
okidoki, ich muss leider erst mal warten bis der Kollege mit dem zu überwachenden Tool wieder im Hause ist, dann werde ich Eure Vorschläge mal durchtesten, bis dahin
vielen Dank erstmal für Euren Input
lg und eine schöne Woche noch
Du meinst so:
;MouseMove(23, -10, 10)
MouseClick(23, -10, 1)
Funzt leider nicht
Apropos der von dir genanten UDF, was heisst denn:
you can automate all applications/programs that support ui automation and/or accesibility api from microsoft
Die Applikation die beobachtet werden soll ist ziemlich alt, vielleicht sogar nicht mal dieses Jahrtausend
okidoki, danke, werde ich mir mal anschauen, ich habe festgestellt, dass der dritte Parameter der ja von 0 bis 10 gehen soll und die Geschwindigkeit steuern soll, keinen wirklichen Einfluss hat, egal ob 0 oder 10, ist immer gleich schnell. Ist das normal?
Das klingt ja ert mal schon sehr gut, hatte ich doch im Hinteropf, dass AI da was parat hat, dann scheint mein Projekt ja noch nicht verloren. Werde ich morgen mal mit experimentieren. Dumme Frage noch mal, gibt es bei MouseMove eigentlich auch ne Aert HIDE Modus, also zum unsichtbar machen des Pfeils?
lg und Danke noch mal
SO, hallo erstmal,
ich habe mal eine allgemeine Frage. Bezüglich meines Screenshot Projektes wurde mir nun zur Kenntniss gebracht, dass nicht beide Fenster gleichzeitig verfügbar gemacht werden können. Da das Programm, welchges observiert werden soll schon betagter ist , und über keinerlei Hotkey Steuerung verfügt, muss über ein grosses Menu mit grafischen Buttons erst 2 mal ein Klick ausgeführt werden um in die entsprechenden Fenster zu gelangen.
Nun die Frage, würde sich so etwas auch in Autoit simulieren lassen, vielleicht hab Ihr ja schon mal so etwas gesehen oder habt Beispiele dazu, ich denke mal AutoIt kann so etwas.
lg und Danke für entsprechenden Input
jo manchmal hab ich sone Anwandlungen lach