| |
|
|
- Página 1 - |
|
Julian Schmidt | ¡Hola, Yo habe una Problema y hoffe el algunos el Programa testen y Bericht erstatten puede. Nun una Erörterung des Problems... Wenn al Tool en Taskleiste schiebt y Taskleiste el Fokus son verschwindet lo hinter dieser. Dann puede ser lo desafortunadamente auch no mehr herausziehen.
Tritt dieses Problema en euren Rechner auch en? Yo habe lo en 3 Rechnern getestet... Auf Win7 Home Premium(Acer) y WinXP Professionell trat el problema en. En Win7 Home Premium(HP) dagegen no.
Ideen a Problembehandlung son erwünscht. Am liebsten allerdings en un Unterthema.
Descargar externer Descargar
Def Captura de lanzamiento(0) !"USER32","ReleaseCapture"
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Mensajes del usuario 513
cls RGB(255,0,0)
mientras que 1
waitinput
caso iskey(27) : end
caso %uMessage=513 : moveWin
Endwhile
proc moveWin
if getfocus(%Hwnd)
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
endif
UseCursor 0
Captura de lanzamiento()
ENDPROC
LG
Julian57 |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 04.08.2011 ▲ |
|
|
|
|
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Julian Schmidt | hmmm...eure Hilfsbereitschaft lässt wirklich a wünschen übrig....
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Mensajes del usuario 513
cls RGB(255,0,0)
mientras que 1
waitinput
caso iskey(27) : end
caso %uMessage=513 : hWnd.moveByMouse
Endwhile
proc hWnd.moveByMouse
declarar mpos#,x1&,y1&, x2&,y2&
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#)
x1&=(long(mpos#,0)+wix&)
caso x1&<workarea("Links") : x1&=workarea("Links")
caso x1&>workarea("Rechts")-(%winRight-%winLeft) : x1&=workarea("Rechts")-(%winRight-%winLeft)
y1&=(long(mpos#,4)+wiy&)
caso y1&<workarea("Oben") : y1&=workarea("Oben")
caso y1&>workarea("Unten")-(%winBottom-%winTop) : y1&=workarea("Unten")-(%winBottom-%winTop)
setWindowPos %hWnd=x1&,y1& - (%winRight-%winLeft),(%winBottom-%winTop);0
Endwhile
disponer mpos#
endProc
Proc workarea
DEF SysParameterInfo(4) ! "user32","SystemParametersInfoA"
Parámetros position$
Declarar Rect#,x%
Dim Rect#,16
SysParameterInfo(48,0,Rect#,0)
caso position$="Links" : x%=Largo(Rect#,0)
caso position$="Oben" : x%=Largo(Rect#,4)
caso position$="Rechts" : x%=Largo(Rect#,8)
caso position$="Unten" : x%=Largo(Rect#,12)
Disponer Rect#
Volver x%
ENDPROC
|
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
|
|
|
|
| Sí es sí völlig normal.
Darum puede ser Ventana z.B. por con-el-Ratón-a-el-Titelzeile-Festhalten auch no hinter el Tastbar mover.
Usted musst el tatsächlichen Arbeitsbereich beachten -
Rolf Koch ha en mi humilde opinión una Unit Nuevo con el se el Arbeitsbereich ermitteln lässt. |
|
|
| |
|
|
|
Julian Schmidt | IF (04.08.11)
Rolf Koch ha en mi humilde opinión una Unit Nuevo con el se el Arbeitsbereich ermitteln lässt.
Vermutlich media du el Unit[...] Aunque kommt en el Ejemplo en XProfanX2 una Fehlermeldung. Liegt imho daran el el Expediente sechs Jahre alt es.
[OFFTOPIC]XProfan.com es seit uno halben Stunden en me en Firefox(5.0) no mehr aufrufbar, incluso si yo una otro Proxy surfe. Über SRWare Iron funktioniert el Aufruf.[/OFFTOPIC] |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 05.08.2011 ▲ |
|
|
|
|
Julian Schmidt | Alternativ a el Unit puede ser el Workarea una Procedimiento ermitteln. Nur como kann Yo el Verschieben des Programms en el Workarea begrenzen?
Workarea:
Proc workarea
DEF SysParameterInfo(4) ! "user32","SystemParametersInfoA"
Parámetros position$
Declarar Rect#,x%
Dim Rect#,16
SysParameterInfo(48,0,Rect#,0)
caso position$="Links" : x%=Largo(Rect#,0)
caso position$="Oben" : x%=Largo(Rect#,4)
caso position$="Rechts" : x%=Largo(Rect#,8)
caso position$="Unten" : x%=Largo(Rect#,12)
Disponer Rect#
Volver x%
ENDPROC
cls
imprimir "Workarea = "+Str$(workarea("Links"))+","+Str$(workarea("Oben"))+" - "+Str$(workarea("Rechts"))+","+Str$(workarea("Unten"))
imprimir "Bildschirm = 0,0 - "+Str$(%MaxX)+","+Str$(%MaxY)
mientras que 1
waitinput
Endwhile
Programm_Grundgerüst:
Def Captura de lanzamiento(0) !"USER32","ReleaseCapture"
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Mensajes del usuario 513
cls RGB(255,0,0)
mientras que 1
waitinput
caso iskey(27) : end
caso %uMessage=513 : moveWin
Endwhile
proc moveWin
if getfocus(%Hwnd)
UseCursor 5
SendMessage(%hwnd,$112,$F012,0)
endif
UseCursor 0
Captura de lanzamiento()
ENDPROC
|
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 05.08.2011 ▲ |
|
|
|
|
Julian Schmidt | hmmm...eure Hilfsbereitschaft lässt wirklich a wünschen übrig....
windowstyle 64+16+1024
window 0,0-0,0
SetWindowPos %hwnd=%MaxX-380,(%MaxY-80) - 120,35;-1
Mensajes del usuario 513
cls RGB(255,0,0)
mientras que 1
waitinput
caso iskey(27) : end
caso %uMessage=513 : hWnd.moveByMouse
Endwhile
proc hWnd.moveByMouse
declarar mpos#,x1&,y1&, x2&,y2&
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#)
x1&=(long(mpos#,0)+wix&)
caso x1&<workarea("Links") : x1&=workarea("Links")
caso x1&>workarea("Rechts")-(%winRight-%winLeft) : x1&=workarea("Rechts")-(%winRight-%winLeft)
y1&=(long(mpos#,4)+wiy&)
caso y1&<workarea("Oben") : y1&=workarea("Oben")
caso y1&>workarea("Unten")-(%winBottom-%winTop) : y1&=workarea("Unten")-(%winBottom-%winTop)
setWindowPos %hWnd=x1&,y1& - (%winRight-%winLeft),(%winBottom-%winTop);0
Endwhile
disponer mpos#
endProc
Proc workarea
DEF SysParameterInfo(4) ! "user32","SystemParametersInfoA"
Parámetros position$
Declarar Rect#,x%
Dim Rect#,16
SysParameterInfo(48,0,Rect#,0)
caso position$="Links" : x%=Largo(Rect#,0)
caso position$="Oben" : x%=Largo(Rect#,4)
caso position$="Rechts" : x%=Largo(Rect#,8)
caso position$="Unten" : x%=Largo(Rect#,12)
Disponer Rect#
Volver x%
ENDPROC
|
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.08.2011 ▲ |
|
|
|
|
| Reine Fleißarbeiten hecho uno al besten siempre igual incluso -
beim Lösen logischer Problemas oder wenns a Infos/ Wissen fehlt entonces Ayuda erfahrungsgemäß stets fix parat. |
|
|
| |
|
|