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

jvcllaz: Use "default" text font in JvRollout demo instead of hard-coded MsDlg font.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6981 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-30 22:56:59 +00:00
parent a1f0826be1
commit 975ce44bc5
1 changed files with 66 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
components/jvcllaz/examples/JvRollOut/MainFrm.lfm
View File

@ -9,12 +9,10 @@ object Form1: TForm1
Color = clBtnFace
DefaultMonitor = dmDesktop
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Menu = MainMenu1
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.8.4.0'
LCLVersion = '2.1.0.0'
Scaled = False
object Splitter1: TSplitter
Cursor = crSizeWE
@ -42,7 +40,7 @@ object Form1: TForm1
Left = 16
Height = 19
Top = 16
Width = 77
Width = 83
Caption = 'Show Focus'
Checked = True
OnClick = chkShowFocusClick
@ -53,7 +51,7 @@ object Form1: TForm1
Left = 16
Height = 19
Top = 40
Width = 63
Width = 67
Caption = 'Tab Stop'
Checked = True
OnClick = chkTabStopClick
@ -64,7 +62,7 @@ object Form1: TForm1
Left = 128
Height = 19
Top = 16
Width = 104
Width = 113
Caption = 'Toggle Anywhere'
OnClick = chkToggleAnywhereClick
TabOrder = 2
@ -73,7 +71,7 @@ object Form1: TForm1
Left = 128
Height = 19
Top = 40
Width = 49
Width = 53
Caption = 'Group'
Checked = True
OnClick = chkGroupIndexClick
@ -84,7 +82,7 @@ object Form1: TForm1
Left = 264
Height = 19
Top = 16
Width = 109
Width = 120
Caption = 'Hide Button Frame'
OnClick = chkHideButtonClick
TabOrder = 4
@ -93,7 +91,7 @@ object Form1: TForm1
Left = 264
Height = 19
Top = 40
Width = 110
Width = 122
Caption = 'Hide Rollout Frame'
OnClick = chkHideFrameClick
TabOrder = 5
@ -102,7 +100,7 @@ object Form1: TForm1
Left = 400
Height = 19
Top = 16
Width = 55
Width = 58
Caption = 'Images'
Checked = True
OnClick = chkImagesClick
@ -143,7 +141,9 @@ object Form1: TForm1
ClientHeight = 125
ClientWidth = 515
Color = clGray
Font.Color = clWindowText
ParentColor = False
ParentFont = False
TabOrder = 0
object Label3: TLabel
Left = 425
@ -156,8 +156,6 @@ object Form1: TForm1
Caption = 'Right Aligned'
Color = clGray
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
@ -417,8 +415,6 @@ object Form1: TForm1
Caption = 'Left Aligned'
Color = clGray
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
@ -436,10 +432,12 @@ object Form1: TForm1
Caption = 'J && &T'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 6
TabStop = True
ToggleAnywhere = False
@ -459,10 +457,12 @@ object Form1: TForm1
Caption = 'I && &S'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 7
TabStop = True
ToggleAnywhere = False
@ -482,10 +482,12 @@ object Form1: TForm1
Caption = 'H && &R'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 8
TabStop = True
ToggleAnywhere = False
@ -505,10 +507,12 @@ object Form1: TForm1
Caption = 'G && &Q'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 9
TabStop = True
ToggleAnywhere = False
@ -528,10 +532,12 @@ object Form1: TForm1
Caption = 'F && &P'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 5
TabStop = True
ToggleAnywhere = False
@ -551,10 +557,12 @@ object Form1: TForm1
Caption = 'E && &O'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 4
TabStop = True
ToggleAnywhere = False
@ -574,10 +582,12 @@ object Form1: TForm1
Caption = 'D && &N'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 3
TabStop = True
ToggleAnywhere = False
@ -597,10 +607,12 @@ object Form1: TForm1
Caption = 'C && &M'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 2
TabStop = True
ToggleAnywhere = False
@ -620,10 +632,12 @@ object Form1: TForm1
Caption = 'B && &L'
Placement = plLeft
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 1
TabStop = True
ToggleAnywhere = False
@ -642,10 +656,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = 'A && &K'
Placement = plLeft
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 7
ImageOptions.IndexExpanded = 6
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 0
TabStop = True
ToggleAnywhere = False
@ -687,7 +703,9 @@ object Form1: TForm1
ClientHeight = 395
ClientWidth = 144
Color = clGray
Font.Color = clWindowText
ParentColor = False
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 0
@ -700,8 +718,6 @@ object Form1: TForm1
Caption = 'Top Aligned'
Color = clGray
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
@ -728,7 +744,7 @@ object Form1: TForm1
FCHeight = 22
object Edit1: TEdit
Left = 8
Height = 21
Height = 23
Top = 40
Width = 121
TabOrder = 0
@ -736,7 +752,7 @@ object Form1: TForm1
end
object Edit2: TEdit
Left = 8
Height = 21
Height = 23
Top = 72
Width = 121
TabOrder = 1
@ -744,7 +760,7 @@ object Form1: TForm1
end
object Edit3: TEdit
Left = 8
Height = 21
Height = 23
Top = 104
Width = 121
TabOrder = 2
@ -752,7 +768,7 @@ object Form1: TForm1
end
object Edit4: TEdit
Left = 8
Height = 21
Height = 23
Top = 136
Width = 121
TabOrder = 3
@ -780,7 +796,7 @@ object Form1: TForm1
FCHeight = 22
object Edit5: TEdit
Left = 8
Height = 21
Height = 23
Top = 40
Width = 121
Color = clBtnFace
@ -790,7 +806,7 @@ object Form1: TForm1
end
object Edit6: TEdit
Left = 8
Height = 21
Height = 23
Top = 72
Width = 121
Color = clBtnFace
@ -800,7 +816,7 @@ object Form1: TForm1
end
object Edit7: TEdit
Left = 8
Height = 21
Height = 23
Top = 104
Width = 121
TabOrder = 2
@ -808,7 +824,7 @@ object Form1: TForm1
end
object Edit8: TEdit
Left = 8
Height = 21
Height = 23
Top = 136
Width = 121
TabOrder = 3
@ -836,7 +852,7 @@ object Form1: TForm1
FCHeight = 22
object Edit9: TEdit
Left = 8
Height = 21
Height = 23
Top = 40
Width = 121
TabOrder = 0
@ -844,7 +860,7 @@ object Form1: TForm1
end
object Edit10: TEdit
Left = 8
Height = 21
Height = 23
Top = 72
Width = 121
TabOrder = 1
@ -852,7 +868,7 @@ object Form1: TForm1
end
object Edit11: TEdit
Left = 8
Height = 21
Height = 23
Top = 104
Width = 121
Color = clBtnFace
@ -862,7 +878,7 @@ object Form1: TForm1
end
object Edit12: TEdit
Left = 8
Height = 21
Height = 23
Top = 136
Width = 121
Color = clBtnFace
@ -1022,7 +1038,9 @@ object Form1: TForm1
ClientHeight = 395
ClientWidth = 131
Color = clGray
Font.Color = clWindowText
ParentColor = False
ParentFont = False
TabOrder = 1
object Label2: TLabel
Left = 0
@ -1035,8 +1053,6 @@ object Form1: TForm1
Caption = 'Bottom Aligned'
Color = clGray
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
@ -1052,10 +1068,12 @@ object Form1: TForm1
ButtonFont.Color = clWindowText
ButtonFont.Style = [fsBold]
Caption = '&J'
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 6
TabStop = True
ToggleAnywhere = False
@ -1074,10 +1092,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&I'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 7
TabStop = True
ToggleAnywhere = False
@ -1096,10 +1116,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&H'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 8
TabStop = True
ToggleAnywhere = False
@ -1118,10 +1140,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&G'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 9
TabStop = True
ToggleAnywhere = False
@ -1140,10 +1164,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&F'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 5
TabStop = True
ToggleAnywhere = False
@ -1162,10 +1188,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&E'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 4
TabStop = True
ToggleAnywhere = False
@ -1184,10 +1212,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&D'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 3
TabStop = True
ToggleAnywhere = False
@ -1206,10 +1236,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&C'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 2
TabStop = True
ToggleAnywhere = False
@ -1228,10 +1260,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&B'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 1
TabStop = True
ToggleAnywhere = False
@ -1250,10 +1284,12 @@ object Form1: TForm1
ButtonFont.Style = [fsBold]
Caption = '&A'
Collapsed = True
Font.Color = clWindowText
GroupIndex = 1
ImageOptions.IndexCollapsed = 5
ImageOptions.IndexExpanded = 4
ImageOptions.Images = ImageList1
ParentFont = False
TabOrder = 0
TabStop = True
ToggleAnywhere = False