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




Вниз

Вопрос по OnDrawCell 


ded_di   (2002-02-18 12:47) [0]

Уважаемые мастера, вопрос наверно ламерский, но все же...
Как в обработчике OnDrawCell заставить отработать стандартный обработчик, но для другого размера ячейки?



Анонимщик   (2002-02-18 13:22) [1]

Страндартный обработчик вызывается через
DBGrid1->DefaultDrawDataCell(Rect, Field, State);



ded_di   (2002-02-19 17:48) [2]

Все бы хорошо, но это у TDBGrid, а мне надо TStringGrid. Прошу прощения за некорректность вопроса.



Набережных С.   (2002-02-19 18:21) [3]

Попробуй так:

type
T1 = class(TStringGrid);

procedure ...OnDrawCell(...
const B:boolean = true;
begin
if not B then Exit;
if (ACol = 1)and(ARow = 1)then
begin
B:=false;
T1(Sender).DefaultDrawing:=true;
T1(Sender).DrawCell(...
T1(Sender).DefaultDrawing:=false;
end;
B:=true;
end;



ded_di   (2002-02-19 18:30) [4]

Спасибо, но завтра. Рабочий день кончился




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




Наверх





Память: 0.72 MB
Время: 0.033 c
3-19070           DmitryB               2002-02-08 01:57  2002.03.07  
Ищу компонент


3-19107           Hermit                2002-02-05 15:49  2002.03.07  
TQuery.Locate


14-19321          vajo                  2002-01-22 12:49  2002.03.07  
Win2000


3-19087           DDDD                  2002-02-08 10:16  2002.03.07  
QuickRep


14-19299          vladislav             2002-01-20 18:22  2002.03.07  
Инсталляция Delphi