Procedure

Module

Last Modified

Visibility

Owner

Declaration

procedure CmdSelStartDirClick(Sender: TObject);

Source

204   procedure TPSMainForm.CmdSelStartDirClick(Sender: TObject);
205   var
206     Idx : integer;
207     S : string;
208   begin
209     StBrowser.AdditionalText := 'Select a root directory';
210     StBrowser.SelectedFolder := cmbRootDir.Text;
211   
212     if StBrowser.Execute then
213     begin
214       S := StBrowser.Path;
215       Idx := cmbRootDir.Items.IndexOf(S);
216   
217       if Idx <> -1 then // existing item modified
218         cmbRootDir.Items[Idx] := S
219       else
220       begin // new item added
221         cmbRootDir.Items.Add(S);
222         Idx := cmbRootDir.Items.Count-1;
223       end;
224   
225       cmbRootDir.Text := S;
226       cmbRootDir.ItemIndex := Idx;
227     end;
228   end;