Procedure

TfrmReportsAdhocComponent1.btnEditSubitemsClick

Module

fReportsAdhocComponent1

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReportsAdhocComponent1

Declaration

procedure btnEditSubitemsClick(Sender: TObject);

Calls Hierarchy


TfrmReportsAdhocComponent1.btnEditSubitemsClick
 └ExecuteForm2
   └TfrmBase508Form.Create
     ├TfrmBase508Form.UpdateAccessibilityActions
     ├UnfocusableControlEnter
     └AdjustControls
       ├TfrmBase508Form.ModifyUnfocusableControl
       └..(rec)..

Calls

Name Declaration Comments
ExecuteForm2 function ExecuteForm2: Boolean; -


Source

635   procedure TfrmReportsAdhocComponent1.btnEditSubitemsClick(Sender: TObject);
636   var
637     i: integer;
638   begin
639     If ExecuteForm2 = True then
640         begin
641           lblItems.Enabled := False;
642           ORListBox1.Enabled := False;
643           ORListBox1.Clear;
644           for i := 0 to uComponents.Count-1 do
645             if piece(uComponents[i],'^',1) = IntToStr(uCurrentComponent) then
646               ORListBox1.Items.Add(Pieces(uComponents[i],'^',3,10));
647           if ORListBox1.Items.Count > 0 then
648             begin
649               lblItems.Enabled := True;
650               ORListBox1.Enabled := True;
651               btnEditSubItems.Enabled := True;
652             end;
653         end;
654   end;