GridPrinter: Still an issue with grouped portrait and landscape actions in gridprnpreviewform. Fixed.

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

components/gridprinter/examples/stringgrid/main.lfm

@@ -59,7 +59,6 @@ object Form1: TForm1
     Footer.Font.Height = -11
     Header.Font.Height = -11
     Header.Text = 'test||'
-    Orientation = poLandscape
     ShowPrintDialog = gpdPrintDialog
     Left = 168
     Top = 96

components/gridprinter/source/gridprnpreviewform.lfm

@@ -159,7 +159,6 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
       Left = 380
       Top = 0
       Action = acPortrait
-      Down = True
       ShowCaption = False
     end
     object tbLandscape: TToolButton

components/gridprinter/source/gridprnpreviewform.pas

@@ -774,6 +774,7 @@ begin
       poPortrait: acPortrait.Checked := true;
       poLandscape: acLandscape.Checked := true;
     end;
+
     case FGridPrinter.PrintOrder of
       poRowsFirst: acPrintRowsFirst.Checked := true;
       poColsFirst: acPrintColsFirst.Checked := true;