AnnGetBitmapDpiX example for Delphi

var
   x: L_DOUBLE; 
   y: L_DOUBLE; 
   hAuto: HANNOBJECT; 
begin
   hAuto:= LEADAnn1.AnnCreate(ANNOBJECT_AUTOMATION, False, False); 

   LEADAnn1.AnnGetBitmapDpiX(hAuto, x); 
   LEADAnn1.AnnGetBitmapDpiY(hAuto, y); 
   ShowMessage(FloatToStr(x) + ', ' + FloatToStr(y)); 
   LEADAnn1.AnnSetBitmapDpiX(hAuto, x + 2, False); 
   LEADAnn1.AnnSetBitmapDpiY(hAuto, y + 2, False); 
   LEADAnn1.AnnGetBitmapDpiX(hAuto, x); 
   LEADAnn1.AnnGetBitmapDpiY(hAuto, y); 
   ShowMessage(FloatToStr(x) + ', ' + FloatToStr(y)); 
end;