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

LCL: fixed oldautosize

Browse Source 
git-svn-id: trunk@24385 -
This commit is contained in:
mattias 2010-04-03 22:07:28 +00:00
parent d7fc2ae5e7
commit 64714af5b6
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/images/imagesforlazarus.pas
View File

@ -1,13 +1,13 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
{ This file was automatically created by Lazarus. do not edit!
This source is only used to compile and install the package.
}
unit ImagesForLazarus;
unit imagesforlazarus;
interface
uses
LazPNG, LazPNM, LazJPG, LazBMP, LazTGA, LazXPM, LazarusPackageIntf;
LazPNG, LazPNM, LazJPG, LazBMP, LazTGA, LazXPM, LazarusPackageIntf;
implementation

6
lcl/controls.pp
View File

@ -1074,10 +1074,8 @@ type
function GetControlOrigin: TPoint; virtual;
function IsClientHeightStored: boolean; virtual;
function IsClientWidthStored: boolean; virtual;
{$IFNDEF OldAutoSize}
function WidthIsAnchored: boolean;
function HeightIsAnchored: boolean;
{$ENDIF}
property AutoSizing: Boolean read FAutoSizingSelf;// see Begin/EndAutoSizing
{$IFNDEF OldAutoSize}
@ -2402,8 +2400,10 @@ function DbgS(a: TAnchorKind): string; overload;
function DbgS(Anchors: TAnchors): string; overload;
function DbgS(a: TAlign): string; overload;
function DbgS(a: TAnchorKind; Side: TAnchorSideReference): string; overload;
{$IFNDEF OldAutoSize}
function DbgS(p: TControlAutoSizePhase): string; overload;
function DbgS(Phases: TControlAutoSizePhases): string; overload;
{$ENDIF}
operator := (AVariant: Variant): TCaption;
@ -2576,6 +2576,7 @@ begin
end;
end;
{$IFNDEF OldAutoSize}
function DbgS(p: TControlAutoSizePhase): string; overload;
begin
Result:=AutoSizePhaseNames[p];
@ -2594,6 +2595,7 @@ begin
end;
Result:='['+Result+']';
end;
{$ENDIF}
{------------------------------------------------------------------------------
RecreateWnd

2
lcl/include/control.inc
View File

@ -2894,7 +2894,6 @@ begin
Result:=false;
end;
{$IFNDEF OldAutoSize}
function TControl.WidthIsAnchored: boolean;
var
CurAnchors: TAnchors;
@ -2920,7 +2919,6 @@ begin
Result:=Parent.ChildSizing.Layout<>cclNone;
end;
end;
{$ENDIF}
procedure TControl.WMCancelMode(var Message: TLMessage);
begin