Procedure

TfrmGraphProfiles.cboAllItemsNeedData

Module

fGraphProfiles

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphProfiles

Declaration

procedure cboAllItemsNeedData(Sender: TObject; const StartFrom: String;
  Direction, InsertAt: Integer);

Calls Hierarchy


TfrmGraphProfiles.cboAllItemsNeedData
 └rpcLookupItems
   └onoff

Calls

Name Declaration Comments
rpcLookupItems function rpcLookupItems(const filename, startfrom: string; direction: integer): TStrings; -


Source

497   procedure TfrmGraphProfiles.cboAllItemsNeedData(Sender: TObject;
498     const StartFrom: String; Direction, InsertAt: Integer);
499   var
500     filetype: string;
501   begin
502     if lstSources.ItemIndex = -1 then exit;
503     filetype := Piece(lstSources.Items[lstSources.ItemIndex], '^', 1);
504     cboAllItems.ForDataUse(rpcLookupItems(filetype, StartFrom, Direction));
505   end;