Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Вниз

Цвета в combobox   Найти похожие ветки 

← →
DJ_UZer ©   (2008-03-15 18:26) [0]

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

---

← →
Amoeba ©   (2008-03-15 18:54) [1]

Style := csOwnerDrawFixed
и
OnDrawItem

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

---

← →
DJ_UZer ©   (2008-03-15 19:03) [2]

Для KOl?

---

← →
{RASkov} ©   (2008-03-15 19:08) [3]

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

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

---

← →
DJ_UZer ©   (2008-03-15 19:21) [4]

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

---

← →
{RASkov} ©   (2008-03-15 19:24) [5]

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

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

---

← →
Compiler ©   (2008-03-16 11:39) [6]

> Для 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;

---

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

Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c