Вывод заголовка в StringGrid вертикально [D5, D6, NT4, Win2k]
Don © (2001-12-07 15:54:00)
Подскажите, пожалуйста, как в заголовке StringGrid-а вывести
текст вертикально. Уж больно много места занимают некоторые
заголовки колонок, а в самих колонках только один символ.
KGB (2001-12-07 18:25:00) [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;
Наверх 
ЧАТ |
Орешник |
|
