Windows Easy Gui (WEG)
Windows Easy Gui (WEG)
Ein kleines Projekt das die Benutzung der Windows GUI API in FreeBasic vereinfachen soll und somit Fenster und Menüs in wenigen Zeilen erstellt werden können.
Das Projekt ist noch recht 'dünn' und bedarf noch einige Erweiterungen und Verbesserungen.
Eine Hilfe als .chm ist in Arbeit ,sowie die aktuellsten Dateien (bis ich mit der SVN zurecht komme) sind hier zu finden:
Source Verzeichnis: 
http://users.freebasic-portal.de/eternalpain/WEG/
Source ZIP: http://users.freebasic-portal.de/eternalpain/WEG.zip
.CHM Hilfe: http://users.freebasic-portal.de/eternalpain/WEG.chm
Bisher Vorhandene Funktionen:
- CreateNewWindow
- CreateGroupBox
- CreateImageItem
- CreateSpinBox
- CreateEditBox
- CreateCheckBox
- CreateRadioButton
- CreateImageComboBox
- CreateFontSelectCombo
- CreateStaticText
- CreateImageItem
- LoadXXXImage (XXX kann für FB/WIN/GDI stehen)
- SaveXXXImage (XXX kann für FB/WIN/GDI stehen)
Ein Einfaches Beispiel (Example.bas)
#include "inc\Win_Ext.bi"
Dim as Item Main1 = CreateNewWindow(320, 200, "StaticText Example")
Dim as Item Text1 = CreateStaticText(Main1, 10, 10, "Hallo Welt")
Dim as Item Text2 = CreateStaticText(Main1, 30, 50, "Hallo Welt","Arial", Italic, 18)
Dim as Item Text3 = CreateStaticText(Main1, 50, 90, "Hallo Welt","Times New Roman", _
Bold OR Underline, 24, &h7000FF, &h000000)
Dim as Item Main2 = CreateNewWindow(320, 200, "CheckBox Example", 200, 200)
Dim as Item Chck1 = CreateCheckBox(Main2, 100, 10, "Check1")
Dim as Item Chck2 = CreateCheckBox(Main2, 100, 60, "Check2" ,TextLeft)
Dim as Item Chck3 = CreateCheckBox(Main2, 100, 110, "Check3")
Const as String close_key = chr(255)+"k"
Dim as String Key1, Key2
Dim as Integer Win1, Win2
Do
Win_Ext_Update() 'Windows Message Update
If Key1 = close_key Then HideItem(Main1) : Win1 = 1
If Key2 = close_key Then HideItem(Main2) : Win2 = 1
Key1 = GetWindowKey(Main1)
Key2 = GetWindowKey(Main2)
Loop until Win1 and Win2
Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!
