Ver Mensaje Individual
  #3  
Antiguo 01-09-2007
Avatar de paldave
paldave paldave is offline
Miembro
 
Registrado: ago 2007
Ubicación: Uruguay
Posts: 148
Reputación: 17
paldave Va por buen camino
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;
Responder Con Cita