Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.07.2008, 00:44   #1
zzzzz
Пользователь
 
Регистрация: 25.05.2007
Сообщений: 69
По умолчанию Снова StringGrid

Возможно ли в некоторых ячейках сделать текст жирным шрифтом, а в некоторых нет??? И если возможно, то как это реализовать??
zzzzz вне форума Ответить с цитированием
Старый 13.07.2008, 01:32   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

Всё тот же канвас
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1.canvas do
  begin
    if ARow mod 2 = 1 then// нечётные строки жирные
    font.Style:=[fsBold] else font.Style:=[];
    textout(rect.left, rect.top, StringGrid1.Cells[ACol, ARow]);
  end;
end;
eoln вне форума Ответить с цитированием
Старый 13.07.2008, 01:41   #3
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
нечётные строки
if Odd(ARow) then ...
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
И снова Service! Shurik Hacker Общие вопросы Delphi 5 27.01.2008 21:36
и снова Mdi Баламут Общие вопросы Delphi 1 28.11.2006 07:03