Changeset 321 for trunk/Forms/FormItem.pas

Timestamp:

Jun 25, 2024, 1:00:56 AM (3 months ago)

Author:

chronos

Message:

• Added: Create FormItem controls inside scrollbox.

File:

• trunk/Forms/FormItem.pas (modified) (6 diffs)

trunk/Forms/FormItem.pas

@@ -14 +14 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ScrollBox1: TScrollBox;
     procedure ButtonOkClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -84 +85 @@
   Fields := Item.GetFields;
   for I := 0 to Fields.Count - 1 do
-  with TItemField(Fields[I]) do begin
+  with Fields[I] do begin
     Control := DataControls[I];
     if DataType = dtInteger then TSpinEdit(Control).Value := Item.GetValueInteger(Index)
@@ -129 +130 @@
   Fields := Item.GetFields;
   for I := 0 to Fields.Count - 1 do
-  with TItemField(Fields[I]) do begin
+  with Fields[I] do begin
     Control := DataControls[I];
     if DataType = dtInteger then Item.SetValueInteger(Index, TSpinEdit(Control).Value)
@@ -159 +160 @@
   Fields := Item.GetFields;
   for I := 0 to Fields.Count - 1 do
-  with TItemField(Fields[I]) do begin
-    NewLabel := TLabel.Create(Self);
+  with Fields[I] do begin
+    NewLabel := TLabel.Create(ScrollBox1);
     NewLabel.Left := Scale96ToScreen(8);
     NewLabel.Top := Y;
-    NewLabel.Parent := Self;
+    NewLabel.Parent := ScrollBox1;
     NewLabel.Caption := Name + ':';
     NewLabel.Visible := True;
@@ -200 +201 @@
     NewControl.Left := Scale96ToScreen(150);
     NewControl.Top := Y;
-    NewControl.Parent := Self;
+    NewControl.Parent := ScrollBox1;
     TFormEx.Translator.TranslateComponent(NewControl);
     TFormEx.ThemeManager.ApplyTheme(NewControl);
@@ -219 +220 @@
   try
     for I := 0 to Fields.Count - 1 do
-    with TItemField(Fields[I]) do begin
+    with Fields[I] do begin
       if VisibleIfIndex > 0 then begin
-        if TItemField(Fields[VisibleIfIndex]).DataType = dtEnumeration then begin
+        if Fields[VisibleIfIndex].DataType = dtEnumeration then begin
           Condition := TComboBox(DataControls[VisibleIfIndex]).ItemIndex > 0;
         end else Condition := False;