paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 00:27:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

improved focus debugging output

Browse Source 
git-svn-id: trunk@3063 -
This commit is contained in:
mattias 2002-08-18 08:57:26 +00:00
parent 9996bd64a1
commit 9bca748989
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/uniteditor.pp
View File

@ -774,7 +774,7 @@ begin
FindReplaceDlg.Top:=ATop; FindReplaceDlg.Top:=ATop;
if (FindReplaceDlg.ShowModal = mrCancel) then begin if (FindReplaceDlg.ShowModal = mrCancel) then begin
EditorComponent.SetFocus; FEditor.SetFocus;
exit; exit;
end; end;
@ -1544,10 +1544,8 @@ Begin
end else begin end else begin
FEditor.Parent:=AParent; FEditor.Parent:=AParent;
end; end;
FEditor.SetFocus;
end; end;
procedure TSourceEditor.SetCodeBuffer(NewCodeBuffer: TCodeBuffer); procedure TSourceEditor.SetCodeBuffer(NewCodeBuffer: TCodeBuffer);
begin begin
if NewCodeBuffer=FCodeBuffer then exit; if NewCodeBuffer=FCodeBuffer then exit;
@ -4129,9 +4127,8 @@ begin
Default:=false; Default:=false;
Visible := True; Visible := True;
end; end;
Edit1.SetFocus;
end; end;
ActiveControl:=Edit1;
end; end;
procedure TfrmGoto.Edit1KeyDown(Sender: TObject; var Key:Word; procedure TfrmGoto.Edit1KeyDown(Sender: TObject; var Key:Word;