Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Гриды 


Катерина   (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]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.017 c
6-32933           Ivanov Vova           2002-01-22 15:41  2002.04.11  
Мастера, помогите ламеру, плз.


1-32810           Евгений!              2002-03-31 21:29  2002.04.11  
необходимо перехватить сообщения о изменении реестра и ФС


14-32951          Пользователь          2002-03-04 09:53  2002.04.11  
PHP & Interbase


7-32994           А.Х.                  2002-01-15 18:34  2002.04.11  
Почему получаются каракули ?


1-32749           OlegR                 2002-03-30 15:33  2002.04.11  
Как прекратить обработку события?