[Gambas-user] Wish: image path from project tree

[Benoit Minisini]

On Wednesday 24 May 2006 02:57, ron wrote:
> On Saturday 13 May 2006 14:46, ron wrote:
> > I add simple code in FMain to be able to get the path
> > of a image/object in the Data directory.
> >
> > This is done to get the path of the object and able
> > to paste it in the editor code.
> >
> > Note: the .Visible property is not what is should be in
> > logical sence seen as the other above it but it looks
> > that it works then only 1 time. :(
> >
> > I did need a quick working method and this do the job. :)
> >
> > Patch and code below
> > ------------------------------------------------
> > in FMain.form
> >   { mnuPopup Menu
> > ...
> >     { mnuPropertyFile Menu
> >       Text = ("&Properties...")
> >       Picture = Picture["img/16/sheet.png"]
> >     }
> >     { mnuCopyPath Menu
> >       Text = ("CopyPath")
> >       Picture = Picture["img/16/text.png"]
> >     }
> >   }
> >
> > the entry 'mnuCopyPath' (4 lines using menu editor)
> > ------------------------------------------------
> > in FMain.class
> > in PUBLIC SUB mnuPopup_Show()
> >
> >   bFile = (NOT Project.IsClassName(sCurrent)) AND bCurrent
> >   mnuCut.Visible = mnuCut.Visible AND (bFile AND NOT IsDir($sKey))
> >   mnuCopy.Visible = mnuCopy.Visible AND (bFile AND NOT IsDir($sKey))
> >   mnuPaste.Visible = mnuPaste.Visible AND (bFile OR $sKey =
> > Project.KEY_MISC) AND Clipboard.Format = FILE_CLIPBOARD_FORMAT
> >
> > '<add ron copypath>
> > mnuCopyPath.Visible = mnuCopy.Visible
> > '</add ron cp>
> >
> >   mnuAddForm.Visible = Project.AllowForm()
> > then <add ron> part
> > ------------------------------------------------
> >
> > in FMain.class a subroutine just below the 'mnuCopy_Click()'
> >
> > '<add ron>
> > PUBLIC SUB mnuCopyPath_Click()
> >   DIM sPath AS String
> >   sPath = GetCurrent()
> >   sPath = Mid$(sPath, Len(project.Dir) + 2)
> >   Clipboard.Copy(sPath, "text/plain") 'FILE_CLIPBOARD_FORMAT)
> > END
> > '</add ron>
> > ------------------------------------------------
> >
> >
> > Smiling,
> >
> > Ron
>
> Kick,
>
> Is it add to 1.9.30 as I like it much?
>
> Ron
>

I didn't add it, I forgot. I will see what I can do :-)

Regards,

-- 
Benoit Minisini