pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8605 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-10 21:09:17 +00:00
parent eb0d7767fb
commit dd77f6adb4
3 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/gridprinter/examples/stringgrid/main.lfm
View File

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

1
components/gridprinter/source/gridprnpreviewform.lfm
View File

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

1
components/gridprinter/source/gridprnpreviewform.pas
View File

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