paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tvplanit: Minor refactoring of NavBar scrollbuttons

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4998 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2016-07-18 20:24:58 +00:00
parent 4f73e6effd
commit 0aaccd7fee
1 changed files with 30 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
components/tvplanit/source/vpnavbarpainter.pas
View File

@ -76,6 +76,8 @@ type
procedure DrawTopFolderButtons(Canvas: TCanvas; ARect: TRect; procedure DrawTopFolderButtons(Canvas: TCanvas; ARect: TRect;
DrawFolder: Boolean; var CurPos: Integer); DrawFolder: Boolean; var CurPos: Integer);
procedure ProcessScrollButtons;
public public
constructor Create(ANavBar: TVpCustomNavBar); constructor Create(ANavBar: TVpCustomNavBar);
procedure Paint; procedure Paint;
@ -891,38 +893,42 @@ begin
{ Draw the folder buttons at the bottom } { Draw the folder buttons at the bottom }
DrawBottomFolderButtons(DrawBmp.Canvas, MyRect, CurPos); 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 } { Copy the buffer bitmap to the control }
FNavBar.Canvas.CopyMode := cmSrcCopy; FNavBar.Canvas.CopyMode := cmSrcCopy;
FNavBar.Canvas.CopyRect(MyRect, DrawBmp.Canvas, Rect(0, 0, DrawBmp.Width,DrawBmp.Height)); FNavBar.Canvas.CopyRect(MyRect, DrawBmp.Canvas, Rect(0, 0, DrawBmp.Width,DrawBmp.Height));
{ Show/hide scroll buttons }
ProcessScrollButtons;
finally
DrawBmp.Free; DrawBmp.Free;
end; end;
end; end;
procedure TVpNavBarPainter.ProcessScrollButtons;
begin
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;
end;
{ Given a string, and a rectangle, find the string that can be displayed { Given a string, and a rectangle, find the string that can be displayed
using two lines. Add ellipsis to the end of each line if necessary and using two lines. Add ellipsis to the end of each line if necessary and