| |
| |
|
| - Page 1 - |
|
Julian
Schmidt | Hi,
I have a problem and hope that some the program testing and report to repay can.
now a Erörterung the Problems...
If to the Tool over The Taskbar schiebt and the Taskbar whom Fokus gives disappears it behind this. then can it unfortunately neither More herausziehen.
exit this trouble on your computer on?
I have it on 3 Rechnern tested...
On Win7 Home Premium(Acer) and WinXP professional trod the trouble on.
with Win7 Home Premium(HP) against it not.
ideas To Problembehandlung are erwünscht. on the dearest though in a Sub-Topic.
Download
external Download
Def Capture Release(0) !"USER32","ReleaseCapture"
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
User Messages 513
cls RGB(255,0,0)
while 1
waitinput
case iskey(27) : end
case %uMessage=513 : moveWin
Endwhile
proc moveWin
if getfocus(%Hwnd)
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
endif
UseCursor 0
Capture Release()
endproc
LG
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 08/04/11 ▲ |
|
| |
|
 |
« this Posting watts as Solution marked. » |
|
Julian
Schmidt | 
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
User Messages 513
cls RGB(255,0,0)
while 1
waitinput
case iskey(27) : end
case %uMessage=513 : hWnd.moveByMouse
Endwhile
proc hWnd.moveByMouse
declare mpos#,x1&,y1&, x2&,y2&
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#)
x1&=(long(mpos#,0)+wix&)
case x1&<workarea("Links") : x1&=workarea("Links")
case x1&>workarea("Rechts")-(%winRight-%winLeft) : x1&=workarea("Rechts")-(%winRight-%winLeft)
y1&=(long(mpos#,4)+wiy&)
case y1&<workarea("Oben") : y1&=workarea("Oben")
case y1&>workarea("Unten")-(%winBottom-%winTop) : y1&=workarea("Unten")-(%winBottom-%winTop)
setWindowPos %hWnd=x1&,y1& - (%winRight-%winLeft),(%winBottom-%winTop);0
Endwhile
dispose mpos#
endProc
Proc workarea
DEF SysParameterInfo(4) ! "user32","SystemParametersInfoA"
Parameters position$
Declare Rect#,x%
Dim Rect#,16
SysParameterInfo(48,0,Rect#,0)
case position$="Links" : x%=Long(Rect#,0)
case position$="Oben" : x%=Long(Rect#,4)
case position$="Rechts" : x%=Long(Rect#,8)
case position$="Unten" : x%=Long(Rect#,12)
Dispose Rect#
Return x%
endproc
|
 |
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/07/11 ▲ |
|
| |
|
|
|
 | Yes is Yes completely normal.
therefore can Window z.B. by with-the-mouse-on-the-Headline-capture neither behind The Tastbar move.
You must whom tatsächlichen Arbeitsbereich mind -
Rolf Koch has imho a Unit posted with the itself the Arbeitsbereich detect can. |
|
| |
| |
| |
|
|
Julian
Schmidt | iF (04.08.11)
Rolf Koch has imho a Unit posted with the itself the Arbeitsbereich detect can.
Presumably Dou you mean The Unit[...]
though comes with the example in XProfanX2 a Error Message. lying imho on it the The File six years old is.
[OFFTOPIC]XProfan.com is since of/ one half-way hours by me in Firefox(5.0) not any more aufrufbar, even if I over another Proxy surf. About SRWare Iron functions the appeal.[/OFFTOPIC] |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/05/11 ▲ |
|
| |
|
|
Julian
Schmidt | alternatively to the Unit can The Workarea over a procedure detect. only how can I the move the program on The Workarea limit?
Workarea:
Proc workarea
DEF SysParameterInfo(4) ! "user32","SystemParametersInfoA"
Parameters position$
Declare Rect#,x%
Dim Rect#,16
SysParameterInfo(48,0,Rect#,0)
case position$="Links" : x%=Long(Rect#,0)
case position$="Oben" : x%=Long(Rect#,4)
case position$="Rechts" : x%=Long(Rect#,8)
case position$="Unten" : x%=Long(Rect#,12)
Dispose Rect#
Return x%
endproc
cls
print "Workarea = "+Str $(workarea("Links"))+","+Str $(workarea("Oben"))+" - "+Str $(workarea("Rechts"))+","+Str $(workarea("Unten"))
print "Bildschirm = 0,0 - "+Str $(%MaxX)+","+Str $(%MaxY)
while 1
waitinput
Endwhile
Programm_Grundgerüst:
Def Capture Release(0) !"USER32","ReleaseCapture"
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
User Messages 513
cls RGB(255,0,0)
while 1
waitinput
case iskey(27) : end
case %uMessage=513 : moveWin
Endwhile
proc moveWin
if getfocus(%Hwnd)
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
endif
UseCursor 0
Capture Release()
endproc
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/05/11 ▲ |
|
| |
|
|
Julian
Schmidt |
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
User Messages 513
cls RGB(255,0,0)
while 1
waitinput
case iskey(27) : end
case %uMessage=513 : hWnd.moveByMouse
Endwhile
proc hWnd.moveByMouse
declare mpos#,x1&,y1&, x2&,y2&
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#)
x1&=(long(mpos#,0)+wix&)
case x1&<workarea("Links") : x1&=workarea("Links")
case x1&>workarea("Rechts")-(%winRight-%winLeft) : x1&=workarea("Rechts")-(%winRight-%winLeft)
y1&=(long(mpos#,4)+wiy&)
case y1&<workarea("Oben") : y1&=workarea("Oben")
case y1&>workarea("Unten")-(%winBottom-%winTop) : y1&=workarea("Unten")-(%winBottom-%winTop)
setWindowPos %hWnd=x1&,y1& - (%winRight-%winLeft),(%winBottom-%winTop);0
Endwhile
dispose mpos#
endProc
Proc workarea
DEF SysParameterInfo(4) ! "user32","SystemParametersInfoA"
Parameters position$
Declare Rect#,x%
Dim Rect#,16
SysParameterInfo(48,0,Rect#,0)
case position$="Links" : x%=Long(Rect#,0)
case position$="Oben" : x%=Long(Rect#,4)
case position$="Rechts" : x%=Long(Rect#,8)
case position$="Unten" : x%=Long(Rect#,12)
Dispose Rect#
Return x%
endproc
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08/07/11 ▲ |
|
| |
|
|
| Reine Fleißarbeiten Done one best always same self -
at solve logischer Problems or ifs on Info/ know missing then is Help erfahrungsgemäß always fix parat.  |
|
| |
| |
| |
|
(530)
Deutsch
English
Français
Español
Italia
