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

DockedFormEditor: fixed compilation with FPC 3.3.1, hint by Peacoor, issue #40427

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-08-03 19:25:36 +03:00
parent 357928192e
commit f904aa53b5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/dockedformeditor/source/dockedanchorcontrol.pas
View File

@ -277,7 +277,7 @@ end;
procedure TAnchorControl.CreateCaption;
begin
if not FRootControl.Name.IsEmpty then
if Length(FRootControl.Name) > 0 then
Caption := FRootControl.Name
else
Caption := FRootControl.ClassName;