Главная страница
    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.033 c
1-79746
Bers01
2004-02-12 10:46
2004.02.25
Как в TListBox вставить элементы типа TCheckBox или TComboBox ...


1-79768
CAHbI4
2004-02-11 21:41
2004.02.25
Содержимое DLL формы на форме вызывающего приложения


1-79734
p-s
2004-02-12 15:37
2004.02.25
Отловить нажатие Esc в проекте


14-80271
Agrar
2004-02-04 10:25
2004.02.25
Вопрос к обладателям монитора Nec 1760nx ?


3-79555
Rte
2004-01-29 15:20
2004.02.25
Данные в Delphi видны в IBExpert нет - как такое лечить?





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