pngimage.hpp 68 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 2002 by Borland Software Corporation
  3. // All rights reserved
  4. // (DO NOT EDIT: machine generated header) 'pngimage.pas' rev: 6.00
  5. #ifndef pngimageHPP
  6. #define pngimageHPP
  7. #pragma delphiheader begin
  8. #pragma option push -w-
  9. #pragma option push -Vx
  10. #include <pnglang.hpp> // Pascal unit
  11. #include <zlibpas.hpp> // Pascal unit
  12. #include <SysUtils.hpp> // Pascal unit
  13. #include <Graphics.hpp> // Pascal unit
  14. #include <Classes.hpp> // Pascal unit
  15. #include <Windows.hpp> // Pascal unit
  16. #include <SysInit.hpp> // Pascal unit
  17. #include <System.hpp> // Pascal unit
  18. //-- user supplied -----------------------------------------------------------
  19. namespace Pngimage
  20. {
  21. //-- type declarations -------------------------------------------------------
  22. typedef AnsiString pngimage__1[9];
  23. class DELPHICLASS EPNGOutMemory;
  24. class PASCALIMPLEMENTATION EPNGOutMemory : public Sysutils::Exception
  25. {
  26. typedef Sysutils::Exception inherited;
  27. public:
  28. #pragma option push -w-inl
  29. /* Exception.Create */ inline __fastcall EPNGOutMemory(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  30. #pragma option pop
  31. #pragma option push -w-inl
  32. /* Exception.CreateFmt */ inline __fastcall EPNGOutMemory(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  33. #pragma option pop
  34. #pragma option push -w-inl
  35. /* Exception.CreateRes */ inline __fastcall EPNGOutMemory(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  36. #pragma option pop
  37. #pragma option push -w-inl
  38. /* Exception.CreateResFmt */ inline __fastcall EPNGOutMemory(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  39. #pragma option pop
  40. #pragma option push -w-inl
  41. /* Exception.CreateHelp */ inline __fastcall EPNGOutMemory(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  42. #pragma option pop
  43. #pragma option push -w-inl
  44. /* Exception.CreateFmtHelp */ inline __fastcall EPNGOutMemory(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  45. #pragma option pop
  46. #pragma option push -w-inl
  47. /* Exception.CreateResHelp */ inline __fastcall EPNGOutMemory(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  48. #pragma option pop
  49. #pragma option push -w-inl
  50. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGOutMemory(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  51. #pragma option pop
  52. public:
  53. #pragma option push -w-inl
  54. /* TObject.Destroy */ inline __fastcall virtual ~EPNGOutMemory(void) { }
  55. #pragma option pop
  56. };
  57. class DELPHICLASS EPngError;
  58. class PASCALIMPLEMENTATION EPngError : public Sysutils::Exception
  59. {
  60. typedef Sysutils::Exception inherited;
  61. public:
  62. #pragma option push -w-inl
  63. /* Exception.Create */ inline __fastcall EPngError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  64. #pragma option pop
  65. #pragma option push -w-inl
  66. /* Exception.CreateFmt */ inline __fastcall EPngError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  67. #pragma option pop
  68. #pragma option push -w-inl
  69. /* Exception.CreateRes */ inline __fastcall EPngError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  70. #pragma option pop
  71. #pragma option push -w-inl
  72. /* Exception.CreateResFmt */ inline __fastcall EPngError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  73. #pragma option pop
  74. #pragma option push -w-inl
  75. /* Exception.CreateHelp */ inline __fastcall EPngError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  76. #pragma option pop
  77. #pragma option push -w-inl
  78. /* Exception.CreateFmtHelp */ inline __fastcall EPngError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  79. #pragma option pop
  80. #pragma option push -w-inl
  81. /* Exception.CreateResHelp */ inline __fastcall EPngError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  82. #pragma option pop
  83. #pragma option push -w-inl
  84. /* Exception.CreateResFmtHelp */ inline __fastcall EPngError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  85. #pragma option pop
  86. public:
  87. #pragma option push -w-inl
  88. /* TObject.Destroy */ inline __fastcall virtual ~EPngError(void) { }
  89. #pragma option pop
  90. };
  91. class DELPHICLASS EPngUnexpectedEnd;
  92. class PASCALIMPLEMENTATION EPngUnexpectedEnd : public Sysutils::Exception
  93. {
  94. typedef Sysutils::Exception inherited;
  95. public:
  96. #pragma option push -w-inl
  97. /* Exception.Create */ inline __fastcall EPngUnexpectedEnd(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  98. #pragma option pop
  99. #pragma option push -w-inl
  100. /* Exception.CreateFmt */ inline __fastcall EPngUnexpectedEnd(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  101. #pragma option pop
  102. #pragma option push -w-inl
  103. /* Exception.CreateRes */ inline __fastcall EPngUnexpectedEnd(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  104. #pragma option pop
  105. #pragma option push -w-inl
  106. /* Exception.CreateResFmt */ inline __fastcall EPngUnexpectedEnd(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  107. #pragma option pop
  108. #pragma option push -w-inl
  109. /* Exception.CreateHelp */ inline __fastcall EPngUnexpectedEnd(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  110. #pragma option pop
  111. #pragma option push -w-inl
  112. /* Exception.CreateFmtHelp */ inline __fastcall EPngUnexpectedEnd(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  113. #pragma option pop
  114. #pragma option push -w-inl
  115. /* Exception.CreateResHelp */ inline __fastcall EPngUnexpectedEnd(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  116. #pragma option pop
  117. #pragma option push -w-inl
  118. /* Exception.CreateResFmtHelp */ inline __fastcall EPngUnexpectedEnd(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  119. #pragma option pop
  120. public:
  121. #pragma option push -w-inl
  122. /* TObject.Destroy */ inline __fastcall virtual ~EPngUnexpectedEnd(void) { }
  123. #pragma option pop
  124. };
  125. class DELPHICLASS EPngInvalidCRC;
  126. class PASCALIMPLEMENTATION EPngInvalidCRC : public Sysutils::Exception
  127. {
  128. typedef Sysutils::Exception inherited;
  129. public:
  130. #pragma option push -w-inl
  131. /* Exception.Create */ inline __fastcall EPngInvalidCRC(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  132. #pragma option pop
  133. #pragma option push -w-inl
  134. /* Exception.CreateFmt */ inline __fastcall EPngInvalidCRC(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  135. #pragma option pop
  136. #pragma option push -w-inl
  137. /* Exception.CreateRes */ inline __fastcall EPngInvalidCRC(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  138. #pragma option pop
  139. #pragma option push -w-inl
  140. /* Exception.CreateResFmt */ inline __fastcall EPngInvalidCRC(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  141. #pragma option pop
  142. #pragma option push -w-inl
  143. /* Exception.CreateHelp */ inline __fastcall EPngInvalidCRC(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  144. #pragma option pop
  145. #pragma option push -w-inl
  146. /* Exception.CreateFmtHelp */ inline __fastcall EPngInvalidCRC(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  147. #pragma option pop
  148. #pragma option push -w-inl
  149. /* Exception.CreateResHelp */ inline __fastcall EPngInvalidCRC(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  150. #pragma option pop
  151. #pragma option push -w-inl
  152. /* Exception.CreateResFmtHelp */ inline __fastcall EPngInvalidCRC(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  153. #pragma option pop
  154. public:
  155. #pragma option push -w-inl
  156. /* TObject.Destroy */ inline __fastcall virtual ~EPngInvalidCRC(void) { }
  157. #pragma option pop
  158. };
  159. class DELPHICLASS EPngInvalidIHDR;
  160. class PASCALIMPLEMENTATION EPngInvalidIHDR : public Sysutils::Exception
  161. {
  162. typedef Sysutils::Exception inherited;
  163. public:
  164. #pragma option push -w-inl
  165. /* Exception.Create */ inline __fastcall EPngInvalidIHDR(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  166. #pragma option pop
  167. #pragma option push -w-inl
  168. /* Exception.CreateFmt */ inline __fastcall EPngInvalidIHDR(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  169. #pragma option pop
  170. #pragma option push -w-inl
  171. /* Exception.CreateRes */ inline __fastcall EPngInvalidIHDR(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  172. #pragma option pop
  173. #pragma option push -w-inl
  174. /* Exception.CreateResFmt */ inline __fastcall EPngInvalidIHDR(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  175. #pragma option pop
  176. #pragma option push -w-inl
  177. /* Exception.CreateHelp */ inline __fastcall EPngInvalidIHDR(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  178. #pragma option pop
  179. #pragma option push -w-inl
  180. /* Exception.CreateFmtHelp */ inline __fastcall EPngInvalidIHDR(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  181. #pragma option pop
  182. #pragma option push -w-inl
  183. /* Exception.CreateResHelp */ inline __fastcall EPngInvalidIHDR(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  184. #pragma option pop
  185. #pragma option push -w-inl
  186. /* Exception.CreateResFmtHelp */ inline __fastcall EPngInvalidIHDR(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  187. #pragma option pop
  188. public:
  189. #pragma option push -w-inl
  190. /* TObject.Destroy */ inline __fastcall virtual ~EPngInvalidIHDR(void) { }
  191. #pragma option pop
  192. };
  193. class DELPHICLASS EPNGMissingMultipleIDAT;
  194. class PASCALIMPLEMENTATION EPNGMissingMultipleIDAT : public Sysutils::Exception
  195. {
  196. typedef Sysutils::Exception inherited;
  197. public:
  198. #pragma option push -w-inl
  199. /* Exception.Create */ inline __fastcall EPNGMissingMultipleIDAT(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  200. #pragma option pop
  201. #pragma option push -w-inl
  202. /* Exception.CreateFmt */ inline __fastcall EPNGMissingMultipleIDAT(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  203. #pragma option pop
  204. #pragma option push -w-inl
  205. /* Exception.CreateRes */ inline __fastcall EPNGMissingMultipleIDAT(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  206. #pragma option pop
  207. #pragma option push -w-inl
  208. /* Exception.CreateResFmt */ inline __fastcall EPNGMissingMultipleIDAT(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  209. #pragma option pop
  210. #pragma option push -w-inl
  211. /* Exception.CreateHelp */ inline __fastcall EPNGMissingMultipleIDAT(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  212. #pragma option pop
  213. #pragma option push -w-inl
  214. /* Exception.CreateFmtHelp */ inline __fastcall EPNGMissingMultipleIDAT(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  215. #pragma option pop
  216. #pragma option push -w-inl
  217. /* Exception.CreateResHelp */ inline __fastcall EPNGMissingMultipleIDAT(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  218. #pragma option pop
  219. #pragma option push -w-inl
  220. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGMissingMultipleIDAT(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  221. #pragma option pop
  222. public:
  223. #pragma option push -w-inl
  224. /* TObject.Destroy */ inline __fastcall virtual ~EPNGMissingMultipleIDAT(void) { }
  225. #pragma option pop
  226. };
  227. class DELPHICLASS EPNGZLIBError;
  228. class PASCALIMPLEMENTATION EPNGZLIBError : public Sysutils::Exception
  229. {
  230. typedef Sysutils::Exception inherited;
  231. public:
  232. #pragma option push -w-inl
  233. /* Exception.Create */ inline __fastcall EPNGZLIBError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  234. #pragma option pop
  235. #pragma option push -w-inl
  236. /* Exception.CreateFmt */ inline __fastcall EPNGZLIBError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  237. #pragma option pop
  238. #pragma option push -w-inl
  239. /* Exception.CreateRes */ inline __fastcall EPNGZLIBError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  240. #pragma option pop
  241. #pragma option push -w-inl
  242. /* Exception.CreateResFmt */ inline __fastcall EPNGZLIBError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  243. #pragma option pop
  244. #pragma option push -w-inl
  245. /* Exception.CreateHelp */ inline __fastcall EPNGZLIBError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  246. #pragma option pop
  247. #pragma option push -w-inl
  248. /* Exception.CreateFmtHelp */ inline __fastcall EPNGZLIBError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  249. #pragma option pop
  250. #pragma option push -w-inl
  251. /* Exception.CreateResHelp */ inline __fastcall EPNGZLIBError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  252. #pragma option pop
  253. #pragma option push -w-inl
  254. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGZLIBError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  255. #pragma option pop
  256. public:
  257. #pragma option push -w-inl
  258. /* TObject.Destroy */ inline __fastcall virtual ~EPNGZLIBError(void) { }
  259. #pragma option pop
  260. };
  261. class DELPHICLASS EPNGInvalidPalette;
  262. class PASCALIMPLEMENTATION EPNGInvalidPalette : public Sysutils::Exception
  263. {
  264. typedef Sysutils::Exception inherited;
  265. public:
  266. #pragma option push -w-inl
  267. /* Exception.Create */ inline __fastcall EPNGInvalidPalette(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  268. #pragma option pop
  269. #pragma option push -w-inl
  270. /* Exception.CreateFmt */ inline __fastcall EPNGInvalidPalette(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  271. #pragma option pop
  272. #pragma option push -w-inl
  273. /* Exception.CreateRes */ inline __fastcall EPNGInvalidPalette(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  274. #pragma option pop
  275. #pragma option push -w-inl
  276. /* Exception.CreateResFmt */ inline __fastcall EPNGInvalidPalette(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  277. #pragma option pop
  278. #pragma option push -w-inl
  279. /* Exception.CreateHelp */ inline __fastcall EPNGInvalidPalette(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  280. #pragma option pop
  281. #pragma option push -w-inl
  282. /* Exception.CreateFmtHelp */ inline __fastcall EPNGInvalidPalette(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  283. #pragma option pop
  284. #pragma option push -w-inl
  285. /* Exception.CreateResHelp */ inline __fastcall EPNGInvalidPalette(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  286. #pragma option pop
  287. #pragma option push -w-inl
  288. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGInvalidPalette(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  289. #pragma option pop
  290. public:
  291. #pragma option push -w-inl
  292. /* TObject.Destroy */ inline __fastcall virtual ~EPNGInvalidPalette(void) { }
  293. #pragma option pop
  294. };
  295. class DELPHICLASS EPNGInvalidFileHeader;
  296. class PASCALIMPLEMENTATION EPNGInvalidFileHeader : public Sysutils::Exception
  297. {
  298. typedef Sysutils::Exception inherited;
  299. public:
  300. #pragma option push -w-inl
  301. /* Exception.Create */ inline __fastcall EPNGInvalidFileHeader(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  302. #pragma option pop
  303. #pragma option push -w-inl
  304. /* Exception.CreateFmt */ inline __fastcall EPNGInvalidFileHeader(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  305. #pragma option pop
  306. #pragma option push -w-inl
  307. /* Exception.CreateRes */ inline __fastcall EPNGInvalidFileHeader(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  308. #pragma option pop
  309. #pragma option push -w-inl
  310. /* Exception.CreateResFmt */ inline __fastcall EPNGInvalidFileHeader(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  311. #pragma option pop
  312. #pragma option push -w-inl
  313. /* Exception.CreateHelp */ inline __fastcall EPNGInvalidFileHeader(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  314. #pragma option pop
  315. #pragma option push -w-inl
  316. /* Exception.CreateFmtHelp */ inline __fastcall EPNGInvalidFileHeader(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  317. #pragma option pop
  318. #pragma option push -w-inl
  319. /* Exception.CreateResHelp */ inline __fastcall EPNGInvalidFileHeader(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  320. #pragma option pop
  321. #pragma option push -w-inl
  322. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGInvalidFileHeader(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  323. #pragma option pop
  324. public:
  325. #pragma option push -w-inl
  326. /* TObject.Destroy */ inline __fastcall virtual ~EPNGInvalidFileHeader(void) { }
  327. #pragma option pop
  328. };
  329. class DELPHICLASS EPNGIHDRNotFirst;
  330. class PASCALIMPLEMENTATION EPNGIHDRNotFirst : public Sysutils::Exception
  331. {
  332. typedef Sysutils::Exception inherited;
  333. public:
  334. #pragma option push -w-inl
  335. /* Exception.Create */ inline __fastcall EPNGIHDRNotFirst(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  336. #pragma option pop
  337. #pragma option push -w-inl
  338. /* Exception.CreateFmt */ inline __fastcall EPNGIHDRNotFirst(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  339. #pragma option pop
  340. #pragma option push -w-inl
  341. /* Exception.CreateRes */ inline __fastcall EPNGIHDRNotFirst(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  342. #pragma option pop
  343. #pragma option push -w-inl
  344. /* Exception.CreateResFmt */ inline __fastcall EPNGIHDRNotFirst(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  345. #pragma option pop
  346. #pragma option push -w-inl
  347. /* Exception.CreateHelp */ inline __fastcall EPNGIHDRNotFirst(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  348. #pragma option pop
  349. #pragma option push -w-inl
  350. /* Exception.CreateFmtHelp */ inline __fastcall EPNGIHDRNotFirst(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  351. #pragma option pop
  352. #pragma option push -w-inl
  353. /* Exception.CreateResHelp */ inline __fastcall EPNGIHDRNotFirst(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  354. #pragma option pop
  355. #pragma option push -w-inl
  356. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGIHDRNotFirst(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  357. #pragma option pop
  358. public:
  359. #pragma option push -w-inl
  360. /* TObject.Destroy */ inline __fastcall virtual ~EPNGIHDRNotFirst(void) { }
  361. #pragma option pop
  362. };
  363. class DELPHICLASS EPNGNotExists;
  364. class PASCALIMPLEMENTATION EPNGNotExists : public Sysutils::Exception
  365. {
  366. typedef Sysutils::Exception inherited;
  367. public:
  368. #pragma option push -w-inl
  369. /* Exception.Create */ inline __fastcall EPNGNotExists(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  370. #pragma option pop
  371. #pragma option push -w-inl
  372. /* Exception.CreateFmt */ inline __fastcall EPNGNotExists(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  373. #pragma option pop
  374. #pragma option push -w-inl
  375. /* Exception.CreateRes */ inline __fastcall EPNGNotExists(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  376. #pragma option pop
  377. #pragma option push -w-inl
  378. /* Exception.CreateResFmt */ inline __fastcall EPNGNotExists(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  379. #pragma option pop
  380. #pragma option push -w-inl
  381. /* Exception.CreateHelp */ inline __fastcall EPNGNotExists(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  382. #pragma option pop
  383. #pragma option push -w-inl
  384. /* Exception.CreateFmtHelp */ inline __fastcall EPNGNotExists(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  385. #pragma option pop
  386. #pragma option push -w-inl
  387. /* Exception.CreateResHelp */ inline __fastcall EPNGNotExists(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  388. #pragma option pop
  389. #pragma option push -w-inl
  390. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGNotExists(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  391. #pragma option pop
  392. public:
  393. #pragma option push -w-inl
  394. /* TObject.Destroy */ inline __fastcall virtual ~EPNGNotExists(void) { }
  395. #pragma option pop
  396. };
  397. class DELPHICLASS EPNGSizeExceeds;
  398. class PASCALIMPLEMENTATION EPNGSizeExceeds : public Sysutils::Exception
  399. {
  400. typedef Sysutils::Exception inherited;
  401. public:
  402. #pragma option push -w-inl
  403. /* Exception.Create */ inline __fastcall EPNGSizeExceeds(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  404. #pragma option pop
  405. #pragma option push -w-inl
  406. /* Exception.CreateFmt */ inline __fastcall EPNGSizeExceeds(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  407. #pragma option pop
  408. #pragma option push -w-inl
  409. /* Exception.CreateRes */ inline __fastcall EPNGSizeExceeds(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  410. #pragma option pop
  411. #pragma option push -w-inl
  412. /* Exception.CreateResFmt */ inline __fastcall EPNGSizeExceeds(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  413. #pragma option pop
  414. #pragma option push -w-inl
  415. /* Exception.CreateHelp */ inline __fastcall EPNGSizeExceeds(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  416. #pragma option pop
  417. #pragma option push -w-inl
  418. /* Exception.CreateFmtHelp */ inline __fastcall EPNGSizeExceeds(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  419. #pragma option pop
  420. #pragma option push -w-inl
  421. /* Exception.CreateResHelp */ inline __fastcall EPNGSizeExceeds(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  422. #pragma option pop
  423. #pragma option push -w-inl
  424. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGSizeExceeds(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  425. #pragma option pop
  426. public:
  427. #pragma option push -w-inl
  428. /* TObject.Destroy */ inline __fastcall virtual ~EPNGSizeExceeds(void) { }
  429. #pragma option pop
  430. };
  431. class DELPHICLASS EPNGMissingPalette;
  432. class PASCALIMPLEMENTATION EPNGMissingPalette : public Sysutils::Exception
  433. {
  434. typedef Sysutils::Exception inherited;
  435. public:
  436. #pragma option push -w-inl
  437. /* Exception.Create */ inline __fastcall EPNGMissingPalette(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  438. #pragma option pop
  439. #pragma option push -w-inl
  440. /* Exception.CreateFmt */ inline __fastcall EPNGMissingPalette(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  441. #pragma option pop
  442. #pragma option push -w-inl
  443. /* Exception.CreateRes */ inline __fastcall EPNGMissingPalette(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  444. #pragma option pop
  445. #pragma option push -w-inl
  446. /* Exception.CreateResFmt */ inline __fastcall EPNGMissingPalette(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  447. #pragma option pop
  448. #pragma option push -w-inl
  449. /* Exception.CreateHelp */ inline __fastcall EPNGMissingPalette(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  450. #pragma option pop
  451. #pragma option push -w-inl
  452. /* Exception.CreateFmtHelp */ inline __fastcall EPNGMissingPalette(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  453. #pragma option pop
  454. #pragma option push -w-inl
  455. /* Exception.CreateResHelp */ inline __fastcall EPNGMissingPalette(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  456. #pragma option pop
  457. #pragma option push -w-inl
  458. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGMissingPalette(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  459. #pragma option pop
  460. public:
  461. #pragma option push -w-inl
  462. /* TObject.Destroy */ inline __fastcall virtual ~EPNGMissingPalette(void) { }
  463. #pragma option pop
  464. };
  465. class DELPHICLASS EPNGUnknownCriticalChunk;
  466. class PASCALIMPLEMENTATION EPNGUnknownCriticalChunk : public Sysutils::Exception
  467. {
  468. typedef Sysutils::Exception inherited;
  469. public:
  470. #pragma option push -w-inl
  471. /* Exception.Create */ inline __fastcall EPNGUnknownCriticalChunk(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  472. #pragma option pop
  473. #pragma option push -w-inl
  474. /* Exception.CreateFmt */ inline __fastcall EPNGUnknownCriticalChunk(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  475. #pragma option pop
  476. #pragma option push -w-inl
  477. /* Exception.CreateRes */ inline __fastcall EPNGUnknownCriticalChunk(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  478. #pragma option pop
  479. #pragma option push -w-inl
  480. /* Exception.CreateResFmt */ inline __fastcall EPNGUnknownCriticalChunk(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  481. #pragma option pop
  482. #pragma option push -w-inl
  483. /* Exception.CreateHelp */ inline __fastcall EPNGUnknownCriticalChunk(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  484. #pragma option pop
  485. #pragma option push -w-inl
  486. /* Exception.CreateFmtHelp */ inline __fastcall EPNGUnknownCriticalChunk(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  487. #pragma option pop
  488. #pragma option push -w-inl
  489. /* Exception.CreateResHelp */ inline __fastcall EPNGUnknownCriticalChunk(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  490. #pragma option pop
  491. #pragma option push -w-inl
  492. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGUnknownCriticalChunk(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  493. #pragma option pop
  494. public:
  495. #pragma option push -w-inl
  496. /* TObject.Destroy */ inline __fastcall virtual ~EPNGUnknownCriticalChunk(void) { }
  497. #pragma option pop
  498. };
  499. class DELPHICLASS EPNGUnknownCompression;
  500. class PASCALIMPLEMENTATION EPNGUnknownCompression : public Sysutils::Exception
  501. {
  502. typedef Sysutils::Exception inherited;
  503. public:
  504. #pragma option push -w-inl
  505. /* Exception.Create */ inline __fastcall EPNGUnknownCompression(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  506. #pragma option pop
  507. #pragma option push -w-inl
  508. /* Exception.CreateFmt */ inline __fastcall EPNGUnknownCompression(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  509. #pragma option pop
  510. #pragma option push -w-inl
  511. /* Exception.CreateRes */ inline __fastcall EPNGUnknownCompression(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  512. #pragma option pop
  513. #pragma option push -w-inl
  514. /* Exception.CreateResFmt */ inline __fastcall EPNGUnknownCompression(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  515. #pragma option pop
  516. #pragma option push -w-inl
  517. /* Exception.CreateHelp */ inline __fastcall EPNGUnknownCompression(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  518. #pragma option pop
  519. #pragma option push -w-inl
  520. /* Exception.CreateFmtHelp */ inline __fastcall EPNGUnknownCompression(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  521. #pragma option pop
  522. #pragma option push -w-inl
  523. /* Exception.CreateResHelp */ inline __fastcall EPNGUnknownCompression(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  524. #pragma option pop
  525. #pragma option push -w-inl
  526. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGUnknownCompression(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  527. #pragma option pop
  528. public:
  529. #pragma option push -w-inl
  530. /* TObject.Destroy */ inline __fastcall virtual ~EPNGUnknownCompression(void) { }
  531. #pragma option pop
  532. };
  533. class DELPHICLASS EPNGUnknownInterlace;
  534. class PASCALIMPLEMENTATION EPNGUnknownInterlace : public Sysutils::Exception
  535. {
  536. typedef Sysutils::Exception inherited;
  537. public:
  538. #pragma option push -w-inl
  539. /* Exception.Create */ inline __fastcall EPNGUnknownInterlace(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  540. #pragma option pop
  541. #pragma option push -w-inl
  542. /* Exception.CreateFmt */ inline __fastcall EPNGUnknownInterlace(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  543. #pragma option pop
  544. #pragma option push -w-inl
  545. /* Exception.CreateRes */ inline __fastcall EPNGUnknownInterlace(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  546. #pragma option pop
  547. #pragma option push -w-inl
  548. /* Exception.CreateResFmt */ inline __fastcall EPNGUnknownInterlace(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  549. #pragma option pop
  550. #pragma option push -w-inl
  551. /* Exception.CreateHelp */ inline __fastcall EPNGUnknownInterlace(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  552. #pragma option pop
  553. #pragma option push -w-inl
  554. /* Exception.CreateFmtHelp */ inline __fastcall EPNGUnknownInterlace(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  555. #pragma option pop
  556. #pragma option push -w-inl
  557. /* Exception.CreateResHelp */ inline __fastcall EPNGUnknownInterlace(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  558. #pragma option pop
  559. #pragma option push -w-inl
  560. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGUnknownInterlace(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  561. #pragma option pop
  562. public:
  563. #pragma option push -w-inl
  564. /* TObject.Destroy */ inline __fastcall virtual ~EPNGUnknownInterlace(void) { }
  565. #pragma option pop
  566. };
  567. class DELPHICLASS EPNGNoImageData;
  568. class PASCALIMPLEMENTATION EPNGNoImageData : public Sysutils::Exception
  569. {
  570. typedef Sysutils::Exception inherited;
  571. public:
  572. #pragma option push -w-inl
  573. /* Exception.Create */ inline __fastcall EPNGNoImageData(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  574. #pragma option pop
  575. #pragma option push -w-inl
  576. /* Exception.CreateFmt */ inline __fastcall EPNGNoImageData(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  577. #pragma option pop
  578. #pragma option push -w-inl
  579. /* Exception.CreateRes */ inline __fastcall EPNGNoImageData(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  580. #pragma option pop
  581. #pragma option push -w-inl
  582. /* Exception.CreateResFmt */ inline __fastcall EPNGNoImageData(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  583. #pragma option pop
  584. #pragma option push -w-inl
  585. /* Exception.CreateHelp */ inline __fastcall EPNGNoImageData(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  586. #pragma option pop
  587. #pragma option push -w-inl
  588. /* Exception.CreateFmtHelp */ inline __fastcall EPNGNoImageData(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  589. #pragma option pop
  590. #pragma option push -w-inl
  591. /* Exception.CreateResHelp */ inline __fastcall EPNGNoImageData(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  592. #pragma option pop
  593. #pragma option push -w-inl
  594. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGNoImageData(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  595. #pragma option pop
  596. public:
  597. #pragma option push -w-inl
  598. /* TObject.Destroy */ inline __fastcall virtual ~EPNGNoImageData(void) { }
  599. #pragma option pop
  600. };
  601. class DELPHICLASS EPNGCouldNotLoadResource;
  602. class PASCALIMPLEMENTATION EPNGCouldNotLoadResource : public Sysutils::Exception
  603. {
  604. typedef Sysutils::Exception inherited;
  605. public:
  606. #pragma option push -w-inl
  607. /* Exception.Create */ inline __fastcall EPNGCouldNotLoadResource(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  608. #pragma option pop
  609. #pragma option push -w-inl
  610. /* Exception.CreateFmt */ inline __fastcall EPNGCouldNotLoadResource(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  611. #pragma option pop
  612. #pragma option push -w-inl
  613. /* Exception.CreateRes */ inline __fastcall EPNGCouldNotLoadResource(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  614. #pragma option pop
  615. #pragma option push -w-inl
  616. /* Exception.CreateResFmt */ inline __fastcall EPNGCouldNotLoadResource(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  617. #pragma option pop
  618. #pragma option push -w-inl
  619. /* Exception.CreateHelp */ inline __fastcall EPNGCouldNotLoadResource(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  620. #pragma option pop
  621. #pragma option push -w-inl
  622. /* Exception.CreateFmtHelp */ inline __fastcall EPNGCouldNotLoadResource(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  623. #pragma option pop
  624. #pragma option push -w-inl
  625. /* Exception.CreateResHelp */ inline __fastcall EPNGCouldNotLoadResource(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  626. #pragma option pop
  627. #pragma option push -w-inl
  628. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGCouldNotLoadResource(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  629. #pragma option pop
  630. public:
  631. #pragma option push -w-inl
  632. /* TObject.Destroy */ inline __fastcall virtual ~EPNGCouldNotLoadResource(void) { }
  633. #pragma option pop
  634. };
  635. class DELPHICLASS EPNGCannotChangeTransparent;
  636. class PASCALIMPLEMENTATION EPNGCannotChangeTransparent : public Sysutils::Exception
  637. {
  638. typedef Sysutils::Exception inherited;
  639. public:
  640. #pragma option push -w-inl
  641. /* Exception.Create */ inline __fastcall EPNGCannotChangeTransparent(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  642. #pragma option pop
  643. #pragma option push -w-inl
  644. /* Exception.CreateFmt */ inline __fastcall EPNGCannotChangeTransparent(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  645. #pragma option pop
  646. #pragma option push -w-inl
  647. /* Exception.CreateRes */ inline __fastcall EPNGCannotChangeTransparent(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  648. #pragma option pop
  649. #pragma option push -w-inl
  650. /* Exception.CreateResFmt */ inline __fastcall EPNGCannotChangeTransparent(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  651. #pragma option pop
  652. #pragma option push -w-inl
  653. /* Exception.CreateHelp */ inline __fastcall EPNGCannotChangeTransparent(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  654. #pragma option pop
  655. #pragma option push -w-inl
  656. /* Exception.CreateFmtHelp */ inline __fastcall EPNGCannotChangeTransparent(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  657. #pragma option pop
  658. #pragma option push -w-inl
  659. /* Exception.CreateResHelp */ inline __fastcall EPNGCannotChangeTransparent(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  660. #pragma option pop
  661. #pragma option push -w-inl
  662. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGCannotChangeTransparent(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  663. #pragma option pop
  664. public:
  665. #pragma option push -w-inl
  666. /* TObject.Destroy */ inline __fastcall virtual ~EPNGCannotChangeTransparent(void) { }
  667. #pragma option pop
  668. };
  669. class DELPHICLASS EPNGHeaderNotPresent;
  670. class PASCALIMPLEMENTATION EPNGHeaderNotPresent : public Sysutils::Exception
  671. {
  672. typedef Sysutils::Exception inherited;
  673. public:
  674. #pragma option push -w-inl
  675. /* Exception.Create */ inline __fastcall EPNGHeaderNotPresent(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  676. #pragma option pop
  677. #pragma option push -w-inl
  678. /* Exception.CreateFmt */ inline __fastcall EPNGHeaderNotPresent(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  679. #pragma option pop
  680. #pragma option push -w-inl
  681. /* Exception.CreateRes */ inline __fastcall EPNGHeaderNotPresent(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  682. #pragma option pop
  683. #pragma option push -w-inl
  684. /* Exception.CreateResFmt */ inline __fastcall EPNGHeaderNotPresent(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  685. #pragma option pop
  686. #pragma option push -w-inl
  687. /* Exception.CreateHelp */ inline __fastcall EPNGHeaderNotPresent(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  688. #pragma option pop
  689. #pragma option push -w-inl
  690. /* Exception.CreateFmtHelp */ inline __fastcall EPNGHeaderNotPresent(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  691. #pragma option pop
  692. #pragma option push -w-inl
  693. /* Exception.CreateResHelp */ inline __fastcall EPNGHeaderNotPresent(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  694. #pragma option pop
  695. #pragma option push -w-inl
  696. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGHeaderNotPresent(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  697. #pragma option pop
  698. public:
  699. #pragma option push -w-inl
  700. /* TObject.Destroy */ inline __fastcall virtual ~EPNGHeaderNotPresent(void) { }
  701. #pragma option pop
  702. };
  703. class DELPHICLASS EPNGInvalidNewSize;
  704. class PASCALIMPLEMENTATION EPNGInvalidNewSize : public Sysutils::Exception
  705. {
  706. typedef Sysutils::Exception inherited;
  707. public:
  708. #pragma option push -w-inl
  709. /* Exception.Create */ inline __fastcall EPNGInvalidNewSize(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  710. #pragma option pop
  711. #pragma option push -w-inl
  712. /* Exception.CreateFmt */ inline __fastcall EPNGInvalidNewSize(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  713. #pragma option pop
  714. #pragma option push -w-inl
  715. /* Exception.CreateRes */ inline __fastcall EPNGInvalidNewSize(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  716. #pragma option pop
  717. #pragma option push -w-inl
  718. /* Exception.CreateResFmt */ inline __fastcall EPNGInvalidNewSize(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  719. #pragma option pop
  720. #pragma option push -w-inl
  721. /* Exception.CreateHelp */ inline __fastcall EPNGInvalidNewSize(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  722. #pragma option pop
  723. #pragma option push -w-inl
  724. /* Exception.CreateFmtHelp */ inline __fastcall EPNGInvalidNewSize(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  725. #pragma option pop
  726. #pragma option push -w-inl
  727. /* Exception.CreateResHelp */ inline __fastcall EPNGInvalidNewSize(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  728. #pragma option pop
  729. #pragma option push -w-inl
  730. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGInvalidNewSize(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  731. #pragma option pop
  732. public:
  733. #pragma option push -w-inl
  734. /* TObject.Destroy */ inline __fastcall virtual ~EPNGInvalidNewSize(void) { }
  735. #pragma option pop
  736. };
  737. class DELPHICLASS EPNGInvalidSpec;
  738. class PASCALIMPLEMENTATION EPNGInvalidSpec : public Sysutils::Exception
  739. {
  740. typedef Sysutils::Exception inherited;
  741. public:
  742. #pragma option push -w-inl
  743. /* Exception.Create */ inline __fastcall EPNGInvalidSpec(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  744. #pragma option pop
  745. #pragma option push -w-inl
  746. /* Exception.CreateFmt */ inline __fastcall EPNGInvalidSpec(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  747. #pragma option pop
  748. #pragma option push -w-inl
  749. /* Exception.CreateRes */ inline __fastcall EPNGInvalidSpec(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  750. #pragma option pop
  751. #pragma option push -w-inl
  752. /* Exception.CreateResFmt */ inline __fastcall EPNGInvalidSpec(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  753. #pragma option pop
  754. #pragma option push -w-inl
  755. /* Exception.CreateHelp */ inline __fastcall EPNGInvalidSpec(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  756. #pragma option pop
  757. #pragma option push -w-inl
  758. /* Exception.CreateFmtHelp */ inline __fastcall EPNGInvalidSpec(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  759. #pragma option pop
  760. #pragma option push -w-inl
  761. /* Exception.CreateResHelp */ inline __fastcall EPNGInvalidSpec(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  762. #pragma option pop
  763. #pragma option push -w-inl
  764. /* Exception.CreateResFmtHelp */ inline __fastcall EPNGInvalidSpec(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  765. #pragma option pop
  766. public:
  767. #pragma option push -w-inl
  768. /* TObject.Destroy */ inline __fastcall virtual ~EPNGInvalidSpec(void) { }
  769. #pragma option pop
  770. };
  771. typedef tagRGBTRIPLE TRGBLine[65536];
  772. typedef tagRGBTRIPLE *pRGBLine;
  773. #pragma pack(push, 1)
  774. struct TMAXBITMAPINFO
  775. {
  776. tagBITMAPINFOHEADER bmiHeader;
  777. tagRGBQUAD bmiColors[256];
  778. } ;
  779. #pragma pack(pop)
  780. #pragma option push -b-
  781. enum TPNGTransparencyMode { ptmNone, ptmBit, ptmPartial };
  782. #pragma option pop
  783. typedef unsigned *pCardinal;
  784. struct TRGBPixel;
  785. typedef TRGBPixel *pRGBPixel;
  786. #pragma pack(push, 1)
  787. struct TRGBPixel
  788. {
  789. Byte B;
  790. Byte G;
  791. Byte R;
  792. } ;
  793. #pragma pack(pop)
  794. typedef Byte TByteArray[65536];
  795. typedef Byte *pByteArray;
  796. typedef void *TPointerArray[65536];
  797. typedef void * *pPointerArray;
  798. class DELPHICLASS TPNGPointerList;
  799. class DELPHICLASS TPNGObject;
  800. #pragma option push -b-
  801. enum TFilter { pfNone, pfSub, pfUp, pfAverage, pfPaeth };
  802. #pragma option pop
  803. typedef Set<TFilter, pfNone, pfPaeth> TFilters;
  804. typedef Shortint TCompressionLevel;
  805. #pragma option push -b-
  806. enum TInterlaceMethod { imNone, imAdam7 };
  807. #pragma option pop
  808. class DELPHICLASS TPNGList;
  809. class PASCALIMPLEMENTATION TPNGPointerList : public System::TObject
  810. {
  811. typedef System::TObject inherited;
  812. private:
  813. TPNGObject* fOwner;
  814. unsigned fCount;
  815. void * *fMemory;
  816. void * __fastcall GetItem(unsigned Index);
  817. void __fastcall SetItem(unsigned Index, const void * Value);
  818. protected:
  819. virtual void * __fastcall Remove(void * Value);
  820. void __fastcall Insert(void * Value, unsigned Position);
  821. void __fastcall Add(void * Value);
  822. __property void * Item[unsigned Index] = {read=GetItem, write=SetItem};
  823. void __fastcall SetSize(const unsigned Size);
  824. __property TPNGObject* Owner = {read=fOwner};
  825. public:
  826. __property unsigned Count = {read=fCount, write=SetSize, nodefault};
  827. __fastcall TPNGPointerList(TPNGObject* AOwner);
  828. __fastcall virtual ~TPNGPointerList(void);
  829. };
  830. class DELPHICLASS TChunk;
  831. typedef TMetaClass*TChunkClass;
  832. class PASCALIMPLEMENTATION TPNGList : public TPNGPointerList
  833. {
  834. typedef TPNGPointerList inherited;
  835. private:
  836. HIDESBASE TChunk* __fastcall GetItem(unsigned Index);
  837. public:
  838. TChunk* __fastcall FindChunk(TMetaClass* ChunkClass);
  839. void __fastcall RemoveChunk(TChunk* Chunk)/* overload */;
  840. HIDESBASE TChunk* __fastcall Add(TMetaClass* ChunkClass);
  841. TChunk* __fastcall ItemFromClass(TMetaClass* ChunkClass);
  842. __property TChunk* Item[unsigned Index] = {read=GetItem};
  843. public:
  844. #pragma option push -w-inl
  845. /* TPNGPointerList.Create */ inline __fastcall TPNGList(TPNGObject* AOwner) : TPNGPointerList(AOwner) { }
  846. #pragma option pop
  847. #pragma option push -w-inl
  848. /* TPNGPointerList.Destroy */ inline __fastcall virtual ~TPNGList(void) { }
  849. #pragma option pop
  850. };
  851. class DELPHICLASS TChunkpHYs;
  852. class DELPHICLASS TChunkIHDR;
  853. class PASCALIMPLEMENTATION TPNGObject : public Graphics::TGraphic
  854. {
  855. typedef Graphics::TGraphic inherited;
  856. protected:
  857. Byte InverseGamma[256];
  858. void __fastcall InitializeGamma(void);
  859. private:
  860. Graphics::TCanvas* fCanvas;
  861. TFilters fFilters;
  862. TCompressionLevel fCompressionLevel;
  863. int fMaxIdatSize;
  864. TInterlaceMethod fInterlaceMethod;
  865. TPNGList* fChunkList;
  866. void __fastcall ClearChunks(void);
  867. bool __fastcall HeaderPresent(void);
  868. void __fastcall GetPixelInfo(unsigned &LineSize, unsigned &Offset);
  869. void __fastcall SetMaxIdatSize(const int Value);
  870. pByteArray __fastcall GetAlphaScanline(const int LineIndex);
  871. void * __fastcall GetScanline(const int LineIndex);
  872. void * __fastcall GetExtraScanline(const int LineIndex);
  873. TChunkpHYs* __fastcall GetPixelInformation(void);
  874. TPNGTransparencyMode __fastcall GetTransparencyMode(void);
  875. Graphics::TColor __fastcall GetTransparentColor(void);
  876. void __fastcall SetTransparentColor(const Graphics::TColor Value);
  877. AnsiString __fastcall GetLibraryVersion();
  878. protected:
  879. bool BeingCreated;
  880. virtual HPALETTE __fastcall GetPalette(void);
  881. virtual void __fastcall SetPalette(HPALETTE Value);
  882. void __fastcall DoSetPalette(HPALETTE Value, const bool UpdateColors);
  883. virtual int __fastcall GetWidth(void);
  884. virtual int __fastcall GetHeight(void);
  885. virtual void __fastcall SetWidth(int Value);
  886. virtual void __fastcall SetHeight(int Value);
  887. void __fastcall AssignPNG(TPNGObject* Source);
  888. virtual bool __fastcall GetEmpty(void);
  889. TChunkIHDR* __fastcall GetHeader(void);
  890. void __fastcall DrawPartialTrans(HDC DC, const Types::TRect &Rect);
  891. virtual bool __fastcall GetTransparent(void);
  892. virtual Graphics::TColor __fastcall GetPixels(const int X, const int Y);
  893. virtual void __fastcall SetPixels(const int X, const int Y, const Graphics::TColor Value);
  894. public:
  895. Byte GammaTable[256];
  896. void __fastcall Resize(const int CX, const int CY);
  897. void __fastcall CreateAlpha(void);
  898. void __fastcall RemoveTransparency(void);
  899. __property Graphics::TColor TransparentColor = {read=GetTransparentColor, write=SetTransparentColor, nodefault};
  900. void __fastcall AddtEXt(const AnsiString Keyword, const AnsiString Text);
  901. void __fastcall AddzTXt(const AnsiString Keyword, const AnsiString Text);
  902. virtual void __fastcall SaveToClipboardFormat(Word &AFormat, unsigned &AData, HPALETTE &APalette);
  903. virtual void __fastcall LoadFromClipboardFormat(Word AFormat, unsigned AData, HPALETTE APalette);
  904. void __fastcall RaiseError(TMetaClass* ExceptionClass, AnsiString Text);
  905. __property void * Scanline[int Index] = {read=GetScanline};
  906. __property void * ExtraScanline[int Index] = {read=GetExtraScanline};
  907. bool __fastcall HasPixelInformation(void);
  908. __property TChunkpHYs* PixelInformation = {read=GetPixelInformation};
  909. __property pByteArray AlphaScanline[int Index] = {read=GetAlphaScanline};
  910. void __fastcall DrawUsingPixelInformation(Graphics::TCanvas* Canvas, const Types::TPoint &Point);
  911. __property Graphics::TCanvas* Canvas = {read=fCanvas};
  912. __property TChunkIHDR* Header = {read=GetHeader};
  913. __property TPNGTransparencyMode TransparencyMode = {read=GetTransparencyMode, nodefault};
  914. virtual void __fastcall Assign(Classes::TPersistent* Source);
  915. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  916. void __fastcall AssignHandle(HBITMAP Handle, bool Transparent, unsigned TransparentColor);
  917. virtual void __fastcall Draw(Graphics::TCanvas* ACanvas, const Types::TRect &Rect);
  918. __property int Width = {read=GetWidth, nodefault};
  919. __property int Height = {read=GetHeight, nodefault};
  920. __property TInterlaceMethod InterlaceMethod = {read=fInterlaceMethod, write=fInterlaceMethod, nodefault};
  921. __property TFilters Filters = {read=fFilters, write=fFilters, nodefault};
  922. __property int MaxIdatSize = {read=fMaxIdatSize, write=SetMaxIdatSize, nodefault};
  923. __property bool Empty = {read=GetEmpty, nodefault};
  924. __property TCompressionLevel CompressionLevel = {read=fCompressionLevel, write=fCompressionLevel, nodefault};
  925. __property TPNGList* Chunks = {read=fChunkList};
  926. __fastcall virtual TPNGObject(void);
  927. __fastcall TPNGObject(unsigned ColorType, unsigned Bitdepth, int cx, int cy);
  928. __fastcall virtual ~TPNGObject(void);
  929. virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
  930. virtual void __fastcall SaveToStream(Classes::TStream* Stream);
  931. void __fastcall LoadFromResourceName(unsigned Instance, const AnsiString Name);
  932. void __fastcall LoadFromResourceID(unsigned Instance, int ResID);
  933. __property Graphics::TColor Pixels[int X][int Y] = {read=GetPixels, write=SetPixels};
  934. __property AnsiString Version = {read=GetLibraryVersion};
  935. };
  936. typedef char TChunkName[4];
  937. class PASCALIMPLEMENTATION TChunk : public System::TObject
  938. {
  939. typedef System::TObject inherited;
  940. private:
  941. void *fData;
  942. unsigned fDataSize;
  943. TPNGObject* fOwner;
  944. char fName[4];
  945. TChunkIHDR* __fastcall GetHeader(void);
  946. int __fastcall GetIndex(void);
  947. /* virtual class method */ virtual AnsiString __fastcall GetName(TMetaClass* vmt);
  948. AnsiString __fastcall GetChunkName();
  949. public:
  950. __property int Index = {read=GetIndex, nodefault};
  951. __property TChunkIHDR* Header = {read=GetHeader};
  952. void __fastcall ResizeData(const unsigned NewSize);
  953. __property void * Data = {read=fData};
  954. __property unsigned DataSize = {read=fDataSize, nodefault};
  955. virtual void __fastcall Assign(TChunk* Source);
  956. __property TPNGObject* Owner = {read=fOwner};
  957. __fastcall virtual TChunk(TPNGObject* Owner);
  958. __fastcall virtual ~TChunk(void);
  959. __property AnsiString Name = {read=GetChunkName};
  960. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  961. bool __fastcall SaveData(Classes::TStream* Stream);
  962. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  963. };
  964. class DELPHICLASS TChunkIEND;
  965. class PASCALIMPLEMENTATION TChunkIEND : public TChunk
  966. {
  967. typedef TChunk inherited;
  968. public:
  969. #pragma option push -w-inl
  970. /* TChunk.Create */ inline __fastcall virtual TChunkIEND(TPNGObject* Owner) : TChunk(Owner) { }
  971. #pragma option pop
  972. #pragma option push -w-inl
  973. /* TChunk.Destroy */ inline __fastcall virtual ~TChunkIEND(void) { }
  974. #pragma option pop
  975. };
  976. struct TIHDRData;
  977. typedef TIHDRData *pIHDRData;
  978. #pragma pack(push, 1)
  979. struct TIHDRData
  980. {
  981. unsigned Width;
  982. unsigned Height;
  983. Byte BitDepth;
  984. Byte ColorType;
  985. Byte CompressionMethod;
  986. Byte FilterMethod;
  987. Byte InterlaceMethod;
  988. } ;
  989. #pragma pack(pop)
  990. class PASCALIMPLEMENTATION TChunkIHDR : public TChunk
  991. {
  992. typedef TChunk inherited;
  993. private:
  994. HBITMAP ImageHandle;
  995. HDC ImageDC;
  996. HPALETTE ImagePalette;
  997. bool HasPalette;
  998. #pragma pack(push, 1)
  999. TMAXBITMAPINFO BitmapInfo;
  1000. #pragma pack(pop)
  1001. void *ExtraImageData;
  1002. void *ImageData;
  1003. void *ImageAlpha;
  1004. #pragma pack(push, 1)
  1005. TIHDRData IHDRData;
  1006. #pragma pack(pop)
  1007. protected:
  1008. int BytesPerRow;
  1009. HPALETTE __fastcall CreateGrayscalePalette(int Bitdepth);
  1010. void __fastcall PaletteToDIB(HPALETTE Palette);
  1011. void __fastcall PrepareImageData(void);
  1012. void __fastcall FreeImageData(void);
  1013. public:
  1014. __property HBITMAP ImageHandleValue = {read=ImageHandle, nodefault};
  1015. __property unsigned Width = {read=IHDRData.Width, write=IHDRData.Width, nodefault};
  1016. __property unsigned Height = {read=IHDRData.Height, write=IHDRData.Height, nodefault};
  1017. __property Byte BitDepth = {read=IHDRData.BitDepth, write=IHDRData.BitDepth, nodefault};
  1018. __property Byte ColorType = {read=IHDRData.ColorType, write=IHDRData.ColorType, nodefault};
  1019. __property Byte CompressionMethod = {read=IHDRData.CompressionMethod, write=IHDRData.CompressionMethod, nodefault};
  1020. __property Byte FilterMethod = {read=IHDRData.FilterMethod, write=IHDRData.FilterMethod, nodefault};
  1021. __property Byte InterlaceMethod = {read=IHDRData.InterlaceMethod, write=IHDRData.InterlaceMethod, nodefault};
  1022. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1023. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1024. __fastcall virtual TChunkIHDR(TPNGObject* Owner);
  1025. __fastcall virtual ~TChunkIHDR(void);
  1026. virtual void __fastcall Assign(TChunk* Source);
  1027. };
  1028. #pragma option push -b-
  1029. enum TUnitType { utUnknown, utMeter };
  1030. #pragma option pop
  1031. typedef TUnitType *pUnitType;
  1032. class PASCALIMPLEMENTATION TChunkpHYs : public TChunk
  1033. {
  1034. typedef TChunk inherited;
  1035. private:
  1036. unsigned fPPUnitX;
  1037. unsigned fPPUnitY;
  1038. TUnitType fUnit;
  1039. public:
  1040. __property unsigned PPUnitX = {read=fPPUnitX, write=fPPUnitX, nodefault};
  1041. __property unsigned PPUnitY = {read=fPPUnitY, write=fPPUnitY, nodefault};
  1042. __property TUnitType UnitType = {read=fUnit, write=fUnit, nodefault};
  1043. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1044. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1045. virtual void __fastcall Assign(TChunk* Source);
  1046. public:
  1047. #pragma option push -w-inl
  1048. /* TChunk.Create */ inline __fastcall virtual TChunkpHYs(TPNGObject* Owner) : TChunk(Owner) { }
  1049. #pragma option pop
  1050. #pragma option push -w-inl
  1051. /* TChunk.Destroy */ inline __fastcall virtual ~TChunkpHYs(void) { }
  1052. #pragma option pop
  1053. };
  1054. class DELPHICLASS TChunkgAMA;
  1055. class PASCALIMPLEMENTATION TChunkgAMA : public TChunk
  1056. {
  1057. typedef TChunk inherited;
  1058. private:
  1059. unsigned __fastcall GetValue(void);
  1060. void __fastcall SetValue(const unsigned Value);
  1061. public:
  1062. __property unsigned Gamma = {read=GetValue, write=SetValue, nodefault};
  1063. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1064. __fastcall virtual TChunkgAMA(TPNGObject* Owner);
  1065. virtual void __fastcall Assign(TChunk* Source);
  1066. public:
  1067. #pragma option push -w-inl
  1068. /* TChunk.Destroy */ inline __fastcall virtual ~TChunkgAMA(void) { }
  1069. #pragma option pop
  1070. };
  1071. #pragma pack(push, 1)
  1072. struct TZStreamRec2
  1073. {
  1074. Zlibpas::TZStreamRec ZLIB;
  1075. void *Data;
  1076. Classes::TStream* fStream;
  1077. } ;
  1078. #pragma pack(pop)
  1079. class DELPHICLASS TChunkPLTE;
  1080. class PASCALIMPLEMENTATION TChunkPLTE : public TChunk
  1081. {
  1082. typedef TChunk inherited;
  1083. protected:
  1084. int fCount;
  1085. private:
  1086. tagRGBQUAD __fastcall GetPaletteItem(Byte Index);
  1087. public:
  1088. __property tagRGBQUAD Item[Byte Index] = {read=GetPaletteItem};
  1089. __property int Count = {read=fCount, nodefault};
  1090. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1091. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1092. virtual void __fastcall Assign(TChunk* Source);
  1093. public:
  1094. #pragma option push -w-inl
  1095. /* TChunk.Create */ inline __fastcall virtual TChunkPLTE(TPNGObject* Owner) : TChunk(Owner) { }
  1096. #pragma option pop
  1097. #pragma option push -w-inl
  1098. /* TChunk.Destroy */ inline __fastcall virtual ~TChunkPLTE(void) { }
  1099. #pragma option pop
  1100. };
  1101. class DELPHICLASS TChunktRNS;
  1102. class PASCALIMPLEMENTATION TChunktRNS : public TChunk
  1103. {
  1104. typedef TChunk inherited;
  1105. private:
  1106. bool fBitTransparency;
  1107. unsigned __fastcall GetTransparentColor(void);
  1108. void __fastcall SetTransparentColor(const unsigned Value);
  1109. public:
  1110. Byte PaletteValues[256];
  1111. __property bool BitTransparency = {read=fBitTransparency, nodefault};
  1112. __property unsigned TransparentColor = {read=GetTransparentColor, write=SetTransparentColor, nodefault};
  1113. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1114. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1115. virtual void __fastcall Assign(TChunk* Source);
  1116. public:
  1117. #pragma option push -w-inl
  1118. /* TChunk.Create */ inline __fastcall virtual TChunktRNS(TPNGObject* Owner) : TChunk(Owner) { }
  1119. #pragma option pop
  1120. #pragma option push -w-inl
  1121. /* TChunk.Destroy */ inline __fastcall virtual ~TChunktRNS(void) { }
  1122. #pragma option pop
  1123. };
  1124. class DELPHICLASS TChunkIDAT;
  1125. class PASCALIMPLEMENTATION TChunkIDAT : public TChunk
  1126. {
  1127. typedef TChunk inherited;
  1128. private:
  1129. TChunkIHDR* Header;
  1130. int ImageWidth;
  1131. int ImageHeight;
  1132. unsigned Row_Bytes;
  1133. unsigned Offset;
  1134. Byte *Encode_Buffer[6];
  1135. Byte *Row_Buffer[2];
  1136. bool RowUsed;
  1137. int EndPos;
  1138. void __fastcall FilterRow(void);
  1139. Byte __fastcall FilterToEncode(void);
  1140. int __fastcall IDATZlibRead(TZStreamRec2 &ZLIBStream, void * Buffer, int Count, int &EndPos, unsigned &crcfile);
  1141. void __fastcall IDATZlibWrite(TZStreamRec2 &ZLIBStream, void * Buffer, const unsigned Length);
  1142. void __fastcall FinishIDATZlib(TZStreamRec2 &ZLIBStream);
  1143. void __fastcall PreparePalette(void);
  1144. protected:
  1145. void __fastcall DecodeInterlacedAdam7(Classes::TStream* Stream, TZStreamRec2 &ZLIBStream, const int Size, unsigned &crcfile);
  1146. void __fastcall DecodeNonInterlaced(Classes::TStream* Stream, TZStreamRec2 &ZLIBStream, const int Size, unsigned &crcfile);
  1147. void __fastcall EncodeNonInterlaced(Classes::TStream* Stream, TZStreamRec2 &ZLIBStream);
  1148. void __fastcall EncodeInterlacedAdam7(Classes::TStream* Stream, TZStreamRec2 &ZLIBStream);
  1149. void __fastcall CopyNonInterlacedRGB8(char * Src, char * Dest, char * Trans, char * Extra);
  1150. void __fastcall CopyNonInterlacedRGB16(char * Src, char * Dest, char * Trans, char * Extra);
  1151. void __fastcall CopyNonInterlacedPalette148(char * Src, char * Dest, char * Trans, char * Extra);
  1152. void __fastcall CopyNonInterlacedPalette2(char * Src, char * Dest, char * Trans, char * Extra);
  1153. void __fastcall CopyNonInterlacedGray2(char * Src, char * Dest, char * Trans, char * Extra);
  1154. void __fastcall CopyNonInterlacedGrayscale16(char * Src, char * Dest, char * Trans, char * Extra);
  1155. void __fastcall CopyNonInterlacedRGBAlpha8(char * Src, char * Dest, char * Trans, char * Extra);
  1156. void __fastcall CopyNonInterlacedRGBAlpha16(char * Src, char * Dest, char * Trans, char * Extra);
  1157. void __fastcall CopyNonInterlacedGrayscaleAlpha8(char * Src, char * Dest, char * Trans, char * Extra);
  1158. void __fastcall CopyNonInterlacedGrayscaleAlpha16(char * Src, char * Dest, char * Trans, char * Extra);
  1159. void __fastcall CopyInterlacedRGB8(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1160. void __fastcall CopyInterlacedRGB16(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1161. void __fastcall CopyInterlacedPalette148(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1162. void __fastcall CopyInterlacedPalette2(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1163. void __fastcall CopyInterlacedGray2(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1164. void __fastcall CopyInterlacedGrayscale16(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1165. void __fastcall CopyInterlacedRGBAlpha8(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1166. void __fastcall CopyInterlacedRGBAlpha16(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1167. void __fastcall CopyInterlacedGrayscaleAlpha8(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1168. void __fastcall CopyInterlacedGrayscaleAlpha16(const Byte Pass, char * Src, char * Dest, char * Trans, char * Extra);
  1169. void __fastcall EncodeNonInterlacedRGB8(char * Src, char * Dest, char * Trans);
  1170. void __fastcall EncodeNonInterlacedRGB16(char * Src, char * Dest, char * Trans);
  1171. void __fastcall EncodeNonInterlacedGrayscale16(char * Src, char * Dest, char * Trans);
  1172. void __fastcall EncodeNonInterlacedPalette148(char * Src, char * Dest, char * Trans);
  1173. void __fastcall EncodeNonInterlacedRGBAlpha8(char * Src, char * Dest, char * Trans);
  1174. void __fastcall EncodeNonInterlacedRGBAlpha16(char * Src, char * Dest, char * Trans);
  1175. void __fastcall EncodeNonInterlacedGrayscaleAlpha8(char * Src, char * Dest, char * Trans);
  1176. void __fastcall EncodeNonInterlacedGrayscaleAlpha16(char * Src, char * Dest, char * Trans);
  1177. void __fastcall EncodeInterlacedRGB8(const Byte Pass, char * Src, char * Dest, char * Trans);
  1178. void __fastcall EncodeInterlacedRGB16(const Byte Pass, char * Src, char * Dest, char * Trans);
  1179. void __fastcall EncodeInterlacedPalette148(const Byte Pass, char * Src, char * Dest, char * Trans);
  1180. void __fastcall EncodeInterlacedGrayscale16(const Byte Pass, char * Src, char * Dest, char * Trans);
  1181. void __fastcall EncodeInterlacedRGBAlpha8(const Byte Pass, char * Src, char * Dest, char * Trans);
  1182. void __fastcall EncodeInterlacedRGBAlpha16(const Byte Pass, char * Src, char * Dest, char * Trans);
  1183. void __fastcall EncodeInterlacedGrayscaleAlpha8(const Byte Pass, char * Src, char * Dest, char * Trans);
  1184. void __fastcall EncodeInterlacedGrayscaleAlpha16(const Byte Pass, char * Src, char * Dest, char * Trans);
  1185. public:
  1186. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1187. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1188. public:
  1189. #pragma option push -w-inl
  1190. /* TChunk.Create */ inline __fastcall virtual TChunkIDAT(TPNGObject* Owner) : TChunk(Owner) { }
  1191. #pragma option pop
  1192. #pragma option push -w-inl
  1193. /* TChunk.Destroy */ inline __fastcall virtual ~TChunkIDAT(void) { }
  1194. #pragma option pop
  1195. };
  1196. class DELPHICLASS TChunktIME;
  1197. class PASCALIMPLEMENTATION TChunktIME : public TChunk
  1198. {
  1199. typedef TChunk inherited;
  1200. private:
  1201. Word fYear;
  1202. Byte fMonth;
  1203. Byte fDay;
  1204. Byte fHour;
  1205. Byte fMinute;
  1206. Byte fSecond;
  1207. public:
  1208. __property Word Year = {read=fYear, write=fYear, nodefault};
  1209. __property Byte Month = {read=fMonth, write=fMonth, nodefault};
  1210. __property Byte Day = {read=fDay, write=fDay, nodefault};
  1211. __property Byte Hour = {read=fHour, write=fHour, nodefault};
  1212. __property Byte Minute = {read=fMinute, write=fMinute, nodefault};
  1213. __property Byte Second = {read=fSecond, write=fSecond, nodefault};
  1214. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1215. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1216. virtual void __fastcall Assign(TChunk* Source);
  1217. public:
  1218. #pragma option push -w-inl
  1219. /* TChunk.Create */ inline __fastcall virtual TChunktIME(TPNGObject* Owner) : TChunk(Owner) { }
  1220. #pragma option pop
  1221. #pragma option push -w-inl
  1222. /* TChunk.Destroy */ inline __fastcall virtual ~TChunktIME(void) { }
  1223. #pragma option pop
  1224. };
  1225. class DELPHICLASS TChunktEXt;
  1226. class PASCALIMPLEMENTATION TChunktEXt : public TChunk
  1227. {
  1228. typedef TChunk inherited;
  1229. private:
  1230. AnsiString fKeyword;
  1231. AnsiString fText;
  1232. public:
  1233. __property AnsiString Keyword = {read=fKeyword, write=fKeyword};
  1234. __property AnsiString Text = {read=fText, write=fText};
  1235. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1236. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1237. virtual void __fastcall Assign(TChunk* Source);
  1238. public:
  1239. #pragma option push -w-inl
  1240. /* TChunk.Create */ inline __fastcall virtual TChunktEXt(TPNGObject* Owner) : TChunk(Owner) { }
  1241. #pragma option pop
  1242. #pragma option push -w-inl
  1243. /* TChunk.Destroy */ inline __fastcall virtual ~TChunktEXt(void) { }
  1244. #pragma option pop
  1245. };
  1246. class DELPHICLASS TChunkzTXt;
  1247. class PASCALIMPLEMENTATION TChunkzTXt : public TChunktEXt
  1248. {
  1249. typedef TChunktEXt inherited;
  1250. public:
  1251. virtual bool __fastcall LoadFromStream(Classes::TStream* Stream, const char * ChunkName, int Size);
  1252. virtual bool __fastcall SaveToStream(Classes::TStream* Stream);
  1253. public:
  1254. #pragma option push -w-inl
  1255. /* TChunk.Create */ inline __fastcall virtual TChunkzTXt(TPNGObject* Owner) : TChunktEXt(Owner) { }
  1256. #pragma option pop
  1257. #pragma option push -w-inl
  1258. /* TChunk.Destroy */ inline __fastcall virtual ~TChunkzTXt(void) { }
  1259. #pragma option pop
  1260. };
  1261. //-- var, const, procedure ---------------------------------------------------
  1262. #define LibraryVersion "1.564"
  1263. extern PACKAGE AnsiString ZLIBErrors[9];
  1264. static const Shortint Z_NO_FLUSH = 0x0;
  1265. static const Shortint Z_FINISH = 0x4;
  1266. static const Shortint Z_STREAM_END = 0x1;
  1267. static const Shortint FILTER_NONE = 0x0;
  1268. static const Shortint FILTER_SUB = 0x1;
  1269. static const Shortint FILTER_UP = 0x2;
  1270. static const Shortint FILTER_AVERAGE = 0x3;
  1271. static const Shortint FILTER_PAETH = 0x4;
  1272. static const Shortint COLOR_GRAYSCALE = 0x0;
  1273. static const Shortint COLOR_RGB = 0x2;
  1274. static const Shortint COLOR_PALETTE = 0x3;
  1275. static const Shortint COLOR_GRAYSCALEALPHA = 0x4;
  1276. static const Shortint COLOR_RGBALPHA = 0x6;
  1277. extern PACKAGE unsigned __fastcall update_crc(unsigned crc, pByteArray buf, int len);
  1278. extern PACKAGE int __fastcall ByteSwap(const int a);
  1279. extern PACKAGE void __fastcall RegisterChunk(TMetaClass* ChunkClass);
  1280. } /* namespace Pngimage */
  1281. using namespace Pngimage;
  1282. #pragma option pop // -w-
  1283. #pragma option pop // -Vx
  1284. #pragma delphiheader end.
  1285. //-- end unit ----------------------------------------------------------------
  1286. #endif // pngimage