| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Текст в DrawGrid'е [D7, XP]

kiberg ©   (2008-03-26 17:12:00) 

Вывожу в 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;

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

---

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

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


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

---

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

Замени TextOut на TextRect

---

Palladin   (2008-03-26 17:28:00) [3]

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

---

Johnmen   (2008-03-26 17:26:00) [4]

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

---

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

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


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

---

Palladin   (2008-03-26 17:18:00) [6]

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

---

Наверх