You've already forked lazarus-ccr
tvplanit: Show scroll buttons in NavBar.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4995 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@@ -891,6 +891,29 @@ begin
|
||||
{ Draw the folder buttons at the bottom }
|
||||
DrawBottomFolderButtons(DrawBmp.Canvas, MyRect, CurPos);
|
||||
|
||||
if not (csDesigning in FNavBar.ComponentState) then begin
|
||||
{show the top scroll button}
|
||||
if TVpNavBarOpener(FNavBar).nabShowScrollUp then begin
|
||||
nabScrollUpBtn.Top := FNavBar.Folders[FActiveFolder].Rect.Bottom + 5;
|
||||
nabScrollUpBtn.Left := FNavBar.ClientWidth - 20;
|
||||
nabScrollUpBtn.Visible := True;
|
||||
end else
|
||||
nabScrollUpBtn.Visible := False;
|
||||
|
||||
{show the bottom scroll button}
|
||||
if TVpNavBarOpener(FnavBar).nabShowScrollDown then begin
|
||||
if FActiveFolder = FNavBar.FolderCount-1 then
|
||||
{there are no folders beyond the active one}
|
||||
nabScrollDownBtn.Top := FNavBar.ClientHeight -20
|
||||
else
|
||||
nabScrollDownBtn.Top := FNavBar.Folders[FActiveFolder+1].Rect.Top - 20;
|
||||
nabScrollDownBtn.Left := FNavBar.ClientWidth - 20;
|
||||
nabScrollDownBtn.Visible := True;
|
||||
end else
|
||||
nabScrollDownBtn.Visible := False;
|
||||
end;
|
||||
|
||||
|
||||
finally
|
||||
{ Copy the buffer bitmap to the control }
|
||||
FNavBar.Canvas.CopyMode := cmSrcCopy;
|
||||
|
Reference in New Issue
Block a user