Version 1.0 DEV 1.12d

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

Example/TLocalizationManager/uMain.pas

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

Source/uFileCtrls.pas

@@ -28,8 +28,8 @@ type
 
 type
   { Ereignisse }
-  TContextCreateItemEvent = procedure(Sender: TObject) of object;
-  TContextCreateEntryEvent = procedure(Sender: TObject) of object;
+  TContextMenuCreateItemEvent = procedure(Sender: TObject) of object;
+  TContextMenuCreateEntryEvent = procedure(Sender: TObject) of object;
 
 type
   { Hauptklassen }
@@ -66,8 +66,8 @@ type
     FAutoLoad: Boolean;
     FAlias: ShortString;
     { Ereignisse }
-    FCreateItemEvent: TContextCreateItemEvent;
-    FCreateEntryEvent: TContextCreateEntryEvent;
+    FCreateItemEvent: TContextMenuCreateItemEvent;
+    FCreateEntryEvent: TContextMenuCreateEntryEvent;
     { Methoden }
     procedure SetExt(Value: ShortString);
     procedure SetAutoLoad(Value: Boolean);
@@ -94,8 +94,8 @@ type
     property AutoLoad: Boolean read FAutoLoad write SetAutoLoad default False;
     property Alias: ShortString read FAlias write SetAlias;
     { Ereignisse }
-    property OnCreateItem: TContextCreateItemEvent read FCreateItemEvent write FCreateItemEvent;
-    property OnCreateEntry: TContextCreateEntryEvent read FCreateEntryEvent write FCreateEntryEvent;
+    property OnCreateItem: TContextMenuCreateItemEvent read FCreateItemEvent write FCreateItemEvent;
+    property OnCreateEntry: TContextMenuCreateEntryEvent read FCreateEntryEvent write FCreateEntryEvent;
   end;
 
   procedure Register;

Source/uFrmCtrls.pas

@@ -37,12 +37,12 @@ type
 
 type
   { Ereignisse }
-  TSplashCreateEvent = procedure(Sender: TObject) of object;
-  TSplashDestroyEvent = procedure(Sender: TObject) of object;
-  TSplashShowEvent = procedure(Sender: TObject) of object;
-  TSplashHideEvent = procedure(Sender: TObject) of object;
-  TSplashChangeEvent = procedure(Sender: TObject) of object;
-  TSplashTimerEvent = procedure(Sender: TObject) of object;
+  TSplashScreenCreateEvent = procedure(Sender: TObject) of object;
+  TSplashScreenDestroyEvent = procedure(Sender: TObject) of object;
+  TSplashScreenShowEvent = procedure(Sender: TObject) of object;
+  TSplashScreenHideEvent = procedure(Sender: TObject) of object;
+  TSplashScreenChangeEvent = procedure(Sender: TObject) of object;
+  TSplashScreenTimerEvent = procedure(Sender: TObject) of object;
   TComponentManagerUpdateEvent = procedure(Sender: TObject) of object;
   TParamDefinerUpdateEvent = procedure(Sender: TObject) of object;
 
@@ -240,12 +240,12 @@ type
     FAnimationSpeed: Byte;
     FVisible: Boolean;
     { Ereignisse }
-    FCreateEvent: TSplashCreateEvent;
-    FDestroyEvent: TSplashDestroyEvent;
-    FShowEvent: TSplashShowEvent;
-    FHideEvent: TSplashHideEvent;
-    FChangeEvent: TSplashChangeEvent;
-    FTimerEvent: TSplashTimerEvent;
+    FCreateEvent: TSplashScreenCreateEvent;
+    FDestroyEvent: TSplashScreenDestroyEvent;
+    FShowEvent: TSplashScreenShowEvent;
+    FHideEvent: TSplashScreenHideEvent;
+    FChangeEvent: TSplashScreenChangeEvent;
+    FTimerEvent: TSplashScreenTimerEvent;
     { Methoden }
     procedure SetVisible(Value: Boolean);
     procedure SetSplashForm(Value: TSplashForm);
@@ -272,12 +272,12 @@ type
   published
     { Published-Deklarationen }
     { Ereignisse }
