Главная страница
    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.46 MB
Время: 0.033 c
14-84541
race1
2003-06-07 08:32
2003.06.26
XP Style


3-83885
laao
2003-06-03 00:26
2003.06.26
как убрать хвостовые пробелы в значениях строковых полей TIBTable


1-84321
AndrewR
2003-06-16 06:28
2003.06.26
Как можно вызвать FindDialog, что бы в Memo текст искал. Может ке


1-84202
Mortal
2003-06-12 13:33
2003.06.26
TListView


1-84079
snower
2003-06-08 00:40
2003.06.26
передать в dll





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский