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

lcl: remove unneeded SetFocusedForm argument

Browse Source 
git-svn-id: trunk@25301 -
This commit is contained in:
paul 2010-05-10 14:32:45 +00:00
parent 0868cb6177
commit b7e13f130d
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -942,7 +942,7 @@ type
function GetWidth : Integer;
procedure AddForm(AForm: TCustomForm);
procedure RemoveForm(AForm: TCustomForm);
function SetFocusedForm(AForm: TCustomForm; AModal: Boolean): Boolean;
function SetFocusedForm(AForm: TCustomForm): Boolean;
procedure SetCursor(const AValue: TCursor);
procedure SetCursors(AIndex: Integer; const AValue: HCURSOR);
procedure SetHintFont(const AValue: TFont);

2
lcl/include/customform.inc
View File

@ -2216,7 +2216,7 @@ begin
begin
Control.ControlState := Control.ControlState + [csFocusing];
try
if not Screen.SetFocusedForm(Self, False) then
if not Screen.SetFocusedForm(Self) then
Exit;
// update ActiveControls of all parent forms
CurControl := Control.Parent;

2
lcl/include/screen.inc
View File

@ -763,7 +763,7 @@ begin
Application.UpdateVisible;
end;
function TScreen.SetFocusedForm(AForm: TCustomForm; AModal: Boolean): Boolean;
function TScreen.SetFocusedForm(AForm: TCustomForm): Boolean;
var
LastState: TFocusState;
begin