diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-27 22:56:37 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-27 22:56:37 +0000 |
commit | dd63a78ef833d7fec32890e8c2ce53ad2a4ec1b6 (patch) | |
tree | 9f25310cab1ef71c931376e5136a86d8fda7ed10 /src/gui/gui_progressbar.pas | |
parent | 1bca93f58c45a5d0d36e68b527f20ad008832f33 (diff) | |
download | fpGUI-dd63a78ef833d7fec32890e8c2ce53ad2a4ec1b6.tar.xz |
* Removed unneeded Canvas.BeginDraw and Canvas.EndDraw calls.
Diffstat (limited to 'src/gui/gui_progressbar.pas')
-rw-r--r-- | src/gui/gui_progressbar.pas | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/gui/gui_progressbar.pas b/src/gui/gui_progressbar.pas index f7203272..8b9d4612 100644 --- a/src/gui/gui_progressbar.pas +++ b/src/gui/gui_progressbar.pas @@ -52,7 +52,6 @@ type property ShowCaption: boolean read FShowCaption write SetShowCaption; public constructor Create(AOwner: TComponent); override; - destructor Destroy; override; procedure StepIt; procedure StepBy(AStep: integer); property Font: TfpgFont read FFont; @@ -148,8 +147,7 @@ var x: TfpgCoord; y: TfpgCoord; begin - Canvas.BeginDraw; -// inherited HandlePaint; + inherited HandlePaint; Canvas.ClearClipRect; r.SetRect(0, 0, Width, Height); @@ -193,7 +191,6 @@ begin Canvas.Font := FFont; Canvas.DrawString(x, y, txt); end; - Canvas.EndDraw; end; constructor TfpgCustomProgressBar.Create(AOwner: TComponent); @@ -212,11 +209,6 @@ begin FFont := fpgStyle.DefaultFont; end; -destructor TfpgCustomProgressBar.Destroy; -begin - inherited Destroy; -end; - procedure TfpgCustomProgressBar.StepIt; begin Position := Position + Step; |