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

Вниз

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

 
Don ©   (2001-12-07 15:54) [0]

Подскажите, пожалуйста, как в заголовке StringGrid-а вывести текст вертикально. Уж больно много места занимают некоторые заголовки колонок, а в самих колонках только один символ.


 
KGB ©   (2001-12-07 18:25) [1]

Вот пример из моей программы:

где sgPlan:TStringGrid;

procedure TfmReport.sgPlanDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
lf: TLogFont;
begin
if (ARow <3) and (ACol>1) then begin
GetObject(sgPlan.Canvas.Font.Handle, SizeOf(TLogFont), @lf);
lf.lfEscapement := 900;
lf.lfOrientation := 900;
sgPlan.Canvas.Font.Handle := CreateFontIndirect(lf);
sgPlan.Canvas.TextRect(Rect, Rect.Left+2, Rect.Bottom-2, sgPlan.Cells[ACol, ARow]);
DeleteObject(sgPlan.Canvas.Font.Handle);
end
else
sgPlan.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+1, sgPlan.Cells[ACol, ARow]);
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.007 c
14-8985
perov
2001-12-14 06:04
2002.02.04
С праздником!!!!!!


1-8810
Анатолий
2002-01-18 03:49
2002.02.04
SaveDialog


1-8855
asdf
2002-01-20 23:36
2002.02.04
Как сделать так, чтобы один из Tabsheet-ов в pagecontrole стал disabled?


1-8814
Molotov
2002-01-18 21:04
2002.02.04
Скин для формы


1-8949
PEC
2002-01-18 14:34
2002.02.04
Привет народ !!!