[Gambas-user] Problem gb.qt

herberth guzman herberthguzman at ...626...
Tue Feb 3 17:09:34 CET 2015


Hi Benoit

thanks for you help

attach code not working gb.qt svn_rev6875 onwards

' Gambas class file

Public sExplorer As FileView

Public Sub Form_Open()
Create_sExplorer_Init
End

  Public Sub Create_sExplorer_Init()

  TabPanelExplorer.Text = User.Home
  sExplorer = New FileView(TabPanelExplorer) As "sExplorer"
  TabPanelExplorer.Children[0].Name = "sExplorer" &
CStr(TabPanelExplorer.Index + 1)
  sExplorer.expand = True

  With sExplorer
    .ShowDirectory = True
    .ShowPreview = True
    .Dir = User.Home
    .Background = Color.Default
  End With
  TabPanelExplorer.Picture = Picture["icon:/small/directory"]


End

Public Sub Create_sExplorer()


  TabPanelExplorer.Count += 1
  TabPanelExplorer.Text = User.Home
  sExplorer = New FileView(TabPanelExplorer) As "sExplorer"
  TabPanelExplorer.Children[0].Name = "sExplorer" &
CStr(TabPanelExplorer.Index + 1)
  sExplorer.expand = True


  With sExplorer
    .ShowDirectory = True
    .ShowPreview = True
    .Dir = User.Home
    .Background = Color.Default
  End With
  TabPanelExplorer.Picture = Picture["icon:/small/directory"]


End



Public Sub Button1_Click()

  Create_sExplorer

End

Regards


Herberth Guzman
https://plus.google.com/u/0/105457212371116775367/posts



More information about the User mailing list