paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 18:39:52 +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 CanChange: Boolean; override;
function CanShowTab(ATabIndex: Integer): Boolean; virtual; function CanShowTab(ATabIndex: Integer): Boolean; virtual;
procedure Change; override; procedure Change; override;
procedure Loaded; override;
procedure CreateWnd; override; procedure CreateWnd; override;
procedure DestroyHandle; override; procedure DestroyHandle; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure Notification(AComponent: TComponent; Operation: TOperation); override;

30
lcl/controls.pp
View File

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

5
lcl/include/tabcontrol.inc
View File

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