Changeset 291 for trunk/Forms/UFormItem.pas

Timestamp:

Mar 26, 2019, 1:16:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: UnitKind list and items converted to general item list.

File:

• trunk/Forms/UFormItem.pas (modified) (2 diffs)

trunk/Forms/UFormItem.pas

@@ -79 +79 @@
     InitControls;
     LoadData(Item);
-    Caption := Item.GetClassSysName;
+    Caption := Item.GetClassName;
   end else begin
     DataControls.Clear;
@@ -157 +157 @@
       NewControl := TCheckBox.Create(nil);
     end else raise Exception.Create('Unsupported type ' + IntToStr(Integer(DataType)));
-    NewControl.Left := 100;
+    NewControl.Left := 150;
     NewControl.Top := Y;
     NewControl.Parent := Self;
     Core.CoolTranslator1.TranslateComponent(NewControl);
+    Core.ThemeManager1.ApplyTheme(NewControl);
     NewControl.Visible := True;
     DataControls.Add(NewControl);