paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-15 12:28:51 +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

6
components/images/imagesforlazarus.pas
View File

@ -1,8 +1,8 @@
{ This file was automatically created by Lazarus. Do not edit! { This file was automatically created by Lazarus. do not edit!
This source is only used to compile and install the package. This source is only used to compile and install the package.
} }
unit ImagesForLazarus; unit imagesforlazarus;
interface interface

6
lcl/controls.pp
View File

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

2
lcl/include/control.inc
View File

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