XProfan

Def Capture de sortie(0) !"User32",Capture de sortie "
SetTrueColor 1
Windowstyle 82
window 0,0 - 0,0
var hwnd&=%hwnd
var hwndX%=0
var hwndY%=0
SetWindowPos hwnd&=hwndX%,hwndY% - 1120,800;0
USEP 0,0,rgb(0,0,0)
Rectangle 0,0-1120,800
USEP 2,0,rgb(0,0,0)
Line 0,10-40,10
Line 0,20-40,20
Line 0,30-40,30
Line 0,40-40,40
Line 0,50-40,50
Rectangle 60,60-1060,740
DrawText 140,360,"Dieses la fenêtre chez linker gedrücker Bouton de la souris Déplacer."
DrawText 140,460,"Dieses la fenêtre avec bouton 'Esc' ou bien 'vieux' plus 'F4' schließen."
SubClass hwnd&,1

tandis que 1

    WaitInput
    cas %clé=27:pause

Wend

SubClass hwnd&,0
end

SubClassProc

    Si %message = $201

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
        Capture de sortie()
        UseCursor 0

    EndIf

ENDPROC

 {$cleq}
'URL: https://xprofan.com/intl/de/forum/hauptfenster-verschieben/
 {$compiler c:\xprofan11}
 {$runtime c:\xprofan11}
#include c:\dev\mouse.inc
SetTrueColor 1
Windowstyle 82
window 0,0 - 0,0
var hwnd&=%hwnd
var hwndX%=0
var hwndY%=0
SetWindowPos hwnd&=hwndX%,hwndY% - 1120,800;0
UsePen 0,0,rgb(0,0,0)
Rectangle 0,0-1120,800
UsePen 2,0,rgb(0,0,0)
Line 0,10-40,10
Line 0,20-40,20
Line 0,30-40,30
Line 0,40-40,40
Line 0,50-40,50
Rectangle 60,60-1060,740
DrawText 140,360,"Dieses Fenster bei linker gedrücker Maustaste verschieben."
DrawText 140,460,"Dieses Fenster mit Taste 'Esc' oder 'Alt' plus 'F4' schließen."
userMessages wm_close,wm_lButtonDown

while 1

    WaitInput
    case %key=27:break

    select %uMessage

        caseof wm_close : break

        caseof wm_lButtonDown : hWnd.movebyMouse()

    endSelect

wend

end

proc hWnd.movebyMouse

    mouse.getPos()
    var omx&=mouse.x&
    var omy&=mouse.y&
    var wix&=%winLeft
    var wiy&=%winTop
    var xx&=%winRight-wix&
    var yy&=%winBottom-wiy&

    while 1

        casenot lm_() : break
        mouse.getPos()
        setWindowPos %hWnd=(mouse.x&+wix&-omx&),(mouse.y&+wiy&-omy&) - xx&,yy&;0

    wend

./../funktionsreferenzen/XProfan/endproc/'>endProc

...
Capture de sortie()
UseCursor 0
settext %hwnd,str$(%winTop)+" ppp "+str$(%cycaption)

proc moveWin

    si getfocus(%Hwnd)

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)

    endif

    UseCursor 0
    Capture de sortie()

endproc

cls
struct repairedNONCLIENTMETRICS=cbSize&,iBorderWidth&,iScrollWidth&,iScrollHeight&,iCaptionWidth&,iCaptionHeight&,lfCaptionFont#(60),iSMCaptionWidth&,iSMCaptionHeight&,lfSMCaptionFont#(60),iMenuWidth&,iMenuHeight&,lfMenuFont#(60),lfStatusFont#(60),lfMessageFont#(60)
mem nonClientMetricsStructure=repairedNONCLIENTMETRICS
long nonClientMetricsStructure#,0=sizeof(nonClientMetricsStructure)
systemParametersInfo(SPI_GETNONCLIENTMETRICS,sizeof(nonClientMetricsStructure),nonClientMetricsStructure,0)
imprimer "Zuletzt:",long(nonClientMetricsStructure,4)+long(nonClientMetricsStructure,20)
long nonClientMetricsStructure#,20=5
systemParametersInfo(SPI_SETNONCLIENTMETRICS,sizeof(nonClientMetricsStructure),nonClientMetricsStructure,0)
imprimer systemParametersInfo(SPI_GETNONCLIENTMETRICS,sizeof(nonClientMetricsStructure),nonClientMetricsStructure,0)
imprimer "Nun:",long(nonClientMetricsStructure,4)+long(nonClientMetricsStructure,20)
waitinput
end

long nonClientMetricsStructure#,20=5