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

Вниз

Как работать с 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, у него есть и методы для вывода текста.



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
4-42604
Vladimir P
2001-11-12 16:57
2002.01.14
Как послать системе Ctrl+Alt+Del ?


14-42557
VEG
2001-11-19 16:23
2002.01.14
Ут, блин, ФОРМАТЫ WAV:-(


1-42441
tovSuhov
2001-12-24 14:22
2002.01.14
Хочу в рун-тайме растягивать , к примеру, панель...


14-42543
skiph
2001-11-12 08:31
2002.01.14
HTML help


14-42548
apav
2001-11-13 18:31
2002.01.14
ABC