Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 241737 (3173)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Position ändern
Mario Glöckner
| Datum:26.09.02 22:05 (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 |
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 (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 (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 (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 (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 (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 (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 (joerse@gmx.de) |
Nimm' %hwnd, da sowieso nur das Hauptfenster angesprochen wird. Jörg
Mario Glöckner
| Datum: 27.09.02 20:24 (MG@web.de) |
hi Jörg erstmal danke für dein grosse hilfe !!! haut jetzt ganz prima hin !!

| Zurück zur Übersicht