Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
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