Ver Mensaje Individual
  #4  
Antiguo 06-06-2011
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.474
Reputación: 21
newtron Va camino a la fama
Hola. No sé si en lazarus funcionará igual pero yo en Delphi hago algo parecido a lo siguiente:

Código Delphi [-]
Grafico := TImage.Create(Self);
Grafico.Picture.LoadFromFile(imagen);
Grafico.Stretch :=True; 
Grafico.AutoSize := True; 
Grafico.Width  := Ancho; 
Grafico.Height := Alto; 
Rectt.Left   := Izquierda; 
Rectt.Top    := Derecha; 
Rectt.Right  := Rectt.Left + Ancho; 
Rectt.Bottom := Rectt.Top + Alto; 
MiCanvas.StretchDraw(Rectt, Grafico.Picture.Graphic);

Última edición por newtron fecha: 06-06-2011 a las 09:21:10. Razón: No hay manera de que el código me salga identado a la primera
Responder Con Cita