type
// defined in Imaging.pas
TResolutionUnit = (
ruSizeInMicroMeters, // value is pixel size in micrometers
ruDpi, // value is pixels/dots per inch
ruDpm, // value is pixels/dots per meter
ruDpcm // value is pixels/dots per centimeter
);
var
XRes, YRes: Single;
ResUnit: TResolutionUnit;
... load image ...
ResUnit := ruDpi;
if GlobalMetadata.GetPhysicalPixelSize(ResUnit, XRes, YRes) then
begin
... print resolution present, do something with it
end;
... do something with image
GlobalMetadata.SetPhysicalPixelSize(ResUnit, XRes, YRes, True)
... save image
Page created in 0.011 seconds with 19 queries.