Nun, ich dachte erst, weil du ja hier pos und size als int deklariert hast...
Achso! Ja, ich hatte das vorher ohne explizit zu casten, aber dann meckerte der Compiler wegen "int" <> "int32".
EnumDisplayMonitor liefert da wohl ein "int32" zurück, "int" ist aber 64-Bit-Int.
EnumDisplayMonitor liefert da wohl ein "int32" zurück, "int" ist aber 64-Bit-Int.
Hatte ich doch geschrieben...
echo "rect.left = " & $rect.left.type.name
==>> rect.left = LONG
==>> rect.left = LONG
Stiimmt! LONG in C ist ja int32.
Manchmal komme ich da etwas durcheinander mit den Datentypen.
Manchmal komme ich da etwas durcheinander mit den Datentypen.
Nicht nur du... und mit Nim wird es ja noch schlimmer... da kommen ja noch etliche hinzu, von denen ich noch nie gehört habe!
Für AutoIt habe ich ein Script, das mir die Typen von MSDN nach AutoIt konvertiert: _MSDNDataType.au3
Jetzt noch GetMonitorInfo hinzufügen, um rcWork und dwFlags zu bekommen, dann wäre es perfekt...
Um mal auf Post#13 zurückzukommen. Das habe ich mittlerweile auch hinbekommen:
include winim/[inc\winuser]
# Monitor-Objekt definieren (zum speichern der Werte)
type oMonitor = object
hMon: HMONITOR
monitor: RECT
work: RECT
flags: DWORD
pos: (int, int)
size: (int, int)
# Eine Sequenz (var. Array), um die Monitor-Objekte zu speichern
var aDispInfo = newSeq[oMonitor]()
# MONITORINFO-Struktur erstellen
var tMonitorInfo: MONITORINFO
tMonitorInfo.cbSize = DWORD(sizeof(MONITORINFO))
# Callback-Funktion (wird einmal pro angeschlossenen Monitor aufgerufen)
proc myEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
GetMonitorInfoA(hMonitor, tMonitorInfo.addr())
aDispInfo.add(
oMonitor(hMon: hMonitor,
monitor: tMonitorInfo.rcMonitor,
work: tMonitorInfo.rcWork,
flags: tMonitorInfo.dwFlags,
pos: (int(rect.left), int(rect.top)),
size: (int(rect.right - rect.left),
int(rect.bottom - rect.top))
))
return TRUE
# Hiermit werden die Monitordaten geholt
EnumDisplayMonitors(0, nil, myEnumProc, 0)
# Debugausgabe von allen angeschlossenen Monitoren
for i, oDisp in aDispInfo:
echo "Display: " & $i
echo oDispUm mal auf Post#13 zurückzukommen. Das habe ich mittlerweile auch hinbekommen:
Wow, das ging aber schnell... sag mal, schläfst du vor deinem PC? 
Bin begeistert! 
Habe es gerade getestet... es geht auch ohne Konvertierung nach int, wenn du bei type int32 nimmst:
include winim/[inc\winuser]
# Monitor-Objekt definieren (zum speichern der Werte)
type oMonitor = object
hMon: HMONITOR
monitor: RECT
work: RECT
flags: DWORD
pos: (int32, int32)
size: (int32, int32)
# Eine Sequenz (var. Array), um die Monitor-Objekte zu speichern
var aDispInfo = newSeq[oMonitor]()
# MONITORINFO-Struktur erstellen
var tMonitorInfo: MONITORINFO
tMonitorInfo.cbSize = DWORD(sizeof(MONITORINFO))
# Callback-Funktion (wird einmal pro angeschlossenen Monitor aufgerufen)
proc myEnumProc(hMonitor: HMONITOR,hDC: HDC,rect: LPRECT,lparam: LPARAM): WINBOOL {.stdcall.} =
GetMonitorInfoA(hMonitor, tMonitorInfo.addr())
aDispInfo.add(
oMonitor(hMon: hMonitor,
monitor: tMonitorInfo.rcMonitor,
work: tMonitorInfo.rcWork,
flags: tMonitorInfo.dwFlags,
pos: (rect.left, rect.top),
size: ((rect.right - rect.left),
(rect.bottom - rect.top))
))
return TRUE
# Hiermit werden die Monitordaten geholt
EnumDisplayMonitors(0, nil, myEnumProc, 0)
# Debugausgabe von allen angeschlossenen Monitoren
for i, oDisp in aDispInfo:
echo "Display: " & $i
echo oDispHabe es gerade getestet... es geht auch ohne Konvertierung nach int, wenn du bei type int32 nimmst:
Ja, das geht, aber dann meckert wNim, weil dort bei pos und size die INTs 64-Bits haben.
Und da ich die Funktion zum positionieren von einem wNim-Frame brauche, habe ich gleich nach INT konvertiert.
Ja, das geht, aber dann meckert wNim, weil dort bei pos und size die INTs 64-Bits haben.
Das ist aber lustig... denn 64-Bits für pos und size bringen doch keinen Mehrwert, weil dafür 32-Bit völlig ausreichen, oder etwa nicht?