-    property OnCreate: TSplashCreateEvent read FCreateEvent write FCreateEvent;
-    property OnDestroy: TSplashDestroyEvent read FDestroyEvent write FDestroyEvent;
-    property OnShow: TSplashShowEvent read FShowEvent write FShowEvent;
-    property OnHide: TSplashHideEvent read FHideEvent write FHideEvent;
-    property OnChange: TSplashChangeEvent read FChangeEvent write FChangeEvent;
-    property OnTimer: TSplashTimerEvent read FTimerEvent write FTimerEvent;
+    property OnCreate: TSplashScreenCreateEvent read FCreateEvent write FCreateEvent;
+    property OnDestroy: TSplashScreenDestroyEvent read FDestroyEvent write FDestroyEvent;
+    property OnShow: TSplashScreenShowEvent read FShowEvent write FShowEvent;
+    property OnHide: TSplashScreenHideEvent read FHideEvent write FHideEvent;
+    property OnChange: TSplashScreenChangeEvent read FChangeEvent write FChangeEvent;
+    property OnTimer: TSplashScreenTimerEvent read FTimerEvent write FTimerEvent;
     { Eigenschaften }
     property About: TComponentAbout read FAbout;
     property SplashForm: TSplashForm read FSplashForm write SetSplashForm;

Source/uLocalMgr.pas

@@ -32,6 +32,14 @@ type
   TLanguageTag = String[3];
   TCommentAllow = type TLinePosition;
 
+type
+  { Ereignisse }
+  TLocalizationManagerChangeQueryEvent = procedure(Sender: TObject; OldIndex, NewIndex: Integer; var CanChange: Boolean) of object;
+  TLocalizationManagerChangeEvent = procedure(Sender: TObject; OldIndex, NewIndex: Integer) of object;
+  TLocalizationManagerChangeSuccessEvent = procedure(Sender: TObject; OldIndex, NewIndex: Integer) of object;
+  TLocalizationManagerChangeFailEvent = procedure(Sender: TObject; OldIndex, NewIndex: Integer) of object;
+
+
 type
   { Hauptklassen }
   TLocalizationFormat = class(TPersistent)
@@ -90,9 +98,10 @@ type
     constructor Create(Collection: TCollection); overload; override;
     constructor Create(Collection: TCollection; const AFileName: TFileName); overload;
     destructor Destroy; override;
-    procedure Apply;
+    function Apply: Boolean;
   published
     { Published-Deklarationen }
+    { Eigenschaften }
     property Name: ShortString read FName write FName;
     property Tag: TLanguageTag read FTag write SetTag;
     property Lines: TStrings read GetLines write SetLines;
@@ -179,6 +188,11 @@ type
 
   TLocalizationManager = class(TComponent)
   private
+    { Ereignisse}
+    FChangeQueryEvent: TLocalizationManagerChangeQueryEvent;
+    FChangeEvent: TLocalizationManagerChangeEvent;
+    FChangeSuccessEvent: TLocalizationManagerChangeSuccessEvent;
+    FChangeFailEvent: TLocalizationManagerChangeFailEvent;
     { Private-Deklarationen }
     FAbout: TComponentAbout;
     FLocalizations: TLocalizations;
@@ -198,6 +212,12 @@ type
     property Data: TLocalizationData read FData write FData;
   published
     { Published-Deklarationen }
+    { Ereignisse}
+    property OnChangeQuery: TLocalizationManagerChangeQueryEvent read FChangeQueryEvent write FChangeQueryEvent;
+    property OnChange: TLocalizationManagerChangeEvent read FChangeEvent write FChangeEvent;
+    property OnChangeSuccess: TLocalizationManagerChangeSuccessEvent read FChangeSuccessEvent write FChangeSuccessEvent;
+    property OnChangeFail: TLocalizationManagerChangeFailEvent read FChangeFailEvent write FChangeFailEvent;
+    { Eigenschaften }
     property About: TComponentAbout read FAbout;
     property Localizations: TLocalizations read FLocalizations write FLocalizations;
     property References: TLocalizationReferences read FReferences write FReferences;
