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

tvplanit: Define initial control size by GetControlClassDefaultSize. New icons in PrintPreview dialog. Consistent 3D look of TVpPrintPreview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8469 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-10 20:38:31 +00:00
parent 770f452ecf
commit d2fe2df1e7
58 changed files with 247 additions and 454 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
components/tvplanit/source/vpedfmtlst.lfm
View File

@ -3,7 +3,6 @@ object frmPrnFormat: TfrmPrnFormat
Height = 490
Top = 274
Width = 694
ActiveControl = lbFormats
Caption = 'Print Format Designer'
ClientHeight = 490
ClientWidth = 694
@ -51,21 +50,6 @@ object frmPrnFormat: TfrmPrnFormat
Width = 23
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 4
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
333333333333333333333333337777733333333333FFFFF33333333334444473
33333333377777F3333333333CCCC47333333333377777F3333333333CCCC473
33333333377777F3333333333CCCC47333333333377777F3333333333CCCC473
33333333377777F3333333333CCCC47773333333377777FFF333333CCCCCCCCC
333333377777777733333333CCCCCCC33333333377777773333333333CCCCC33
33333333377777333333333333CCC333333333333377733333333333333C3333
3333333333373333333333333333333333333333333333333333
}
NumGlyphs = 2
OnClick = btnMoveElementUpClick
end
object btnMoveElementDn: TSpeedButton
@ -81,21 +65,7 @@ object frmPrnFormat: TfrmPrnFormat
Width = 23
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 4
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333337333
333333333333F3333333333333347733333333333337FF333333333333CC4773
3333333333777FF3333333333CCCC47733333333377777FF33333333CCCCCC47
733333337777777FF333333CCCCCC4443333333777777777333333333CCCC473
33333333377777F3333333333CCCC47333333333377777F3333333333CCCC473
33333333377777F3333333333CCCC47333333333377777F3333333333CCCC473
33333333377777F3333333333CCCC43333333333377777333333333333333333
3333333333333333333333333333333333333333333333333333
}
NumGlyphs = 2
Spacing = 0
OnClick = btnMoveElementDnClick
end
object LblPrintOrder: TLabel
@ -248,7 +218,7 @@ object frmPrnFormat: TfrmPrnFormat
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 694
TabOrder = 8
TabOrder = 9
object btnLoadFile: TButton
AnchorSideLeft.Control = btnNewFile
AnchorSideLeft.Side = asrBottom
@ -312,7 +282,6 @@ object frmPrnFormat: TfrmPrnFormat
BorderSpacing.Right = 6
BorderSpacing.Bottom = 4
Caption = 'OK'
Default = True
OnClick = btnOkClick
TabOrder = 3
end
@ -345,10 +314,10 @@ object frmPrnFormat: TfrmPrnFormat
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lbElements
AnchorSideBottom.Side = asrBottom
Left = 389
Left = 395
Height = 430
Top = 27
Width = 305
Width = 293
CurPage = 0
DrawingStyle = dsFlat
EndDate = 37377.6447728357
@ -356,21 +325,21 @@ object frmPrnFormat: TfrmPrnFormat
Anchors = [akTop, akLeft, akRight, akBottom]
Parent = Owner
TabStop = True
TabOrder = 9
TabOrder = 8
end
object OpenDialog1: TOpenDialog
object OpenDialog: TOpenDialog
Title = 'Open filter file'
DefaultExt = '.xml'
FileName = '*.xml'
Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*'
Filter = 'Print Format Files (.xml)|*.xml|All Files (*.*)|*.*'
Left = 400
Top = 128
end
object SaveDialog1: TSaveDialog
object SaveDialog: TSaveDialog
Title = 'Save formats as'
DefaultExt = '.xml'
FileName = '*.xml'
Filter = 'Filter Files (.xml)|*.xml|All Files (*.*)|*.*'
Filter = 'Print Format Files (.xml)|*.xml|All Files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 400
Top = 200