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

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

TComboBox ItemIdex [D7, WinXP]

Cat ©   (2005-06-09 15:56:00) 

Как в TComboBox ItemIdex сделать шрифт другого цвета у последних двух элементов ItemIdex.

---

ssk   (2005-06-09 16:53:00) [1]

переменные kи k1не нужны. забыл убрать.

---

ssk   (2005-06-09 16:51:00) [2]

примерно так:


var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
var
 s: string;
 k, k1: integer;
begin
 with ComboBox1 do
   begin
     s := Items[Index];
     Canvas.FillRect(Rect);
     case Index of
       3:
         begin
           Canvas.Font.Name := 'Tahoma';
           Canvas.Font.Style := Canvas.Font.Style + [fsBold];
           Canvas.Font.Color := clBlue;
         end;
       4:
         begin
           Canvas.Font.Name := 'Tahoma';
           Canvas.Font.Style := Canvas.Font.Style + [fsItalic, fsBold];
           Canvas.Font.Color := clRed;
         end;
     end;
     Canvas.TextOut(5, Rect.Top + 1, s);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Style := csOwnerDrawFixed;
 ComboBox1.Clear;
 ComboBox1.Items.Add('Первая строка');
 ComboBox1.Items.Add('Вторая строка');
 ComboBox1.Items.Add('Третья строка');
 ComboBox1.Items.Add('Четвертая строка');
 ComboBox1.Items.Add('Пятая строка');
end;


---

Наверх