@@ -412,7 +432,7 @@ begin
   RaiseParseError('Undeclared indent: ' + '"' + Identifier + '"',LineIndex,CharIndex,ExprLength);
 end;
 
-procedure TLocalization.Apply;
+function TLocalization.Apply: Boolean;
 { Compiliert den Inhalt eines TStrings-Objects zeilenweise zu einem Konstrukt
   aus Record-Arrays und Records mit je einem String-Wert und einem Pointer zur
   Referenzierung (siehe hierzu: uSysTools.TStringReferenceData etc.).
@@ -451,6 +471,7 @@ var
 label
   EoL;
 begin
+  Result := False;
   Section := '';
   Indent := '';
   for Line := 0 to Lines.Count - 1 do
@@ -551,6 +572,7 @@ begin
                       end else
                       begin
                         RaiseParseErrorUndeclared(Block,Line,Current,Length(Block));
+                        Exit;
                       end;
                     end;
                   end;
@@ -559,6 +581,7 @@ begin
               end else
               begin
                 RaiseParseErrorUnexpected('Argument','end of line',Line,Current);
+                Exit;
               end;
             end else
             begin
@@ -574,6 +597,7 @@ begin
                                end else
                                begin
                                  RaiseParseErrorUnexpected('Prefix','"' + Block + '"',Line,Current,Length(Block));
+                                 Exit;
                                end;
                              end;
                              Header := (Block = Format.Header);
@@ -588,6 +612,7 @@ begin
                                 if (Block <> Format.Separator) and (Address = False) then
                                 begin
                                   RaiseParseErrorUnexpected('Separator or address mark','"' + Block + '"',Line,Current,Length(Block));
+                                  Exit;
                                 end;
                                 Inc(Position);
                               end;
@@ -595,6 +620,7 @@ begin
                             if (Finished = True) and ((InComment^ <> #0) or (not (Current^ in Spaces))) then
                             begin
                               RaiseParseErrorUnexpected('End of line','"' + Block + '"',Line,Current,Length(Block));
+                              Exit;
                             end;
                           end;
               end;
@@ -606,7 +632,7 @@ begin
     end;
     Indent := '';
   end;
-  (Collection as TLocalizations).FManager.References.Apply;
+  Result := True;
 end;
 
 { ----------------------------------------------------------------------------
@@ -970,15 +996,40 @@ begin
 end;
 
 procedure TLocalizationManager.SetCurrent(Value: Integer);
+var
+  AllowChange: Boolean;
 begin
+  if Assigned(OnChangeQuery) = True then
+  begin
+    AllowChange := True;
+    OnChangeQuery(Self,FCurrent,Value,AllowChange);
+    if AllowChange = False then
+    begin
+      Exit;
+    end;
+  end;
   if Value > -1 then
   begin
-    (Localizations.Items[Value] as TLocalization).Apply;
-    //FCurrent wird in der Apply-Methode ge�ndert...
-  end else
-  begin
-    FCurrent := Value;
+    if (Localizations.Items[Value] as TLocalization).Apply = True then
+    begin
+      if Assigned(OnChangeSuccess) = True then
+      begin
+        OnChangeSuccess(Self,FCurrent,Value);
+      end;
+    end else
+    begin
+      if Assigned(OnChangeFail) = True then
+      begin
+        OnChangeFail(Self,FCurrent,Value);
+      end;
+      Exit;
+    end;
   end;
+  if Assigned(OnChange) = True then
+  begin
+    OnChange(Self,FCurrent,Value);
+  end;
+  FCurrent := Value;
 end;
 
 procedure TLocalizationManager.SetIgnoreCase(Value: Boolean);

Source/uScriptMgr.pas

@@ -45,13 +45,13 @@ type
 
 type
   { Ereignisse }
-  TScriptCreateEvent = procedure(Sender: TObject) of object;
-  TScriptDestroyEvent = procedure(Sender: TObject) of object;
-  TScriptReturnEvent = procedure(Sender: TObject; const Msg: String) of object;
-  TScriptNeedFileEvent = function(Sender:TObject; const OriginFileName: AnsiString; var FileName, Output: AnsiString): Boolean of object;
-  TScriptCompileEvent = procedure(Sender: TObject) of object;
-  TScriptExecuteEvent = procedure(Sender: TObject) of object;
-  TScriptAfterExecuteEvent = procedure(Sender: TObject) of object;
+  TScriptManagerCreateEvent = procedure(Sender: TObject) of object;
+  TScriptManagerDestroyEvent = procedure(Sender: TObject) of object;
+  TScriptManagerReturnEvent = procedure(Sender: TObject; const Msg: String) of object;
+  TScriptManagerNeedFileEvent = function(Sender:TObject; const OriginFileName: AnsiString; var FileName, Output: AnsiString): Boolean of object;
+  TScriptManagerCompileEvent = procedure(Sender: TObject) of object;
+  TScriptManagerExecuteEvent = procedure(Sender: TObject) of object;
+  TScriptManagerAfterExecuteEvent = procedure(Sender: TObject) of object;
 
 type
   { Hauptklassen }
@@ -94,13 +94,13 @@ type
     FLibraries: TScriptLibraries;
     FPlugins: TScriptManagerPlugins;
     { Ereignisse }
-    FCreateEvent: TScriptCreateEvent;
-    FDestroyEvent: TScriptDestroyEvent;
-    FReturnEvent: TScriptReturnEvent;
-    FNeedFileEvent: TScriptNeedFileEvent;
-    FCompileEvent: TScriptCompileEvent;
-    FExecuteEvent: TScriptExecuteEvent;
-    FAfterExecuteEvent: TScriptAfterExecuteEvent;
+    FCreateEvent: TScriptManagerCreateEvent;
+    FDestroyEvent: TScriptManagerDestroyEvent;
+    FReturnEvent: TScriptManagerReturnEvent;
+    FNeedFileEvent: TScriptManagerNeedFileEvent;
+    FCompileEvent: TScriptManagerCompileEvent;
+    FExecuteEvent: TScriptManagerExecuteEvent;
+    FAfterExecuteEvent: TScriptManagerAfterExecuteEvent;
     { Methoden }
     function GetCompilerOptions: TPSCompOptions;
     procedure SetCompilerOptions(Value: TPSCompOptions);
@@ -119,13 +119,13 @@ type
   published
     { Published-Deklarationen }
     { Ereignisse}
-    property OnCreate: TScriptCreateEvent read FCreateEvent write FCreateEvent;
-    property OnDestroy: TScriptDestroyEvent read FDestroyEvent write FDestroyEvent;
-    property OnReturn: TScriptReturnEvent read FReturnEvent write FReturnEvent;
-    property OnNeedFile: TScriptNeedFileEvent read FNeedFileEvent write FNeedFileEvent;
-    property OnCompile: TScriptCompileEvent read FCompileEvent write FCompileEvent;
-    property OnExecute: TScriptExecuteEvent read FExecuteEvent write FExecuteEvent;
-    property OnAfterExecute: TScriptAfterExecuteEvent read FAfterExecuteEvent write FAfterExecuteEvent;
+    property OnCreate: TScriptManagerCreateEvent read FCreateEvent write FCreateEvent;
+    property OnDestroy: TScriptManagerDestroyEvent read FDestroyEvent write FDestroyEvent;
+    property OnReturn: TScriptManagerReturnEvent read FReturnEvent write FReturnEvent;
+    property OnNeedFile: TScriptManagerNeedFileEvent read FNeedFileEvent write FNeedFileEvent;
+    property OnCompile: TScriptManagerCompileEvent read FCompileEvent write FCompileEvent;
+    property OnExecute: TScriptManagerExecuteEvent read FExecuteEvent write FExecuteEvent;
+    property OnAfterExecute: TScriptManagerAfterExecuteEvent read FAfterExecuteEvent write FAfterExecuteEvent;
     { Eigenschaften }
     property About: TComponentAbout read FAbout;
     property CompilerOptions: TPSCompOptions read GetCompilerOptions write SetCompilerOptions default [];