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

Вниз

Гриды   Найти похожие ветки 

 
Катерина   (2002-03-28 09:14) [0]

Хочу в гридах (TStringGrid или TDrawGrid) ячейки раскрашивать в разные цвета, и текст выводить цветными буковками и разными шрифтами в зависимости от положения ячейки и его содержимого. Помогите!


 
Виктор Щербаков ©   (2002-03-28 09:17) [1]

Вот пример из хэлпа для обработчика OnDrawCell.
Модифицируй для собственных нужд.
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);

var
index: integer;
begin
index := Row * DrawGrid1.ColCount + Col;
with Sender as TDrawGrid do
begin
Canvas.Brush.Color := clBackGround;
Canvas.FillRect(Rect);
ImageList1.Draw(Canvas,Rect.Left,Rect.Top,index);
if gdFocused in State then
Canvas.DrawFocusRect(Rect);
end;

end;


 
Катерина   (2002-03-29 11:15) [2]

Спасибо! Получилось.



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
14-32951
Пользователь
2002-03-04 09:53
2002.04.11
PHP & Interbase


14-32969
oblom
2002-03-05 14:36
2002.04.11
задание в универе


14-32948
Pete
2002-03-04 09:33
2002.04.11
New Component...


1-32890
DikobraZ
2002-03-29 15:52
2002.04.11
JPG в буфер!


1-32787
kvazar
2002-03-28 12:43
2002.04.11
CopyFile