9779c4beba
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7327 8e941d3f-bd1b-0410-a28a-d453659cc2b4
69 lines
2.0 KiB
ObjectPascal
69 lines
2.0 KiB
ObjectPascal
unit fpeMakerNoteSanyo;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE DELPHI}
|
|
//{$mode objfpc}{$H+}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
fpeTags, fpeExifReadWrite;
|
|
|
|
type
|
|
TSanyoMakerNoteReader = class(TMakerNoteReader)
|
|
protected
|
|
procedure GetTagDefs({%H-}AStream: TStream); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
fpeStrConsts;
|
|
|
|
resourcestring
|
|
rsSanyoMacroLkup = '0:Normal,1:Macro,2:View,3:Manual';
|
|
rsSanyoQualityLkup = '0:Normal/Very Low,1:Normal/Low,2:Normal/Medium Low,'+
|
|
'3:Normal/Medium,4:Normal/Medium High,5:Normal/High,6:Normal/Very High'+
|
|
'7:Normal/Super High,256:Fine/Very Low,257:Fine/Low,258:Fine/Medium Low'+
|
|
'259:Fine/Medium,260:Fine/Medium High,261:Fine/High,262:Fine/Very High'+
|
|
'263:Fine/Super High,512:Super Fine/Very Low,513:Super Fine/Low,'+
|
|
'514:Super Fine/Medium Low,515:Super Fine/Medium,516:Super Fine/Medium High,'+
|
|
'517:Super Fine/High,518:Super Fine/Very High,519:Super Fine/Super High';
|
|
rsSanyoSpecialMode = 'Special mode';
|
|
|
|
// from dExif
|
|
procedure BuildSanyoTagDefs(AList: TTagDefList);
|
|
const
|
|
M = LongWord(TAGPARENT_MAKERNOTE);
|
|
begin
|
|
Assert(AList <> nil);
|
|
with AList do begin
|
|
AddULongTag (M+$0200, 'SpecialMode', 3, rsSanyoSpecialMode);
|
|
AddUShortTag (M+$0201, 'Quality', 1, rsQuality, rsSanyoQualityLkup);
|
|
AddUShortTag (M+$0202, 'Macro', 1, rsMacro, rsSanyoMacroLkup);
|
|
AddURationalTag(M+$0204, 'DigitalZoom', 1, rsDigitalZoom);
|
|
end;
|
|
end;
|
|
|
|
//==============================================================================
|
|
// TSanyoMakerNoteReader
|
|
//==============================================================================
|
|
|
|
procedure TSanyoMakerNoteReader.GetTagDefs(AStream: TStream);
|
|
begin
|
|
BuildSanyoTagDefs(FTagDefs);
|
|
end;
|
|
|
|
|
|
//==============================================================================
|
|
// initialization
|
|
//==============================================================================
|
|
|
|
initialization
|
|
RegisterMakerNoteReader(TSanyoMakerNoteReader, 'Sanyo', '');
|
|
|
|
end.
|
|
|