paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 12:00:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

set FindInFile combobox texts to first item in history

Browse Source 
git-svn-id: trunk@5974 -
This commit is contained in:
vincents 2004-09-11 20:26:59 +00:00
parent 225cd32466
commit 22e003908d
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/uniteditor.pp
View File

@ -3442,15 +3442,21 @@ begin
end;//CreateFindInFilesDialog
procedure TSourceNotebook.LoadFindInFilesHistory(ADialog: TLazFindInFilesDialog);
procedure AssignToComboBox(AComboBox: TComboBox; Strings: TStrings);
begin
AComboBox.Items.Assign(Strings);
if AComboBox.Items.Count>0 then
AComboBox.ItemIndex := 0;
end;
begin
if Assigned(ADialog) then
begin
with ADialog do
with ADialog, InputHistories do
begin
TextToFindComboBox.Items.Assign(InputHistories.FindHistory);
DirectoryComboBox.Items.Assign(InputHistories.FindInFilesPathHistory);
FileMaskComboBox.Items.Assign(InputHistories.FindInFilesMaskHistory);
Options:=InputHistories.FindInFilesSearchOptions;
AssignToComboBox(TextToFindComboBox, FindHistory);
AssignToComboBox(DirectoryComboBox, FindInFilesPathHistory);
AssignToComboBox(FileMaskComboBox, FindInFilesMaskHistory);
Options:=FindInFilesSearchOptions;
end;
end;
end;