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

Minor improvement

Browse Source 
git-svn-id: trunk@32721 -
This commit is contained in:
sekelsenmat 2011-10-06 13:39:24 +00:00
parent 7702f44202
commit fd8140b04b
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/customdrawn/customdrawnextras.pas
View File

@ -224,7 +224,6 @@ type
CustomDrawer: TCDButtonDrawer;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure EraseBackground(DC: HDC); override;
procedure Paint; override;
published
property Action;
@ -1108,11 +1107,6 @@ begin
inherited Destroy;
end;
procedure TCDButton.EraseBackground(DC: HDC);
begin
end;
procedure DrawCDButtonDown(Canvas: TCanvas; CDButton: TCDButton);
begin
with Canvas do
@ -2719,11 +2713,11 @@ begin
FDrawerWinCE := TCDPageControlDrawerWinCE.Create;
CustomDrawer := FDrawerWinCE; // Dummy to avoid designer crashes
FDrawStyle := dsWinCE;
ParentColor := True;
ParentFont := True;
ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks,
csDesignInteractive];
ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks, csDesignInteractive];
FPages := TTabItemList.Create(TTabItem);
end;