paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 11:59:20 +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; function GetWidth : Integer;
procedure AddForm(AForm: TCustomForm); procedure AddForm(AForm: TCustomForm);
procedure RemoveForm(AForm: TCustomForm); procedure RemoveForm(AForm: TCustomForm);
function SetFocusedForm(AForm: TCustomForm; AModal: Boolean): Boolean; function SetFocusedForm(AForm: TCustomForm): Boolean;
procedure SetCursor(const AValue: TCursor); procedure SetCursor(const AValue: TCursor);
procedure SetCursors(AIndex: Integer; const AValue: HCURSOR); procedure SetCursors(AIndex: Integer; const AValue: HCURSOR);
procedure SetHintFont(const AValue: TFont); procedure SetHintFont(const AValue: TFont);

2
lcl/include/customform.inc
View File

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

2
lcl/include/screen.inc
View File

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