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_tab.pas | |
parent | 1bca93f58c45a5d0d36e68b527f20ad008832f33 (diff) | |
download | fpGUI-dd63a78ef833d7fec32890e8c2ce53ad2a4ec1b6.tar.xz |
* Removed unneeded Canvas.BeginDraw and Canvas.EndDraw calls.
Diffstat (limited to 'src/gui/gui_tab.pas')
-rw-r--r-- | src/gui/gui_tab.pas | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas index ba88be8e..45d577fe 100644 --- a/src/gui/gui_tab.pas +++ b/src/gui/gui_tab.pas @@ -188,10 +188,8 @@ end; procedure TfpgTabSheet.HandlePaint; begin - Canvas.BeginDraw; -// inherited HandlePaint; + inherited HandlePaint; Canvas.Clear(FBackgroundColor); - Canvas.EndDraw; end; constructor TfpgTabSheet.Create(AOwner: TComponent); @@ -549,9 +547,7 @@ end; procedure TfpgPageControl.HandlePaint; begin - Canvas.BeginDraw; -// inherited HandlePaint; - + inherited HandlePaint; if SortPages then OrderSheets; Canvas.ClearClipRect; @@ -562,8 +558,6 @@ begin Canvas.SetColor(clInactiveWgFrame); Canvas.DrawRectangle(0, 0, Width, Height); RePaintTitles; - - Canvas.EndDraw; end; procedure TfpgPageControl.HandleShow; |