Разные стили в одной строке ListBox

[rota]

Здравствуйте уважаемые форумчане. Подскажите пожалуйста можно ли сделать разные стили написания текста в одной строке элемента ListBox.
В ListBox будет выводиться список файлов в директории: хочу чтобы путь отображался обычным, а имя файла - жирным.
Или возможно подскажите какие-то другие решения.

Спасибо.

[Аватар]

см. событие OnDrawItem

[rota]

А можно поподробнее? Видел реализацию разного цвета целой строки или даже картинки в строке, а как задать разные стили для участков текста?

[Аватар]

Помещать куски текста на канву в разном стиле. Вычислять сколько пикселей займет кусок текста можно, например, с помощью GetTextExtentPoint32

ADD

Простейший приём вычисления пикселей текста - невидимый Label с AutoSize=True, того же фонта, что и ListBox, в него текст и смотрим Width

[rota]

Аватар Спасибо, получилось.

Кто задаётся подобным вопросом, код

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  C: TCanvas;
  filename: TStringList;
  x:integer;
  CurrentDir: string;
begin
  C := TListBox(Control).Canvas;

  filename:= TStringList.Create;
  filename.StrictDelimiter := True;
  filename.Delimiter:= '\';
  filename.DelimitedText := TListBox(Control).Items[index];
  CurrentDir:=GetCurrentDir+'\';
  x:=Rect.Left;
  C.TextOut(Rect.Left,rect.Top, CurrentDir);
  C.Font.Style := [fsBold];

  Inc(X, GetPWithStr(CurrentDir));
  C.TextOut(X,rect.Top, filename[filename.count-1]);
  filename.Free;
end;

function TForm1.GetPWithStr(str:string): integer;
var
DC : HDC;
size : TSize;
SaveFont : HFONT;
begin

DC:=GetDC(0);
SaveFont:=SelectObject(DC,ListBox1.Font.Handle);
GetTextExtentPoint32(DC,PChar(str),Length(str),size);
SelectObject(DC,SaveFont);
ReleaseDC(0,DC);
result:=size.cx;
end;

P.S. Только почему-то процедура ListBox1DrawItem отрабатывает несколько раз, можно можно как-то подправить?

[Пепел Феникса]

P.S. Только почему-то процедура ListBox1DrawItem отрабатывает несколько раз, можно можно как-то подправить?

она срабатывает при рисовании каждого итема.

[Аватар]

И каким то уж сложным путем пошли для парсинга строк ListBox-а. Чем Pos не угодил? Или ExtractFileName если там полное имя файла?

[rota]

Сообщение от Пепел Феникса

она срабатывает при рисовании каждого итема.

Я немножко потестил - походу она срабатывает при каждой прорисовке итема - при выделении итема, если верхнее окно перекрыло листбокс, при сворачивании-разворачивании окна.

Кстати выделение итема работает, но отображается как-то коряво

Сообщение от Аватар

И каким то уж сложным путем пошли для парсинга строк ListBox-а. Чем Pos не угодил?

Я новичок, это как?))

[Пепел Феникса]

оно срабывает при каждой перерисовке итема.(будь то перерисовка(и с выделением тоже) или первй раз рисуете)
выделеный итем тоже вы должны отрисовывать поидее(аргумент State).

[rota]

Сообщение от Пепел Феникса

оно срабывает при каждой перерисовке итема.(будь то перерисовка(и с выделением тоже) или первй раз рисуете)
выделеный итем тоже вы должны отрисовывать поидее(аргумент State).

А State можно изменить чтобы не всегда срабатывала?
Можно вообще чтобы один раз при старте сработала и всё, или так не получится?