Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Startpaint in X4
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   10.07.18 17:17

Das liegt wohl an dem mit Control() erzeugten Fenster.
Da hat XProfan keine Kontrolle darüber.

Warum muß es denn unbedingt ein solches Fenster sein ?

Geht doch mit

.hWnd%% = Create("Static", &hwnd, x, y, breit, hoch)


genau so gut.


So, wie es aussieht, scheint das StartPaint...EndPaint auf
solche fremden Fenster nicht ausgelegt zu sein. Ein Button
kann man ja auch einfach draufklatschen :

 
 CLS $505050
   Declare Mem tafel1, tafel2, Long btn
   
   /*------------------------------------------------------------
         Ein simples Dialogfenster.
         Zwei Methoden: Handle retournieren und eine Beschriftung (Neuzeichnen)
   --------------------------------------------------------------*/
   Class PANEL = hWnd%%, GetWnd@, Neuzeichnen@, PANEL@
   
   Proc PANEL.PANEL
     Parameters Long x, y, breit, hoch, id
     .hWnd%% = Control("Dialog","", $50400000, x, y, breit, hoch, &hwnd, id, %hinstance, $0)
     '.hWnd%% = Create("Static", &hwnd, x, y, breit, hoch)
     .Neuzeichnen()
   EndProc
   
   Proc PANEL.GetWnd
     Return .hWnd%%
   EndProc
   
   Proc PANEL.Neuzeichnen
     StartPaint .GetWnd()
       DrawText 10,10, "Beschriftung"
     EndPaint
     btn = Create("Button", .GetWnd(), "Test", 10, 50, 60, 25)
   EndProc
  
   /*------------------------------------------------------------
               Jetzt Objekte erstellen, aber ...
   --------------------------------------------------------------*/
   tafel1 = New(PANEL, 10, 10,200,200,3000)
   tafel2 = New(PANEL,220, 10,200,200,3001)
  
   /*------------------------------------------------------------
           ... wenn tafel2 erstellt wird,
               verschwindet die Beschriftung von tafel 1 
   --------------------------------------------------------------*/
   
   WaitInput
   Dispose tafel1, tafel2
   
 


H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (10.07.18 17:35)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Startpaint in X4  Neu
Karl-Jürgen Hilger 09.07.18 16:32 
 Re: Startpaint in X4  Neu
Heinz Brill 10.07.18 17:17 
 Re: Startpaint in X4  Neu
Heinz Brill 10.07.18 17:36 
 Re: Startpaint in X4  Neu
Karl-Jürgen Hilger 10.07.18 19:12 
 Re: Startpaint in X4  Neu
Heinz Brill 10.07.18 19:47 
 Re: Startpaint in X4  Neu
RGH 11.07.18 09:08 
 Re: Startpaint in X4  Neu
Karl-Jürgen Hilger 11.07.18 11:49 
 Re: Startpaint in X4  Neu
David Strutz 13.07.18 20:12 
 Re: Startpaint in X4  Neu
Karl-Jürgen Hilger 14.07.18 00:53 
 Re: Startpaint in X4  Neu
Jörg Sellmeyer 14.07.18 02:20 
 Re: Startpaint in X4  Neu
Karl-Jürgen Hilger 14.07.18 15:07 
 Re: Startpaint in X4  Neu
Heinz Brill 14.07.18 19:03 
 Re: Startpaint in X4  Neu
Karl-Jürgen Hilger 14.07.18 21:44 
 Re: Startpaint in X4  Neu
Heinz Brill 15.07.18 08:02 
 Re: Startpaint in X4  Neu
RGH 15.07.18 21:58 
 Re: Startpaint in X4  Neu
Karl-Jürgen Hilger 16.07.18 01:06 
 Re: Startpaint in X4  Neu
Heinz Brill 16.07.18 04:18 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org