Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.19;
Скачать: CL | DM;

Вниз

вертикальные заголовки в 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. Вот как плохо не понимать того, что делаешь.


 
dmdel ©   (2006-11-02 14:30) [5]


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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2006.11.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
6-1151044736
yaral
2006-06-23 10:38
2006.11.19
Кодировка писма IdMessage


15-1162528208
BorisMor
2006-11-03 07:30
2006.11.19
трабл в Turbo Delphi


15-1162365160
Prohodil Mimo
2006-11-01 10:12
2006.11.19
Ну вот и всё, скоро не будет у меня паспорта "Alien" :o)


5-1143640846
Gaval
2006-03-29 18:00
2006.11.19
fastreport


15-1162204867
User Boris
2006-10-30 13:41
2006.11.19
Литература по изучению Delphi