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

customdrawncontrols: Moves PrepareCurrentDrawer to the common constructor since all controls need this and since now controls dont set various starting DrawStyles, all start with dsCommon

Browse Source 
git-svn-id: trunk@33844 -
This commit is contained in:
sekelsenmat 2011-11-29 06:32:31 +00:00
parent 57b49cd699
commit b42b7bd0dd
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/customdrawn/customdrawncontrols.pas
View File

@ -679,7 +679,6 @@ begin
FBottomScrollBar.Parent := Self;
FSpacer := TCDControl.Create(nil);
PrepareCurrentDrawer();
FSpacer.Color := FDrawer.Palette.BtnFace;
FSpacer.Visible := False;
FSpacer.Parent := Self;
@ -841,6 +840,7 @@ constructor TCDControl.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
CreateControlStateEx;
PrepareCurrentDrawer();
end;
destructor TCDControl.Destroy;
@ -1473,8 +1473,6 @@ begin
FCaretTimer.OnTimer := @HandleCaretTimer;
FCaretTimer.Interval := 500;
FCaretTimer.Enabled := False;
PrepareCurrentDrawer();
end;
destructor TCDEdit.Destroy;
@ -1498,8 +1496,6 @@ begin
ControlStyle := ControlStyle - [csAcceptsControls];
AutoSize := True;
FHasOnOffStates := True;
PrepareCurrentDrawer();
end;
destructor TCDCheckBox.Destroy;
@ -1541,7 +1537,6 @@ begin
Height := 25;
ParentFont := True;
FGlyph := TBitmap.Create;
PrepareCurrentDrawer();
end;
destructor TCDButton.Destroy;
@ -1569,7 +1564,6 @@ begin
FIsGrouped := True;
FGroupIndex := -2; // special value for TCDRadioButton
DoCheckIfFirstButtonInGroup();
PrepareCurrentDrawer();
end;
destructor TCDRadioButton.Destroy;
@ -1977,8 +1971,6 @@ begin
Height := 25;
Width := 100;
PrepareCurrentDrawer();
TabStop := True;
end;
@ -2075,7 +2067,6 @@ begin
Height := 20;
FMax := 100;
TabStop := False;
PrepareCurrentDrawer();
end;
destructor TCDProgressBar.Destroy;
@ -2148,8 +2139,6 @@ begin
// FProperties: TListViewProperties;
// FViewStyle: TViewStyle;
PrepareCurrentDrawer();
ScrollBars := ssBoth;
end;
@ -2383,8 +2372,6 @@ begin
Height := 184;
TabStop := True;
PrepareCurrentDrawer();
ParentColor := True;
ParentFont := True;
ControlStyle := ControlStyle + [csAcceptsControls, csDesignInteractive];