Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Added a vertical splitter (unfortunately, it's the wrong way around). Also added a main menu, but it shouldn't be linked to the same actionmanager as the toolbars.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:c35b3e81ac88d95a7064f40509d16d76372419e9
User & Date: tinus 2017-02-11 13:30:25
Context
2017-02-13
19:48
Show notifications on each change event. check-in: dd23419f8b user: tinus tags: trunk
2017-02-11
13:30
Added a vertical splitter (unfortunately, it's the wrong way around). Also added a main menu, but it shouldn't be linked to the same actionmanager as the toolbars. check-in: c35b3e81ac user: tinus tags: trunk
2017-02-10
23:41
Added (very) basic readme. check-in: 722df1cd28 user: tinus tags: trunk
Changes

Changes to .fossil-settings/ignore-glob.

9
10
11
12
13
14
15

~*.*
*.~*
*.bak
*.rej
*.org
*.res
*/__recover/*








>
9
10
11
12
13
14
15
16
~*.*
*.~*
*.bak
*.rej
*.org
*.res
*/__recover/*
*.tvsconfig

Changes to src/FMain.dfm.

13
14
15
16
17
18
19






20

21


22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
..
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
..
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

121
122
123
124
125
126
127
...
152
153
154
155
156
157
158




















159
160
161
162
163
164
165
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object splFoldersDetails: TSplitter
    Left = 256






    Top = 28

    Height = 274


    ResizeStyle = rsUpdate
  end
  object lvwFolders: TListView
    AlignWithMargins = True
    Left = 3
    Top = 31
    Width = 250
    Height = 268
    Align = alLeft
    BevelInner = bvNone
    BevelOuter = bvNone
    Checkboxes = True
    Columns = <
      item
        Caption = 'Folder'
................................................................................
    TabOrder = 0
    ViewStyle = vsReport
    OnSelectItem = lvwFoldersSelectItem
    OnItemChecked = lvwFoldersItemChecked
  end
  object pnlDetails: TPanel
    Left = 259
    Top = 28
    Width = 417
    Height = 274
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
  end
  object clbrMain: TCoolBar
    Left = 0
    Top = 0
    Width = 676
    Height = 28
    AutoSize = True
    BandBorderStyle = bsNone
    Bands = <
      item
        Control = acttbFolders
        ImageIndex = -1
        MinHeight = 26
        Width = 620
      end
      item
        Break = False
        Control = acttbWatchers
        ImageIndex = -1
        MinHeight = 23
        Width = 52
      end>
    Color = clMenuBar
    EdgeBorders = [ebBottom]
    ParentColor = False
    object acttbFolders: TActionToolBar
      Left = 11
      Top = 0
      Width = 607
      Height = 26
      ActionManager = modActions.actmgrMain
      Caption = 'Folders'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
................................................................................
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object acttbWatchers: TActionToolBar
      Left = 633
      Top = 1
      Width = 43
      Height = 23
      ActionManager = modActions.actmgrMain
      Caption = 'Watchers'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []

      ParentFont = False
      Spacing = 0
    end
  end
  object lvwLog: TListView
    Left = 0
    Top = 302
................................................................................
    DoubleBuffered = True
    ReadOnly = True
    RowSelect = True
    ParentDoubleBuffered = False
    SmallImages = imlIcons
    TabOrder = 3
    ViewStyle = vsReport




















  end
  object imlIcons: TImageList
    ColorDepth = cd32Bit
    Left = 152
    Top = 136
  end
end







>
>
>
>
>
>
|
>
|
>
>





|

|







 







|

|






|









|






|







|







 







|

|













>







 







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
..
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
...
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
...
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object splFoldersDetails: TSplitter
    Left = 256
    Top = 57
    Height = 242
    ResizeStyle = rsUpdate
  end
  object splLog: TSplitter
    Left = 0
    Top = 299
    Width = 676
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    ResizeStyle = rsUpdate
  end
  object lvwFolders: TListView
    AlignWithMargins = True
    Left = 3
    Top = 60
    Width = 250
    Height = 236
    Align = alLeft
    BevelInner = bvNone
    BevelOuter = bvNone
    Checkboxes = True
    Columns = <
      item
        Caption = 'Folder'
................................................................................
    TabOrder = 0
    ViewStyle = vsReport
    OnSelectItem = lvwFoldersSelectItem
    OnItemChecked = lvwFoldersItemChecked
  end
  object pnlDetails: TPanel
    Left = 259
    Top = 57
    Width = 417
    Height = 242
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
  end
  object clbrMain: TCoolBar
    Left = 0
    Top = 29
    Width = 676
    Height = 28
    AutoSize = True
    BandBorderStyle = bsNone
    Bands = <
      item
        Control = acttbFolders
        ImageIndex = -1
        MinHeight = 26
        Width = 583
      end
      item
        Break = False
        Control = acttbWatchers
        ImageIndex = -1
        MinHeight = 23
        Width = 89
      end>
    Color = clMenuBar
    EdgeBorders = [ebBottom]
    ParentColor = False
    object acttbFolders: TActionToolBar
      Left = 11
      Top = 0
      Width = 570
      Height = 26
      ActionManager = modActions.actmgrMain
      Caption = 'Folders'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
................................................................................
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Spacing = 0
    end
    object acttbWatchers: TActionToolBar
      Left = 596
      Top = 1
      Width = 80
      Height = 23
      ActionManager = modActions.actmgrMain
      Caption = 'Watchers'
      Color = clMenuBar
      ColorMap.DisabledFontColor = 7171437
      ColorMap.HighlightColor = clWhite
      ColorMap.BtnSelectedFont = clBlack
      ColorMap.UnusedColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = True
      ParentFont = False
      Spacing = 0
    end
  end
  object lvwLog: TListView
    Left = 0
    Top = 302
................................................................................
    DoubleBuffered = True
    ReadOnly = True
    RowSelect = True
    ParentDoubleBuffered = False
    SmallImages = imlIcons
    TabOrder = 3
    ViewStyle = vsReport
  end
  object mnuFolderWatcher: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 676
    Height = 29
    ActionManager = modActions.actmgrMain
    Caption = 'mnuFolderWatcher'
    Color = clMenuBar
    ColorMap.DisabledFontColor = 7171437
    ColorMap.HighlightColor = clWhite
    ColorMap.BtnSelectedFont = clBlack
    ColorMap.UnusedColor = clWhite
    EdgeBorders = [ebBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Spacing = 0
  end
  object imlIcons: TImageList
    ColorDepth = cd32Bit
    Left = 152
    Top = 136
  end
end

Changes to src/FMain.pas.

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25


26
27
28
29
30
31
32
33
34

35
36
37
38
39
40
41
..
48
49
50
51
52
53
54

55

56
57
58
59
60
61
62
63
64
65
66
67
68
69
70









71
72
73
74
75

76
77
78
79
80
81
82

83



84
85
86
87

88


89
90
91
92
93
94
95
  // Windows
  Windows, Messages,
  // VCL
  Graphics, Controls, Forms, Dialogs, ExtCtrls, WinXCtrls, ToolWin, ActnMan, ActnCtrls,
  ActnList, ImgList, PlatformDefaultStyleActnCtrls, ComCtrls, StdActns, Vcl.BandActn,
  Vcl.CustomizeDlg,
  // Own
  FileSystemWatcher;

type
  TfrmFolderWatcher = class(TForm)
    lvwFolders: TListView;
    splFoldersDetails: TSplitter;
    pnlDetails: TPanel;
    clbrMain: TCoolBar;
    acttbFolders: TActionToolBar;
    imlIcons: TImageList;
    acttbWatchers: TActionToolBar;
    lvwLog: TListView;


    procedure actFolderRemoveExecute(Sender: TObject);
    procedure lvwFoldersSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure lvwFoldersItemChecked(Sender: TObject; Item: TListItem);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure WatchersNotify(Sender: TObject; const Watcher: TFileSystemWatcher; Action: TCollectionNotification);
  private
    { Private declarations }
    FSettings: TIniFile;


    function GetFolderIconIndex(const Folder: string): Integer;
  public
    { Public declarations }
  end;

var
................................................................................
  M_Actions;

{$R *.dfm}

procedure TfrmFolderWatcher.FormCreate(Sender: TObject);
var
  tmpIcon: TIcon;

begin

  FSettings := TIniFile.Create(TPath.Combine(TSpecialFolders.Settings, Application.Name + '.ini'));

  tmpIcon := TIcon.Create;
  try
    tmpIcon.Handle := LoadIcon(0, IDI_ERROR);
    imlIcons.InsertIcon(0, tmpIcon);
    tmpIcon.Handle := LoadIcon(0, IDI_WARNING);
    imlIcons.InsertIcon(0, tmpIcon);
    tmpIcon.Handle := LoadIcon(0, IDI_INFORMATION);
    imlIcons.InsertIcon(0, tmpIcon);
  finally
    tmpIcon.Free;
  end;

//  ActiveFolder := FSettings.ReadString('Settings', 'ActiveFolder', '');









end {TfrmFolderWatcher.FormCreate};

procedure TfrmFolderWatcher.FormDestroy(Sender: TObject);
begin
  FSettings.Free;

end;

function TfrmFolderWatcher.GetFolderIconIndex(const Folder: string): Integer;
var
  Icon: TIcon;
begin
  Result := -1;

  // TODO: keep track of icons for all folders, and return it if we already have it.



  // TODO: otherwise, retrieve it
  Icon := ShellUtils.GetShellFolderIcon(Folder, False, False);
  try
    if not Icon.Empty then

      Result := imlIcons.AddIcon(Icon);


  finally
    Icon.Free;
  end;
end;

procedure TfrmFolderWatcher.actFolderRemoveExecute(Sender: TObject);
resourcestring







|











>
>









>







 







>

>




|


|
|
|




|
>
>
>
>
>
>
>
>
>





>







>
|
>
>
>
|


|
>

>
>







7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
..
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
  // Windows
  Windows, Messages,
  // VCL
  Graphics, Controls, Forms, Dialogs, ExtCtrls, WinXCtrls, ToolWin, ActnMan, ActnCtrls,
  ActnList, ImgList, PlatformDefaultStyleActnCtrls, ComCtrls, StdActns, Vcl.BandActn,
  Vcl.CustomizeDlg,
  // Own
  FileSystemWatcher, Vcl.ActnMenus;

type
  TfrmFolderWatcher = class(TForm)
    lvwFolders: TListView;
    splFoldersDetails: TSplitter;
    pnlDetails: TPanel;
    clbrMain: TCoolBar;
    acttbFolders: TActionToolBar;
    imlIcons: TImageList;
    acttbWatchers: TActionToolBar;
    lvwLog: TListView;
    splLog: TSplitter;
    mnuFolderWatcher: TActionMainMenuBar;
    procedure actFolderRemoveExecute(Sender: TObject);
    procedure lvwFoldersSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure lvwFoldersItemChecked(Sender: TObject; Item: TListItem);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure WatchersNotify(Sender: TObject; const Watcher: TFileSystemWatcher; Action: TCollectionNotification);
  private
    { Private declarations }
    FSettings: TIniFile;
    FFolderIconIndexes: TDictionary<string,integer>;

    function GetFolderIconIndex(const Folder: string): Integer;
  public
    { Public declarations }
  end;

var
................................................................................
  M_Actions;

{$R *.dfm}

procedure TfrmFolderWatcher.FormCreate(Sender: TObject);
var
  tmpIcon: TIcon;
  tmpBitmap: TBitmap;
begin
  FFolderIconIndexes := TDictionary<string,integer>.Create;
  FSettings := TIniFile.Create(TPath.Combine(TSpecialFolders.Settings, Application.Name + '.ini'));

  tmpIcon := TIcon.Create;
  try
    tmpIcon.Handle := LoadIcon(0, IDI_INFORMATION);
    imlIcons.InsertIcon(0, tmpIcon);
    tmpIcon.Handle := LoadIcon(0, IDI_WARNING);
    imlIcons.InsertIcon(1, tmpIcon);
    tmpIcon.Handle := LoadIcon(0, IDI_ERROR);
    imlIcons.InsertIcon(2, tmpIcon);
  finally
    tmpIcon.Free;
  end;

  tmpBitmap := TBitmap.Create;
  try
    tmpBitmap.SetSize(clbrMain.Height, clbrMain.Height);
    tmpBitmap.Canvas.Brush.Color := clMenuBar;
    tmpBitmap.Canvas.Brush.Style := bsSolid;
    tmpBitmap.Canvas.FillRect(Rect(0, 0, tmpBitmap.Width, tmpBitmap.Height));
    clbrMain.Bitmap.Assign(tmpBitmap);
  finally
    tmpBitmap.Free;
  end;
end {TfrmFolderWatcher.FormCreate};

procedure TfrmFolderWatcher.FormDestroy(Sender: TObject);
begin
  FSettings.Free;
  FFolderIconIndexes.Free;
end;

function TfrmFolderWatcher.GetFolderIconIndex(const Folder: string): Integer;
var
  Icon: TIcon;
begin
  Result := -1;

  // keep track of icons for all folders, and return it if we already have it.
  if FFolderIconIndexes.TryGetValue(Folder, Result) then
    Exit;

  // otherwise, retrieve the icon
  Icon := ShellUtils.GetShellFolderIcon(Folder, False, False);
  try
    if not Icon.Empty then begin
      // Add it to the imagelist, and return its index
      Result := imlIcons.AddIcon(Icon);
      FFolderIconIndexes.Add(Folder, Result);
    end;
  finally
    Icon.Free;
  end;
end;

procedure TfrmFolderWatcher.actFolderRemoveExecute(Sender: TObject);
resourcestring

Changes to src/prj/FolderWatcher.dproj.

66
67
68
69
70
71
72

73
74
75
76
77
78
79
80
81
82
83
84
..
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
...
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
        <DCC_E>false</DCC_E>
        <DCC_N>false</DCC_N>
        <DCC_S>false</DCC_S>
        <DCC_F>false</DCC_F>
        <DCC_K>false</DCC_K>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win32)'!=''">

        <Icon_MainIcon>FolderWatcher_Icon.ico</Icon_MainIcon>
        <BT_BuildType>Debug</BT_BuildType>
        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;tmsexd;vclFireDAC;IndySystem;OmniThreadLibraryRuntime;UIRibbonPackageDR;SysToolsDBDR;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;DL_Control;vclimg;SysToolsDR;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;svn;Intraweb;FireDACSqliteDriver;FireDACPgDriver;wPDF3;inetdb;VirtualTreesDR;RaizeComponentsVcl;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;FireDACIBDriver;fmx;fmxdae;xmlrtl;soapmidas;Tee;fmxobj;vclwinx;EasyListviewD;rtl;VirtualShellToolsD;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;SynEditDR;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;tmsd;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;VCSInfo;adortl;AbbreviaVCL;vclie;MPCommonLibD;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;PowerPDFDR;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win64)'!=''">
        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;OmniThreadLibraryRuntime;UIRibbonPackageDR;SysToolsDBDR;tethering;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;DL_Control;vclimg;SysToolsDR;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;Intraweb;FireDACSqliteDriver;FireDACPgDriver;wPDF3;inetdb;VirtualTreesDR;RaizeComponentsVcl;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;FireDACIBDriver;fmx;fmxdae;xmlrtl;soapmidas;Tee;fmxobj;vclwinx;EasyListviewD;rtl;VirtualShellToolsD;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;SynEditDR;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;AbbreviaVCL;vclie;MPCommonLibD;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;PowerPDFDR;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
................................................................................
        <DCC_RemoteDebug>true</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
        <Icon_MainIcon>FolderWatcher_Icon.ico</Icon_MainIcon>
        <AppEnableHighDPI>true</AppEnableHighDPI>
        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
        <DCC_DebugInformation>0</DCC_DebugInformation>
................................................................................
            <Delphi.Personality>
                <Source>
                    <Source Name="MainSource">FolderWatcher.dpr</Source>
                </Source>
                <Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k240.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp240.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\AbbreviaVCLDesign310.bpl">File W:\LIB\BPL\AbbreviaVCLDesign310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\DL_Control310.bpl">File W:\LIB\BPL\DL_Control310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\RaizeComponentsVcl_Design310.bpl">File W:\LIB\BPL\RaizeComponentsVcl_Design310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\sdlbasepack310.bpl">File W:\LIB\BPL\sdlbasepack310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\sdlmathpack310.bpl">File W:\LIB\BPL\sdlmathpack310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\tmsded310.bpl">File W:\LIB\BPL\tmsded310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\wPDF3310.bpl">File W:\LIB\BPL\wPDF3310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\Lib\BPL\RaizeComponentsVcl310.bpl">File W:\Lib\BPL\RaizeComponentsVcl310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\Lib\BPL\tmsd310.bpl">File W:\Lib\BPL\tmsd310.bpl not found</Excluded_Packages>
                    <Excluded_Packages Name="W:\Lib\BPL\tmsexd310.bpl">File W:\Lib\BPL\tmsexd310.bpl not found</Excluded_Packages>
                </Excluded_Packages>
            </Delphi.Personality>
            <Deployment Version="3">
                <DeployFile LocalName="..\..\out\Win32\Debug\FolderWatcher.exe" Configuration="Debug" Class="ProjectOutput">
                    <Platform Name="Win32">
                        <RemoteName>FolderWatcher.exe</RemoteName>
                        <Overwrite>true</Overwrite>







>




<







 







<







 







|
|
|
|
|
|
|
|
<
<







66
67
68
69
70
71
72
73
74
75
76
77

78
79
80
81
82
83
84
..
94
95
96
97
98
99
100

101
102
103
104
105
106
107
...
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155


156
157
158
159
160
161
162
        <DCC_E>false</DCC_E>
        <DCC_N>false</DCC_N>
        <DCC_S>false</DCC_S>
        <DCC_F>false</DCC_F>
        <DCC_K>false</DCC_K>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win32)'!=''">
        <AppEnableHighDPI>true</AppEnableHighDPI>
        <Icon_MainIcon>FolderWatcher_Icon.ico</Icon_MainIcon>
        <BT_BuildType>Debug</BT_BuildType>
        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;tmsexd;vclFireDAC;IndySystem;OmniThreadLibraryRuntime;UIRibbonPackageDR;SysToolsDBDR;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;DL_Control;vclimg;SysToolsDR;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;svn;Intraweb;FireDACSqliteDriver;FireDACPgDriver;wPDF3;inetdb;VirtualTreesDR;RaizeComponentsVcl;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;FireDACIBDriver;fmx;fmxdae;xmlrtl;soapmidas;Tee;fmxobj;vclwinx;EasyListviewD;rtl;VirtualShellToolsD;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;SynEditDR;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;tmsd;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;VCSInfo;adortl;AbbreviaVCL;vclie;MPCommonLibD;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;PowerPDFDR;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>

        <VerInfo_Locale>1033</VerInfo_Locale>
        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win64)'!=''">
        <DCC_UsePackage>DBXSqliteDriver;IndyIPCommon;RESTComponents;bindcompdbx;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;OmniThreadLibraryRuntime;UIRibbonPackageDR;SysToolsDBDR;tethering;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;DL_Control;vclimg;SysToolsDR;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;Intraweb;FireDACSqliteDriver;FireDACPgDriver;wPDF3;inetdb;VirtualTreesDR;RaizeComponentsVcl;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;FireDACIBDriver;fmx;fmxdae;xmlrtl;soapmidas;Tee;fmxobj;vclwinx;EasyListviewD;rtl;VirtualShellToolsD;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;SynEditDR;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;AbbreviaVCL;vclie;MPCommonLibD;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;IndyProtocols;inetdbxpress;PowerPDFDR;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
    </PropertyGroup>
................................................................................
        <DCC_RemoteDebug>true</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
        <Icon_MainIcon>FolderWatcher_Icon.ico</Icon_MainIcon>
        <AppEnableHighDPI>true</AppEnableHighDPI>
        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
        <VerInfo_Locale>1033</VerInfo_Locale>

        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
        <DCC_DebugInformation>0</DCC_DebugInformation>
................................................................................
            <Delphi.Personality>
                <Source>
                    <Source Name="MainSource">FolderWatcher.dpr</Source>
                </Source>
                <Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k240.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp240.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\AbbreviaVCLDesign310.bpl">Abbrevia Design - VCL310</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\DL_Control310.bpl">Dgmr Library Controls V310</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\RaizeComponentsVcl_Design310.bpl">Raize Components Design</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\sdlbasepack310.bpl">SDL BasePack 10.4</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\sdlmathpack310.bpl">SDL MathPack 10.4</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\tmsded310.bpl">TMS Component Pack design time support</Excluded_Packages>
                    <Excluded_Packages Name="W:\LIB\BPL\wPDF3310.bpl">(untitled)</Excluded_Packages>
                    <Excluded_Packages Name="W:\Lib\BPL\RaizeComponentsVcl310.bpl">Raize Components VCL</Excluded_Packages>


                </Excluded_Packages>
            </Delphi.Personality>
            <Deployment Version="3">
                <DeployFile LocalName="..\..\out\Win32\Debug\FolderWatcher.exe" Configuration="Debug" Class="ProjectOutput">
                    <Platform Name="Win32">
                        <RemoteName>FolderWatcher.exe</RemoteName>
                        <Overwrite>true</Overwrite>