Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Июл

Изменить цвет строки ListBox

Posted by micher under Delphi

Имеется ListBox, в который загружается список файлов и в конце файла [0] или [1] — это параметр. В зависимости от параметра строка либо зеленая либо красная. У меня стоит сейчас CASE INDEX OF на 30 строк в котором проверка. Естественно если больше 30-ти строк то те не окрашиваются. Как сделать это правильно через цикл?

waka2ebawer



procedure TForm1.lst1DrawItem(Control: TWinControl; Index: Integer;

Rect: TRect; State: TOwnerDrawState);

var

 text,str,a:string;

  begin

   with (Control as TListBox).Canvas do

    begin a:='[1]';

    text:=lst1.Items.Strings[Index];

    while pos('[',text)<>0 do begin str:=copy(text,pos('[',text),pos(']',text)); delete(text,1,pos(']',text));

    if Pos('[', str)>0 then

    str:= Copy(str, 1, Pos(']', str));

    if str=a then begin

    Font.Color:=clWhite; Brush.Color:=clGreen;

    end else begin

    Font.Color:=clWhite; Brush.Color:=clRed;

   end;end;

  FillRect(Rect);

TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[index]);

end;

end;