| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цвета в combobox [D7, XP]

DJ_UZer ©   (2008-03-15 18:26:00) 

Еще раз привет..
Теперь такой вопрос: в списке комбо бокс как можно сделать, что бы текст был определенного цвета, при этом каждая строчка..

---

Compiler   (2008-03-16 11:39:00) [1]

> Для KOl?

И тут найдем:)
В Object Inspector у Combobox в опциях указываем coOwnerDrawFixed:=True и

function TForm1.ComboBox1DrawItem(Sender: PObj; DC: HDC; const Rect: TRect;
 ItemIdx: Integer; DrawAction: TDrawAction;
 ItemState: TDrawState): Boolean;
var
 TextRect:Trect;
begin
TextRect:=Rect;
if ItemIdx > -1 then begin
case ItemIdx mod 3 of
   0: SetTextColor(DC,ClBlack);
   1: SetTextColor(DC,ClRed);
   2:SetTextColor(DC,ClBlue);
end;
FillRect(DC,Rect,0);
DrawText(DC,PChar(PControl(Sender).Items[ItemIdx]),Length(PControl(Sender).Items  [ItemIdx]),
               TextRect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
if (odsSelected in ItemState) then
  InvertRect(DC,TextRect)
end;
result:=False;
end;

procedure TForm1.Button1Click(Sender: PObj);
var
 i:Integer;
begin
for i:=0 to 10 do
 Combobox1.Add('Cтрока №'+int2str(i))
end;

---

{RASkov}   (2008-03-15 19:24:00) [2]

> [4] DJ_UZer ©   (15.03.08 19:21)

Аа) ну тады сорри.... я в кол не в зуб ногой :(

---

DJ_UZer   (2008-03-15 19:21:00) [3]

{RASkov}, меня сюда модер кинул, а точней мои вопросы из категории кол были перенесены сюда..

---

{RASkov}   (2008-03-15 19:08:00) [4]

> [2] DJ_UZer ©   (15.03.08 19:03)

А при чем здесь KOl? В данной конференции Кол не рассматривается...

---

DJ_UZer   (2008-03-15 19:03:00) [5]

Для KOl?

---

Amoeba   (2008-03-15 18:54:00) [6]

Style := csOwnerDrawFixed
и
OnDrawItem

Подробности в справке. RTFM!

---

Наверх