Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.029 c
1-84328
RazorbladE
2003-06-15 22:42
2003.06.26
Динамическое добавление Tabsheet в TabControl


3-83936
needle
2003-06-04 08:15
2003.06.26
использование памяти MS SQL server 2000


14-84601
Far
2003-06-08 17:50
2003.06.26
procedure


14-84630
Liso
2003-06-10 00:22
2003.06.26
zdrastwuj od padruga z polszy


14-84652
bearoman
2003-06-10 12:11
2003.06.26
DELPHI 7 стоит ли переходить на него.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский