paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Marģers that fixes parameter arrays formatstr, mantis 34839

Browse Source 
git-svn-id: trunk@40811 -
This commit is contained in:
marco 2019-01-09 10:18:36 +00:00
parent 2b3fb18327
commit 2c4ef5512c
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fv/src/editors.pas
View File

@ -1180,7 +1180,7 @@ procedure TIndicator.Draw;
VAR
Color : Byte;
Frame : Char;
L : array[0..1] of Longint;
L : array[0..1] of PtrInt;
S : String[15];
B : TDrawBuffer;
begin

2
packages/fv/src/statuses.pas
View File

@ -785,7 +785,7 @@ var
B : TDrawBuffer;
C : Word;
FillSize : Word;
PercentDone : LongInt;
PercentDone : PtrInt;
S : String[4];
begin
{ fill entire view }

2
packages/fv/src/validate.pas
View File

@ -919,7 +919,7 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE TRangeValidator.Error;
CONST PXErrMsg = 'Value not in the range';
VAR Params: Array[0..1] Of Longint;
VAR Params: Array[0..1] Of PtrInt;
BEGIN
Params[0] := Min; { Transfer min value }
Params[1] := Max; { Transfer max value }