Event for PreConfig

lmbelo · lmbelo · commit a5e644cbd6bf · 2024-08-28T17:37:26.000-03:00
diff --git a/Source/PythonEngine.pas b/Source/PythonEngine.pas
@@ -2019,6 +2019,7 @@   TPythonInterface=class(TDynamicDll)
   TEngineClient = class;
   TSysPathInitEvent = procedure(Sender: TObject; PathList: PPyObject) of object;
   TConfigInitEvent = procedure(Sender: TObject; var Config: PyConfig) of object;
+  TPreConfigInitEvent = procedure(Sender: TObject; var PreConfig: PyPreConfig) of object;
 
   TTracebackItem = class
   public
@@ -2067,6 +2068,7 @@   TPythonEngine = class(TPythonInterface)
     FPythonPath:                 UnicodeString;
     FOnSysPathInit:              TSysPathInitEvent;
     FOnConfigInit:               TConfigInitEvent;
+    FOnPreConfigInit:            TPreConfigInitEvent;
     FTraceback:                  TPythonTraceback;
     FUseWindowsConsole:          Boolean;
     FGlobalVars:                 PPyObject;
@@ -2217,8 +2219,8 @@   TPythonEngine = class(TPythonInterface)
     property UseWindowsConsole: Boolean read FUseWindowsConsole write FUseWindowsConsole default False;
     property OnAfterInit: TNotifyEvent read FOnAfterInit write FOnAfterInit;
     property OnSysPathInit: TSysPathInitEvent read FOnSysPathInit write FOnSysPathInit;
+    property OnPreConfigInit: TPreConfigInitEvent read FOnPreConfigInit write FOnPreConfigInit;
     property OnConfigInit: TConfigInitEvent read FOnConfigInit write FOnConfigInit;
-
   end;
 
 
@@ -4822,6 +4824,10 @@ procedure TPythonEngine.Initialize;
     else
       PyPreConfig_InitPythonConfig(PreConfig);
 
+    // Fine tune PreConfig
+    if Assigned(FOnPreConfigInit) then
+      FOnPreConfigInit(Self, PreConfig);
+
     Status := Py_PreInitialize(PreConfig);
     if not PyStatus_Exception(Status) then begin
       // Fills Config with zeros and then sets some default values
