Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 240847 (2283)
  Suchen
 Zurück zur Übersicht
 AutorThema: Position ändern
Mario Glöckner
Datum:26.09.02 22:05 Antwortenals Email verschicken (MG@web.de) 


habe das prob. mein programm hat im WindowStyle keine titelzeile
und ist auch nur auf das System-Menü beschränkt (was so auch richtig ist) aber wie kann ich jetzt dieses tool in eine andere position bringen?? (verschieben) welche möglichkeiten gibt es da??

MG


Frank Abbing
Datum:26.09.02 22:37 Antwortenals Email verschicken  


Hallo Mario,

es reicht, einmal zu posten.

Ich bin nicht ganz sicher, aber ich glaube nicht, das das von Windows aus möglich ist.
Da wirst du selbst was entwickeln müssen.
Bei Mausklick in dein Fenster die Fensterposition der Position des Mauszeigers anpassen, bis Mausklick beendet ist.

Gruß, Frank


Jörg Sellmeyer
Datum:27.09.02 00:54 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo,
So geht's:
WindowStyle 80
window 30,30-700,500-4
Cls 13,26,2
declare Dialog&,Static&
Def &WM_SYSCOMMAND $112
Dialog&=control("Dialog","X",$54040000,100,100,50,50,%hwnd,1,%hinstance)
Static&=control("static","",$5040000e,100,100,50,50,%hwnd,1,%Hinstance)

while 1
	waitinput
   if equ(&wparam,1)'----Positionieren; frei nach Thomas Hölzer
      usecursor 5
      SendMessage(%mwnd,&WM_SYSCOMMAND,$F012,0)
      usecursor 0
	ElseIf %mousepressed = 2
		break
   endif
	setwindowpos Static&=0,0-0,0'--Neuzeichnen erzwingen
endwhile

Gruß
Jörg


Mario Glöckner
Datum:27.09.02 03:07 Antwortenals Email verschicken (MG@web.de) 


ja die geht, gibt es auch eine oder könnte man diese so ab ändern das sie auch mit Profan 5.0 geht??



Jörg Sellmeyer
Datum:27.09.02 11:57 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Mario,
Für das Hauptfenster geht es einfach. Da Profandialogfenster allerdings keine
Mausklicks an das HWND weitermelden, kann ich Dir damit nicht helfen.

WindowStyle 80
window 30,30-700,500-4
Cls 13,26,2

Declare Ende%

WhileNot Ende%
	waitinput
   if equ(&wparam,1)'----Positionieren; frei nach Thomas Hölzer
      usecursor 5
      SendMessage(%mwnd,$112,$F012,0)
      usecursor 0
ElseIf Equ(%mousepressed,2)
		Let Ende%=1
   endif

endwhile

Gruß
Jörg


Mario Glöckner
Datum:27.09.02 13:11 Antwortenals Email verschicken (MG@web.de) 


if equ(&wparam,1) << das bekomme ich als fehler unter Profan 5.0
abgesehen von den fehlern : window 30,30-700,500"-4"
Cls "13,26,2"

mach ich was falsch ???


Jörg Sellmeyer
Datum:27.09.02 13:42 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Mario,
Entschudige, ich hab' die 5.0 Sachen nicht mehr so parat.
Es muß natürlich "window 30,30-700,500" heißen.
Anstatt &wparam (gab's wohl noch nicht) versuch mal Equ(%mousepressed,1) oder Equ(%message,$201).
Ich hoffe eine von den beiden Systemvariablen gibt es.
Gruß
Jörg


Mario Glöckner
Datum:27.09.02 18:32 Antwortenals Email verschicken (MG@web.de) 


SendMessage(%mwnd,$112,$F012,0) << jetzt erkennt er hier einen fehler "%mwnd"

die anderen beiden gehen unter Profan 5.0

mfg mario


Jörg Sellmeyer
Datum:27.09.02 20:17 Antwortenals Email verschicken (joerse@gmx.de) 


Nimm' %hwnd, da sowieso nur das Hauptfenster angesprochen wird.
Jörg


Mario Glöckner
Datum: 27.09.02 20:24 Antwortenals Email verschicken (MG@web.de) 


hi Jörg erstmal danke für dein grosse hilfe !!!

haut jetzt ganz prima hin !!


 Zurück zur Übersicht