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

lcl: cleanup

Browse Source 
git-svn-id: trunk@39206 -
This commit is contained in:
blikblum 2012-10-31 00:43:30 +00:00
parent cc0d1cb762
commit 70e7f9f4f3
3 changed files with 9 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -723,7 +723,6 @@ type
function CanChange: Boolean; override;
function CanShowTab(ATabIndex: Integer): Boolean; virtual;
procedure Change; override;
procedure Loaded; override;
procedure CreateWnd; override;
procedure DestroyHandle; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;

30
lcl/controls.pp
View File

@ -775,7 +775,7 @@ type
TAnchorSide = class(TPersistent)
private
FKind: TAnchorKind; // keep FKind the first property. see bug 14364
FKind: TAnchorKind;
FControl: TControl;
FOwner: TControl;
FSide: TAnchorSideReference;
@ -3326,20 +3326,13 @@ constructor TControlBorderSpacing.Create(OwnerControl: TControl; ADefault: PCont
begin
FControl := OwnerControl;
FDefault := ADefault;
if FDefault = nil
then begin
FLeft := 0;
FRight := 0;
FTop := 0;
FBottom := 0;
FAround := 0;
end
else begin
FLeft := FDefault^.Left;
FRight := FDefault^.Right;
FTop := FDefault^.Top;
FBottom := FDefault^.Bottom;
FAround := FDefault^.Around;
if ADefault <> nil then
begin
FLeft := ADefault^.Left;
FRight := ADefault^.Right;
FTop := ADefault^.Top;
FBottom := ADefault^.Bottom;
FAround := ADefault^.Around;
end;
FCellAlignHorizontal := ccaFill;
FCellAlignVertical := ccaFill;
@ -3492,18 +3485,13 @@ end;
constructor TControlChildSizing.Create(OwnerControl: TWinControl);
begin
FControl := OwnerControl;
inherited Create;
FControl := OwnerControl;
FLayout := cclNone;
FEnlargeHorizontal :=crsAnchorAligning;
FEnlargeVertical := crsAnchorAligning;
FShrinkHorizontal := crsAnchorAligning;
FShrinkVertical := crsAnchorAligning;
FLeftRightSpacing := 0;
FTopBottomSpacing := 0;
FHorizontalSpacing := 0;
FVerticalSpacing := 0;
FControlsPerLine := 0;
end;
procedure TControlChildSizing.Assign(Source: TPersistent);

5
lcl/include/tabcontrol.inc
View File

@ -482,11 +482,6 @@ begin
FOnGetImageIndex(Self, ATabIndex, Result);
end;
procedure TTabControl.Loaded;
begin
inherited Loaded;
end;
procedure TTabControl.CreateWnd;
begin
BeginUpdate;