Accessing RTL symbols

This commit is contained in:
Michael Schimmel
2025-10-07 13:21:25 +02:00
parent 51265ce945
commit e0c4cf7ee4
4 changed files with 7325 additions and 153 deletions
+19 -5
View File
@@ -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