Home

Add

Edit

With Linenumbers

Code in Textfield

Download

'##############################################################################################################################################################
'##############################################################################################################################################################
'### EWH4 - V:4.00.0 - R:0
'##############################################################################################################################################################
'##############################################################################################################################################################
'### Date of Idea:  2012.10.24 - 22:37:52
'### Autor:         DeltaLab's Germany [Experimental Computing]
'###                Martin Wiemann
'### Contact:       Admin@MLN.ath.cx   /   Info@DeltaLabs.de   /   IRC://MLN.ath.cx/#mln
'### Licence:       Tu was du nicht lassen kannst, solange du hiermit nicht mehr Geld verdienst als ich.
'##############################################################################################################################################################
'##############################################################################################################################################################



'##############################################################################################################################################################
#INCLUDE Once "ewh4.bi"



'##############################################################################################################################################################
Dim Shared TTree As EWH_Control Ptr



'##############################################################################################################################################################
Sub TWin_KeyPress(Byval V_Index As Any Ptr, Byref RV_Key As Integer, Byval V_ControlState As EWH_ControlsMask_Enum)
EWH_Term()
End 0
End Sub



'##############################################################################################################################################################
Sub TCTL_TreeDblClick(Byval V_Index As Any Ptr)
'Print TTree->TreeSelected()->Caption
End Sub



'##############################################################################################################################################################
EWH_Init()

Dim TWin As EWH_Window Ptr
Dim TCtl As EWH_Control Ptr


EWH_Window_Create(TWin, , 500, 500)
With *TWin
    .SetCallback(EWH_CALL_KeyPress, @TWin_KeyPress)
    .Caption    = "Test-Controls"
    .CenterWindow()
    .ControlCreate          (0, EWH_CTL_Empty       , 10, 10, 195, 25)
    .ControlCreate          (0, EWH_CTL_Button      , 10, 40, 195, 25, , , "Button")
    .ControlCreate          (0, EWH_CTL_Label       , 10, 70, 195, 25, , , "Label")
    .ControlCreate          (0, EWH_CTL_Progress    , 10, 100, 195, 25, , , "Progress")->Value = 50
    .ControlCreate          (0, EWH_CTL_Check       , 10, 130, 195, 25, , , "Checkbox")
    .ControlCreate          (0, EWH_CTL_Text        , 10, 160, 195, 25, , , "Textbox")
    TCtl = .ControlCreate   (0, EWH_CTL_List        , 10, 190, 195, 200)
    With *TCtl
        For X As Uinteger = 1 To 100
            .ItemAdd("list-" & Str(X))
        Next
'       For X as UInteger = 1 to 100 Step 5
'           With *.ItemGet(X)
'               .Caption = "abc-" & Str(X)
'               .Selected = EWH_Yes
'           End With
'       Next
    End With
    TCtl = .ControlCreate   (0, EWH_CTL_Grid        , 235, 190, 195, 200)
    With *TCtl
        For X As Uinteger = 1 To 3
            .HeadAdd("head-" & Str(X), 100)
        Next
        For X As Uinteger = 1 To 100
            .ItemAdd("grid-" & Str(X))
        Next
        For X As Uinteger = 1 To 100 Step 5
            With *.ItemGet(X)
                .Caption = "abc-" & Str(X)
                .Selected = EWH_Yes
            End With
        Next
    End With
    .ControlCreate          (0, EWH_CTL_ScrollV     , 210, 10, 20, 380)
    .ControlCreate          (0, EWH_CTL_ScrollH     , 10, 400, 420, 20)
    With *.ControlCreate    (0, EWH_CTL_ButtonBar   , 10, 430, 420, 20)
        .HeadAdd("Test-1", 100)
        .HeadAdd("Test2", 50)
        .HeadAdd("3", 25)
    End With
    TTree = .ControlCreate  (0, EWH_CTL_Tree        , 235, 10, 195, 175)
    With *TTree
        .SetCallback(EWH_CALL_ClickDbl, @TCTL_TreeDblClick)
        .ImageWidth = 20
        .ImageHeight = 16
        '.AutoEdit = EWH_Yes
        For X As Uinteger = 1 To 5
            With *.TreeAdd("tree-" & Str(X))
                If X = 1 Then .Expand = EWH_No
                For y As Uinteger = 1 To 5
                    With *.TreeAdd("tree-" & Str(X) & "-" & Str(y))
                        .Selected = EWH_Yes
                        For z As Uinteger = 1 To 5
                            With *.TreeAdd("tree-" & Str(X) & "-" & Str(y) & "-" & Str(z))
                                
                            End With
                        Next
                    End With
                Next
            End With
        Next
    End With
End With

Do Until (Inkey() = Chr(27)) Or (EWH_CheckCanExit() = EWH_Yes)
    Sleep 10, 1
Loop
EWH_Term()
End 0