[Gambas-devel] failed to implement
Charlie Reinl
Karl.Reinl at ...16...
Fri Sep 22 00:28:13 CEST 2006
Salut,
on gambas2-1.9.42 IDE
I wanted to have at gambas-Wellcome, the possibillity to erase some old entrys
from the Recent-List.
I made a menu, which opens at a right mouse-click.
PUBLIC SUB btnOpenRecent_Click()
$sPath = LAST.Tag
IF Mouse.Left THEN
ME.Close
ELSE
mnuRecent.Popup
ENDIF
END
If i click on the menu.
PUBLIC SUB mnuRecentDel_Click()
DIM hButton AS CCoolButton
DIM iElem AS Integer
DIM iInd AS Integer
iElem = aList.Find($sPath)
IF iElem > -1 THEN
Project.Recent.Remove(iElem)
aList = Project.Recent
FOR iInd = 0 TO aList.Count - 1
hButton = NEW CCoolButton(svwRecent, 0, iInd * 32, 1024, 32,
File.Name(aList[iInd]), Project.GetIcon(aList[iInd], 24)) AS "btnOpenRecent"
hButton.Tag = aList[iInd]
hButton.ToolTip = File.Dir(aList[iInd])
NEXT
IF aList.Count = 0 THEN btnRecent.Enabled = FALSE
svwRecent.Refresh
ENDIF
END
But I failed, the ScrollView isn't with me.
I'm able to delete the Project.Recent element.
I remade the aList, which I set Private to the form.
Is there a way to delete an item from the ScrollView ?
Would be nice !
Amicalment
Charlie
More information about the Devel
mailing list