| |
| |
|
| - Página 1 - |
|
Thomas
Freier | Im Principio sí kein Problema, sin embargo kann Yo después de oben sólo en ca. 20px mover.
Falscher Script oder physikalische Grenze?
Def Captura de lanzamiento(0) !"USER32","ReleaseCapture"
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)
Rectángulo 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
Rectángulo 60,60-1060,740
DrawText 140,360,"Dieses Ventana en linker gedrücker Botón del ratón mover."
DrawText 140,460,"Dieses Ventana con Taste 'Esc' oder 'Alt' plus 'F4' schließen."
SubClass hwnd&,1
mientras que 1
WaitInput
caso %key=27:romper
wend
SubClass hwnd&,0
end
SubClassProc
If %mensaje = $201
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
Captura de lanzamiento()
UseCursor 0
EndIf
ENDPROC
|
|
| |
| |
| |
|
|
| |
| |
| - Página 1 - |
|
Thomas
Freier | | Exactamente IF. Aber merkwürdiger Weise no en y = 0, pero en ca. y = -20, si y > -20 ser debería. |
|
| |
| |
| |
|
|
 | Stimmt...
Espectáculos en me -25 ppp -26.
Auch si 1px Diff. ists vlt. el Titelzeilenhöhe - stell vlt. veces Su Titelzeilenhöhe en 50 para Test. |
|
| |
| |
| |
|
|
Dieter
Zornow | En me gehts auch, uno kanns aber auch simplemente con sendmessage hacer.
|
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 04.12.2010 ▲ |
|
| |
|
|
Thomas
Freier | Ist wohl una Problema bajo XP SP2 y el kleine Problema con el Ratón.inc es por el Einsatz de X11 a beheben.
Yo find aber nichts, a Titelzeilenhöhe, porque el Es el Grenze, vorzugeben. |
|
| |
| |
| |
|
|
| Schau veces el systemParametersInfo-API: [...]  y como vlt. nonClientMetrics: [...] |
|
| |
| |
| |
|
|
| Argh - el funktioniert sí wirklich aber "achtung" kann Yo como sólo sagen:
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)
imprimir "Zuletzt:",long(nonClientMetricsStructure,4)+long(nonClientMetricsStructure,20)
long nonClientMetricsStructure#,20=5
systemParametersInfo(SPI_SETNONCLIENTMETRICS,sizeof(nonClientMetricsStructure),nonClientMetricsStructure,0)
imprimir systemParametersInfo(SPI_GETNONCLIENTMETRICS,sizeof(nonClientMetricsStructure),nonClientMetricsStructure,0)
imprimir "Nun:",long(nonClientMetricsStructure,4)+long(nonClientMetricsStructure,20)
waitinput
end
|
|
| |
| |
| |
|
|
Thomas
Freier | Nun, ACHTUNG dejó que su falta, sehe Yo en el Moment todavía no "hörere Titelzeile" beim %hwnd? Sombrero me ohnehin, Yo hätt's me sí denken puede, dass el sólo XPSE se ejecuta, algunos zusätzliche graue Haare gekostet. |
|
| |
| |
| |
|
|
| Es sólo viel más rápido lo con xpse hinzuschreiben - kompliziert umbauen para no-xpse-verwendung kann De hecho, es la el Valor darauf legt oder mich simplemente fragen si ego umbauen se/muss.
Yo para media Teil schreib jedenfalls ungern a algo 5 Minuten Yo genauso en 2 Minuten escribir kann (escribir wir doch auch más bien XProfan como C#?) - wäre doch Quälerei - besonders wenns por lo tanto va primero algo auszutesten.
Thomas Freier (05.12.10)
Nun, ACHTUNG dejó que su falta, sehe Yo en el Moment todavía no "hörere Titelzeile" beim %hwnd?
long nonClientMetricsStructure#,20=5
Setzt el ("""eigentlich""") en 5 - daraufhin wurde esta en me auch muy flach - pero no 5. (determinado porque el Schrift größer es como 5)
 |
|
| |
| |
| |
|
| |
| |
| - Página 2 - |
|
|
Thomas
Freier | | Sí, el Eindruck, dass lo schmaler wurde, Tuve auch. Aber höher Tuve lo incluso optisch no erreicht. |
|
| |
| |
| |
|
|
| Womit genau kann Yo Usted helfen? Hab ahora el Faden verbummelt weils imho alles eh nichts hilft el Verschiebeproblem en SendMessage(%hwnd,$112,$F012,0) a "beheben".
Magst mi obig vorgemachte Mausverschiebeproc en reinem XProfan? |
|
| |
| |
| |
|
|
Thomas
Freier | Yo sage dankent: JA.
Auch si yo con deinem Ejemplo trabajo kann, así denke Yo es para todos, denen SendMessage(%hwnd,$112,$F012,0) auch Problemas bereitet y el kein XPSE einsetzen, una tolle Ayuda. |
|
| |
| |
| |
|
|
| Garnicht el Rede wert... ^ ^
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)
Rectángulo 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
Rectángulo 60,60-1060,740
DrawText 140,360,"Dieses Ventana en linker gedrücker Botón del ratón mover."
DrawText 140,460,"Dieses Ventana con Taste 'Esc' oder 'Alt' plus 'F4' schließen."
mensajes de los usuarios 16,513//wm_close,wm_lButtonDown
mientras que 1
WaitInput
caso %key=27:romper
seleccionar %uMessage
caseof 16 : romper/ / WM_CLOSE
caseof 513 : hWnd.movebyMouse()//wm_lButtonDown
EndSelect
wend
end
proc hWnd.moveByMouse
declarar mpos#
dim mpos#,8
external("user32","GetCursorPos",mpos#)
var wix&=%winLeft-long(mpos#,0)
var wiy&=%winTop-long(mpos#,4)
mientras que iskey(1)
external("user32","GetCursorPos",mpos#)
setWindowPos %hWnd=(long(mpos#,0)+wix&),(long(mpos#,4)+wiy&) - (%winRight-%winLeft),(%winBottom-%winTop);0
wend
disponer mpos#
endProc
|
|
| |
| |
| |
|
(785)
Deutsch
English
Français
Español
Italia