10.3 Rio / VER330 / PKG 260

Support added for 10.3 Rio (Compiler 33.0 / VER330 / Product version 26 / Package version 260)

design/FMX.uTPLb_ComponentRegistration.pas

@@ -0,0 +1,58 @@
+{* ***** BEGIN LICENSE BLOCK *****
+Copyright 2009, 2010 Sean B. Durkin
+This file is part of TurboPower LockBox 3. TurboPower LockBox 3 is free
+software being offered under a dual licensing scheme: LGPL3 or MPL1.1.
+
+The contents of this file are subject to the Mozilla Public License (MPL)
+Version 1.1 (the "License"); you may not use this file except in compliance
+with the License. You may obtain a copy of the License at
+http://www.mozilla.org/MPL/
+
+Alternatively, you may redistribute it and/or modify it under the terms of
+the GNU Lesser General Public License (LGPL) as published by the Free Software
+Foundation, either version 3 of the License, or (at your option) any later
+version.
+
+You should have received a copy of the Lesser GNU General Public License
+along with TurboPower LockBox 3.  If not, see <http://www.gnu.org/licenses/>.
+
+TurboPower LockBox is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. In relation to LGPL,
+see the GNU Lesser General Public License for more details. In relation to MPL,
+see the MPL License for the specific language governing rights and limitations
+under the License.
+
+The Initial Developer of the Original Code for TurboPower LockBox version 2
+and earlier was TurboPower Software.
+
+ * ***** END LICENSE BLOCK ***** *}
+
+unit FMX.uTPLb_ComponentRegistration;
+
+interface
+
+procedure Register;
+
+implementation
+
+{$R 'LockBox3.dcr'}
+
+uses
+  System.Classes, FMX.Types, FMX.Controls, uTPLb_Hash, uTPLb_CryptographicLibrary,
+  uTPLb_Codec, uTPLb_Signatory;
+
+procedure Register;
+begin
+  GroupDescendentsWith(THash, FMX.Controls.TControl);
+  GroupDescendentsWith(TCodec, FMX.Controls.TControl);
+  GroupDescendentsWith(TCryptographicLibrary, FMX.Controls.TControl);
+  GroupDescendentsWith(TSignatory, FMX.Controls.TControl);
+
+  RegisterFmxClasses([THash, TCodec, TCryptographicLibrary, TSignatory]);
+
+  RegisterComponents( 'LockBox', [THash, TCodec, TCryptographicLibrary, TSignatory])
+end;
+
+
+end.