Выравнивание текста в ячейках StringGrid [D6, Win2k]
ize © (2002-07-10 11:08:00)
Народ! подскажите, кто знает, как сделать выравнивание текста
по правому краю в одном столбце объекта TStringGrid.
Skier (2002-07-10 11:28:00) [1]
>ize
В обработчике OnDrawCell
напиши примерно так :
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do begin
if ACol = 1 then //для первой колонки
Canvas.TextRect(Rect,
Rect.Right-Canvas.TextWidth(Cells[ACol,
ARow])-2,
Rect.Top+2,
Cells[ACol, ARow]);
end; //with
end;
Наверх 
ЧАТ |
Орешник |
|
