List

Add

Info

Contact

Stats

To edit this entry i need username and password!
Fields marked * are required!

* Username:
* Password:
Type:	Sourcecode (WITHOUT BBCode support)
Name:	TWM.bas
* Data: (max. 1 MB) Available TAG's (new window)	#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
Filetype / Highlight:	freeBASIC
Action: