Procedure

TfrmSkinTests.cboSkinResultsChange

Module

fSkinTest

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmSkinTests

Declaration

procedure cboSkinResultsChange(Sender: TObject);

Calls Hierarchy


TfrmSkinTests.cboSkinResultsChange
 ├TfrmPCEBaseMain.NotUpdating
 └TfrmPCEBaseMain.GridChanged
   ├TfrmPCEBaseMain.BeginUpdate
   ├TfrmPCEBaseGrid.SaveGridSelected
   ├TPCEItem.ItemStr
   ├TfrmPCEBaseGrid.RestoreGridSelected
   ├TfrmPCEBaseGrid.SyncGridData
   │ ├TfrmPCEBaseGrid.SaveGridSelected
   │ ├TfrmPCEBaseGrid.RestoreGridSelected
   │ └TfrmPCEBaseGrid.SyncGridHeader
   ├TfrmPCEBaseMain.EndUpdate
   └TfrmPCEBaseMain.UpdateControls
     ├TfrmPCEBaseMain.NotUpdating
     ├TfrmPCEBaseMain.BeginUpdate
     ├TfrmPCEBaseGrid.GetGridIndex
     └TfrmPCEBaseMain.EndUpdate

Calls

Name Declaration Comments
TfrmPCEBaseMain.GridChanged procedure GridChanged; virtual; -
TfrmPCEBaseMain.NotUpdating function NotUpdating: boolean; -


Source

45    procedure TfrmSkinTests.cboSkinResultsChange(Sender: TObject);
46    var
47      i: integer;
48    
49    begin
50      if(NotUpdating) and (cboSkinResults.Text <> '') then
51      begin
52        for i := 0 to lbGrid.Items.Count-1 do
53          if(lbGrid.Selected[i]) then
54            TPCESkin(lbGrid.Items.Objects[i]).Results := cboSkinResults.ItemID;
55        GridChanged;
56      end;
57    end;