Accessing RTL symbols
This commit is contained in:
@@ -81,7 +81,7 @@ object Form1: TForm1
|
||||
end
|
||||
object ClearButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 554.000000000000000000
|
||||
Position.Y = 539.000000000000000000
|
||||
Size.Width = 80.000000000000000000
|
||||
Size.Height = 22.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
@@ -121,14 +121,14 @@ object Form1: TForm1
|
||||
end
|
||||
object FromJSONButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 602.000000000000000000
|
||||
Position.Y = 569.000000000000000000
|
||||
TabOrder = 16
|
||||
Text = 'From JSON'
|
||||
OnClick = FromJSONButtonClick
|
||||
end
|
||||
object ToJSONButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 632.000000000000000000
|
||||
Position.Y = 599.000000000000000000
|
||||
TabOrder = 17
|
||||
Text = 'To JSON'
|
||||
OnClick = ToJSONButtonClick
|
||||
@@ -170,18 +170,32 @@ object Form1: TForm1
|
||||
end
|
||||
object SaveUserLibButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 680.000000000000000000
|
||||
Position.Y = 629.000000000000000000
|
||||
TabOrder = 24
|
||||
Text = 'Save Lib'
|
||||
OnClick = SaveUserLibButtonClick
|
||||
end
|
||||
object LoadUserLibButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 710.000000000000000000
|
||||
Position.Y = 659.000000000000000000
|
||||
TabOrder = 25
|
||||
Text = 'LoadLib'
|
||||
OnClick = LoadUserLibButtonClick
|
||||
end
|
||||
object RTLListView: TListView
|
||||
ItemAppearanceClassName = 'TListItemAppearance'
|
||||
ItemEditAppearanceClassName = 'TListItemShowCheckAppearance'
|
||||
HeaderAppearanceClassName = 'TListHeaderObjects'
|
||||
FooterAppearanceClassName = 'TListHeaderObjects'
|
||||
Anchors = [akLeft, akBottom]
|
||||
Position.X = 8.000000000000000000
|
||||
Position.Y = 689.000000000000000000
|
||||
Size.Width = 113.000000000000000000
|
||||
Size.Height = 184.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 26
|
||||
OnChange = RTLListViewChange
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Align = Client
|
||||
|
||||
Reference in New Issue
Block a user