adaptar foto de marco a una imagen

[[ArdiIIa]]

Empezado por kapullok_2006

hola,lo que deseo hacer es poner la foto de un marco de un cuadro, y esta que esté superpuesta por una imagen.Lo he hecho poniendo 2 componentes
TImage,pero no queda bien.¿Algun apoyo de cómo hacer que el tamaño de un marco se encaje bien al tamaño de cualquier foto del tamaño que sea?

Saludos.

Hola kapullok_2006 Veo que esta pregunta ya la has formulado en diversas ocasiones y al parecer las respuestas que obtuviste no fueron de tu satisfacción.

También he comprobado que has abierto mas de un hilo con el mismo asunto, y que fuieste digamos "amonestado" por un moderador.

Así que de entrada, si no lo han hecho ya, te voy a recomendar que leas la Guía de estilo.

Como veo que eres una persona muy interesada en el tratamiento de imágenes, te voy a remitir a la que yo creo que es un lugar de referencia en el mundo de Delphi, en lo concerniente a algoritmos y tratamientos gráficos, y mas concretamente a un link, donde seguramente encuentres solución a lo que estás buscando. Así que espero que te sea de utilidad, y de este modo, no tendrás que repetir la misma pregunta varias veces.

Un Saludo.

LINK

[paldave]

Hola, como veo que no han respondido a tu pregunta intentaré hacerlo.
La forma más sencilla que veo es que uses las propiedades del canvas de un TImage.
La cosa sería así:
1) Creas 2 TPicture con la imágen del marco en uno y la de la foto en el otro.
2) Creas un TImage en tu form.
3) Usando los métodos StretchDraw y Draw del canvas del TImage dibujas primero el marco de forma que ocupe todo el TImage y luego dibujas sobre el centrada la foto.
Sería algo así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var Picture1,Picture2:TPicture;
begin
  Picture1:=TPicture.Create;
  Picture1.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\Marco.bmp');
  Picture2:=TPicture.Create;
  Picture2.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\Foto.bmp');
  Image1.Canvas.StretchDraw(Image1.ClientRect,Picture1.Graphic);
  //acá se dibuja la foto centrada, puedes modificar las coordenadas para ponerla donde tu quieras
  Image1.Canvas.Draw((Image1.Width div 2)-(Picture2.Width div 2),(Image1.Height div 2)-(Picture2.Height div 2),Picture2.Graphic);
  Picture1.Free;
  Picture2.Free;
end;

[[ArdiIIa]]

Empezado por paldave

Hola, como veo que no han respondido a tu pregunta intentaré hacerlo.

No se si estamos leyendo el mismo foro, o como interpretar este comentario.