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