hola amigos.
Se que debe ser algo que se me pasa, pero estoy intentando colorear un listbox dependiendo de si lo introducido es un fichero o una carpeta.
mi cdigo es el siguiente
metodo llenalb(dire as string, lb as listbox)
Dim i as Integer
Dim fold as Folderitem
fold = new FolderItem( dire, FolderItem.PathTypeNative )
if fold<>nil then
lb.DeleteAllRows
for i=1 to fold.count
if left(fold.item(i).name,1)<>"." then
colorete=rgb(255,0,0)
if fold.item(i).Directory=true then
colorete=rgb(200,200,200)
else
colorete=rgb(0,0,0)
end if
lb.AddRow fold.item(i).name
end if
next
folderstr=fold.ShellPath
end if
envento celltextpaint
g.ForeColor=colorete
el caso es que siempre tengo el listbox con color grisceo claro.
que es lo que se me pasa
debera de tener los directorios en color gris claro, y los ficheros en negro.
una ayuda???
Gracias