Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Вывод заголовка в 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;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
3-8792            vygantas              2002-01-08 12:41  2002.02.04  
D6 и MySQL


14-8977           evgeg                 2001-12-12 21:27  2002.02.04  
А вы знаете, что ссылки на этот форум есть на сайт www.rsdn.ru в разделе


1-8907            petyun                2002-01-17 10:04  2002.02.04  
строка в ListBox как в плей-листе WinAmp


1-8843            saviola               2002-01-17 15:40  2002.02.04  
Как получить из DateTimePicker.Date целое значение без дроби


7-9017            TheNobody             2001-10-06 04:24  2002.02.04  
(работа со звуком) Существует ли технология...