User Tools

Site Tools


6.9.6 FileProperties

The FileProperties control (gb.form) displays essential properties of a file or directory in a TabPanel. You can add additional tabs to the TabPanel by using the FileProperties.Add(…) method. The DirChooser and FileChooser controls also internally use the FileProperties control to display selected properties of a file or directory (blue button with i symbol):

Figure Use of control element FileProperties in DirChooser

You can create this class:

Dim hFileProperties As FileProperties
hFileProperties = New FileProperties ( Parent As Container )  As "EventName" Properties

The FileProperties class has these properties, among others:

PropertyData typeDescription
Data_FilePropertiesReturns a virtual object to be filled by the data event handler to describe the file type and set the displayed icon.
PathStringReturns or sets the path of the file whose properties are displayed. If the path is a directory, the size of the directory contents is automatically calculated by a background task.

Table : Selected properties of the FileProperties class Methods

The FileProperties control element displays a preview image in addition to selected properties (type, directory, size, date last modified (mtime), permissions, owner and group) for image files only.

Figure Display of selected properties

Figure Display thumbnail image

The Add( Panel As Control, Title As String ) method adds an existing container or control to a new tab of the FileProperties control. Panel is the control that is inserted and Title is the title of the new tab.

Figure New tab with the title “Text Preview”.

A new tab can be created with this source code:

Public Sub FileView1_Click()
  Dim sFileName, sFilePath As String
  sFileName = FileView1.Current
  sFilePath = DirBox1.Value &/ sFileName
  FileProperties1.Path = sFilePath
  Select Lower(File.Ext(sFileName))
    Case "txt", "xml", "conf", "class", "log", "dat", "py", "pl", "php", "html"
      If k = 0 Then
         hTextArea = New TextArea(FileProperties1)
         hTextArea.Background = &HFFFFE1
         FileProperties1.Add(hTextArea, ("Text preview"))
         Inc k
      hTextArea.Text = File.Load(sFilePath)
      hTextArea.Pos = 0
  End Select

With the above source code, you can extend the default behaviour to also display the contents of selected text files. Events

Among the events of the control element, the Data() event is of particular interest: The FileProperties.Data() event can be handled to define the type of a special group of files - criterion is a list of extensions - and their symbol by filling the Data property during the event handler. If the default behaviour of the FileProperties dialogue is desired in the event handler, then the event must be stopped.

Figure Extended display of file type with matching icon.

Source code section:

[1] Public Sub FileProperties1_Data()
[3]   If IsDir(FileProperties1.Path) Then
[4]    ' Default behavior
[5]      Stop Event
[6]      Return
[7]   Else
[8]      Select Lower(File.Ext(FileView1.Current))
[9]        Case "txt", "xml", "conf", "class", "log", "dat", "py", "pl", "php", "html"
[10]          FileProperties1.Data.Type = ("Text file")
[11]          FileProperties1.Data.Icon = Picture["icon:/48/shortcut"]
[12]        Case "pdf"
[13]          FileProperties1.Data.Type = ("PDF-File")
[14]          FileProperties1.Data.Icon = Picture["icon:/48/pdf"]
[15]        Case "png", "jpg", "jpeg", "gif"
[16]        ' Default behavior of the FileProperties dialog for these selected file extensions
[17]          Stop Event
[18]          Return
[19]        Case Else
[20]          FileProperties1.Data.Type = ("File")
[21]          FileProperties1.Data.Icon = Picture["icon:/48/office"]
[22]      End Select
[23]   Endif
[25] End




The website uses a temporary session cookie. This technically necessary cookie is deleted when the browser is closed. You can find information on cookies in our privacy policy.
k6/k6.9/k6.9.6/start.txt · Last modified: 16.01.2022 (external edit)

Page Tools