Procedure

TfrmODBBank.InitDialog

Directives

Override

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Protected

Overrides

TfrmODBase.InitDialog

Owner

TfrmODBBank

Declaration

procedure InitDialog; override;

Calls Hierarchy


TfrmODBBank.InitDialog
 ├TLabTest.Destroy
 └TfrmODBBank.DisableCommentPanels

Called-By Hierarchy


            TfrmODBBank.InitDialog
          TfrmODBBank.FormCreate┤ 
     TfrmODBBank.SetOnQuickOrder┤ 
     TfrmODBBank.cboQuickClick┘ │ 
      TfrmODBBank.btnRemoveClick┤ 
       TfrmODBBank.SetupDialog┤ │ 
TfrmODBBank.SetOnQuickOrder...┘ │ 
   TfrmODBBank.btnRemoveAllClick┘ 

Calls

Name Declaration Comments
TLabTest.Destroy destructor Destroy; override ; -
TfrmODBBank.DisableCommentPanels procedure DisableCommentPanels; -

Called-By

Name Declaration Comments
TfrmODBBank.btnRemoveAllClick procedure btnRemoveAllClick(Sender: TObject); -
TfrmODBBank.btnRemoveClick procedure btnRemoveClick(Sender: TObject); -
TfrmODBBank.FormCreate procedure FormCreate(Sender: TObject); -
TfrmODBBank.SetOnQuickOrder procedure SetOnQuickOrder; -


Source

441   procedure TfrmODBBank.InitDialog;
442   begin
443     inherited;
444     Changing := True;
445     if ALabTest <> nil then
446       begin
447         ALabTest.Destroy;
448         ALabTest := nil;
449       end;
450     DisableCommentPanels;
451     cboAvailTest.SelectByID(FLastItemID);
452     cboAvailComp.SelectByID(FLastItemID);
453     cboAvailTest.ItemIndex := -1;
454     StatusText('');
455     Changing := False ;
456   end;