Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
example4.bas
| Uploader: |  OneCypher |
| Datum/Zeit: | 13.10.2009 11:02:48 |
Hinweis: Dieser Quelltext ist Bestandteil des Projekts GuiPtr, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
#include "GuiWindow.bi"
#include "Button.bi"
#include "Label.bi"
#INCLUDE "fbgfx.bi"
#include "GuiPtrTools.bi"
USING FB
dim as integer sx = 640, sy = 512 '424
screenres sx,sy,32,0,1+GFX_SHAPED_WINDOW' + GFX_ALWAYS_ON_TOP
Width sx / 8, sy /16
Sub DumpAll(GO as NullWindow ptr)
Dump GO->Object->root->DumpObjects
end sub
sub Ticker(go as any ptr, e as EventParameter)
'if e.mb <> 0 then
dump "Maus:" & e.mx & " " & e.my & " " & e.mb
'end if
end sub
Dim Cancel as button ptr
Dim Cancel1 as button ptr
Dim Cancel2 as button ptr
Dim Cancel3 as button ptr
'Benutze neues Fenster
Use(new NullWindow)
'Diese Hintergrundfarbe ist dunkel-grün
This->BackColor = RGB(0,128,0)
'Me->Add New Label("40;80","Hallo Welt!")
'Ich füge "Cancel" als neuen Button mit dem Text "Beenden" ein
Event(Me->Add(Cancel, new Button(10,10,"Beenden")))->OnMouseOver = @Ticker
''Ich füge "Cancel1" als neuen Button mit dem Text "Beenden1" ein
Me->Add Cancel1, new Button(10,40,"Beenden1")
''Benutze mein neues Fenster mit dem Titel "hallo"
Use(Me->Add(New GuiWindow(100,100,500,400,"hallo!")))
''Ich füge "Cancel3" als neuen Button mit dem Text "Beenden3" ein
Me->Add Cancel3, new Button(10,100,"Beenden3")
''Benutze mein neues Fenster mit dem Titel "Hallo Welt!"
Use(Me->Add(New GuiWindow(10,30,200,200,"Hallo Welt!")))
'Ich füge "Cancel2" als neuen Button mit dem Text "OK" ein
Me->Add Cancel2, new Button(10,70,"OK")
EndUse 'Dieses Fenster hab ich fertig
'Benutze mein neues Fenster mit dem Titel "ManaMana!"
Use(Me->Add(New GuiWindow(220,30,200,200,"ManaMana!")))
'Ich füge "Cancel2" als neuen Button mit dem Text "Nichts" ein
Me->Add new Button(10,70,"Nichts")
EndUse 'Dieses Fenster habe ich auch fertig!
EndUse 'Und das 1. Fenster ist nun auch fertig...
'Mein Ereignis OnTick soll die Sub DumpAll ausführen
Event(This)->OnTick = @DumpAll
'Nu wiederhole ich mich so lange bis mein ReturnCode Cancel2 ist
do: loop until RC(This) = Cancel
EndUse 'Mein Programm ist beendet