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

GridPrinter/PreviewForm: Fix orientation and page order buttons (changed when checked toolbutton was clicked again)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8595 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-08 23:38:47 +00:00
parent c31b6d5e6e
commit 39089540a1
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -159,6 +159,7 @@ 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
@@ -565,6 +566,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
OnExecute = acHeaderFooterExecute OnExecute = acHeaderFooterExecute
end end
object acPortrait: TAction object acPortrait: TAction
AutoCheck = True
Caption = 'Portrait' Caption = 'Portrait'
GroupIndex = 1 GroupIndex = 1
Hint = 'Portrait page orientation' Hint = 'Portrait page orientation'
@@ -572,6 +574,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
OnExecute = acPortraitExecute OnExecute = acPortraitExecute
end end
object acLandscape: TAction object acLandscape: TAction
AutoCheck = True
Caption = 'Landscape' Caption = 'Landscape'
GroupIndex = 1 GroupIndex = 1
Hint = 'Landscape page orientation' Hint = 'Landscape page orientation'
@@ -579,6 +582,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
OnExecute = acLandscapeExecute OnExecute = acLandscapeExecute
end end
object acPrintColsFirst: TAction object acPrintColsFirst: TAction
AutoCheck = True
Caption = 'Columns first' Caption = 'Columns first'
GroupIndex = 2 GroupIndex = 2
Hint = 'First print columns from top to bottom,'#13#10'then print from left to right' Hint = 'First print columns from top to bottom,'#13#10'then print from left to right'
@@ -586,6 +590,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
OnExecute = acPrintColsFirstExecute OnExecute = acPrintColsFirstExecute
end end
object acPrintRowsFirst: TAction object acPrintRowsFirst: TAction
AutoCheck = True
Caption = 'Rows first' Caption = 'Rows first'
GroupIndex = 2 GroupIndex = 2
Hint = 'First print rows from left to right,'#13#10'then print from top to bottom' Hint = 'First print rows from left to right,'#13#10'then print from top to bottom'