Procedure

Module

Last Modified

Visibility

Owner

Declaration

procedure FormDestroy(Sender: TObject);

Source

295   procedure TPSMainForm.FormDestroy(Sender: TObject);
296   var
297     IniFile : TIniFile;
298     I, RootDirIndex, PatternIndex : integer;
299   begin
300     IniFile := TIniFile.Create(ForceExtensionL(Application.ExeName, 'ini'));
301   
302     try
303       SetListFromCombo(FRootDirs, RootDirIndex, cmbRootDir);
304   
305       for I := 1 to FRootDirs.Count do
306         IniFile.WriteString('Options', 'RootDir'+_FastIntToStr(I), FRootDirs[I-1]);
307   
308       IniFile.WriteInteger('Options', 'RootDirIndex', RootDirIndex);
309   
310       SetListFromCombo(FPatterns, PatternIndex, cmbPattern);
311   
312       for I := 1 to FPatterns.Count do
313         IniFile.WriteString('Options', 'Pattern'+_FastIntToStr(I), FPatterns[I-1]);
314   
315       IniFile.WriteInteger('Options', 'PatternIndex', PatternIndex);
316   
317       IniFile.WriteBool('Options', 'IncludeSubFolders', chkIncludeSubFolders.Checked);
318       IniFile.WriteBool('Options', 'ListAllSearched', chkListAllSearched.Checked);
319       IniFile.WriteBool('Options', 'CaseSensitive', chkCaseSensitive.Checked);
320       IniFile.WriteBool('Options', 'ClearResults', chkClearResults.Checked);
321   
322       IniFile.WriteInteger('Options', 'Height', Height);
323       IniFile.WriteInteger('Options', 'Width', Width);
324   
325       IniFile.WriteBool('FileTypes', 'AllFiles', chkAllFiles.Checked);
326       IniFile.WriteBool('FileTypes', 'OnlyInc', chkOnlyInc.Checked);
327       IniFile.WriteBool('FileTypes', 'OnlyWeb', chkOnlyWeb.Checked);
328       IniFile.WriteBool('FileTypes', 'OnlySQL', chkOnlySql.Checked);
329       IniFile.WriteBool('FileTypes', 'OnlyDelphi', chkOnlyDelphi.Checked);
330       IniFile.WriteBool('FileTypes', 'OnlyVB', chkOnlyVB.Checked);
331       IniFile.WriteBool('FileTypes', 'OnlyTxt', chkOnlyTxt.Checked);
332   
333     finally
334       IniFile.Free;
335     end;
336   
337     SearchInfo.Free;
338     FPatterns.Free;
339     FRootDirs.Free;
340   end;