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

Revert "LCL: Add TCustomFrame.CreateParams. Somehow fixes issue #25124."

Browse Source 
This reverts commit 20c1e10aca.
This commit is contained in:
Ondrej Pokorny 2021-11-29 22:05:19 +01:00
parent 9c982571d9
commit 8438ed9d98
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -314,7 +314,6 @@ type
procedure DefineProperties(Filer: TFiler); override;
procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); override;
procedure CreateParams(var Params: TCreateParams); override;
procedure UpdateOpaque;
public
constructor Create(AOwner: TComponent); override;

7
lcl/include/customframe.inc
View File

@ -197,13 +197,6 @@ begin
WithThemeSpace);
end;
procedure TCustomFrame.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if (Parent = nil) and (ParentWindow = 0) then
Params.Style := Params.Style and not Cardinal(WS_GROUP or WS_TABSTOP or WS_CHILD);
end;
procedure TCustomFrame.UpdateOpaque;
begin
if ParentBackground then