Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
Небольшая проблема при отрисовке StringGrid. Найти похожие ветки
← →
SisiusP (2004-03-22 19:21) [0]Небольшая проблема при отрисовке StringGrid.
procedure TFMain.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var tmpValue: Ansistring;
begin
tmpValue:= StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.Brush.Color:= RGB(115, 105, 163);
StringGrid1.Canvas.Rectangle(Rect);
StringGrid1.Canvas.Font.Color:= clWhite;
StringGrid1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, tmpValue);
end;
ю
Так вот все рисует прекрасно, но увеличивается толщина линий сетки.
Если делаю StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, tmpValue); то получается коряво.
Как выйди из положения? Спасибо.
← →
Тимохов © (2004-03-22 19:31) [1]a rectangle зачем?
← →
SisiusP (2004-03-22 19:43) [2]Чтобы закрашивалась вся ячейка, а не только фон текста.
← →
Тимохов © (2004-03-22 19:45) [3]имхо этот rectangle и отрисовывает утолщающую линию
и вообще - почему + 2. А что с +1? Кто ее будет закрашивать?
← →
SisiusP (2004-03-22 19:50) [4]Если +1 или +0, то совсем не красиво
← →
Тимохов © (2004-03-22 19:51) [5]кто же в вашем примере закрашивает +1? Дырка будет
← →
SisiusP (2004-03-22 19:55) [6]Дырки не будет, будет толще линия, но повторюсь, что если сделать +1 или +0, то не красиво
← →
MBo © (2004-03-23 06:46) [7]Вмeсто Rectangle используй FillRect
← →
Яичница © (2004-03-23 06:47) [8]Попробуй так:
tmpValue:= StringGrid1.Cells[ACol, ARow];
StringGrid1.Canvas.Brush.Color:= RGB(115, 105, 163); StringGrid1.Canvas.Pen.Color:=StringGrid1.Canvas.Brush.Color;
StringGrid1.Canvas.Rectangle(Rect);
StringGrid1.Canvas.Font.Color:= clWhite;
StringGrid1.Canvas.TextOut(Rect.Left+2, Rect.Top+2, tmpValue);
← →
SisiusP (2004-03-23 09:51) [9]Спасибо, помогло.
Страницы: 1 вся ветка
Текущий архив: 2004.04.11;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.033 c
