AdvSmoothPopupTouchKeyBoard bug

Hi,


It looks like there is a bug in the TAdvSmoothPopupTouchKeyBoard component when "ShowAtXY" is called with values different than 0.  The following example will raise an "Invalid floating point operation" exception in my environment:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AdvSmoothPopupTouchKeyBoard1.ShowAtXY(100, 100);
end;

The exception looks to be raised within the method "TAdvSmoothTouchKeyBoard.AutoZoom" where the 3rd and 4th lines try to divide "Width" and "Height" with "FOriginalW" and "FOriginalH" containing zero values.

This was tested with version 1.6.2.0 using Delphi 2007.

Thanks!

Hi, 


We were able to reproduce this here and have applied a fix for this.

Kind Regards, 
Scheldeman Pieter