Procedure

TfrmGraphProfiles.cboAllItemsChange

Module

fGraphProfiles

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmGraphProfiles

Declaration

procedure cboAllItemsChange(Sender: TObject);

Called-By Hierarchy


           TfrmGraphProfiles.cboAllItemsChange
          TfrmGraphProfiles.lstSourcesChange┤ 
       TfrmGraphProfiles.radSourceAllClick┤ │ 
               TfrmGraphProfiles.IDProfile┘ │ 
        TfrmGraphProfiles.btnRenameClick┤   │ 
          TfrmGraphProfiles.btnSaveClick┘   │ 
     TfrmGraphProfiles.lstOtherSourcesChange┤ 
       TfrmGraphProfiles.radSourceAllClick┘ │ 
             TfrmGraphProfiles.btnClearClick┤ 
          TfrmGraphProfiles.btnDeleteClick┤ │ 
            TfrmGraphProfiles.IDProfile...┘ │ 
             TfrmGraphProfiles.AllItemsAfter┘ 
     TfrmGraphProfiles.lstSourcesChange...┤   
TfrmGraphProfiles.lstOtherSourcesChange...┘   

Called-By

Name Declaration Comments
TfrmGraphProfiles.AllItemsAfter procedure AllItemsAfter(var filetype, typedata: string); -
TfrmGraphProfiles.btnClearClick procedure btnClearClick(Sender: TObject); -
TfrmGraphProfiles.lstOtherSourcesChange procedure lstOtherSourcesChange(Sender: TObject); -
TfrmGraphProfiles.lstSourcesChange procedure lstSourcesChange(Sender: TObject); -


Source

449   procedure TfrmGraphProfiles.cboAllItemsChange(Sender: TObject);
450   var
451    astring: string;
452   begin
453    if (Sender is TORListBox) then
454      btnClear.Enabled := btnSave.Enabled or ((Sender as TORListBox).Items.Count > 0)
455    else if (Sender is TORComboBox) then
456      btnClear.Enabled := btnSave.Enabled or ((Sender as TORComboBox).Items.Count > 0);
457    if lstItemsSelection.Visible then
458    begin
459      btnAddAll.Enabled := lstItemsSelection.Items.Count > 0;
460      btnAdd.Enabled := lstItemsSelection.ItemIndex > -1;
461      if btnAdd.Enabled then
462        astring := lstItemsSelection.Items[lstItemsSelection.ItemIndex];
463    end
464    else
465    begin
466      btnAddAll.Enabled := cboAllItems.Items.Count > 0;
467      btnAdd.Enabled := cboAllItems.ItemIndex > -1;
468    end;
469   end;