Home

Add

Edit

With Linenumbers

Code in Textfield

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