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

← →
Гость_ (2007-01-31 17:53) [0]

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

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

АП!

← →
Ega23 © (2007-02-01 08:32) [2]

CreateFontIndirect

← →
Гость_ (2007-02-02 20:28) [3]

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;

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

← →
ЮЮ © (2007-02-03 09:37) [4]

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

← →
Гость_ (2007-02-03 11:28) [5]

> Приглядись

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

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

Заголовок в гриде сделать вертикальным Найти похожие ветки