Procedure

Module

Last Modified

Visibility

Owner

Declaration

procedure FormCreate(Sender: TObject);

Source

230   procedure TPSMainForm.FormCreate(Sender: TObject);
231   var
232     IniFile : TIniFile;
233     I, RootDirIndex, PatternIndex : integer;
234     S : string;
235   begin
236     RzStatusPane.Caption := 'Version '+GetFileVersion;
237     RzStatusPane1.Caption := GetCopyright;
238   
239     FRootDirs := TStringList.Create;
240     FPatterns := TStringList.Create;
241   
242     SearchInfo := TList.Create;
243     IniFile := TIniFile.Create(ForceExtensionL(Application.ExeName, 'ini'));
244   
245     try
246       I := 1;
247   
248       repeat
249         S := IniFile.ReadString('Options', 'RootDir'+_FastIntToStr(I), '');
250         inc(I);
251   
252         if S <> '' then
253           FRootDirs.Add(S);
254       until S = '';
255   
256       RootDirIndex := IniFile.ReadInteger('Options', 'RootDirIndex', -1);
257       cmbRootDir.Items.Assign(FRootDirs);
258       CmbSelItem(cmbRootDir, RootDirIndex);
259   
260       I := 1;
261   
262       repeat
263         S := IniFile.ReadString('Options', 'Pattern'+_FastIntToStr(I), '');
264         inc(I);
265   
266         if S <> '' then
267           FPatterns.Add(S);
268       until S = '';
269   
270       PatternIndex := IniFile.ReadInteger('Options', 'PatternIndex', -1);
271       cmbPattern.Items.Assign(FPatterns);
272       CmbSelItem(cmbPattern, PatternIndex);
273   
274       chkIncludeSubFolders.Checked := IniFile.ReadBool('Options', 'IncludeSubFolders', true);
275       chkListAllSearched.Checked := IniFile.ReadBool('Options', 'ListAllSearched', true);
276       chkCaseSensitive.Checked := IniFile.ReadBool('Options', 'CaseSensitive', false);
277       chkClearResults.Checked := IniFile.ReadBool('Options', 'ClearResults', true);
278   
279       Height := IniFile.ReadInteger('Options', 'Height', 460);
280       Width := IniFile.ReadInteger('Options', 'Width', 620);
281   
282       chkAllFiles.Checked := IniFile.ReadBool('FileTypes', 'AllFiles', true);
283       chkOnlyInc.Checked := IniFile.ReadBool('FileTypes', 'OnlyInc', false);
284       chkOnlyWeb.Checked := IniFile.ReadBool('FileTypes', 'OnlyWeb', false);
285       chkOnlySql.Checked := IniFile.ReadBool('FileTypes', 'OnlySQL', false);
286       chkOnlyDelphi.Checked := IniFile.ReadBool('FileTypes', 'OnlyDelphi', false);
287       chkOnlyVB.Checked := IniFile.ReadBool('FileTypes', 'OnlyVB', false);
288       chkOnlyTxt.Checked := IniFile.ReadBool('FileTypes', 'OnlyTxt', false);
289   
290     finally
291       IniFile.Free;
292     end;
293   end;