fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

gfx2gtk-test.bas

Uploader:	OneCypher
Datum/Zeit:	23.03.2010 20:33:44

#include "gfx2gtk.bi"



screen 16,32



var a = gfxwin(300,300)

a.title = "Fenster 1"

line a.fbbuffer, (0,0)-(300,300),RGB(0,255,0)

line a.fbbuffer, (300,0)-(0,300),RGB(0,255,0)

a.refresh



var b = gfxwin(300,300)

b.title = "Fenster 2"

line b.fbbuffer, (0,0)-(300,300),RGB(255,0,0)

line b.fbbuffer, (300,0)-(0,300),RGB(255,0,0)

b.refresh



dim lasttime as double

dim new_time as double

do

    new_time = timer

    draw string a.fbbuffer, (0,0), "Fenster 1" & lasttime,RGB(0,0,0)

    draw string a.fbbuffer, (0,0), "Fenster 1" & new_time,RGB(255,255,255)

    a.refresh



    draw string b.fbbuffer, (0,0), "Fenster 2" & lasttime,RGB(0,0,0)

    draw string b.fbbuffer, (0,0), "Fenster 2" & new_time,RGB(255,255,255)

    b.refresh



    draw string (0,0), "GFX Fenster " & lasttime,RGB(0,0,0)

    draw string (0,0), "GFX Fenster " & new_time,RGB(255,255,255)



    lasttime = new_time



    locate 2,1: print "                    "

    locate 3,1: print "                    "

    locate 2,1: print "Mouse in F1= " & a.mouse_x & "x" & a.mouse_y

    locate 3,1: print "Mouse in F2= " & b.mouse_x & "x" & b.mouse_y

sleep 1,1

loop

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.