hi
como add all fonts in listbox
my code
como add all fonts in listbox
my code
not work !!count=0
function found()
count=count+1;
File.Find(_SourceFolder, "*.ttf", false, false, nil, nil);
ListBox.AddItem("ListBox1",tab[1], "data "..count);
return true
end
tab=File.Find(_SourceFolder, "*.ttf", false, false, nil, found);
for i in pairs(tab) do
--ListBox.AddItem("ListBox1",tab[1], "data"..i);
--ListBox.SetItemText("ListBox1", i, tab[1])
ListBox.SetItemCheck("ListBox1", i, BST_CHECKED);
end