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

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Neuer Fensterdesigner
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   12.06.14 17:55

Da mußt du noch etwas Arbeit reinstecken.
Die Pfade zum Interpreter, Compiler etc.
lassen sich nicht mit den rechten Buttons,
die ja eine Ordnerauswahl bereitstellen sollen,
einstellen.

Außerdem gefällt mir der Quelltext nicht so richtig.
 ' Code erzeugt mit XPVD Version 1.0.0.0 ß am 12.06.2014 um 17:46
 ' Technischer Support auf http://www.flogersoft.de.
 ' ---------------------------------------------------------------------------------------------------------------------------------------------
 
 Declare Btn1&%, LBox&%
 
 
 Def GetStockObject(1) !"GDI32","GetStockObject"
 Def GetSysColor(1) !"USER32","GetSysColor"
 Def GetParent(1) !"USER32","GetParent"
 Def GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
 
 Def &COLOR_BTNFACE $F
 Def &DEFAULT_GUI_FONT $11
 Def &WM_COMMAND $111
 
 Proc CreateControls
 
 WindowStyle 10 | 512 | 2048
 WindowTitle "Arbeitsfenster"
 Window 280, 0 - 2270, 1390
 
 Cls GetSysColor(&COLOR_BTNFACE)
 SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
 
 Btn1&% = Create("Button", %hwnd, "Test", 72, 44, 77, 35)
 LBox&% = Create("ListBox", %hwnd, "NaN", 81, 109, 113, 107)
 
 EndProc
 
 SubClassProc
 
 Select %smessage
 CaseOf $114, $115
 SendMessage(%hwnd, %smessage, &swparam, &slparam)
 CaseOf $101, $202, $205, $208
 SendMessage(%hwnd, &WM_COMMAND, MakeLong(GetDlgCtrlID(&swnd), 0), &swnd)
 EndSelect
 Endproc
 
 Proc MainLoop
 
 UserMessages 16
 ShowWindow(%hwnd, 1)
 
 Subclass Btn1&%, 1 : Subclass LBox&%, 1
 
 While 1
 
 WaitInput
 
 Case %umessage = 16 : BREAK
 
 If Clicked(Btn1&%)
 
 ElseIf Clicked(LBox&%)
 
 EndIf
 
 EndWhile
 
 Subclass Btn1&%, 1 : Subclass LBox&%, 1
 
 EndProc
 
 Proc Main
 
 CreateControls
 MainLoop
 
 EndProc
 
 Main
 
 End
 


Was soll bitteschön ein Anfänger mit den ganzen API-
Funktionen (Def GetStockObject(1) !"GDI32","GetStockObject",
usw.) anfangen ?
XProfan soll doch einfach sein. Und das geht ja einfach auch ohne
das API- Zeug.

WindowTitle "...."
Window x, y
@Create(....)
WhileNot @Clicked(...) ' Oder ende%
Waitinput

EndWhile

Ich denke mal, daß das in der jetzigen Form die Neueinsteiger
und Anfänger eher erschreckt als daß es hilft.

H.Brill
XProfan X4 + FreeProfan

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

 Beiträge Autor  Datum
 Neuer Fensterdesigner  Neu
Florian Heuberger 03.03.14 18:26 
 Re: Neuer Fensterdesigner  Neu
Jörg Sellmeyer 04.03.14 12:02 
 Re: Neuer Fensterdesigner  Neu
Frabbing 04.03.14 19:21 
 Re: Neuer Fensterdesigner  Neu
p. specht 05.03.14 22:04 
 Re: Neuer Fensterdesigner  Neu
Frabbing 06.03.14 17:29 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 07.03.14 20:15 
 Re: Neuer Fensterdesigner  Neu
Jörg Sellmeyer 07.03.14 22:00 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 09.03.14 13:29 
 Re: Neuer Fensterdesigner  Neu
peter 23.03.14 18:30 
 Re: Neuer Fensterdesigner  Neu
Jörg Sellmeyer 23.03.14 23:52 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 24.03.14 15:38 
 Re: Neuer Fensterdesigner  Neu
peter 29.03.14 09:40 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 30.03.14 14:26 
 Re: Neuer Fensterdesigner  Neu
peter 31.03.14 00:06 
 Re: Neuer Fensterdesigner  Neu
peter 01.04.14 09:00 
 Re: Neuer Fensterdesigner  Neu
Frabbing 02.04.14 22:01 
 Re: Neuer Fensterdesigner  Neu
peter 02.04.14 23:09 
 Re: Neuer Fensterdesigner  Neu
peter 02.04.14 23:12 
 Re: Neuer Fensterdesigner  Neu
Jörg Greve 08.04.14 21:07 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 18.04.14 12:25 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 18.04.14 15:17 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 26.04.14 12:05 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 19.05.14 21:00 
 Re: Neuer Fensterdesigner  Neu
peter 23.05.14 11:05 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 23.05.14 20:37 
 Re: Neuer Fensterdesigner  Neu
Jörg Greve 31.05.14 22:27 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 10.06.14 01:27 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 10.06.14 15:55 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 12.06.14 02:08 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 12.06.14 12:51 
 Re: Neuer Fensterdesigner  Neu
Heinz Brill 12.06.14 17:55 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 12.06.14 19:18 
 Peinlich...  Neu
Frabbing 05.09.14 17:36 
 Re: Peinlich...  Neu
Heinz Brill 05.09.14 18:35 
 Re: Peinlich...  Neu
Frabbing 07.09.14 14:49 
 Re: Peinlich...  Neu
Karl-Jürgen Hilger 08.09.14 13:38 
 Re: hat meist alles sein Gutes...  Neu
David Strutz 08.09.14 21:45 
 Re: hat meist alles sein Gutes...  Neu
Matthias Griesbach 09.09.14 20:35 
 Re: hat meist alles sein Gutes...  Neu
David Strutz 09.09.14 21:12 
 Re: hat meist alles sein Gutes...  Neu
Matthias Griesbach 09.09.14 21:34 
 Re: hat meist alles sein Gutes...  Neu
David Strutz 09.09.14 22:35 
 Re: hat meist alles sein Gutes...  Neu
Matthias Griesbach 10.09.14 21:17 
 Re: hat meist alles sein Gutes...  Neu
David Strutz 12.09.14 18:51 
 Re: hat meist alles sein Gutes...  Neu
Matthias Griesbach 13.09.14 22:47 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 08.02.15 00:52 
 Re: Neuer Fensterdesigner  Neu
RGH 08.02.15 14:02 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 16.02.15 23:08 
 Re: Neuer Fensterdesigner  Neu
RGH 28.04.15 20:32 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 05.05.15 13:08 
 Re: Neuer Fensterdesigner  Neu
RGH 22.06.15 08:24 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 01.08.15 13:53 
 Re: Neuer Fensterdesigner  Neu
RGH 01.08.15 18:02 
 Re: Neuer Fensterdesigner  Neu
Matthias Griesbach 19.02.15 23:44 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 10.03.15 10:38 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 23.02.16 21:20 
 Re: Neuer Fensterdesigner  Neu
Michael Wodrich 13.03.16 15:31 
 Re: Neuer Fensterdesigner  Neu
David Strutz 13.03.16 18:15 
 Re: Neuer Fensterdesigner  Neu
Michael Wodrich 23.04.16 13:38 
 Re: Neuer Fensterdesigner  Neu
Florian Heuberger 25.04.16 11:13 
 Re: Neuer Fensterdesigner  Neu
Michael Wodrich 26.04.16 01:30 
 Re: Neuer Fensterdesigner  Neu
p. specht 27.12.16 21:04 


 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