Changeset 17 for trunk/Form


Ignore:
Timestamp:
Apr 2, 2016, 8:57:38 PM (9 years ago)
Author:
chronos
Message:
  • Added: Handling exceptions raised inside background thread.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Form/UFormMain.pas

    r16 r17  
    225225begin
    226226  with Core.Project do
    227   if DriveInfo.Path <> TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]).Path then begin
     227  if (ComboBoxDrive.ItemIndex <> -1) and (DriveInfo.Path <> TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]).Path) then begin
    228228    DriveInfo.Assign(TDriveInfo(ComboBoxDrive.Items.Objects[ComboBoxDrive.ItemIndex]));
    229229    Modified := True;
Note: See TracChangeset for help on using the changeset viewer.