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

LCL: Prevent removing LCLVersion property when saving a form or frame. Issue #41801.

Browse Source
This commit is contained in:
Juha 2025-08-25 19:17:42 +03:00
parent f5987d2f9f
commit 79fc6daa46
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customform.inc
View File

@ -3187,7 +3187,7 @@ end;
function TForm.LCLVersionIsStored: boolean;
begin
Result:=Parent=nil;
Result := csDesignInstance in ComponentState;
end;
class procedure TForm.WSRegisterClass;

2
lcl/include/customframe.inc
View File

@ -224,7 +224,7 @@ end;
function TFrame.LCLVersionIsStored: boolean;
begin
Result := Parent = nil;
Result := csDesignInstance in ComponentState;
end;
constructor TFrame.Create(TheOwner: TComponent);