Muy buen día, disculpen las molestias que pueda ocasionar, lo que pasa es que estoy realizando una aplicación que consta de adquirir imágenes escaneadas, pero le estoy agregando una herramienta de zoom,esta me funciona perfectamente al abrir el archivo mediante un OpenPictureDialog, pero al adquirirla mediante el escáner no me permite realizarle un zoom, utilizo un Timage<Cuando es Abrir pues es básicamente Image1.LoadFromFile()... y cuando es adquirido es assignado>
Código Delphi
[-]
procedure TFormMain.BitBtn2Click(Sender: TObject);
var h, v, h1, v1 :real;
valor:integer;
begin
h := PropiedadW;
v := PropiedadH;
v1 := ((v*110)/100);
h1 := ((h*110)/100);
image.Constraints.MaxHeight := trunc(v1);
image.Constraints.MaxWidth := trunc(h1);
image.Constraints.MinHeight := trunc(v1);
image.Constraints.MinWidth := trunc(h1);
end;
asignaciones al Timage
Código Delphi
[-]
Image.Picture.Assign(TBitmap(ImageList[0])); Image.Picture.LoadFromFile(OpenPictureDialog1.FileName);
la cuestión en si es que no me deja darle zoom por la opción 1,¿Qué se puede hacer? alguna recomendación?
No sé si sea lo mismo pero digamos que dibujamos dentro de un Timage con canvas se puede dar zoom con el código de arriba?