Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c