paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnsiString

Browse Source 
(cherry picked from commit 5e29835b00751178ef4ecbd85c48552bb93a369a)
This commit is contained in:
Massimo Magnano 2023-07-25 11:51:46 +02:00 committed by Michaël Van Canneyt
parent d24b89fbd3
commit 08021aa714
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
packages/fcl-image/src/fptiffcmn.pas
View File

@ -137,7 +137,7 @@ type
public
IFDStart: SizeUInt; // tiff position
IFDNext: SizeUInt; // tiff position
Artist: String;
Artist: AnsiString;
BitsPerSample: SizeUInt; // tiff position of entry
BitsPerSampleArray: array of Word;
CellLength: DWord;
@ -145,30 +145,30 @@ type
ColorMap: SizeUInt;// tiff position of entry
Compression: DWord;
Predictor: Word;
Copyright: string;
DateAndTime: string;
DocumentName: string;
Copyright: AnsiString;
DateAndTime: AnsiString;
DocumentName: AnsiString;
ExtraSamples: SizeUInt;// tiff position of entry
FillOrder: DWord;
HostComputer: string;
ImageDescription: string;
HostComputer: AnsiString;
ImageDescription: AnsiString;
ImageHeight: DWord;
ImageIsMask: Boolean;
ImageIsPage: Boolean;
ImageIsThumbNail: Boolean;
ImageWidth: DWord;
Make_ScannerManufacturer: string;
Model_Scanner: string;
Make_ScannerManufacturer: AnsiString;
Model_Scanner: AnsiString;
Orientation: DWord;
PageNumber: word; // the page number starting at 0, the total number of pages is PageCount
PageCount: word; // see PageNumber
PageName: string;
PageName: AnsiString;
PhotoMetricInterpretation: DWord;
PlanarConfiguration: DWord;
ResolutionUnit: DWord;
RowsPerStrip: DWord;
SamplesPerPixel: DWord;
Software: string;
Software: AnsiString;
StripByteCounts: SizeUInt;// tiff position of entry
StripOffsets: SizeUInt; // tiff position of entry
TileWidth: DWord;
@ -195,24 +195,24 @@ type
destructor Destroy; override;
end;
function TiffRationalToStr(const r: TTiffRational): string;
function StrToTiffRationalDef(const s: string; const Def: TTiffRational): TTiffRational;
function TiffRationalToStr(const r: TTiffRational): AnsiString;
function StrToTiffRationalDef(const s: AnsiString; const Def: TTiffRational): TTiffRational;
procedure ClearTiffExtras(Img: TFPCustomImage);
procedure CopyTiffExtras(SrcImg, DestImg: TFPCustomImage);
procedure WriteTiffExtras(Msg: string; Img: TFPCustomImage);
function TiffCompressionName(c: Word): string;
procedure WriteTiffExtras(Msg: AnsiString; Img: TFPCustomImage);
function TiffCompressionName(c: Word): AnsiString;
function TifResolutionUnitToResolutionUnit(ATifResolutionUnit: DWord): TResolutionUnit;
function ResolutionUnitToTifResolutionUnit(AResolutionUnit: TResolutionUnit): DWord;
implementation
function TiffRationalToStr(const r: TTiffRational): string;
function TiffRationalToStr(const r: TTiffRational): AnsiString;
begin
Result:=IntToStr(r.Numerator)+'/'+IntToStr(r.Denominator);
end;
function StrToTiffRationalDef(const s: string; const Def: TTiffRational
function StrToTiffRationalDef(const s: AnsiString; const Def: TTiffRational
): TTiffRational;
var
p: LongInt;
@ -243,7 +243,7 @@ begin
DestImg.Extra[SrcImg.ExtraKey[i]]:=SrcImg.ExtraValue[i];
end;
procedure WriteTiffExtras(Msg: string; Img: TFPCustomImage);
procedure WriteTiffExtras(Msg: AnsiString; Img: TFPCustomImage);
var
i: Integer;
begin
@ -253,7 +253,7 @@ begin
writeln(' ',i,' ',Img.ExtraKey[i],'=',Img.ExtraValue[i]);
end;
function TiffCompressionName(c: Word): string;
function TiffCompressionName(c: Word): AnsiString;
begin
case c of
1: Result:='no compression';