- Offizieller Beitrag
Hallo
Die Funktion _GuiCtrlCreatePointrect (Ich weiß nicht wie ich sie sonst nennen sollte^^) erstellt ein Punktierten rahmen, so wie es auch bei z.B. URL Links ist. Die Funktion ist, mal wider..., nicht die wahre Meisterleistung, aber ich finde man brauch sie um ein wirklichen echten Link darzustellen
Hier das Skript:
Spoiler anzeigen
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$hMaingui = GUICreate("", 40, 35, -1, -1, -1, $WS_EX_TOOLWINDOW)
$lab = GUICtrlCreateLabel("Test", 10, 10, 20, 14)
GUICtrlSetColor(-1, 0x0000cc)
GUICtrlSetFont(-1, Default, Default, 4)
GUICtrlSetCursor(-1, 0)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $lab
_GuiCtrlCreatePointrect(9, 9, 21, 15)
GUICtrlSetColor($lab, 0x551A8B)
RunWait('"' & @ComSpec & '" /c start https://autoit.de/www.google.de', '', @SW_HIDE)
EndSwitch
WEnd
;===============================================================================
;
; Function Name: _GuiCtrlCreatePointrect
; Description:: Erstellt ein Punktierten Rahmen (z.B. für Links)
; Parameter(s): $iLeft, $iTop, $iWidth = 50, $iHeigth = 50, $iStyle = -1: Selbsterklärend, gleicher aufruf wie auch beri GuiCtrlCreateGraphic!
; $iColor = 0: Die Farbe des Rahmens (Standart Schwarz)
; Requirement(s): -
; Return Value(s):Die Control ID
; Author(s): GtaSpider
;
;===============================================================================
;
Func _GuiCtrlCreatePointrect($iLeft, $iTop, $iWidth = 50, $iHeigth = 50, $iStyle = -1,$iColor = 0)
Local $hGraphic, $i = 0, $xy = 0
$hGraphic = GUICtrlCreateGraphic($iLeft, $iTop, $iWidth, $iHeigth, $iStyle)
GUICtrlSetState($hGraphic, $GUI_DISABLE + $GUI_ONTOP)
While 1
$i += 1
Switch $i
Case 1
$x = 0
$xy = 0
Case 2
$x = $iWidth
$xy = 0
Case 3
$y = 0
$xy = 1
Case 4
$y = $iHeigth
$xy = 1
Case Else
ExitLoop
EndSwitch
GUICtrlSetGraphic($hGraphic, $GUI_GR_COLOR, $iColor)
If Not $xy Then
For $y = 0 To $iHeigth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
Else
For $x = 0 To $iWidth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
EndIf
WEnd
GUICtrlSetGraphic($hGraphic, $GUI_GR_REFRESH)
Return $hGraphic
EndFunc ;==>_GuiCtrlCreatePointrect
Mfg Spider