Текущий архив: 2007.02.25;
Скачать: CL | DM;
Вниз
Заголовок в гриде сделать вертикальным Найти похожие ветки
← →
Гость_ (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]
> Приглядись
И так и этак глядел, и крутил и прибавлял к координатам и отбовлял, ничего :(
← →
ЮЮ © (2007-02-03 12:05) [6]для начала вместо 5, 5 поставь ARect.Left, ARect.Top
И шрифт у фонта грида побольше, если не регулируется DefaultRowHeight у самого грида (чтобы строки повыше стали)
Страницы: 1 вся ветка
Текущий архив: 2007.02.25;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.038 c
