Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.12.2006, 08:53
Аватар для Dimanus
Dimanus Dimanus вне форума
Прохожий
 
Регистрация: 20.11.2006
Адрес: Россия г.Братск
Сообщения: 33
Репутация: 10
По умолчанию

Изменить цвет ячейки, цвет текста, стиль, шрифт и т.д, добавить значок в ячейку Можно сделать в обработчике TStringGrid(TDrawGrid).onDrawCell:
Примерно так:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With TStringGrid(Sender),TStringGrid(Sender).Canvas Do
Begin
// Очистим клиентскую область ячейки
FillRect(Rect);

// Аттрибуты
Brush.Color:=ClYellow; // цвет ячейки
Font.Color:=ClBlue; // цвет шрифта
Font.Style:=[fsBold]; // стиль шрифта
Font.Size:=14; // размер шрифта

// Добавить картинку можно нарисовав её через метод TCanvas.Draw:
// Draw(Rect.Left + 2, Rect.Top + 2, значок);

// А теперь выведем текст
TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol,ARow]);
End;
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:11.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter