Add support for avif images

TProgramUpdatesClass.pas

@@ -20,6 +20,20 @@
 
 interface
 
+uses
+  system.zip;
+
+type
+  TProgramUpdates = class(TObject)
+  strict private
+    FReleaseTag: string;
+  private
+    function getReleaseTag: string;
+  public
+    property releaseTag: string read getReleaseTag;
+  end;
+
+function PU: TProgramUpdates;
 function getLatestVersion: string;
 
 implementation
@@ -44,6 +58,11 @@   TWorkProgress = class(TObject)  // only because IdHttp requires these callback
   gProgressBar: TProgressBar;
   gDownloadForm: TDownloadForm;
 
+function PU: TProgramUpdates;
+begin
+end;
+
+
 function fetchURL(const aURL: string; aFileStream: TStream = NIL): string;
 var
   http:       TidHTTP;
@@ -168,6 +187,14 @@ procedure TWorkProgress.idHTTPWorkBegin(aSender: TObject; aWorkMode: TWorkMode;
   gProgressBar.max := aWorkCountMax;
 end;
 
+{ TProgramUpdates }
+
+function TProgramUpdates.getReleaseTag: string;
+begin
+  result := FReleaseTag;
+  case result <> '' of TRUE: EXIT; end;
+end;
+
 initialization
   gLatestVersion := '';
   gWP            := NIL;

consts.pas

@@ -82,14 +82,15 @@   TMediaTypeRec = record
   TFnnKeyApp = (F10_APP, F11_APP, F12_APP);
 
 const
-  mediaTypes: array[0..87] of TMediaTypeRec = (
+  mediaTypes: array[0..88] of TMediaTypeRec = (
 
 // manually added image formats
 (mimeType: 'image/jpeg';            mediaType: mtImage; typeName: 'JPEG image';                 fileExts: '.jpg.jpeg'),
 (mimeType: 'image/bmp';             mediaType: mtImage; typeName: 'BITMAP image';               fileExts: '.bmp'),
 (mimeType: 'image/png';             mediaType: mtImage; typeName: 'PNG image';                  fileExts: '.png'),
 (mimeType: 'image/webp';            mediaType: mtImage; typeName: 'WEBP image';                 fileExts: '.webp'),
 (mimeType: 'image/gif';             mediaType: mtImage; typeName: 'GIF image';                  fileExts: '.gif'),
+(mimeType: 'image/avif';            mediaType: mtImage; typeName: 'AVIF image';                 fileExts: '.avif'),
 
 // DVD/Blu-ray audio formats
 (mimeType: 'audio/ac3';             mediaType: mtAudio; typeName: 'AC-3 Audio';                 fileExts: '.ac3.a52'),