Ver Mensaje Individual
  #7  
Antiguo 04-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
Lo que pasa es que la foto que usas es más grande que el marco y más grande que el TImage que usas. Para solucionar este problema puedes redimensionar también la foto (además del marco) para que se ajusten ambos.
Sería algo así:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Picture1,Picture2:TPicture;
const
  AnchoVerticalMarco:Integer = 5;
  AnchoHorizontalMarco:Integer=5;
begin
  Picture1:=TPicture.Create;
  Picture1.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\Esfera reloj.bmp');
  Picture2:=TPicture.Create;
  Picture2.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\yo.bmp');
  Image1.Canvas.StretchDraw(Image1.ClientRect,Picture1.Graphic);
  Image1.Canvas.StretchDraw(Rect(AnchoHorizontalMarco,AnchoVerticalMarco,Image1.Width - AnchoHorizontalMarco,Image1.Height -AnchoVerticalMarco),Picture2.Graphic);
  Picture1.Free;
  Picture2.Free;
end;
donde AnchoHorizontalMarco es el ancho del marco en sus bordes superior e inferior, y AnchoVerticalMarco es el ancho del marco en sus bordes laterales.
Responder Con Cita