root/trunk/Units/unit_Globals.pas

Show revision log
 
463464
32
type
32
type
33
  TTXTEncoding = (enUTF8, en1251, enUnicode, enUnknown);
33
  TTXTEncoding = (enUTF8, en1251, enUnicode, enUnknown);
34
34



35
  TCoverImageType = (itPng, itJPG);



36



37
  TTreeMode = (tmTree, tmFlat);
35
  TTreeMode = (tmTree, tmFlat);



38
36



39
  TGenresType = (gtFb2, gtAny);
37
  TGenresType = (gtFb2, gtAny);


...
...
167
165



168
function TestArchive(FileName: string): Boolean;
166
function TestArchive(FileName: string): Boolean;



169
167



170
procedure CreateImage(Ext: string; var IMG: TGraphic; var ImageType: TCoverImageType);



171



172
type
168
type



173
  TAppLanguage = (alEng, alRus);
169
  TAppLanguage = (alEng, alRus);



174
  TExportMode = (emFB2, emFB2Zip, emLrf, emTxt, emEpub, emPDF);
170
  TExportMode = (emFB2, emFB2Zip, emLrf, emTxt, emEpub, emPDF);


...
...
321
  idStack,
317
  idStack,



322
  ShlObj,
318
  ShlObj,



323
  frm_main,
319
  frm_main,



324
  unit_fb2ToText,
320
  unit_fb2ToText;



325
  jpeg,



326
  pngimage;



327
321



328
const
322
const



329
  lat: set of Char = ['A' .. 'Z', 'a' .. 'z', '\', '-', ':', '`', ',', '.', '0' .. '9', '_', ' ', '(', ')', '[', ']', '{', '}'];
323
  lat: set of Char = ['A' .. 'Z', 'a' .. 'z', '\', '-', ':', '`', ',', '.', '0' .. '9', '_', ' ', '(', ')', '[', ']', '{', '}'];


...
...
1016
  Result := Copy(FileName, 1, Length(FileName) - Length(Ext));
1010
  Result := Copy(FileName, 1, Length(FileName) - Length(Ext));



1017
end;
1011
end;



1018
1012



1019
procedure CreateImage(Ext: string; var IMG: TGraphic; var ImageType: TCoverImageType);



1020
begin



1021
  Ext := LowerCase(Ext);



1022
  if Ext = '.png' then



1023
  begin



1024
    IMG := TPngImage.Create;



1025
    ImageType := itPng;



1026
  end



1027
  else if (Ext = '.jpg') or (Ext = '.jpeg') then



1028
  begin



1029
    IMG := TJPEGImage.Create;



1030
    ImageType := itJPG;



1031
  end;



1032
end;



1033



1034
end.
1013
end.