WMFResolutionX example for Delphi
//This example displays the default resolution stored in a WMF,
//changes the resolution to 150 dpi, and then loads the image
procedure TForm1.LoadWMFClick(Sender: TObject);
var
fileName: String;
begin
fileName:= 'test.wmf';
//Display resolution stored in WMF
LEADImage1.GetFileInfo(fileName, 0);
ShowMessage('InfoXRes: ' + IntToStr(LEADImage1.InfoXRes) + #13 + 'InfoYRes: ' + IntToStr(LEADImage1.InfoYRes));
// Set resolution so WMF is loaded at 150 dpi
LEADImage1.WMFResolutionX:= 150;
LEADImage1.WMFResolutionY:= 150;
LEADImage1.Load(fileName, 0, 0, 1);
end;