Changeset 321 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: Create FormItem controls inside scrollbox.

Location:

trunk/Forms

Files:

• FormItem.lfm (modified) (4 diffs)
• FormItem.pas (modified) (6 diffs)

trunk/Forms/FormItem.lfm

@@ -1 +1 @@
 object FormItem: TFormItem
   Left = 1040
-  Height = 360
+  Height = 397
   Top = 540
-  Width = 480
+  Width = 469
   Caption = 'Item'
-  ClientHeight = 360
-  ClientWidth = 480
+  ClientHeight = 397
+  ClientWidth = 469
   DesignTimePPI = 144
   OnCreate = FormCreate
@@ -12 +12 @@
   LCLVersion = '3.4.0.0'
   object ButtonOk: TButton
-    Left = 89
+    Left = 344
     Height = 38
-    Top = 312
+    Top = 353
     Width = 113
-    Anchors = [akLeft, akBottom]
+    Anchors = [akRight, akBottom]
     Caption = 'OK'
     ModalResult = 1
@@ -24 +24 @@
   end
   object ButtonCancel: TButton
-    Left = 264
+    Left = 208
     Height = 38
-    Top = 312
+    Top = 353
     Width = 113
-    Anchors = [akLeft, akBottom]
+    Anchors = [akRight, akBottom]
     Caption = 'Cancel'
     ModalResult = 2
@@ -34 +34 @@
     TabOrder = 1
   end
+  object ScrollBox1: TScrollBox
+    Left = 8
+    Height = 334
+    Top = 8
+    Width = 453
+    HorzScrollBar.Page = 1
+    VertScrollBar.Page = 1
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    TabOrder = 2
+  end
 end

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;