Главная страница
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.48 MB
Время: 0.055 c
1-1160048830
Aleksandr.
2006-10-05 15:47
2006.11.19
Есть готовые решения для PickList ячеек TStringGrid?


15-1162149015
Ketmar
2006-10-29 22:10
2006.11.19
только не мой мозг...


2-1162740902
Student2007
2006-11-05 18:35
2006.11.19
Отключение компьютеров по сети...


2-1162397653
Godness
2006-11-01 19:14
2006.11.19
Html парсер для Delphi5


2-1162307017
Megabyte
2006-10-31 18:03
2006.11.19
После формирования отчета в Excel висит процесс