| |
| |
|
| - Page 1 - |
|
Thomas
Freier | in the principle Yes no trouble, however can I it to supra only circa ca. 20px move.
falser Script or physikalische boundary?
Def Capture Release(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)
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 Window with linker gedrücker Mouse button move."
DrawText 140,460,"Dieses Window with Button 'Esc' or 'old' plus 'F4' close."
SubClass hwnd&,1
while 1
WaitInput
case %key=27:break
wend
SubClass hwnd&,0
end
SubClassProc
If %message = $201
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
Capture Release()
UseCursor 0
EndIf
ENDPROC
|
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 12/04/10 ▲ |
|
| |
|
|
| |
| |
| - Page 1 - |
|
Thomas
Freier | | very iF. but merkwürdiger point not y = 0, separate on ca. y = -20, if y > -20 his ought to. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 12/04/10 ▲ |
|
| |
|
|
 | is correct...
shows by me -25 ppp -26.
even if 1px Diff. ists vlt. The Titelzeilenhöhe - stell vlt. time your Titelzeilenhöhe on 50 to that Test. |
|
| |
| |
| |
|
|
Dieter
Zornow | by me GEHTS too, one kanns but too simply with sendmessage make.
|
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 12/04/10 ▲ |
|
| |
|
|
Thomas
Freier | is well a problem XP SP2 and the small Completed: the Mouse.inc is by the employment of X11 To to fix.
I find but nothing, around the Titelzeilenhöhe, because this is The boundary, vorzugeben. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 12/04/10 ▲ |
|
| |
|
|
| look times the systemParametersInfo-API: [...]  and there vlt. nonClientMetrics: [...] |
|
| |
| |
| |
|
|
| Argh - the functions Yes really but "achtung" can I there only say:
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)
print "Zuletzt:",long(nonClientMetricsStructure,4)+long(nonClientMetricsStructure,20)
long nonClientMetricsStructure#,20=5
systemParametersInfo(SPI_SETNONCLIENTMETRICS,sizeof(nonClientMetricsStructure),nonClientMetricsStructure,0)
print systemParametersInfo(SPI_GETNONCLIENTMETRICS,sizeof(nonClientMetricsStructure),nonClientMetricsStructure,0)
print "Nun:",long(nonClientMetricsStructure,4)+long(nonClientMetricsStructure,20)
waitinput
end
|
|
| |
| |
| |
|
|
Thomas
Freier | now, ACHTUNG außeracht let, see I in momentum yet no "hörere Titelzeile" at %hwnd? has me ohnehin, I hätt's me Yes think can, that the only with XPSE runs, some additional gray hairs cost[ed]. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 12/05/10 ▲ |
|
| |
|
|
| its hold plenty faster it with xpse hinzuschreiben - tricky rebuild for not-xpse-usage can it Yes the the worth hereon places or me simply ask if ichs rebuild should/must.
I for my part schreib anyway ungern on something 5 minutes I just as in 2 minutes write can (write we still too rather XProfan as C#?) - would still Quälerei - particularly ifs therefore goes first something auszutesten.
Thomas suitor (05.12.10)
now, ACHTUNG außeracht let, see I in momentum yet no "hörere Titelzeile" at %hwnd?
long nonClientMetricsStructure#,20=5
setting The ("""eigentlich""") on 5 - thereupon watts these by me too very levelly - but not 5. (certainly because the Font larger is as 5)
 |
|
| |
| |
| |
|
| |
| |
| - Page 2 - |
|
|
Thomas
Freier | | Yes, whom local, that it schmaler watts, I had too. but higher I had it self optisch not access. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 12/05/10 ▲ |
|
| |
|
|
| Womit very can I you help? Have now whom filament verbummelt weils imho everything eh nothing helps the Verschiebeproblem with SendMessage(%hwnd,$112,$F012,0) To "beheben".
like my obig vorgemachte Mausverschiebeproc in reinem XProfan? |
|
| |
| |
| |
|
|
Thomas
Freier | I say dankent: JA.
even if I with your example works can, so think I is it for all, them SendMessage(%hwnd,$112,$F012,0) too Problems bereitet and the no XPSE bring into action, a crazy Help. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 12/05/10 ▲ |
|
| |
|
|
| Garnicht The speech worth... ^^
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 Window with linker gedrücker Mouse button move."
DrawText 140,460,"Dieses Window with Button 'Esc' or 'old' plus 'F4' close."
userMessages 16,513//wm_close,wm_lButtonDown
while 1
WaitInput
case %key=27:break
select %uMessage
caseof 16 : break//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)
while 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
|
|
| |
| |
| |
|
(440)
Deutsch
English
Français
Español
Italia