Скачать: CL | DM;

всем привет. как можно раскраситьгрид одну строку разными цветом   Найти похожие ветки 

← →
corte ™   (2003-06-09 13:35) [0]

всем привет. как можно раскраситьгрид одну строку разными цветом.
Можно не грид можно мемо или ричь едит но луть ше грид

---

← →
Skier ©   (2003-06-09 13:37) [1]

OnDrawCell

---

← →
Александр из Минска ©   (2003-06-09 13:57) [2]

Я делаю так:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if gdFixed in State then Exit;
if (ARow = 1) and (ACol <> 0) then
begin
StringGrid1.Canvas.Brush.Color := clBlack;
StringGrid1.Canvas.Brush.Style := bsSolid;
StringGrid1.Canvas.FillRect(Rect);
end;
end;
Но тогда надо еще менять цвет шрифта, т.к. его очень плохо будет видно.
StringGrid1.Canvas.Font.Color := clWhite;
StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol, ARow]);

---

← →
corte ™   (2003-06-09 14:54) [3]

не нетак в одной ячеке разным цветом

---

← →
Song ©   (2003-06-09 15:03) [4]

А переделать слабо что ли по написанному?

---

← →
Skier ©   (2003-06-09 15:03) [5]

>corte ™ (09.06.03 14:54)
Rect: TRect; тебе в руки !

---

← →
corte ™   (2003-06-09 15:27) [6]

to Skier

А примерчик есть ?

---

← →
Skier ©   (2003-06-09 15:31) [7]

Нет.

---

← →
corte ™   (2003-06-09 15:49) [8]

Мне нудно среди слов нужно выделить другим цветом одно.

---

← →
Song ©   (2003-06-09 16:45) [9]

Нам тоже "нудно" это делать, если ты не хочешь хоть пальцем шевельнуть

---

← →
corte ™   (2003-06-09 17:05) [10]

Уже сделал. а то что ошибки в русском это уж траб каждого программера.

---

← →
Song ©   (2003-06-09 17:39) [11]

Я не про ошибки. А про то, что нам действительно НУДНО помогать человеку, который ничего не хочет сделать сам же для себя.

---

← →
corte ™   (2003-06-09 18:00) [12]

нудно это есть нужно.

если ты про это.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.23 c