Resource

Resource Basics

Resource Name Exposure Compensation Made Friendly
Resource Version 1.0
Category Custom Thumbnail Info
Downloads 833
Release Date 3/28/2018 11:32:00 PM
 

Resource Details

Description Show the Exposure Compensation in a more friendly manner. e.g.

EV -0.50 instead of -1/2
Installation Instructions Download the script to your local HD
Usage Instructions Open the script in an editor and copy the content to a custom thumb line.
Changes in this version n.a.
Special Requirements
 

Author Information

Author Name IDimager Support
 

Script

%code 
var
  APos: Integer;
  ANom, ADenom: String;
begin
  result := '%xmp:exif:ExposureBiasValue';
  APos := Pos('/', result); 
  if APos > 0 then
  begin
    ANom := MidStr(result, 1, APos - 1);
    ADeNom := MidStr(result, APos + 1, Length(result));
    if (StrToInt(ADeNom) <> 0)  and
       IsValidNumberString(ANom, '.', False) and
       IsValidNumberString(ADeNom, '.', False)
    then
    begin
      result := 'EV ' + Format('%f', [RoundToPrecision(StrToInt(ANom) / StrToInt(ADeNom), 2)]);
    end;
  end;
end;
%/code