| |
| |
|
| - page 1 - |
|
Julian
Schmidt | Salut,
j'ai un Problem et hoffe cela quelques cela Programme testen et Bericht erstatten peut.
eh bien une Erörterung des Problems...
si on cela Tool sur qui Taskleiste schiebt et qui Taskleiste den Fokus gibt verschwindet es derrière cette. ensuite peux on es malheureusement aussi pas plus herausziehen.
Tritt cet Problem sur euren calculateur aussi sur?
j'ai es sur 3 Rechnern getestet...
sur Win7 Home Premium(Acer) et WinXP Professionell trat cela Problem sur.
chez Win7 Home Premium(HP) dagegen pas.
idées trop Problembehandlung sommes erwünscht. Am liebsten allerdings dans einem Unterthema.
Télécharger
externer Télécharger
Def Capture de sortie(0) !"User32",Capture de sortie "
style de fenêtre 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Utilisateur Messages 513
cls RGB(255,0,0)
tandis que 1
waitinput
cas iskey(27) : end
cas %uMessage=513 : moveWin
Endwhile
proc moveWin
si getfocus(%Hwnd)
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
endif
UseCursor 0
Capture de sortie()
endproc
LG
Julian57 |
 |
| |
| Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë— Webseite [...]  | 04.08.2011 ▲ |
|
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Julian
Schmidt | 
style de fenêtre 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Utilisateur Messages 513
cls RGB(255,0,0)
tandis que 1
waitinput
cas iskey(27) : end
cas %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)
tandis que iskey(1)
external("user32","GetCursorPos",mpos#)
x1&=(long(mpos#,0)+wix&)
cas x1&<workarea("Links") : x1&=workarea("Links")
cas x1&>workarea("Rechts")-(%winRight-%winLeft) : x1&=workarea("Rechts")-(%winRight-%winLeft)
y1&=(long(mpos#,4)+wiy&)
cas y1&<workarea("Oben") : y1&=workarea("Oben")
cas 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"
Paramètres position$
Déclarer Rect#,x%
Faible Rect#,16
SysParameterInfo(48,0,Rect#,0)
cas position$="Links" : x%=Long(Rect#,0)
cas position$="Oben" : x%=Long(Rect#,4)
cas position$="Rechts" : x%=Long(Rect#,8)
cas position$="Unten" : x%=Long(Rect#,12)
Dispose Rect#
Retour x%
endproc
|
|
| |
| Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë— Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
|
 | oui ist oui völlig normal.
tout autor peux on la fenêtre z.B. per avec-qui-souris-à-qui-Titelzeile-Festhalten aussi pas derrière qui Tastbar Déplacer.
Du musst den tatsächlichen Arbeitsbereich tenir compte de -
Rolf Koch hat imho une Unit posté avec qui sich qui Arbeitsbereich ermitteln peut. |
|
| |
| |
| |
|
|
Julian
Schmidt | iF (04.08.11)
Rolf Koch hat imho une Unit posté avec qui sich qui Arbeitsbereich ermitteln peut.
Vermutlich meinst du qui Unit[...]
Allerdings venez chez dem Beispiel dans XProfanX2 une Fehlermeldung. Liegt imho daran cela qui Dossier six Jahre vieux ist.
[OFFTOPIC]XProfan.com ist depuis einer halben Stunden chez mir dans Firefox(5.0) pas plus aufrufbar, selbst si je sur une autre Proxy surfe. Über SRWare Iron funktioniert qui Aufruf.[/OFFTOPIC] |
|
| |
| Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë— Webseite [...] | 05.08.2011 ▲ |
|
| |
|
|
Julian
Schmidt | Alternativ trop qui Unit peux on qui Workarea sur une Procédure ermitteln. seulement comment peux je cela Déplacer des Programms sur qui Workarea begrenzen?
Workarea:
Proc workarea
DEF SysParameterInfo(4) ! "user32","SystemParametersInfoA"
Paramètres position$
Déclarer Rect#,x%
Faible Rect#,16
SysParameterInfo(48,0,Rect#,0)
cas position$="Links" : x%=Long(Rect#,0)
cas position$="Oben" : x%=Long(Rect#,4)
cas position$="Rechts" : x%=Long(Rect#,8)
cas position$="Unten" : x%=Long(Rect#,12)
Dispose Rect#
Retour x%
endproc
cls
imprimer "Workarea = "+Str$(workarea("Links"))+»+Str$(workarea("Oben"))+" - "+Str$(workarea("Rechts"))+»+Str$(workarea("Unten"))
imprimer "Bildschirm = 0,0 - "+Str$(%MaxX)+»+Str$(%MaxY)
tandis que 1
waitinput
Endwhile
Programm_Grundgerüst:
Def Capture de sortie(0) !"User32",Capture de sortie "
style de fenêtre 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Utilisateur Messages 513
cls RGB(255,0,0)
tandis que 1
waitinput
cas iskey(27) : end
cas %uMessage=513 : moveWin
Endwhile
proc moveWin
si getfocus(%Hwnd)
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
endif
UseCursor 0
Capture de sortie()
endproc
|
|
| |
| Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë— Webseite [...] | 05.08.2011 ▲ |
|
| |
|
|
Julian
Schmidt |
style de fenêtre 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Utilisateur Messages 513
cls RGB(255,0,0)
tandis que 1
waitinput
cas iskey(27) : end
cas %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)
tandis que iskey(1)
external("user32","GetCursorPos",mpos#)
x1&=(long(mpos#,0)+wix&)
cas x1&<workarea("Links") : x1&=workarea("Links")
cas x1&>workarea("Rechts")-(%winRight-%winLeft) : x1&=workarea("Rechts")-(%winRight-%winLeft)
y1&=(long(mpos#,4)+wiy&)
cas y1&<workarea("Oben") : y1&=workarea("Oben")
cas 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"
Paramètres position$
Déclarer Rect#,x%
Faible Rect#,16
SysParameterInfo(48,0,Rect#,0)
cas position$="Links" : x%=Long(Rect#,0)
cas position$="Oben" : x%=Long(Rect#,4)
cas position$="Rechts" : x%=Long(Rect#,8)
cas position$="Unten" : x%=Long(Rect#,12)
Dispose Rect#
Retour x%
endproc
|
|
| |
| Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë—Ë— Webseite [...] | 07.08.2011 ▲ |
|
| |
|
|
| Reine Fleißarbeiten erledigt on am besten toujours juste selbst -
beim Lösen logischer Probleme ou bien wenns à Infos/ savons fehlt ensuite ist Aider erfahrungsgemäß stets fix prêt.  |
|
| |
| |
| |
|
(535)
Deutsch
English
Français
Español
Italia
