Procedure

Module

Last Modified

Visibility

Owner

Declaration

procedure cmbRootDirExit(Sender: TObject);

Source

420   procedure TPSMainForm.cmbRootDirExit(Sender: TObject);
421   var
422     Txt : string;
423     Idx : integer;
424   begin
425     Txt := cmbRootDir.Text;
426   
427     if Txt <> '' then
428     begin
429       Idx := cmbRootDir.Items.IndexOf(Txt);
430   
431       if Idx = -1 then
432         cmbRootDir.Items.Add(Txt);
433     end;
434   end;