Breite Fensterrand

**BugFix**

Wenn mit absoluten Koordinaten gearbeitet wird, und ich die Position über einem Fenster prüfen muss, brauche ich zwingend die Randbreiten des Fensters, da das Fenster auf dem Monitor dargestellt wird mit:
- gewählte X-Koordinate + Randbreite Seite (+ gewählte Fensterbreite + Randbreite Seite)
- gewählte Y-Koordinate + Randbreite Oben (+ gewählte Fensterhöhe + Randbreite Unten = Seite)

Diese Werte sind bei unterschiedlichen Windows-Styles auch unterschiedlich. Mit _WinAPI_GetSystemMetrics kann man alle Einzelkomponenten der Randbreite abfragen. Ich hab das mal in einen Aufruf gepackt.
Man übergibt zwei Variablen für oberen Rand und Seitenrand, diese werden dann beim Aufruf befüllt.

Spoiler anzeigen

[autoit]

$hGui = GUICreate('Test')
GUICtrlCreateLabel('Rand oben:', 10, 23, 60, 17)
$inTop = GUICtrlCreateInput('', 70, 20, 40, 20)
GUICtrlCreateLabel('Rand Seite:', 10, 53, 60, 17)
$inSide = GUICtrlCreateInput('', 70, 50, 40, 20)
$bt = GUICtrlCreateButton('Auslesen', 10, 100, 60, 20)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Local $iTop, $iSide

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $bt
_SystemGetWindowBorder($iTop, $iSide)
GUICtrlSetData($inTop, $iTop)
GUICtrlSetData($inSide, $iSide)
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _SystemGetWindowBorder(ByRef $_iTopBorder, ByRef $_iSideBorder)
; == by BugFix
Local Const $SM_CYCAPTION = 4, $SM_CYEDGE = 46, $SM_CYBORDER = 6, $SM_CXBORDER = 5, $SM_CXEDGE = 45
Local $aMetrics[5][2] = [[$SM_CYCAPTION], [$SM_CYEDGE], [$SM_CYBORDER], [$SM_CXBORDER], [$SM_CXEDGE]]
Local $dll = DllOpen("user32.dll"), $aRet
For $i = 0 To 4
$aRet = DllCall($dll, "int", "GetSystemMetrics", "int", $aMetrics[$i][0])
If IsArray($aRet) Then $aMetrics[$i][1] = $aRet[0]
Next
DllClose($dll)
$_iTopBorder = $aMetrics[0][1] + $aMetrics[1][1] + $aMetrics[2][1]
$_iSideBorder = $aMetrics[3][1] + $aMetrics[4][1]
EndFunc

[/autoit]

TheShadowAE

Ich hab nicht ganz verstanden was du damit bezwecken willst, aber wenn ichs richtig verstanden hab, helfen diese Funktionen:

http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx
http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx
http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx

name22

Coole Funktion BugFix. Das kann ich für mein nächstes Script gebrauchen .

**BugFix**

Zitat von TheShadowAE

Ich hab nicht ganz verstanden was du damit bezwecken willst, aber wenn ichs richtig verstanden hab, helfen diese Funktionen:

Man könnte natürlich auch aus AdjustWindowRect und ClientToScreen die Ränder herausrechnen. Aber das ist mit Systemmetrics dann doch etwas simpler umzusetzen.

Was ich bezwecken will?
Bsp.:
- befindet sich Maus über Fensterkoordinate (realativ) x = 10, y = 20 ? (ich frage Mausposition aus einer Callbackfunktion ab, in der ich nur absolute Koordinaten erhalte)
- FensterX = 100, FensterY = 200
- Punkt x, y absolut = ( x + Fensterpos. X + Randbreite Fenster Seite ), ( y + Fensterpos. Y + Randbreite Fenster oben )
Die absoluten Koordinaten sind dann z.B. x: 100 + 10 + 3 (Rand), y: 200 + 20 + 25 (Rand)

TheShadowAE

Also prüfen ob die Maus im Client des Windows ist?
ScreenToClient < 0 heißt Maus auf Rand oder garnicht auf dem Fenster und > Clientsize heißt auf der Seite auf dem Rand oder ganz woanders
rect=ScreenToClient(Mouserect)
rect.x=10 AND rect.y=20 wäre das if

Krabat

ich hab auch so eine ähnliche funktion^^

Spoiler anzeigen

[autoit]

; 0 = Position von links (GUI)
; 1 = Position von oben (GUI)
; 2 = Position von links (Client berreich)
; 3 = Position von oben (Client berreich)
; 4 = Client berreich Width
; 5 = Clinet berreich Height
; 6 = Border dicke
; 7 = Titelleiste dicke
; 8 = gesammte GUI WIdth
; 9 = gesammte GUI Height
Func _WinGetClientPos($hTitle, $hText = '')
Local $aWPos, $aCSize, $iBorder, $iTitle
$aWPos = WinGetPos($hTitle, $hText)
$aCSize = WinGetClientSize($hTitle, $hText)
$iBorder = ($aWPos[2] - $aCSize[0]) / 2
$iTitle = ($aWPos[3] - $aCSize[1]) - $iBorder
Local $aOut[10] = [$aWPos[0], $aWPos[1], $aWPos[0] + $iBorder, $aWPos[1] + $iTitle, $aCSize[0], $aCSize[1], $iBorder, $iTitle, $aWPos[2], $aWPos[3]]
Return $aOut
EndFunc

[/autoit] [autoit][/autoit] [autoit]

$arr = _WinGetClientPos( WinGetHandle("") )
_ArrayDisplay($arr)

[/autoit]

hab die kurz umgebaut, damit die alles returnt^^
dadurch werden die elemente auch in komischer reihenfolge returnt^^

mfg

**BugFix**

Zitat von TheShadowAE

Also prüfen ob die Maus im Client des Windows ist?

Nein, das ist zu allgemein. Prüfen ob die Maus an einer bestimmten Position im Client ist (Pixelgenau), aber es stehen nur absolute Mauskoordinaten zur Verfügung.

**Raupi**

Ich glaube es haben sich schon einige an einer Funktion zur Rahmenermittlung versucht.
Hier mal meine Funktion, die ich schon seit 2 Jahren benutze.

[autoit]

Func _GUI_GetWinBorders($hwnd)
; 2010 by Raupi
Local $aClient = WinGetClientSize($hwnd)
Local $aWinpos = WinGetPos($hwnd)
Local $aReturn[2]
$aReturn[0] = ($aWinpos[2] - $aClient[0]) / 2 ; Rahmenbreite
$aReturn[1] = $aWinpos[3] - $aClient[1] - $aReturn[0] ;Titelleistenhöhe
Return $aReturn
EndFunc

[/autoit]

TheShadowAE

rect=ScreenToClient(Mouserect)
rect.x=10 AND rect.y=20 wäre das if

das kann auch genaue Pixel imClient prüfen

Für rect und mouserect muss man "int,int" als DllStruct benutzen