Главная страница
    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.46 MB
Время: 0.039 c
9-1065468251
Spose
2003-10-06 23:24
2004.04.11
У DirectX 8 пытаюсь применить процедуру Lock к BackBuffer


4-1079555272
KPV-10k
2004-03-17 23:27
2004.04.11
Получить SID пользователя...


14-1079322357
Rouse_
2004-03-15 06:45
2004.04.11
C Днем Рождения 15 Марта


3-1078892257
garry79
2004-03-10 07:17
2004.04.11
Почему IBExpert не может показать некоторые данные в базе?


8-1075903834
Urvin
2004-02-04 17:10
2004.04.11
КОЛИЧЕСТВО Цветов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский