paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 13:50:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove duplicate code in TControlChildSizing. Suggested by lagprogramming.

Browse Source
This commit is contained in:
Juha 2023-04-05 01:05:41 +03:00
parent 5913dac8f8
commit 612dd84ec9
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/controls.pp
View File

@ -4032,11 +4032,6 @@ begin
if Source is TControlChildSizing then begin if Source is TControlChildSizing then begin
SrcSizing:=TControlChildSizing(Source); SrcSizing:=TControlChildSizing(Source);
if IsEqual(SrcSizing) then exit; if IsEqual(SrcSizing) then exit;
FEnlargeHorizontal:=SrcSizing.EnlargeHorizontal;
FEnlargeVertical:=SrcSizing.EnlargeVertical;
FShrinkHorizontal:=SrcSizing.ShrinkHorizontal;
FShrinkVertical:=SrcSizing.ShrinkVertical;
FEnlargeHorizontal:=SrcSizing.EnlargeHorizontal; FEnlargeHorizontal:=SrcSizing.EnlargeHorizontal;
FEnlargeVertical:=SrcSizing.EnlargeVertical; FEnlargeVertical:=SrcSizing.EnlargeVertical;
FShrinkHorizontal:=SrcSizing.ShrinkHorizontal; FShrinkHorizontal:=SrcSizing.ShrinkHorizontal;
@ -4061,10 +4056,6 @@ end;
function TControlChildSizing.IsEqual(Sizing: TControlChildSizing): Boolean; function TControlChildSizing.IsEqual(Sizing: TControlChildSizing): Boolean;
begin begin
Result:=(FEnlargeHorizontal=Sizing.EnlargeHorizontal) Result:=(FEnlargeHorizontal=Sizing.EnlargeHorizontal)
and (FEnlargeVertical=Sizing.EnlargeVertical)
and (FShrinkHorizontal=Sizing.ShrinkHorizontal)
and (FShrinkVertical=Sizing.ShrinkVertical)
and (FEnlargeHorizontal=Sizing.EnlargeHorizontal)
and (FEnlargeVertical=Sizing.EnlargeVertical) and (FEnlargeVertical=Sizing.EnlargeVertical)
and (FShrinkHorizontal=Sizing.ShrinkHorizontal) and (FShrinkHorizontal=Sizing.ShrinkHorizontal)
and (FShrinkVertical=Sizing.ShrinkVertical) and (FShrinkVertical=Sizing.ShrinkVertical)