Color Different Lines of Text in Listbox

[User137]

So something like this in the ListBox1DrawItem()?

Code: [Select]

var s: string;

  s:=TListBox(Control).items[index];
  if copy(s, length(s), 1) = '~' then
    font.color:=clRed
  else
    font.color:=clBlack;

[circular]

Ah ok, so you can test with :

Code: [Select]

var theText: string;

begin
  ...
  theText := (Control as TListBox).Items[Index];
  if copy(theText, length(theText), 1) = '~' then
    ...


[BorisSobad]

  Yes. User 137's method worked. Had a problem w/ Circular's code. Maybe I entered something wrong but I didn't spend too much time after I got a method that worked. Thanks so much for the assistance guys. Program finished.

[circular]

lol I didn't see that User 137 had already posted the code.

[JdeHaan]

Additionally, for others needing different line colors + a different color for the selected item, I use the following:


procedure TForm1.FilelistboxDrawItem(Control: TWinControl; Index: Integer;
                                     aRect: TRect; State: TOwnerDrawState);
begin
  with (Control as TFileListBox).Canvas do begin
    Brush.Style := bsSolid;
    if not FileListBox.Selected[Index] then begin
      if not Odd(Index) then
        Brush.Color := clWhite
      else
        Brush.Color := RGBToColor(243, 246, 250);
    end else begin
      Brush.Color := RGBToColor(56, 117, 215);
      Font.Color := clWhite;
    end;
    FillRect(aRect);
    Brush.Style := bsClear;
    TextOut(aRect.Left, aRect.Top, (Control as TFileListBox).Items[Index]);
  end;
end;

Should also work for TListBox.
KR