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