Lazbarcodes: Refinements of TBarcodePDF417 and TBarcodeDataMatrix palette icons.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8248 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/lazbarcodes/demo/main.lfm

@@ -436,12 +436,14 @@ object MainForm: TMainForm
         end
       end
       object btnSaveToFile: TBitBtn
+        AnchorSideLeft.Control = gbChecksum
         AnchorSideTop.Control = gbColors
+        AnchorSideRight.Control = btnCopyToClipboard
         AnchorSideRight.Side = asrBottom
         Left = 205
         Height = 25
         Top = 233
-        Width = 128
+        Width = 121
         Anchors = [akTop, akLeft, akRight]
         AutoSize = True
         BorderSpacing.Top = 9
@@ -450,16 +452,14 @@ object MainForm: TMainForm
         TabOrder = 4
       end
       object btnCopyToClipboard: TBitBtn
-        AnchorSideLeft.Control = btnSaveToFile
+        AnchorSideLeft.Control = gbChecksum
         AnchorSideTop.Control = btnSaveToFile
         AnchorSideTop.Side = asrBottom
-        AnchorSideRight.Control = btnSaveToFile
         AnchorSideRight.Side = asrBottom
         Left = 205
         Height = 25
         Top = 264
-        Width = 128
+        Width = 121
-        Anchors = [akTop, akLeft, akRight]
         AutoSize = True
         BorderSpacing.Top = 6
         Caption = 'Copy to clipboard'
@@ -488,7 +488,7 @@ object MainForm: TMainForm
         Height = 293
         Top = 35
         Width = 152
-        PageIndex = 2
+        PageIndex = 0
         BorderSpacing.Left = 16
         TabOrder = 7
         object pgOptions_QR: TPage

components/lazbarcodes/src/ubarcodes.pas

@@ -3026,6 +3026,10 @@ end;
   as possible. Needed when FScale = 0. Considers only integer multiples of
   pixels}
 function TBarcodeSquare.CalcFactor(AWidth, AHeight: Integer): Integer;
+begin
+  if FSymbol^.Width = 0 then
+    Result := 1
+  else
   begin
     if AWidth > AHeight then
       Result := AHeight div FSymbol^.Width
@@ -3034,6 +3038,7 @@ begin
     if Result = 0 then
       Result := 1;
   end;
+end;
 
 { Calculates scaled size parameters for the barcode. }
 procedure TBarcodeSquare.CalcSize(AFactor: Integer; out ATotalWidth, ATotalHeight,