Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

CheckListBox разный шрифт для записей   Найти похожие ветки 

← →
Tiler   (2004-11-14 15:04) [0]

Здравствуйте...

Нужно, что бы некоторые записи были зачеркнуты (перечеркнуты)
Возможно ли этого добиться используя стандартный CheckListBox?

---

← →
MBo ©   (2004-11-14 15:16) [1]

стиль lbOwnerDrawFixed


procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
 Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 with CheckListBox1.Canvas do begin
   FillRect(Rect);
   if Odd(Index) then
     Font.Style := Font.Style + [fsStrikeOut]
   else
     Font.Style := Font.Style - [fsStrikeOut];
   TextOut(Rect.Left + 2, Rect.Top + 2, CheckListBox1.Items[Index]);
 end;
end;


---

← →
Tiler   (2004-11-14 16:51) [2]

2MBo
Как раз то, что надо...  
Спасибо вам и удачи!

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.026 c