* Removed unneeded Canvas.BeginDraw and Canvas.EndDraw calls.

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;