Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.029 c
7-1075199063
Sour
2004-01-27 13:24
2004.04.11
Почтовый клиент по умолчанию


14-1079351540
nikkie
2004-03-15 14:52
2004.04.11
посоветуйте графический редактор


3-1079020318
Дмитрий 2004
2004-03-11 18:51
2004.04.11
Распечатка нескольких значений строк в DBGrid


1-1082618636
Alex*
2004-04-22 11:23
2004.04.11
Как превести в PWideChar или как работает функция StringToWideCh


1-1082928160
Denis_Visma
2004-04-26 01:22
2004.04.11
Начало отсчета с 1 в Chart