fgeticon.class

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas class file

STATIC PRIVATE $sPath AS String

PRIVATE selOpen AS FSupSelector

STATIC PUBLIC FUNCTION Run(OPTIONAL sPath AS String) AS String

  $sPath = sPath
  IF FGetIcon.ShowModal() THEN RETURN $sPath

END

PUBLIC SUB _new()

  'Project.Config.LoadWindowSize(ME, "FOpenProject")

  selOpen = NEW FSupSelector(ME)

  WITH selOpen

    .DialogType = FSupSelector.SHOW_IMAGE
    .Root = File.Dir(Project.Path)
    .ShowRootTab = FALSE
    .ShowHomeTab = FALSE
    .ShowProjectTab = TRUE
    .DoNotShowCustomTabs = TRUE
    .Key = "/SelectPicture"
    .Filters = ("Picture files") & "|*.png,*.jpg,*.jpeg,*.xpm,*.gif|" & ("All files") & "|*"
    .ButtonWidth = btnOK.Width
    .Path = $sPath
    .OKButton = btnOK
    .Init()

  END WITH

  btnOK.Raise
  btnCancel.Raise

END


PUBLIC SUB Form_Resize()

  btnCancel.Move(ME.ClientW - btnCancel.Width - 8, ME.ClientH - btnCancel.Height - 8)
  btnOK.Move(btnCancel.X, btnCancel.Y - btnOK.Height - 8)

  selOpen.Move(8, 8, ME.ClientW - 16, ME.ClientH - 16)

END

PUBLIC SUB btnCancel_Click()

  ME.Close

END

PUBLIC SUB btnOK_Click()

  IF NOT selOpen.Validate() THEN RETURN

  $sPath = Mid$(selOpen.Path, Len(File.Dir(Project.Path)) + 1)
  IF Left$($sPath) = "/" THEN $sPath = Mid$($sPath, 2)

  'Project.Config.SaveWindowSize(ME, "FOpenProject")
  ME.Close(TRUE)

END