Navision AdvancedImage.Net v1.1

[randrews]

to tyrex
Здравствуйте
Все работет хорошо, нельзя не нарадоваться, но есть пожелание .

Скажите, пожалуйста, а нельзя ли добавить еще один mode, который бы подгонял рисунок под субформу, сохраняя пропорции. Перепробывал все mode.

Пробовал подгонять субформу под Image при default mode, но почему-то В НЕКОТОРЫХ случаях появляеся скролбар. Если интересно - приведу часть кода (на OnActivate):

   AdvancedImage2.Init;
   AdvancedImage2.LoadImage(InvSet."Path to Pictures"+"Ch. Picture 2");
   ImWidth := AdvancedImage2.GetImageWidth;
   ImHeight := AdvancedImage2.GetImageHeight;
   FrWidth := CurrForm.SubForm2.WIDTH;
   FrHeight := CurrForm.SubForm2.HEIGHT;
   IF ImWidth/ImHeight < FrWidth/FrHeight THEN
		CurrForm.SubForm2.WIDTH := ROUND((CurrForm.SubForm2.HEIGHT*ImWidth)/ImHeight,1)
   ELSE
		CurrForm.SubForm2.HEIGHT := ROUND((CurrForm.SubForm2.WIDTH*ImHeight)/ImWidth,1);