Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

example4.bas

Uploader:MitgliedOneCypher
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