FileListBox bestimmte Zeilen einfärben

**SaFu**

Hi

Wie kann ich eine Bestimmte zeile in einer FileListBox einfären immoment mache ich die Anzeige über ein Panel was aber doof aussieht.

Hier wird geprüft ob die datei in dem Ordner vorhanden ist oder nicht je nach dem soll die Zeile in der jeweiligen Farbe in der FileListBox angezeigt werden

zusammenfalten · markieren

Delphi-Quellcode:

			sPfadOrdnerOeffentlichLabel:= (Form1.Serverpfad  + 'Datei_Öffentlich\'+ ExtractFileName(ShellTreeView1.Path)+'\' +ExtractFileName(FileListBox1.FileName));

   if FileListBox1.FileName = '' then

     begin

       Panel6.Caption:= '';

       Panel6.Color:= ClBtnShadow;

     end

    else

     if FileExists(sPfadOrdnerOeffentlichLabel) then

     begin

      Panel6.Caption:= 'Veröffentlicht';

      Panel6.Color:= ClLime;

     end

    else

    begin

     Panel6.Caption:= 'Nicht veröffentlicht';

     Panel6.Color:= ClRed;

    end;

Gruß Sascha

FileListBox bestimmte Zeilen einfärben

FileListBox bestimmte Zeilen einfärben

Forumregeln