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

Вниз

Текст в DrawGrid е   Найти похожие ветки 

 
kiberg   (2008-03-26 17:12) [0]

Вывожу в DrawGrid"е текст:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);

 procedure WriteText(const aStr: String);
 begin
   DrawGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, aStr);
 end;

begin
 case aCol of
   0: WriteText("Проверка Проверка Проверка Проверка Проверка Проверка");
   1: WriteText(IntToStr(aRow));
 end;
end;


При этом, когда текст не помещается в колонке, то возникают глюки с отрисовкой полосок, разделяющих колонки.


 
Palladin ©   (2008-03-26 17:18) [1]

мы все очень рады за тебя


 
kiberg   (2008-03-26 17:24) [2]


> Palladin ©   (26.03.08 17:18) [1]
> мы все очень рады за тебя


я рад, что все рады, но как это можно исправить глюк?


 
Johnmen ©   (2008-03-26 17:26) [3]

г.Люк или композитор Глюк?


 
Германн ©   (2008-03-26 17:28) [4]

Замени TextOut на TextRect


 
Palladin ©   (2008-03-26 17:28) [5]

о... вот и вопрос наконец то... очень просто исправить, не рисовать текст там где не положено


 
kiberg   (2008-03-26 17:33) [6]


> Германн ©   (26.03.08 17:28) [4]
> Замени TextOut на TextRect


Спасибо, Помогло!



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

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

Наверх




Память: 0.48 MB
Время: 0.019 c
2-1206126773
smartleds
2008-03-21 22:12
2008.04.20
Как бы из Сендера индекс текущего компонента получить


4-1186639228
Classic
2007-08-09 10:00
2008.04.20
Необходимо перехватить момент печати на принтере


2-1206367188
webSQLNeederr
2008-03-24 16:59
2008.04.20
Алгоритм удаления повторяющихся строк в TStringList


2-1206330334
Xmen
2008-03-24 06:45
2008.04.20
Запрос по соединению данных.


15-1204652410
Dmitry S
2008-03-04 20:40
2008.04.20
AV непонятный