Updated and Tested on Linux ImageManipulation Demo

test/test_bcroundedimage_pictdialogs/test_bcroundedimage_pictdialogs.lpi

@@ -50,7 +50,7 @@
     <Version Value="11"/>
     <PathDelim Value="\"/>
     <Target>
-      <Filename Value="test_bcroundedimage_pictdialogs"/>
+      <Filename Value="bin\$(TargetCPU)-$(TargetOS)\test_bcroundedimage"/>
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>

test/test_bgraimagemanipulation/unitbgraimagemanipulationdemo.lfm

@@ -8,6 +8,7 @@ object FormBGRAImageManipulationDemo: TFormBGRAImageManipulationDemo
   ClientWidth = 1158
   DesignTimePPI = 120
   ShowHint = True
+  LCLVersion = '4.99.0.0'
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   object Background: TBCPanel

test/test_bgraimagemanipulation/unitbgraimagemanipulationdemo.pas

@@ -356,7 +356,7 @@ begin
 
   if (i >= 0) then
   begin
-    lbFormat.Caption:= 'Format: '+DefaultBGRAImageTypeNames[TBGRAImageFormat(PtrUint(cbSaveFormat.Items.Objects[i]))];
+    lbFormat.Caption:= 'Format: '+BGRAImageFormat[TBGRAImageFormat(PtrUint(cbSaveFormat.Items.Objects[i]))].TypeName;
     RateCompression.Enabled:= TBGRAImageFormat(PtrUint(cbSaveFormat.Items.Objects[i])) = ifJpeg;
   end;
 
@@ -782,7 +782,6 @@ end;
 procedure TFormBGRAImageManipulationDemo.FormCreate(Sender: TObject);
 var
    i,j :Integer;
-   t,e:String;
    iFormat:TBGRAImageFormat;
 
 begin
@@ -813,10 +812,9 @@ begin
    begin
      if (DefaultBGRAImageWriter[iFormat]<>nil) then
      begin
-       t:= DefaultBGRAImageTypeNames[iFormat];
-       e:= DefaultBGRAImageTypeExts[iFormat];
-       i:= cbSaveFormat.Items.AddObject(t+' ('+e+')', TObject(PtrUInt(iFormat)));
-       if (iFormat = ifJpeg) then j:=i; //if (Pos('jpg', e)>0)
+       i:= cbSaveFormat.Items.AddObject(BGRAImageFormat[iFormat].TypeName+' ('+SuggestImageExtension(iFormat)+')',
+                                        TObject(PtrUInt(iFormat)));
+       if (iFormat = ifJpeg) then j:=i;
      end;
    end;
    cbSaveFormat.ItemIndex:=0;