[Gambas-user] File Chooser

[Steven Lobbezoo]

Hi Benoit,

I cannot send you the project, since your mail box does not accept large 
files ;-) (known problem).
But attached is the form and the code.
It is called with a showmodal.
In the mean time i went back to the previous trunk, and it works just fine 
now.

Kindest regards,

Steven




Le mardi 25 septembre 2007 17:45, Benoit Minisini a écrit :
> On mardi 25 septembre 2007, Steven Lobbezoo wrote:
> > Hi,
> >
> > Latest trunk (yesterday afternoon) on suse 10.2
> >
> > I have a problem with the filechooser control.
> > I form that worked perfectly before, does not show anymore.
> > The program halts on the filechooser1.Bookmarks below, just as if I put a
> > stop-point on it. Sometimes the program continues, but shows only part of
> > the form (no buttons, ....).
> >
> > Part of the code :
> >
> >
> > PUBLIC SUB Form_Open()
> > DIM tmp AS String
> >
> >   ' we add some marks if we can
> >   IF Exist("/home/partage") THEN
> >     tmp = "/home/partage"
> >   ELSE IF Exist(User.Home & "/partage") THEN
> >     tmp = User.Home & "/partage"
> >   END IF
> >   FileChooser1.Dir = MGlobal.FPath
> >   IF tmp THEN
> >     FileChooser1.Bookmarks = [[tmp, "Partage", "icon:/16/language"],
> > ["/home", "Répertoire base", "icon:/16/directory"]]
> >   ELSE
> >     FileChooser1.Bookmarks = [["/tmp", "Temporary directory"],
> > ["/home", "Répertoire base", "icon:/16/directory"]]
> >   END IF
> > END
> >
> >
> > Thanks,
> > Steven
>
> You don't have any error? Can you send me the project, or at least the form
> but I prefer the project, so that I have the entire context.
>
> Regards,
-------------- next part --------------
# Gambas Form File 2.0

{ Form Form
  MoveScaled(0,0,84,53)
  Font = Font["Italic"]
  Background = Color.Background
  Foreground = Color.Foreground
  Text = ("Revimmo - selection de fichiers")
  Icon = Picture["icon:/16/watch"]
  { FileChooser1 FileChooser
    MoveScaled(1,1,82,43)
    Font = Font["Italic"]
    Background = Color.Background
    Foreground = Color.Foreground
    Multi = True
    Filter = [("*.png;*.jpg;*.jpeg;*.bmp;*.gif;*.xpm"), ("Images, photo's"), ("*.*"), ("Tous les fichiers")]
    ShowDetailed = True
  }
  { Panel1 Panel
    MoveScaled(1,45,82,8)
    { ok ToolButton
      MoveScaled(69,3,13,4)
      Font = Font["Italic"]
      Text = ("  Allez-y")
      Picture = Picture["icon:/16/color"]
      Border = True
    }
    { cancel ToolButton
      MoveScaled(53,3,13,4)
      Font = Font["Italic"]
      Text = ("   Annuler")
      Picture = Picture["icon:/16/cancel"]
      Border = True
    }
    { TextLabel1 TextLabel
      MoveScaled(0,0,50,7)
      Font = Font["Italic,8"]
      Foreground = &H800000&
      Text = ("Vous pouvez choisir plusieurs\nfichiers en m\xC3\xAAme temps, en\nappuient sur le taste \"Ctrl\" et\nselectionner les fichiers avec \nle souris, ou en m\xC3\xAAme fa\xC3\xA7on\nselectionner une liste avec le\ntaste \"Maj\" et le souris.")
    }
  }
}
-------------- next part --------------
A non-text attachment was scrubbed...
Name: fileselector.class
Type: application/x-java
Size: 1086 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20070925/99b9d7a2/attachment.bin>