Procedure

TfrmProblems.LoadUserProbs

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Owner

TfrmProblems

Declaration

procedure LoadUserProbs(AList:TstringList);

Calls Hierarchy


TfrmProblems.LoadUserProbs
 └UserProblemList

Called-By Hierarchy


                     TfrmProblems.LoadUserProbs
                 TfrmProblems.lstCatPickClick┘ 
                  TfrmProblems.LoadUserCats┘   
            TfrmProblems.lstProbActsClick┤     
        TfrmProblems.wgProbDataDblClick┤ │     
              TfrmProblems.lstViewClick┘ │     
      TfrmProblems.HighlightDuplicate┘   │     
            TfrmProblems.AddProblem┤     │     
 TfrmProblems.lstProbActsClick...┤ │     │     
    TfrmProblems.lstProbPickClick┤ │     │     
 TfrmProblems.lstProbPickDblClick┤ │     │     
 TfrmProblems.edProbEntKeyPress┘ │ │     │     
         TfrmProblems.UMPLLexicon┘ │     │     
      TfrmdlgProb.bbChangeProbClick┘     │     
                TfrmProblems.LoadProblems┘     
               TfrmProblems.DisplayPage┤       
TfrmProblems.mnuViewRestoreDefaultClick┤       
                  TfrmProblems.FormShow┘       

Calls

Name Declaration Comments
UserProblemList function UserProblemList(CategoryIEN: string): TStrings ; -

Called-By

Name Declaration Comments
TfrmProblems.lstCatPickClick procedure lstCatPickClick(Sender: TObject); -


Source

1202  procedure TfrmProblems.LoadUserProbs(AList:TStringList);
1203  var
1204    catien: string;
1205  begin
1206    if not PLUser.usUseLexicon then exit; {Bail out if not to use lexicon}
1207    if lstCatPick.itemindex < 0 then exit; {bail out}
1208    Alist.clear;
1209    catien := IntToStr(lstCatPick.itemIEN);
1210    FastAssign(UserProblemList(catien), AList) ;
1211    {File 125.12, Each line contains: PROBLEM^DISPLAY TEXT^CODE^CODE IFN }
1212    {code ifn is derived}
1213    FastAssign(Alist, lstProbPick.Items);
1214  end;