X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fflexui%2Ffui_ctls.pas;h=69af8af26baff987fa82b7b5bf31ed94b7a02ce5;hb=7da841038d5a4e415324d4441cd397f6664e892d;hp=ef5ab367e43e2bd11e0d8fe558c20dfb2fca4f52;hpb=015a25e0eecbc51ad0d15ff3194218a7fd8a55e0;p=d2df-sdl.git

diff --git a/src/flexui/fui_ctls.pas b/src/flexui/fui_ctls.pas
index ef5ab36..69af8af 100644
--- a/src/flexui/fui_ctls.pas
+++ b/src/flexui/fui_ctls.pas
@@ -554,6 +554,11 @@ procedure uiUpdateStyles ();
 procedure uiLayoutCtl (ctl: TUIControl);
 
 
+// ////////////////////////////////////////////////////////////////////////// //
+procedure uiInitialize ();
+procedure uiDeinitialize ();
+
+
 // ////////////////////////////////////////////////////////////////////////// //
 var
   fuiRenderScale: Single = 1.0;
@@ -567,6 +572,20 @@ uses
   utils;
 
 
+// ////////////////////////////////////////////////////////////////////////// //
+procedure uiDeinitialize ();
+begin
+  FreeAndNil(uiContext);
+end;
+
+
+procedure uiInitialize ();
+begin
+  if (uiContext <> nil) then raise Exception.Create('FlexUI already initialized');
+  uiContext := TGxContext.Create();
+end;
+
+
 // ////////////////////////////////////////////////////////////////////////// //
 var
   ctlsToKill: array of TUIControl = nil;
@@ -3491,6 +3510,4 @@ initialization
   registerCtlClass(TUIButton, 'button');
   registerCtlClass(TUICheckBox, 'checkbox');
   registerCtlClass(TUIRadioBox, 'radiobox');
-
-  uiContext := TGxContext.Create();
 end.