| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как работать с Canvas в StringGrid?
dimonf © (2001-12-25 19:37:00)Народ, как мне перерисовать таблицу 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? И как, это примерно выглядит?
Ю Ю (2001-12-27 08:17:00) [1]1) Rect описывает область внутри решетки, поэтому
сама решетка: Rect.Left-1, Rect.Top-1, Rect.Right+1, Rect.Bottom+1
2) у Canvas-а есть не только Rectangle, у него есть и методы для вывода текста.
dimonf (2001-12-25 20:34:00) [2]Неужели нет мыслей???
| |
