Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Можно ли в ячейке StringGrid изменить цвет части текста   Найти похожие ветки 

 
jen   (2004-02-14 04:20) [0]

Подскадите, можно ли , и если да, то как изменить цвет фонта только части текста в ячейке StingGrig?


 
Defunct   (2004-02-14 05:25) [1]

Можно.

Обрабатывать событие OnDrawCell

Пример:

Procedure TForm1.DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Begin
// Rect - область перерисовываемой ячейки.
With (Sender as TStringGrid) Do
With Canvas Do
Begin
Pen.Color := clBlue;
Brush.Color := Random(clWhite);
Font.Color := clWhite;
Rectangle(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
End;
End;


 
Defunct   (2004-02-14 05:33) [2]

> только части текста в ячейке StingGrig?

Надеюсь по работе с Canvas вопросов нет.


 
jen   (2004-02-14 23:45) [3]

>Defunct спасибо, попробую,
а по работе canvas я просто ничего не знаю,
из серии "я только учусь".)))


 
jen   (2004-02-14 23:53) [4]

Да, только части текста, а так у сеня получились все ячейки разного цвета,
но текст во всех только белый -Font.Color := clWhite;


 
Германн   (2004-02-15 00:12) [5]

2 jen © (14.02.04 23:53) [4]
Может на время перестать просто трясти, а остановиться и немного подумать? Или есть проблемы с получением части строки? И стоит заглянуть в справку по TextOut.

2 Defunct (14.02.04 05:25) [1]
В рамках сабжа врядли стоило применять Rectangle(Rect). Лучше FillRect. А уж совсем по сабжу, так и вообще можно обойтись и без того и без другого.
А то видишь (jen © (14.02.04 23:53) [4]) Василий Иванович ответил "Да что там думать? Трясти надо!"


 
jen   (2004-02-15 00:15) [6]

Герман, спасибо тебе конечно за комментарии,
но боюсь, что сюда не умничаьт приходят, а с вопросами
и помощью, если тебе конкретно сказать нечего, то не
мути остальных.


 
Германн   (2004-02-15 00:33) [7]

2 jen © (15.02.04 00:15) [6]
Во-первых, я не собирался и не собираюсь умничаьт.
Во-вторых, Defunct (14.02.04 05:25) [1] сказал тебе уже все и даже больше, чем ты просил.
В-третьих, перечитай еще раз мой предыдущий ответ и перестань трясти, а подумай, почитай и попробуй разные варианты. А уж если под конкретно сказать нечего ты понимаешь написание для(вместо) тебя готового кода, то уж извини, имхо, форум для ответов на вопросы, а не для работы за тебя.



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

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

Наверх




Память: 0.45 MB
Время: 0.033 c
1-79771
pserg
2004-02-11 21:52
2004.02.25
Поиск фрагмента текста


8-80026
Sniper--Max
2003-10-23 06:56
2004.02.25
Как нажать на кнопку под моей формой?


1-79969
Nucl
2004-02-06 15:06
2004.02.25
ActiveX Exe


8-80027
AAA111
2003-10-23 21:16
2004.02.25
Печать на принтер


9-79526
неРуль
2003-06-23 11:26
2004.02.25
OpenGL





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