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




Вниз

Как работать с Canvas в StringGrid? 


dimonf   (2001-12-25 19:37) [0]

Народ, как мне перерисовать таблицу StringGrid, чтобы у меня контуры таблицы были черного цвета, а не серого?
Мне надо чтобы контуры таблицы были полностью видны.
Надо чтобы ячейки были белого цвета а контуры черного.
Эфект напечатанной таблицы на бумаге. Без Fixed.

Пытался так:
procedure TMDIChild.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do begin
Canvas.Font := Font;
Canvas.Font.Color := clWindowText;
Canvas.Brush.Color := clWindow;
Canvas.Pen.Color := clBlack;
Canvas.Rectangle(Rect.Left, Rect.Top-1, Rect.Right+2, Rect.Bottom+1);
end;

Но почему-то у последней ячейки обрезаеться правая старона :(
Почему так? Как сделать, чтобы такого эфекта небыло?

И еще один вопрос: после вывода таблицы я могу написать свой текст на Canvas StringGrid? И как, это примерно выглядит?



dimonf   (2001-12-25 20:34) [1]

Неужели нет мыслей???



Ю Ю   (2001-12-27 08:17) [2]

1) Rect описывает область внутри решетки, поэтому
сама решетка: Rect.Left-1, Rect.Top-1, Rect.Right+1, Rect.Bottom+1
2) у Canvas-а есть не только Rectangle, у него есть и методы для вывода текста.




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




Наверх





Память: 0.72 MB
Время: 0.036 c
3-42352           МаксБ                 2001-12-11 15:05  2002.01.14  
Форматирование даты


4-42628           Beka                  2001-11-10 01:02  2002.01.14  
Как закрит поинтер мишки внутри форми


4-42623           Семён                 2001-11-10 09:36  2002.01.14  
Создание главной формы с помощью WinApi


14-42562          Axel                  2001-11-19 12:02  2002.01.14  
Может Remote Project, а?


7-42589           McSimm                2001-09-28 17:27  2002.01.14  
Автоматическое определение настроек LAN для IE