Version 1.0 DEV 1.12c

Signed-off-by: Dennis07 <den.goehlert@t-online.de>

Example/TLocalizationManager/German.loc

@@ -5,3 +5,4 @@ LanguageSelect @ LANGUAGE
 * Buttons
 Close = Schliessen
 Hello = Hallo!
+fff @

Example/TLocalizationManager/uMain.dfm

@@ -2,9 +2,9 @@ object Form1: TForm1
   Left = 0
   Top = 0
   BorderStyle = bsDialog
-  Caption = 'Form1'
+  Caption = 'LinaComponents "TScriptManager" Example'
   ClientHeight = 180
-  ClientWidth = 273
+  ClientWidth = 353
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -19,7 +19,7 @@ object Form1: TForm1
   object pnButtons: TPanel
     Left = 0
     Top = 139
-    Width = 273
+    Width = 353
     Height = 41
     Align = alBottom
     TabOrder = 0
@@ -33,7 +33,7 @@ object Form1: TForm1
       OnClick = btCloseClick
     end
     object btHello: TButton
-      Left = 190
+      Left = 270
       Top = 8
       Width = 75
       Height = 25
@@ -45,14 +45,14 @@ object Form1: TForm1
   object gbLaguage: TGroupBox
     Left = 8
     Top = 8
-    Width = 257
+    Width = 337
     Height = 115
     Caption = 'Language'
     TabOrder = 1
     object lbLanguage: TListBox
       Left = 16
       Top = 24
-      Width = 225
+      Width = 305
       Height = 81
       ItemHeight = 13
       TabOrder = 0
@@ -79,7 +79,7 @@ object Form1: TForm1
         Indent = 'LanguageSelect'
         Control = gbLaguage
       end>
-    Left = 208
+    Left = 288
     Top = 8
   end
 end

Example/TLocalizationManager/uMain.pas

@@ -70,8 +70,13 @@ begin
 end;
 
 procedure TForm1.lbLanguageClick(Sender: TObject);
+var Indents: TStrings;
 begin
   LocalizationManager.Current := lbLanguage.ItemIndex;
+  indents := TStringList.Create;
+  LocalizationManager.Data.ReadValues('',indents);
+  showmessage(indents.Text);
+  indents.Free;
 end;
 
 end.