pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix compilation error with fpc 3.1.1

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4483 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-01-31 11:40:49 +00:00
parent ef7c595cf7
commit 2d94675a6b
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/tvplanit/source/vpnavbar.pas
View File

@ -2119,7 +2119,7 @@ var
W : Integer; W : Integer;
H : Integer; H : Integer;
CurPos : Integer; CurPos : Integer;
Offset : Integer; lOffset : Integer;
BkMode : Integer; BkMode : Integer;
LabelWidth : Integer; LabelWidth : Integer;
Flags : Integer; Flags : Integer;
@ -2288,14 +2288,14 @@ begin
LineTo(0, TR.Bottom - 1); LineTo(0, TR.Bottom - 1);
Pen.Color := clBtnShadow; Pen.Color := clBtnShadow;
if I = ActiveFolder then if I = ActiveFolder then
Offset := 1 lOffset := 1
else else
Offset := 2; lOffset := 2;
MoveTo(TR.Right - 3, TR.Top - 2); MoveTo(TR.Right - 3, TR.Top - 2);
LineTo(TR.Right - 3, TR.Bottom - Offset); LineTo(TR.Right - 3, TR.Bottom - lOffset);
LineTo(1, TR.Bottom - Offset); LineTo(1, TR.Bottom - lOffset);
if I = ActiveFolder then if I = ActiveFolder then
Pixels[1, TR.Bottom - Offset] := clBtnHighlight; Pixels[1, TR.Bottom - lOffset] := clBtnHighlight;
end; end;
end; end;
end; end;
@ -2456,9 +2456,9 @@ begin
{glyph is at the left} {glyph is at the left}
with Item.FIconRect do begin with Item.FIconRect do begin
Top := CurPos; Top := CurPos;
Offset := (Abs(DrawBmp.Canvas.Font.Height)) div 2; lOffset := (Abs(DrawBmp.Canvas.Font.Height)) div 2;
if Offset > 8 then if lOffset > 8 then
Top := Top + Offset - 8; Top := Top + lOffset - 8;
Bottom := Top + 16; Bottom := Top + 16;
Left := 8; Left := 8;
Right := Left + 16; Right := Left + 16;