Changeset 130 for trunk/Application/UWebObjects.pas

Timestamp:

Mar 18, 2022, 1:32:32 PM (3 years ago)

Author:

chronos

Message:

• Modified: Build with Lazarus 2.2.0.
• Modified: Code cleanup.

File:

• trunk/Application/UWebObjects.pas (modified) (1 diff)

trunk/Application/UWebObjects.pas

@@ -174 +174 @@
     with THtmlCell(Row.Cells.AddNew(THtmlCell.Create)) do begin
       ColSpan := 2;
+      Value := THtmlBlock.Create;
       for I := 0 to Actions.Count - 1 do
-      Value := THtmlBlock.Create;
       with THtmlInput(THtmlBlock(Value).SubItems.AddNew(THtmlInput.Create)) do begin
         Value := TQueryAction(Actions[I]).Caption;