Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.026 c
7-84796
Pegas222
2003-04-09 13:49
2003.06.26
TDirectoryListBox, TDriveComboBox


1-84389
NAlexey
2003-06-09 13:10
2003.06.26
Перерисовка неклиентской области.


1-84089
sapsi
2003-06-10 12:36
2003.06.26
Изменение вида курсора


14-84546
Vuk
2003-06-06 19:46
2003.06.26
Встреча в процессе


3-83925
Silver_
2003-06-03 12:15
2003.06.26
if CurrentRecord.IsLocked(ByOtherUser) then...