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

lcl: formatting

Browse Source 
git-svn-id: trunk@24708 -
This commit is contained in:
paul 2010-04-19 03:13:55 +00:00
parent a06ad84100
commit de7e3bb122
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/control.inc
View File

@ -673,7 +673,7 @@ end;
function TControl.FormIsUpdating: boolean;
begin
Result:=(Parent<>nil) and Parent.FormIsUpdating;
Result := Assigned(Parent) and Parent.FormIsUpdating;
end;
{------------------------------------------------------------------------------
@ -3883,9 +3883,9 @@ begin
{$IFDEF OldAutoSize}
Result:=IsControlVisible;
{$ELSE}
Result:=IsControlVisible;
if Result and (Parent<>nil) then
Result:=Parent.HandleObjectShouldBeVisible;
Result := IsControlVisible;
if Result and Assigned(Parent) then
Result := Parent.HandleObjectShouldBeVisible;
{$ENDIF}
//DebugLn(['TControl.HandleObjectShouldBeVisible ',DbgSName(Self),' ',Result]);
end;

6
lcl/include/wincontrol.inc
View File

@ -5389,7 +5389,8 @@ begin
Form := GetParentForm(Self);
if Form <> nil then
Form.FocusControl(Self)
else if IsVisible and HandleAllocated then
else
if IsVisible and HandleAllocated then
LCLIntf.SetFocus(Handle);
end;
@ -5404,8 +5405,7 @@ end;
{------------------------------------------------------------------------------
TWinControl KeyDownBeforeInterface
------------------------------------------------------------------------------}
procedure TWinControl.KeyDownBeforeInterface(var Key: Word; Shift: TShiftState
);
procedure TWinControl.KeyDownBeforeInterface(var Key: Word; Shift: TShiftState);
begin
KeyDown(Key,Shift);
end;