You've already forked lazarus-ccr
GridPrinter/PreviewForm: Fix orientation and page order buttons (changed when checked toolbutton was clicked again)
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8595 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -159,6 +159,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
|
||||
Left = 380
|
||||
Top = 0
|
||||
Action = acPortrait
|
||||
Down = True
|
||||
ShowCaption = False
|
||||
end
|
||||
object tbLandscape: TToolButton
|
||||
@ -565,6 +566,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
|
||||
OnExecute = acHeaderFooterExecute
|
||||
end
|
||||
object acPortrait: TAction
|
||||
AutoCheck = True
|
||||
Caption = 'Portrait'
|
||||
GroupIndex = 1
|
||||
Hint = 'Portrait page orientation'
|
||||
@ -572,6 +574,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
|
||||
OnExecute = acPortraitExecute
|
||||
end
|
||||
object acLandscape: TAction
|
||||
AutoCheck = True
|
||||
Caption = 'Landscape'
|
||||
GroupIndex = 1
|
||||
Hint = 'Landscape page orientation'
|
||||
@ -579,6 +582,7 @@ object GridPrintPreviewForm: TGridPrintPreviewForm
|
||||
OnExecute = acLandscapeExecute
|
||||
end
|
||||
object acPrintColsFirst: TAction
|
||||
AutoCheck = True
|
||||
Caption = 'Columns first'
|
||||
GroupIndex = 2
|
||||
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
|
||||
end
|
||||
object acPrintRowsFirst: TAction
|
||||
AutoCheck = True
|
||||
Caption = 'Rows first'
|
||||
GroupIndex = 2
|
||||
Hint = 'First print rows from left to right,'#13#10'then print from top to bottom'
|
||||
|
Reference in New Issue
Block a user