| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вертикальные заголовки в StringGride [D6, XP]
dmdel © (2006-11-02 13:50:00)Здраствуйте.
Как можно сделать вертикальные заголовки в StringGride?
Percent (2006-11-02 14:35:00) [1]Устанавливаешь текстовый курсор на функции CreateFontIndirect(), нажимаешь F1, читаешь. Потом то же самое делаешь с методом OnDrawCell(). Что не понятно - спрашиваешь тут.
dmdel (2006-11-02 14:30:00) [2]
> P. S. Вот как плохо не понимать того, что делаешь.
Не понимаю, для того и спрашиваю
Percent (2006-11-02 14:27:00) [3]Ты мало того, что ничего не написал сам, так еще и предлагаешь разбираться в тыренном коде? Совесть есть? Или только супер-пупер креативные идеи?
P. S. Вот как плохо не понимать того, что делаешь.
dmdel (2006-11-02 14:14:00) [4]Это код, вывода вертикального текта
dmdel (2006-11-02 14:12:00) [5]Нашел в нете один код
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,'Ïîâåðíó 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;
Но ничего не отображается. Что не так.
pasha_golub (2006-11-02 13:51:00) [6]OnDrawCell + F1
| |
