Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. 
    
  2. #INCLUDE "winman.bi"
    
  3. 
    
  4. 
    
  5. '##############################################################################################################
    
  6. Screenres 1024, 768, 24
    
  7. 
    
  8. With G_FormDefauld_Color
    
  9.     .V_Back         = Rgb(255, 255, 255)
    
  10.     .V_BorderFill   = Rgb(200, 200, 200)
    
  11.     .V_Border       = Rgb(150, 150, 200)
    
  12.     .V_Text         = Rgb(0, 0, 0)
    
  13.     .V_BarBack      = Rgb(200, 200, 255)
    
  14.     .V_BarText      = Rgb(0, 0, 0)
    
  15. End With
    
  16. 
    
  17. Dim FID As Uinteger
    
  18. Dim CID As Uinteger
    
  19. 
    
  20. FID = F_Form_Add(MKVektor2D(100, 100), MKVektor2D(400, 400), "Form1")
    
  21. 'CID = F_Form_Control_Add(FID, 0, MKVektor2D(0, 0), MKVektor2D(30, 30))
    
  22. FID = F_Form_Add(MKVektor2D(100, 100), MKVektor2D(400, 400), "Form1")
    
  23. 
    
  24. 
    
  25. F_Form_Refresh()
    
  26. Do
    
  27.     F_Form_CheckInput()
    
  28.     Sleep 10, 1
    
  29. Loop Until Inkey() <> ""
    
  30. 
    
  31. F_Form_Clear()
    
  32. Screen 0
    
  33. End
    
  34. 
    
  35. 
    
  36. 
    
  37. 
    
  38.