index 797c73fa5ba87a81a31fa5f0a5f7a49e0d0f0842..69af8af26baff987fa82b7b5bf31ed94b7a02ce5 100644 (file)
--- a/src/flexui/fui_ctls.pas
+++ b/src/flexui/fui_ctls.pas
procedure uiLayoutCtl (ctl: TUIControl);
+// ////////////////////////////////////////////////////////////////////////// //
+procedure uiInitialize ();
+procedure uiDeinitialize ();
+
+
// ////////////////////////////////////////////////////////////////////////// //
var
fuiRenderScale: Single = 1.0;
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;
mDefSize.w += ww+mShadowSize;
mDefSize.h += mShadowSize;
end;
+ end
+ else
+ begin
+ ods := TLaySize.Create(0, 0); // fpc is dumb!
end;
inherited layPrepare();
if (not mSkipLayPrepare) then mDefSize := ods;
registerCtlClass(TUIButton, 'button');
registerCtlClass(TUICheckBox, 'checkbox');
registerCtlClass(TUIRadioBox, 'radiobox');
-
- uiContext := TGxContext.Create();
end.