fix test_bcroundedimage_pictdialogs compiler error

test/test_bcroundedimage_pictdialogs/test_bcroundedimage_pictdialogs_main.lfm

@@ -1,17 +1,17 @@
 object Form1: TForm1
   Left = 334
-  Height = 328
+  Height = 410
   Top = 229
-  Width = 510
+  Width = 638
   Caption = 'Form1'
-  ClientHeight = 328
-  ClientWidth = 510
-  LCLVersion = '4.99.0.0'
+  ClientHeight = 410
+  ClientWidth = 638
+  DesignTimePPI = 120
   object rgStyle: TRadioGroup
-    Left = 320
-    Height = 80
-    Top = 136
-    Width = 168
+    Left = 400
+    Height = 100
+    Top = 170
+    Width = 210
     AutoFill = True
     Caption = 'Style'
     ChildSizing.LeftRightSpacing = 6
@@ -21,8 +21,8 @@ object Form1: TForm1
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 1
-    ClientHeight = 60
-    ClientWidth = 164
+    ClientHeight = 75
+    ClientWidth = 206
     ItemIndex = 2
     Items.Strings = (
       'Circle'
@@ -34,53 +34,53 @@ object Form1: TForm1
     OnClick = rgStyleClick
   end
   object Label1: TLabel
-    Left = 320
-    Height = 15
-    Top = 219
-    Width = 55
+    Left = 400
+    Height = 20
+    Top = 274
+    Width = 67
     Caption = 'Rounding:'
   end
   object edRounding: TFloatSpinEdit
-    Left = 384
-    Height = 23
-    Top = 216
-    Width = 56
+    Left = 480
+    Height = 28
+    Top = 270
+    Width = 70
     MaxValue = 100
     TabOrder = 1
     Value = 10
     OnChange = edRoundingChange
   end
   object btLoad: TButton
-    Left = 320
-    Height = 25
-    Top = 248
-    Width = 80
+    Left = 400
+    Height = 31
+    Top = 310
+    Width = 100
     Caption = 'Load (BGRA)'
     TabOrder = 2
     OnClick = btLoadClick
   end
   object cbProportional: TCheckBox
-    Left = 320
-    Height = 19
-    Top = 32
-    Width = 84
+    Left = 400
+    Height = 24
+    Top = 40
+    Width = 104
     Caption = 'Proportional'
     TabOrder = 3
     OnChange = cbProportionalChange
   end
   object Panel1: TPanel
-    Left = 8
-    Height = 302
-    Top = 8
-    Width = 302
-    ClientHeight = 302
-    ClientWidth = 302
+    Left = 10
+    Height = 378
+    Top = 10
+    Width = 378
+    ClientHeight = 378
+    ClientWidth = 378
     TabOrder = 4
     object BCRoundedImage1: TBCRoundedImage
       Left = 0
-      Height = 300
+      Height = 375
       Top = 0
-      Width = 300
+      Width = 375
       Style = isSquare
       BorderStyle = []
       Rounding = 10
@@ -90,10 +90,10 @@ object Form1: TForm1
     end
   end
   object rgAlign: TRadioGroup
-    Left = 320
-    Height = 80
-    Top = 56
-    Width = 79
+    Left = 400
+    Height = 100
+    Top = 70
+    Width = 99
     AutoFill = True
     Caption = 'Align'
     ChildSizing.LeftRightSpacing = 6
@@ -103,8 +103,8 @@ object Form1: TForm1
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 1
-    ClientHeight = 60
-    ClientWidth = 75
+    ClientHeight = 75
+    ClientWidth = 95
     ItemIndex = 2
     Items.Strings = (
       'Left'
@@ -115,10 +115,10 @@ object Form1: TForm1
     OnClick = rgAlignClick
   end
   object rgAlignV: TRadioGroup
-    Left = 400
-    Height = 81
-    Top = 56
-    Width = 79
+    Left = 500
+    Height = 101
+    Top = 70
+    Width = 99
     AutoFill = True
     Caption = 'Align Vert'
     ChildSizing.LeftRightSpacing = 6
@@ -128,8 +128,8 @@ object Form1: TForm1
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 1
-    ClientHeight = 61
-    ClientWidth = 75
+    ClientHeight = 76
+    ClientWidth = 95
     ItemIndex = 1
     Items.Strings = (
       'Top'
@@ -140,10 +140,10 @@ object Form1: TForm1
     OnClick = rgAlignVClick
   end
   object cbStretch: TCheckBox
-    Left = 320
-    Height = 19
-    Top = 8
-    Width = 55
+    Left = 400
+    Height = 24
+    Top = 10
+    Width = 67
     Caption = 'Stretch'
     Checked = True
     State = cbChecked
@@ -151,62 +151,62 @@ object Form1: TForm1
     OnChange = cbStretchChange
   end
   object btLoadT: TButton
-    Left = 408
-    Height = 25
-    Top = 248
-    Width = 96
+    Left = 510
+    Height = 31
+    Top = 310
+    Width = 120
     Caption = 'Load (TPicture)'
     TabOrder = 8
     OnClick = btLoadTClick
   end
   object btSavePictBGRA: TButton
-    Left = 320
-    Height = 25
-    Top = 277
-    Width = 80
+    Left = 400
+    Height = 31
+    Top = 346
+    Width = 100
     Caption = 'Save (BGRA)'
     TabOrder = 9
     OnClick = btSavePictBGRAClick
   end
   object btSavePict: TButton
-    Left = 408
-    Height = 25
-    Top = 277
-    Width = 96
+    Left = 510
+    Height = 31
+    Top = 346
+    Width = 120
     Caption = 'Save (TPicture)'
     TabOrder = 10
     OnClick = btSavePictClick
   end
   object lbDetails: TLabel
-    Left = 320
-    Height = 15
-    Top = 304
-    Width = 36
+    Left = 400
+    Height = 20
+    Top = 380
+    Width = 45
     Caption = 'image:'
   end
   object Button1: TButton
-    Left = 448
-    Height = 25
-    Top = 216
-    Width = 40
+    Left = 560
+    Height = 31
+    Top = 270
+    Width = 50
     Caption = 'test'
     TabOrder = 11
     OnClick = Button1Click
   end
   object openPict: TOpenPictureDialog
-    Left = 72
-    Top = 136
+    Left = 90
+    Top = 170
   end
   object savePict: TSavePictureDialog
-    Left = 192
-    Top = 136
+    Left = 240
+    Top = 170
   end
   object openPictBGRA: TBGRAOpenPictureDialog
-    Left = 72
-    Top = 56
+    Left = 90
+    Top = 70
   end
   object savePictBGRA: TBGRASavePictureDialog
-    Left = 192
-    Top = 56
+    Left = 240
+    Top = 70
   end
 end

test/test_bcroundedimage_pictdialogs/test_bcroundedimage_pictdialogs_main.pas

@@ -109,7 +109,8 @@ var
    t, t2: String;
 
 begin
-  BuildBGRAFilterStrings(True, t, t2);
+  t:= BGRARegisteredImageReaderFilter;
+  t2:= BGRARegisteredImageWriterFilter;
 end;
 
 procedure TForm1.cbProportionalChange(Sender: TObject);