paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 13:37:45 +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
Exit(cpTitleBtn);
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
Exit(cpTitleMonth);
R.Left := R.Right;

2
lcl/postscriptcanvas.pas
View File

@ -551,7 +551,7 @@ type
procedure TAscii85Encoder.EmitData;
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
B: byte;
i,n: Integer;