paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

reduced warnings

Browse Source 
git-svn-id: trunk@19952 -
This commit is contained in:
mattias 2009-05-13 10:23:19 +00:00
parent d17b0c2c63
commit 18fa3ce4ca
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2wscalendar.pp
View File

@ -216,7 +216,7 @@ begin
if PtInRect(R, APoint) then if PtInRect(R, APoint) then
Exit(cpTitleBtn); Exit(cpTitleBtn);
R.Left := R.Right + 1; R.Left := R.Right + 1;
R.Right := FrameW + ArrowW + PGtkCalendarPrivate(GtkCalendar^.private_data)^.max_month_width + 1; R.Right := FrameW + ArrowW + integer(PGtkCalendarPrivate(GtkCalendar^.private_data)^.max_month_width) + 1;
if PtInRect(R, APoint) then if PtInRect(R, APoint) then
Exit(cpTitleMonth); Exit(cpTitleMonth);
R.Left := R.Right; R.Left := R.Right;

2
lcl/postscriptcanvas.pas
View File

@ -551,7 +551,7 @@ type
procedure TAscii85Encoder.EmitData; procedure TAscii85Encoder.EmitData;
const const
Cn: array[0..4] of longint = (85*85*85*85,85*85*85,85*85,85,1); Cn: array[0..4] of longword = (85*85*85*85,85*85*85,85*85,85,1);
var var
B: byte; B: byte;
i,n: Integer; i,n: Integer;