Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. '##############################################################################################################################################################
    
  2. '##############################################################################################################################################################
    
  3. '### EWH4 - V:4.00.0 - R:0
    
  4. '##############################################################################################################################################################
    
  5. '##############################################################################################################################################################
    
  6. '### Date of Idea:  2012.10.24 - 22:37:52
    
  7. '### Autor:         DeltaLab's Germany [Experimental Computing]
    
  8. '###                Martin Wiemann
    
  9. '### Contact:       Admin@MLN.ath.cx   /   Info@DeltaLabs.de   /   IRC://MLN.ath.cx/#mln
    
  10. '### Licence:       Tu was du nicht lassen kannst, solange du hiermit nicht mehr Geld verdienst als ich.
    
  11. '##############################################################################################################################################################
    
  12. '##############################################################################################################################################################
    
  13. 
    
  14. 
    
  15. 
    
  16. '##############################################################################################################################################################
    
  17. #INCLUDE Once "ewh4.bi"
    
  18. 
    
  19. 
    
  20. 
    
  21. '##############################################################################################################################################################
    
  22. Dim Shared TTree As EWH_Control Ptr
    
  23. 
    
  24. 
    
  25. 
    
  26. '##############################################################################################################################################################
    
  27. Sub TWin_KeyPress(Byval V_Index As Any Ptr, Byref RV_Key As Integer, Byval V_ControlState As EWH_ControlsMask_Enum)
    
  28. EWH_Term()
    
  29. End 0
    
  30. End Sub
    
  31. 
    
  32. 
    
  33. 
    
  34. '##############################################################################################################################################################
    
  35. Sub TCTL_TreeDblClick(Byval V_Index As Any Ptr)
    
  36. 'Print TTree->TreeSelected()->Caption
    
  37. End Sub
    
  38. 
    
  39. 
    
  40. 
    
  41. '##############################################################################################################################################################
    
  42. EWH_Init()
    
  43. 
    
  44. Dim TWin As EWH_Window Ptr
    
  45. Dim TCtl As EWH_Control Ptr
    
  46. 
    
  47. 
    
  48. EWH_Window_Create(TWin, , 500, 500)
    
  49. With *TWin
    
  50.     .SetCallback(EWH_CALL_KeyPress, @TWin_KeyPress)
    
  51.     .Caption    = "Test-Controls"
    
  52.     .CenterWindow()
    
  53.     .ControlCreate          (0, EWH_CTL_Empty       , 10, 10, 195, 25)
    
  54.     .ControlCreate          (0, EWH_CTL_Button      , 10, 40, 195, 25, , , "Button")
    
  55.     .ControlCreate          (0, EWH_CTL_Label       , 10, 70, 195, 25, , , "Label")
    
  56.     .ControlCreate          (0, EWH_CTL_Progress    , 10, 100, 195, 25, , , "Progress")->Value = 50
    
  57.     .ControlCreate          (0, EWH_CTL_Check       , 10, 130, 195, 25, , , "Checkbox")
    
  58.     .ControlCreate          (0, EWH_CTL_Text        , 10, 160, 195, 25, , , "Textbox")
    
  59.     TCtl = .ControlCreate   (0, EWH_CTL_List        , 10, 190, 195, 200)
    
  60.     With *TCtl
    
  61.         For X As Uinteger = 1 To 100
    
  62.             .ItemAdd("list-" & Str(X))
    
  63.         Next
    
  64. '       For X as UInteger = 1 to 100 Step 5
    
  65. '           With *.ItemGet(X)
    
  66. '               .Caption = "abc-" & Str(X)
    
  67. '               .Selected = EWH_Yes
    
  68. '           End With
    
  69. '       Next
    
  70.     End With
    
  71.     TCtl = .ControlCreate   (0, EWH_CTL_Grid        , 235, 190, 195, 200)
    
  72.     With *TCtl
    
  73.         For X As Uinteger = 1 To 3
    
  74.             .HeadAdd("head-" & Str(X), 100)
    
  75.         Next
    
  76.         For X As Uinteger = 1 To 100
    
  77.             .ItemAdd("grid-" & Str(X))
    
  78.         Next
    
  79.         For X As Uinteger = 1 To 100 Step 5
    
  80.             With *.ItemGet(X)
    
  81.                 .Caption = "abc-" & Str(X)
    
  82.                 .Selected = EWH_Yes
    
  83.             End With
    
  84.         Next
    
  85.     End With
    
  86.     .ControlCreate          (0, EWH_CTL_ScrollV     , 210, 10, 20, 380)
    
  87.     .ControlCreate          (0, EWH_CTL_ScrollH     , 10, 400, 420, 20)
    
  88.     With *.ControlCreate    (0, EWH_CTL_ButtonBar   , 10, 430, 420, 20)
    
  89.         .HeadAdd("Test-1", 100)
    
  90.         .HeadAdd("Test2", 50)
    
  91.         .HeadAdd("3", 25)
    
  92.     End With
    
  93.     TTree = .ControlCreate  (0, EWH_CTL_Tree        , 235, 10, 195, 175)
    
  94.     With *TTree
    
  95.         .SetCallback(EWH_CALL_ClickDbl, @TCTL_TreeDblClick)
    
  96.         .ImageWidth = 20
    
  97.         .ImageHeight = 16
    
  98.         '.AutoEdit = EWH_Yes
    
  99.         For X As Uinteger = 1 To 5
    
  100.             With *.TreeAdd("tree-" & Str(X))
    
  101.                 If X = 1 Then .Expand = EWH_No
    
  102.                 For y As Uinteger = 1 To 5
    
  103.                     With *.TreeAdd("tree-" & Str(X) & "-" & Str(y))
    
  104.                         .Selected = EWH_Yes
    
  105.                         For z As Uinteger = 1 To 5
    
  106.                             With *.TreeAdd("tree-" & Str(X) & "-" & Str(y) & "-" & Str(z))
    
  107.                                 
    
  108.                             End With
    
  109.                         Next
    
  110.                     End With
    
  111.                 Next
    
  112.             End With
    
  113.         Next
    
  114.     End With
    
  115. End With
    
  116. 
    
  117. Do Until (Inkey() = Chr(27)) Or (EWH_CheckCanExit() = EWH_Yes)
    
  118.     Sleep 10, 1
    
  119. Loop
    
  120. EWH_Term()
    
  121. End 0
    
  122. 
    
  123. 
    
  124.