Home

Add

Edit

Without Linenumbers

Code as Text

Download

---

#include "winman.bi" '############################################################################################################## ScreenRes 1024, 768, 24 With G_FormDefauld_Color .V_Back = RGB(255, 255, 255) .V_BorderFill = RGB(200, 200, 200) .V_Border = RGB(150, 150, 200) .V_Text = RGB(0, 0, 0) .V_BarBack = RGB(200, 200, 255) .V_BarText = RGB(0, 0, 0) End With Dim FID as UInteger Dim CID as UInteger FID = F_Form_Add(MKVektor2D(100, 100), MKVektor2D(400, 400), "Form1") 'CID = F_Form_Control_Add(FID, 0, MKVektor2D(0, 0), MKVektor2D(30, 30)) FID = F_Form_Add(MKVektor2D(100, 100), MKVektor2D(400, 400), "Form1") F_Form_Refresh() Do F_Form_CheckInput() Sleep 10, 1 Loop until InKey() <> "" F_Form_Clear() Screen 0 End
Linux - 0.20.0 (08-10-2008) - [using Linux-Debian-Compiler] Linux - 0.18.5 (04-17-2008) - [using Linux-Debian-Compiler] Windows - 0.23.0 (08-14-2011) - [using wine Windows-Compiler] Windows - 0.22.0 (05-06-2011) - [using wine Windows-Compiler] Windows - 0.21.1 (08-11-2010) - [using wine Windows-Compiler] Windows - 0.20.0 (08-10-2008) - [using wine Windows-Compiler] Windows - daily git build (2012-05-23) - [using wine Windows-Compiler] DeltaLab's WebFBC