Ik kan het even niet vinden om een caption in een tlistitem een ander kleur te geven. Ik gebruik deze code:
Als het bestand niet bestaat, zal deze moeten worden aangegeven in bijvoorbeeld rood. Ik heb de properties en methods doorgenomen, maar kan het niet vinden.Code:procedure TForm2.GetRPTFiles(const folder : string); var List : TListItem; SFile : string; begin Lijstvarianten.First; while not lijstvarianten.eof do begin List := Listview1.Items.Add; List.Caption := lijstvarianten.FieldByName('lijstnaam').AsString; SFile := StrBasisPad + '\' + folder + '\' + List.Caption; if not fileExists(SFile) then --> hiet zou de kleur van de caption moeten veranderen lijstvarianten.Next; end; end;
Het is geen must, maar een mooie optie als dit zou kunnen.
Mocht het niet lukken, probeer ik gewoon een andere manier.
Bookmarks