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

Вниз

Помогите раскрасить ComboBox   Найти похожие ветки 

← →
03111978   (2010-09-15 07:26) [0]

Необходимо в комбобоксе иметь 4 цвета при выборе. Т.е. раскрасить итемсы. Можно такое реализовать ?

---

← →
Ega23 ©   (2010-09-15 08:19) [1]

Чем TColorBox не устраивает?

---

← →
03111978   (2010-09-15 08:35) [2]

> Чем TColorBox не устраивает?
>


Там все стандартные цвета, а мне хотелось бы только 4 моих цвета. Можно в нем как то такое реализовать ? Я все облазил, ничего не нашел. Подскажите плиз ....

---

← →
Ega23 ©   (2010-09-15 08:46) [3]

> Там все стандартные цвета, а мне хотелось бы только 4 моих
> цвета.

TColorBox.Style ?

---

← →
03111978   (2010-09-15 08:51) [4]

Сделал вот так :


var
i : integer;
begin
 i := 0;
 with colorbox1.Items do
   while i <= Count - 1 do
     if (Strings[i] <> "clFuchsia") and (Strings[i] <> "clYellow") and (Strings[i] <> "clGreen") and (Strings[i] <> "clWhite") then
       colorbox1.Items.Delete(i)
     else
       inc(i);
end;


Вроде то что надо, но как еще от названий цветов избавиться и эти квадратики с цветами растянуть на все полу комбобокса ?

---

← →
Джо ©   (2010-09-15 16:34) [5]

Style := csOwnerDrawFixed и в OnDrawItem хоть черта лысого можно рисовать.

---

← →
Джо ©   (2010-09-15 16:40) [6]

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
var
 Clr: TColor;
begin
 case Index of
   0: Clr := clRed;
   1: Clr := clYellow;
   2: Clr := clBlue;
   3: Clr := clGreen;
 end;
 TComboBox(Control).Canvas.Brush.Color := Clr;
 TComboBox(Control).Canvas.FillRect (Rect);
end;

Четыре строки только в комбо добавить в дизайнере.

---

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

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

Наверх

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