BitmapToClient example for Delphi

var
   sRet: Smallint;
   szOut: String;
begin

   //Test a bitmap location for its screen location
   LEADRasterView1.ScaleMode:= 3; //pixels b/c I'm passing pixels
   LEADRasterView1.BitmapToClient (50, 50, sRet);
   szOut:= '';
   szOut:= szOut + 'ClientX = ' + IntToStr(Trunc(LEADRasterView1.ConvertX)) + Chr(10) + Chr(13);
   szOut:= szOut + 'ClientY = ' + IntToStr(Trunc(LEADRasterView1.ConvertY)) + Chr(10) + Chr(13);
   ShowMessage (szOut);
end;