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

@@ -3027,12 +3027,17 @@ end;
   pixels}
 function TBarcodeSquare.CalcFactor(AWidth, AHeight: Integer): Integer;
 begin
-  if AWidth > AHeight then
+  if FSymbol^.Width = 0 then
-    Result := AHeight div FSymbol^.Width
+    Result := 1
   else
-    Result := AWidth div FSymbol^.Width;
+  begin
-  if Result = 0 then
+    if AWidth > AHeight then
-    Result := 1;
+      Result := AHeight div FSymbol^.Width
+    else
+      Result := AWidth div FSymbol^.Width;
+    if Result = 0 then
+      Result := 1;
+  end;
 end;
 
 { Calculates scaled size parameters for the barcode. }