вертикальные заголовки в StringGride

← →
dmdel © (2006-11-02 13:50) [0]

Здраствуйте.
Как можно сделать вертикальные заголовки в StringGride?

← →
pasha_golub © (2006-11-02 13:51) [1]

OnDrawCell + F1

← →
dmdel © (2006-11-02 14:12) [2]

Нашел в нете один код
var Hfont: Thandle; logfont: TLogFont; font: Thandle; count: integer; begin LogFont.lfheight := 30; logfont.lfwidth := 10; logfont.lfweight := 900; LogFont.lfEscapement := -200; logfont.lfcharset := 1; logfont.lfoutprecision := out_tt_precis; logfont.lfquality := draft_quality; logfont.lfpitchandfamily := FF_Modern; font := createfontindirect(logfont); Selectobject(Form1.canvas.handle, font); SetTextColor(Form1.canvas.handle, rgb(0, 0, 200)); SetBKmode(Form1.canvas.handle, transparent); // textout(Form1.canvas.handle,10,10,"Ïîâåðíó&#2 42;ûé",7); for count := 1 to 100 do begin canvas.textout(Random(form1.width), Random(form1.height), "Ïîâåðíóòûé"); SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255), Random(255))); end; deleteobject(font); end;
Но ничего не отображается. Что не так.

← →
dmdel © (2006-11-02 14:14) [3]

Это код, вывода вертикального текта

← →
Percent (2006-11-02 14:27) [4]

Ты мало того, что ничего не написал сам, так еще и предлагаешь разбираться в тыренном коде? Совесть есть? Или только супер-пупер креативные идеи?

P. S. Вот как плохо не понимать того, что делаешь.

> P. S. Вот как плохо не понимать того, что делаешь.

Не понимаю, для того и спрашиваю

← →
Percent (2006-11-02 14:35) [6]

Устанавливаешь текстовый курсор на функции CreateFontIndirect(), нажимаешь F1, читаешь. Потом то же самое делаешь с методом OnDrawCell(). Что не понятно - спрашиваешь тут.

вертикальные заголовки в StringGride Найти похожие ветки