mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0002661] Error: [TCustomForm.SetFocus] frmFindView:TfrmFindView Can not focus

Browse source
This commit is contained in:
Alexander Koblov 2021-07-29 23:36:34 +03:00
commit 0e423b03d1
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/ffindview.lfm
View file

@ -16,6 +16,7 @@ object frmFindView: TfrmFindView
ClientHeight = 151
ClientWidth = 430
DesignTimePPI = 120
OnActivate = FormActivate
OnShow = FormShow
Position = poOwnerFormCenter
LCLVersion = '2.0.12.0'

7
src/ffindview.pas
View file

@ -35,6 +35,7 @@ type
procedure cbBackwardsChange(Sender: TObject);
procedure cbRegExpChange(Sender: TObject);
procedure chkHexChange(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnFindClick(Sender: TObject);
procedure cbDataToFindKeyUp(Sender: TObject; var Key: Word;
@ -61,7 +62,6 @@ begin
cbDataToFind.Text:= cbDataToFind.Items[0];
end;
cbDataToFind.SelectAll;
cbDataToFind.SetFocus;
end;
procedure TfrmFindView.chkHexChange(Sender: TObject);
@ -75,6 +75,11 @@ begin
cbCaseSens.Enabled:= not chkHex.Checked;
end;
procedure TfrmFindView.FormActivate(Sender: TObject);
begin
cbDataToFind.SetFocus;
end;
procedure TfrmFindView.cbBackwardsChange(Sender: TObject);
begin
if cbBackwards.Checked then cbRegExp.Checked:= False