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

Вниз

Можно ли в ячейке 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.026 c
3-79620
deadbitch
2004-02-01 11:19
2004.02.25
Отрицательные значения в TDBGrid


1-79787
Мефодий
2004-02-11 17:50
2004.02.25
Мигание экрана при выполнении SystemParametersInfo


1-79773
Yuri Btr
2004-02-11 21:17
2004.02.25
Уникальность Pointer в TList


14-80180
Solom
2004-01-31 20:22
2004.02.25
компилятор не видит TTabStrings


1-79738
Val123
2004-02-12 12:33
2004.02.25
RichEdit





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