Procedure

TfrmODCslt.BuildQuickTree

Module

fODConsult

Last Modified

7/15/2014 3:26:34 PM

Visibility

Private

Owner

TfrmODCslt

Declaration

procedure BuildQuickTree(QuickList: TStrings; const Parent: string; Node: TTreeNode);

Called-By Hierarchy


TfrmODCslt.BuildQuickTree
 TfrmODCslt.SetupDialog┘ 

Called-By

Name Declaration Comments
TfrmODCslt.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -


Source

519   procedure TfrmODCslt.BuildQuickTree(QuickList: TStrings; const Parent: string; Node: TTreeNode);
520   var
521     i: Integer;
522     QuickInfo, Name: string ;
523     ANode: TTreeNode;
524   begin
525     with QuickList do
526       begin
527         Node := treService.Items.AddChildObject(Node, 'Quick Orders', nil);
528         for i := 0 to Count - 1 do
529          begin
530           Name        := Piece(Strings[i], U, 2);
531           QuickInfo   := Strings[i];
532           ANode := treService.Items.AddChildObject(Node, Name, Pointer(QuickInfo));
533           TORTreeNode(ANode).StringData := QuickInfo;
534          end;
535       end;
536   end;