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

LCL: fixed compilation: unit circles and inline dont play together

Browse Source 
git-svn-id: trunk@14629 -
This commit is contained in:
mattias 2008-03-25 09:19:15 +00:00
parent 56e46f1f11
commit bd9c42bbd1
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/comctrls.pp
View File

@ -2544,7 +2544,7 @@ type
procedure SetText(const Value: string);
procedure SetWidth(Value: Integer);
procedure SetImageIndex(const Value: TImageIndex);
procedure CheckConstraints; inline;
procedure CheckConstraints;
public
constructor Create(ACollection: TCollection); override;
procedure Assign(Source: TPersistent); override;

2
lcl/include/headercontrol.inc
View File

@ -453,7 +453,7 @@ begin
end;
end;
procedure THeaderSection.CheckConstraints; inline;
procedure THeaderSection.CheckConstraints;
begin
if FWidth < FMinWidth then
FWidth := FMinWidth;