Текущий архив: 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.02 c
