summaryrefslogtreecommitdiff
path: root/src/gui/gui_scrollbar.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui/gui_scrollbar.pas')
-rw-r--r--src/gui/gui_scrollbar.pas6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gui/gui_scrollbar.pas b/src/gui/gui_scrollbar.pas
index a76e9f9a..67716276 100644
--- a/src/gui/gui_scrollbar.pas
+++ b/src/gui/gui_scrollbar.pas
@@ -99,7 +99,7 @@ begin
if Orientation = orVertical then
begin
- DrawButton(0, 0, Width, Width, 'sys.sb.up' ,FStartBtnPressed);
+ DrawButton(0, 0, Width, Width, 'sys.sb.up', FStartBtnPressed);
DrawButton(0, Height - Width, Width, Width, 'sys.sb.down', FEndBtnPressed);
end
else
@@ -165,12 +165,12 @@ begin
if Orientation = orVertical then
begin
- Canvas.FillRectangle(0, Width-1, Width-1, Height - (2*Width)-2);
+ Canvas.FillRectangle(0, Width, Width-1, Height-1 - Width);
area := Height - (Width shl 1);
end
else
begin
- Canvas.FillRectangle(Height-1, 0, Width - (2*Height)-2, Height-1);
+ Canvas.FillRectangle(Height, 0, Width - Height-1, Height);
area := Width - (Height shl 1);
end;