Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > сдвигается текст в Stringgrid

Автор: XAKEPEHOK 12.2.2009, 21:08

Всем добрый день! Собственно сабж =)
использую вот что

Код


if ARow = form1.Tag then VertGrid1.Canvas.Brush.color := clgray;
VertGrid1.Canvas.FillRect(Rect);
VertGrid1.Canvas.TextOut(Rect.Left, Rect.Top, VertGrid1.Cells[ACol, ARow]);

Строка то закрашивается, а вот текст сдвигается влево и вверх
Прилагаю скрин как получается.
Заранее спасибо

Автор: THandle 13.2.2009, 10:56

XAKEPEHOK, видимо просто в самом гриде, стандартно отрисовка текста идет чуть правее чем от самого начала ячейки smile

Замени эту строку:

Код



VertGrid1.Canvas.TextOut(Rect.Left, Rect.Top, VertGrid1.Cells[ACol, ARow]);

на:

Код


VertGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, VertGrid1.Cells[ACol, ARow]);

Автор: XAKEPEHOK 13.2.2009, 19:25

Большое спасибо. Помогло!