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

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

Заголовок в гриде сделать вертикальным

Гость_ ©   (2007-01-31 17:53:00) 

Знаю, что это легко делается в DBGrigEh, но его юзать мне нельзя, могу юзать RxDbGrid, dxDBGrid (2004 года), ну и стандартный, желательно я думаю dxDBGrid. Подскажите пжста как повернуть заголовок?!

---

ЮЮ   (2007-02-03 12:05:00) [1]

для начала вместо 5, 5 поставь ARect.Left, ARect.Top
И шрифт у фонта грида побольше, если не регулируется DefaultRowHeight у самого грида (чтобы строки повыше стали)

---

Гость_   (2007-02-03 11:28:00) [2]

>  Приглядись

И так и этак глядел, и крутил и прибавлял к координатам и отбовлял, ничего :(

---

ЮЮ   (2007-02-03 09:37:00) [3]

ты прост не видишь. Высота ячейки, наверняка,  осталось прежняя, а ты в теперь уже длину одного симпола пытаешься вывести "длинный" текст, причем не с первого пикселя, более того, всегда в одном и том же месте грида ACanvas.TextOut( 5, 5, Text); Приглядись в это место грида внимателтней, может чего и увидишь

---

Гость_   (2007-02-02 20:28:00) [4]

procedure TForm1.dxDBGrid1Column1CustomDraw(Sender: TObject;
 ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
 AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
 var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
var
 LF: TLogFont;
 Fnt: HFont;
const
 Text = 'текст';
begin
FillChar(LF, SizeOf(LF), 0);
 with LF do
 begin
   lfHeight := 20;
   lfWeight := fw_Normal;
   lfUnderline := 1;
   lfEscapement := 450;
   StrPCopy(lfFaceName, 'Courier New Cyr');
 end;

   // Создаем шрифт
   Fnt := CreateFontIndirect(LF);
  //  Присваиваем его дескриптор шрифту канвы
   ACanvas.Font.Handle := Fnt;
   // Выводим текст под углом
   ACanvas.TextOut(5, 5, Text);
   DeleteObject(Fnt);  // Удаляем ненужный шрифт
 end;
end;

Не выводится :(
Чего делаю неправильно? Как правильно будет?

---

Ega23   (2007-02-01 08:32:00) [5]

CreateFontIndirect

---

Гость_   (2007-02-01 00:21:00) [6]

АП!

---

Наверх