| |
| |
|
| - page 1 - |
|
Thomas
Freier | Im Prinzip oui ne...aucune Problem, cependant peux je es pour dessus seulement um ca. 20px Déplacer.
Falscher Script ou bien physikalische frontière?
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
|
|
| |
| |
| |
|
|
| |
| |
| - page 1 - |
|
Thomas
Freier | | oui c'est ca iF. mais merkwürdiger Weise pas sur y = 0, mais sur ca. y = -20, si y > -20 son sollte. |
|
| |
| |
| |
|
|
 | Stimmt...
Zeigt chez mir -25 ppp -26.
aussi si 1px Diff. ists vlt. qui Titelzeilenhöhe - stell vlt. la fois Votre Titelzeilenhöhe sur 50 zum Test. |
|
| |
| |
| |
|
|
Dieter
Zornow | chez mir gehts aussi, on kanns mais aussi simple avec sendmessage faire.
|
|
| |
| 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 un Problem sous XP SP2 et cela kleine Problem avec qui Souris.inc ist par den Einsatz de X11 trop beheben.
je find mais rien, à Titelzeilenhöhe, car c'est qui frontière, vorzugeben. |
|
| |
| |
| |
|
|
| exposition fois le systemParametersInfo-API: [...]  et là vlt. nonClientMetrics: [...] |
|
| |
| |
| |
|
|
| Argh - cela funktioniert oui wirklich mais "achtung" peux je là seulement dire:
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
|
|
| |
| |
| |
|
|
Thomas
Freier | eh bien, ACHTUNG außeracht gelassen, vois je im Moment encore aucun "hörere Titelzeile" beim %hwnd? Hat mir de toute façon, je hätt's mir oui penser peut, dass cela seulement avec XPSE fonctionne, quelques zusätzliche graue Haare gekostet. |
|
| |
| |
| |
|
|
| c'est arrêt viel plus rapide es avec xpse hinzuschreiben - compliqué umbauen pour pas-xpse-verwendung peux es oui qui qui Wert puis legt ou bien mich simple fragen si ego umbauen soll/muss.
je pour meinen partie schreib jedenfalls ungern à quelque chose 5 Minuten quoi je genauso dans 2 Minuten écrivons peux (écrivons wir doch aussi lieber XProfan comme C#?) - wäre doch Quälerei - besonders wenns tout autor allez erstmal quelque chose auszutesten.
Thomas Freier (05.12.10)
eh bien, ACHTUNG außeracht gelassen, vois je im Moment encore aucun "hörere Titelzeile" beim %hwnd?
long nonClientMetricsStructure#,20=5
mets qui ("""eigentlich""") sur 5 - daraufhin wurde cet chez mir aussi très flach - mais pas 5. (bestimmt weil qui Schrift größer ist comme 5)
 |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
Thomas
Freier | | oui, den impression, dass es schmaler wurde, J'ai eu aussi. mais höher J'ai eu es selbst optique pas erreicht. |
|
| |
| |
| |
|
|
| Womit oui c'est ca peux je Dir aider? Hab maintenant den fil verbummelt weils imho alles eh rien hilft cela Verschiebeproblem chez SendMessage(%hwnd,$112,$F012,0) trop "beheben".
Magst mon obig vorgemachte Mausverschiebeproc dans reinem XProfan? |
|
| |
| |
| |
|
|
Thomas
Freier | je sage dankent: JA.
aussi si je avec deinem Beispiel travailler peux, so denke je ist es pour alle, denen SendMessage(%hwnd,$112,$F012,0) aussi Probleme bereitet et qui ne...aucune XPSE einsetzen, une tolle Aider. |
|
| |
| |
| |
|
|
| Garnicht qui discours 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)
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."
messages de l'utilisateur 16,513//wm_close,wm_lButtonDown
tandis que 1
WaitInput
cas %clé=27:pause
sélectionner %uMessage
caseof 16 : pause/ / WM_CLOSE
caseof 513 : hWnd.movebyMouse()//wm_lButtonDown
EndSelect
Wend
end
proc hWnd.moveByMouse
declare mpos#
dim mpos#,8
external("user32","GetCursorPos",mpos#)
var wix&=%winLeft-long(mpos#,0)
var wiy&=%winTop-long(mpos#,4)
tandis que iskey(1)
external("user32","GetCursorPos",mpos#)
setWindowPos %hWnd=(long(mpos#,0)+wix&),(long(mpos#,4)+wiy&) - (%winRight-%winLeft),(%winBottom-%winTop);0
Wend
dispose mpos#
endProc
|
|
| |
| |
| |
|
(798)
Deutsch
English
Français
Español
Italia