From ee1614a6a775545f2c1b6486f2735c1923fc49f1 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 12 Apr 2013 17:55:02 +0100 Subject: minor code cleanup --- src/gui/fpg_scrollbar.pas | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'src/gui') diff --git a/src/gui/fpg_scrollbar.pas b/src/gui/fpg_scrollbar.pas index dd0a4c7c..440372dd 100644 --- a/src/gui/fpg_scrollbar.pas +++ b/src/gui/fpg_scrollbar.pas @@ -363,8 +363,6 @@ var area: TfpgCoord; mm: TfpgCoord; begin -// Canvas.BeginDraw; - if SliderSize > 1 then SliderSize := 1; @@ -436,15 +434,9 @@ begin // Paint the slider button if Orientation = orVertical then - begin - Canvas.DrawButtonFace(0, Width + FSliderPos, Width, FSliderLength, [btfIsEmbedded]); -// Canvas.EndDraw(0, Width, Width, Height - Width - Width); - end + Canvas.DrawButtonFace(0, Width + FSliderPos, Width, FSliderLength, [btfIsEmbedded]) else - begin Canvas.DrawButtonFace(Height + FSliderPos, 0, FSliderLength, Height, [btfIsEmbedded]); -// Canvas.EndDraw(Height, 0, Width - Height - Height, Height); - end; end; procedure TfpgScrollBar.HandleLMouseDown(x, y: integer; shiftstate: TShiftState); -- cgit v1.2.3-70-g09d2