Portapapeles TImage

[cmm07]

Hola amigos, se me presentó una duda que he buscado pero no he encontrado nada, haber si me puedes ayudar, lo que deseo hacer es algo relativamente facil, pero no se me ocurre nada, que es como Copiar un TImage(Image1) al portapapeles, pero en tamaño original, ya que visualmente esa TImage está a escala, osea estan habilitadas las opciones Stretch y Proportional, y necesito copiar al portapapeles del tamaño original... gracias.
54LU2

OTRA: y aprovecho este mismo post para saber como puedo crear un texto en Canvas de un tImage pero que esté al centro de esta TImage..

[*Caro*]

Hola cmm7, no te sirve algo así:

Código Delphi [-]
   ClipBoard.Assign(Image1.Picture);

Saluditos

[cmm07]

Gracias caro muchas gracias, lo probé y me funciono de maravilla!, gracias, ya solucione ese problema gracias a tí, ahora me falta solucionar el otro pequeño problema que es como hago para saber como puedo crear un texto en Canvas de un tImage pero que esté al centro de esta TImage.. por código.

gracias.

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

Si no recuerdo al, TCanvas posee un método (TextWidth) que te permite saber el ancho en Pixels que ocupará el texto que le pasas (por parámetro) con la fuente actual.
Una vez que hayas ejecutado esa función y sepas lo que el texto ocupa, ya sólo debes mostrarlo centrado; Sabiendo el With del Canvas y el Width del texto es trivial.

No se si me he explicado.

[*Caro*]

Hola de nuevo, paar tu segunda pregunta, puedes hacerlo como te indica neftalí y despues utilizar TextOut

Empezado por Neftali

Si no recuerdo al, TCanvas posee un método (TextWidth) que te permite saber el ancho en Pixels que ocupará el texto que le pasas (por parámetro) con la fuente actual.
Una vez que hayas ejecutado esa función y sepas lo que el texto ocupa, ya sólo debes mostrarlo centrado; Sabiendo el With del Canvas y el Width del texto es trivial.

Código Delphi [-]
with Image1.Canvas do
  begin
   Font.Color := clRed;
   SetBkMode(Handle, TRANSPARENT);
   Canvas.TextOut(45, 45, 'Texto');
  end;

o utilizar DrawText:

Código Delphi [-]
var
 Cad : String;
 Rect : TRect;
begin
   Rect.Left := Image1.Left;
   Rect.Top := Image1.Top;
   Rect.Right := Image1.Width;
   Rect.Bottom := Image1.Height;
   
   Cad := 'Texto';
   DrawText(Image1.Canvas.Handle,PChar(Cad), StrLen(PChar(Cad)),Rect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);

 Self.Refresh;

Utilizas un With paar no repetir Image1.

Saluditos

[cmm07]

otra vez muchas gracias a ambos. , la verdad probé la de caro y lamentablemente no me funciono ninguna pero igual muchas gracias, despues analice la de Neftali, y saque la siguiente teoria XD: Si tenemos un TImage de un width 50 y una frase ("Hi") de 8 pixeles, sabremos la mitad del image dividiendo 50 en 2 quedaría 25, ahora si sacamos la mitad tambien del texto osea 8 / 2 quedaría en 4, tendriamos Width mitad del image: 25 y del texto o frase 4, entonces tenemos que poner el texto en la posicion de la mitad del image osea 25 y restar la mitad de la frase osea 4 y nos queda 21 y esa es la pocicion final del texto.....nose si me explkique bien, ahora si no lo entienden os dejo la instrccuion:

Código Delphi [-]
var
Texto: String;
begin
Texto:= 'jajaja lo logre';
Image1.Canvas.TextOut(round(Image1.Width /2) - round(Image1.Canvas.TextWidth(Texto) /2) , 0, Texto);

gracias..
54LU2