Letra en un cuadrado

[Walcasar]

Muchachos tengo el siguiente problema haber si alguien me puede ayudar.

En un TBitmap dibujo un cuadrado y debo colocar en su interior una letra ¿cómo hago para poder colocar esa letra y que quede centrada en el interior del cuadrado?

Saludos y gracias

[Neftali [Germán.Estévez]]

Si utilizas un TImage con un Bitmap, puede hacerlo con un código como este.

Código Delphi [-]
  Image1.Canvas.Brush.Style := bsClear;
  Image1.Canvas.TextOut(100, 100, 'A');

Para que salga centrada, puedes calcular X e Y en función del ancho del componente y utilizar TextWidth para afinar más...

[Walcasar]

Gracias soy novato en esto.

[[seoane]]

Pues calculando la posición, no es una operación tan complicada. Para eso puedes usar las propiedades TextHeight y TextWidth del Canvas, que te dan respectivamente la altura y el ancho de un texto dentro de ese canvas con la fuente actual. Por ejemplo:

Código Delphi [-]
var
  Bitmap: TBitmap;
  R: TRect;
begin
  Bitmap:= TBitmap.Create;
  try
    // Creamos un bitmap de 100x100
    Bitmap.Width:= 100;
    Bitmap.Height:= 100;
    // Indicamos las coordenadas del rectangulo
    R:= Rect(10,10,90,90);
    // Dibujamos el rectangulo
    Bitmap.Canvas.Rectangle(R);
    // Escribimos la letra
    Bitmap.Canvas.Font.Size:= 32;
    with Bitmap.Canvas do
      TextOut(
        (R.Left + R.Right - TextWidth('A')) div 2,
        (R.Top + R.Bottom - TextHeight('A')) div 2,
        'A');
    // Ahora por ejemplo lo dibujo, tu haz lo que quieras con el
    Canvas.Draw(0,0,Bitmap);
  finally
    Bitmap.Free;
  end;
end;

[Walcasar]

Muchas gracias por la ayuda es justo lo que necesito, maestros.

[roman]

Otra opción:

Código Delphi [-]
Windows.DrawText(Canvas.Handle, 'A', -1, R, DT_CENTER or DT_VCENTER or DT_SINGLELINE);

donde Canvas es el canvas del bitmap y R el rectángulo donde se quiere centrar la letra.

// Saludos