выравнивание текста в drawgrid по центру

[Alexandr17]

как можно при отрисовки выравнить текст в drawgrid по центру.

procedure TForm1.DG1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
Var x, y:Integer;
begin
  With dg1 do begin
    canvas.FillRect(rect);
    x:=Round(32 / 2 - ((Length(IntToStr(ARow))*canvas.Font.Size)/2));
    y:=Round(32 / 2 - canvas.Font.Height) ;
    if (ACol <=0)and(ARow >= 1) then
      Canvas.TextOut(rect.Left+x, rect.Top, 'М: '+IntToStr(ARow))
    else if (ARow <= 0)and(ACol >=1) then
      Canvas.TextOut(rect.Left+x, rect.Top, 'ID: '+IntToStr(ACol-1));
  end;
end;

но текст почемуто не поцентру отрисовывается

[northener]

DrawText с параметром DT_CENTER не подойдёт как замена TCanvas.TextOut?
Ну а по приведенному коду могу сказать лишь, что TFont.Size - это относится к высоте шрифта, а отнюдь не к его ширине.
Для оценки ширины у TCanvas есть метод TextWidth

<offtop>
Что-то количество Александров с номером в последние дни зашкаливает. Причём на многих Дельфийских форумах
</offtop>

[Alexandr17]

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

DrawText с параметром DT_CENTER не подойдёт как замена TCanvas.TextOut?
Ну а по приведенному коду могу сказать лишь, что TFont.Size - это относится к высоте шрифта, а отнюдь не к его ширине.
Для оценки ширины у TCanvas есть метод TextWidth

<offtop>
Что-то количество Александров с номером в последние дни зашкаливает. Причём на многих Дельфийских форумах
</offtop>

нет не подойдет так как не имеет возможности отрисовки картинок

[Vapaamies]

Мне тоже отсыпь.

[Stilet]

не подойдет так как не имеет возможности отрисовки картинок

А такую функцию самому придется писать используя к тому что было сказано функцию BitBLT() или StretchBLT();

[Stilet]

не подойдет так как не имеет возможности отрисовки картинок

А такую функцию самому придется писать используя к тому что было сказано функцию BitBLT() или StretchBLT();

[Alexandr17]

if (ACol <=0)and(ARow >= 1) then begin
      x:=Round(32 / 2 - ((Length('М: '+IntToStr(ARow))*canvas.TextWidth('М: '+IntToStr(ARow)))/2));
      y:=Round(32 / 2 - canvas.TextHeight('М: '+IntToStr(ARow)));
      Canvas.TextOut(rect.Left+x, rect.Top+y, 'М: '+IntToStr(ARow))
    end else if (ARow <= 0)and(ACol >=1) then begin
      x:=Round(32 / 2 - ((Length('ID: '+IntToStr(ACol-1))*canvas.TextWidth('ID: '+IntToStr(ACol-1)))/2));
      y:=Round(32 / 2 - canvas.TextHeight('ID: '+IntToStr(ACol-1)));
      Canvas.TextOut(rect.Left+x, rect.Top+y, 'ID: '+IntToStr(ACol-1))

при таком раскладе рисует черти где

[Alexandr17]

проблему решил используя свою формулу

if (ACol <=0)and(ARow >= 1) then begin
      x:=((32 div 2) - (Canvas.TextWidth('М: '+IntToStr(ARow)) div 2));
      y:=((32 div 2) - (Canvas.TextHeight('М: '+IntToStr(ARow)) div 2));
      Canvas.TextOut(rect.Left+x, rect.Top+y, 'М: '+IntToStr(ARow))
    end else if (ARow <= 0)and(ACol >=1) then begin
      x:=((32 div 2) - (Canvas.TextWidth('ID: '+IntToStr(ACol-1)) div 2));
      y:=((32 div 2) - (Canvas.TextHeight('ID: '+IntToStr(ACol-1)) div 2));
      Canvas.TextOut(rect.Left+x, rect.Top+y, 'ID: '+IntToStr(ACol-1))
    end else if  (ARow >= 1)and(ACol >=1) then begin
      x:=((32 div 2) - (Canvas.TextWidth(IntToStr(MatrixColorRegionArray[ACol-1, ARow-1])) div 2));
      y:=((32 div 2) - (Canvas.TextHeight(IntToStr(MatrixColorRegionArray[ACol-1, ARow-1])) div 2));
      Canvas.TextOut(rect.Left+x, rect.Top+y, IntToStr(MatrixColorRegionArray[ACol-1, ARow-1]));
    end;

[Аватар]

нет не подойдет так как не имеет возможности отрисовки картинок

Ага, а TextOut имеет DrawText вместо кучи этого кода

[Alexandr17]

Сообщение от Аватар

Ага, а TextOut имеет DrawText вместо кучи этого кода

Зато обычный драв имеет