paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: added oldautosize ifdefs

Browse Source 
git-svn-id: trunk@24055 -
This commit is contained in:
mattias 2010-03-16 22:25:40 +00:00
parent 6ec276af67
commit 7fcc42d5af
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/helphtml/htmlhelp1.lpi
View File

@ -10,6 +10,9 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
</General> </General>
<VersionInfo>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion="0.0.0.0"/>
</VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>

2
lcl/include/wincontrol.inc
View File

@ -6668,6 +6668,7 @@ begin
FBoundsRealized := NewBoundsRealized; FBoundsRealized := NewBoundsRealized;
InvalidatePreferredSize; InvalidatePreferredSize;
{$IFNDEF OldAutoSize}
if AutoSizingAll then begin if AutoSizingAll then begin
// while the LCL is creating handles the widgetset may send default bounds // while the LCL is creating handles the widgetset may send default bounds
// we have not yet told the widgetset the final bounds // we have not yet told the widgetset the final bounds
@ -6678,6 +6679,7 @@ begin
// default values. // default values.
exit; exit;
end; end;
{$ENDIF}
end; end;
SetBoundsKeepBase(NewLeft, NewTop, Message.Width, Message.Height, Parent <> nil); SetBoundsKeepBase(NewLeft, NewTop, Message.Width, Message.Height, Parent <> nil);