Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
example2.bas
| Uploader: |  OneCypher |
| Datum/Zeit: | 22.09.2009 20:36:06 |
Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Warnung: Es steht bereits eine neuere Version des Quelltexts zur Verfügung. Die hier vorliegende alte Version könnte Fehler enthalten, die in der neuen Version vielleicht ausgebessert wurden.
#include once "GuiWindow.bi"
#include once "Button.bi"
#include once "Divider.bi"
#include once "Label.bi"
#include once "Menu.bi"
#include once "GuiPtrTools.bi"
dim as integer sx = 1280, sy = 1024 '424
screen 17,32
Width sx / 8, sy /16
Sub testen(O as label ptr)
Dump "TEST!: " & O->Object->Name
end sub
dim Application as NullWindow ptr = new NullWindow
'Application->BackColor = RGB(255,0,255)
dim Menu1 as Menubar ptr = Application->Object->Add(new MenuBar)
with *Menu1->AddMenu("Datei")
.AddEntry("Open...")
Event(.AddEntry("Save"))->SingleClick = @testen
.AddEntry("Save as...")
.AddDivider
Dim Quit as label ptr = .AddEntry("Quit")
end with
Dim Window1 as GuiWindow ptr = Application->Object->Add(new GuiWindow(100,100,400,250,"Ein Fenster kommt selten alleine..."))
dim Menu2 as Menubar ptr = Window1->Object->Add(new MenuBar)
with *Menu2->AddMenu("Edit")
.AddEntry("Copy")
.AddEntry("Paste")
.AddEntry("Cut")
.AddDivider
Event(.AddEntry("Search for..."))->SingleClick = @testen
.AddEntry("Mark all")
end with
Application->StartThread
do
loop until RC(application) = Quit
application->QuitThread
Application->Object->DumpObjects
sleep