Выравнивание данных в ячейках StringGrid

[Александр Маркелов]

Привет всем! Подскажите: как выровнять данные(цифры) посередине в ячейках StringGrid.

[Stilet]

Вот для себя делал:

 // Вывод с переносом слов
 procedure DrawTextInRect(AText:String;ACanvas:TCanvas;ARect:TRect;Centered:Boolean=false);

var l,i,x,y:integer;s:string;
 function GetLenRect:Integer;begin Result:=ARect.Right-ARect.Left;end;
 function GetHeigthRect:Integer;begin Result:=ARect.Bottom-ARect.Top;end;
 function GetRows:Integer; begin  Result:=ACanvas.TextWidth(AText) div GetLenRect+1; end;
 function CenterByWidth:integer; begin  Result:=(GetLenRect-ACanvas.TextWidth(s)) div 2; end;
 function CenterByHeight:integer;
 begin
  Result:=(GetHeigthRect div 2)-(GetRows*ACanvas.TextHeight('W') div 2);
 end;
begin s:='';l:=1;  
 for i:=0 to GetRows-1 do begin
  while (ACanvas.TextWidth(s)<GetLenRect)and(l<=length(atext)) do begin
   if atext[l]=#13 then atext[l]:=' ';
   if atext[l]<>#10 then s:=s+atext[l];
   inc(l);
  end;
  x:=ARect.Left;
  y:=ARect.Top+i*ACanvas.TextHeight('W');
  if Centered then begin
   x:=x+CenterByWidth;
   y:=y+CenterByHeight;
  end;
  ACanvas.TextOut(x,y,s);  s:='';
 end;
end;

пример для OnDrawCell Грида

 DrawTextInRect('Это текст',StringGrid.Canvas,Rect,true);

[Александр Маркелов]

Виталий, привет! Что-то мне совсем непонятно что к чему. Прошу прощения, конечно, я человек начинающий! Видимо еще и потому, что нет комментариев. Я написал приложение с секундомером(я еще задавал вопрос по выводу промежуточных результатов. С этим я разобрался - вывел результаты в таблицу StringGrid. Вот бы их подровнять по ценру, и вообще освоить выравнивание. Можно было бы и не вредничать и оставить как есть, но хочется довести все до ума.

[savva]

сейчас напишу,вспомню ....

[savva]

StringGrid1.Canvas.TextOut(Rect.Lef t+DefaultColWidth div 4, Rect.Top+DefaultRowHeight div 4,Cells[j,i]);

[Александр Маркелов]

Сообщение от Stilet

Вот для себя делал:

 // Вывод с переносом слов
 procedure DrawTextInRect(AText:String;ACanvas:TCanvas;ARect:TRect;Centered:Boolean=false);

var l,i,x,y:integer;s:string;
 function GetLenRect:Integer;begin Result:=ARect.Right-ARect.Left;end;
 function GetHeigthRect:Integer;begin Result:=ARect.Bottom-ARect.Top;end;
 function GetRows:Integer; begin  Result:=ACanvas.TextWidth(AText) div GetLenRect+1; end;
 function CenterByWidth:integer; begin  Result:=(GetLenRect-ACanvas.TextWidth(s)) div 2; end;
 function CenterByHeight:integer;
 begin
  Result:=(GetHeigthRect div 2)-(GetRows*ACanvas.TextHeight('W') div 2);
 end;
begin s:='';l:=1;  
 for i:=0 to GetRows-1 do begin
  while (ACanvas.TextWidth(s)<GetLenRect)and(l<=length(atext)) do begin
   if atext[l]=#13 then atext[l]:=' ';
   if atext[l]<>#10 then s:=s+atext[l];
   inc(l);
  end;
  x:=ARect.Left;
  y:=ARect.Top+i*ACanvas.TextHeight('W');
  if Centered then begin
   x:=x+CenterByWidth;
   y:=y+CenterByHeight;
  end;
  ACanvas.TextOut(x,y,s);  s:='';
 end;
end;

пример для OnDrawCell Грида

 DrawTextInRect('Это текст',StringGrid.Canvas,Rect,true);

Нашел ваш ответ на подобный вопрос, датированный сентябрем 2007 года (гораздо короче и проще):
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var cr:TRect;
begin
with StringGrid1.Canvas do begin
cr:=StringGrid1.CellRect(acol,arow) ;
FillRect(cr);
TextOut(cr.left+((cr.Right-cr.Left) div 2)-(TextWidth(StringGrid1.Cells
[acol,arow]) div 2),
cr.Top,StringGrid1.Cells[acol,arow]);
end;
end;
Замечательно работает. Вот бы комментарии добавить!? Чтобы конкретно разобраться. Заранее благодарен.

[Александр Маркелов]

Сообщение от savva

StringGrid1.Canvas.TextOut(Rect.Lef t+DefaultColWidth div 4, Rect.Top+DefaultRowHeight div 4,Cells[j,i]);

Компилятор говорит: не объявлена переменная Cells!?

[savva]

ну ты перед этим объяви i,j как нибудь,или свои цифры вбей.

[SERG1980]

Как вариант использовать, если это допустимо, сторонний компонент ... например из набора компонентов JEDI