mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-07 21:50:14 +02:00
+ FPC/2 support added
This commit is contained in:
parent
ba31bf5cfa
commit
8a4731bf6a
12
fv/app.pas
12
fv/app.pas
@ -1,4 +1,3 @@
|
||||
|
||||
{ $Id$}
|
||||
{********[ SOURCE FILE OF GRAPHICAL FREE VISION ]**********}
|
||||
{ }
|
||||
@ -53,7 +52,11 @@ USES
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
Os2Def, Os2Base, OS2PmApi, { Standard units }
|
||||
{$IFDEF PPC_FPC}
|
||||
Os2Def, DosCalls, PmWin, { Standard units }
|
||||
{$ELSE}
|
||||
Os2Def, Os2Base, OS2PmApi, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
Dos,
|
||||
{$ifdef USE_VIDEO_API}
|
||||
@ -1193,7 +1196,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.21 2002-09-09 08:04:05 pierre
|
||||
Revision 1.22 2002-09-22 19:42:52 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.21 2002/09/09 08:04:05 pierre
|
||||
* remove all warnings about far
|
||||
|
||||
Revision 1.20 2002/09/07 15:06:35 peter
|
||||
|
@ -53,7 +53,11 @@ USES
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$IFDEF PPC_FPC}
|
||||
OS2Def, DosCalls, PMWIN, { Standard units }
|
||||
{$ELSE}
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
GFVGraph, { GFV standard unit }
|
||||
@ -4204,7 +4208,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.19 2002-09-09 08:14:47 pierre
|
||||
Revision 1.20 2002-09-22 19:42:23 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.19 2002/09/09 08:14:47 pierre
|
||||
* remove virtual modifer from store methods
|
||||
|
||||
Revision 1.18 2002/09/07 15:06:36 peter
|
||||
|
@ -66,6 +66,9 @@ USES
|
||||
{$IFDEF PPC_Speed} { SPEED PASCAL UNITS }
|
||||
BseDos, Os2Def, { Standard units }
|
||||
{$ENDIF}
|
||||
{$IFDEF PPC_FPC} { FPC UNITS }
|
||||
DosCalls, Os2Def, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_UNIX}
|
||||
@ -1674,7 +1677,10 @@ BEGIN
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.34 2002-09-13 22:24:30 pierre
|
||||
Revision 1.35 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.34 2002/09/13 22:24:30 pierre
|
||||
* fix Alt+'9' recognition in GetAltChar function
|
||||
|
||||
Revision 1.33 2002/09/13 09:21:15 pierre
|
||||
|
@ -225,6 +225,10 @@ FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Wor
|
||||
USES DosTypes, DosProcs; { Standard units }
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF PPC_FPC} { FPC UNITS }
|
||||
USES DosCalls, OS2Def; { Standard units }
|
||||
{$ENDIF}
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_UNIX} { LINUX COMPILER }
|
||||
@ -684,7 +688,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.7 2002-09-07 15:06:36 peter
|
||||
Revision 1.8 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.7 2002/09/07 15:06:36 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
Revision 1.6 2002/06/04 11:12:41 marco
|
||||
|
@ -201,7 +201,11 @@ CONST
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
USES Os2Base; { Standard unit }
|
||||
{$IFDEF PPC_FPC}
|
||||
USES DosCalls; { Standard unit }
|
||||
{$ELSE}
|
||||
USES Os2Base; { Standard unit }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{***************************************************************************}
|
||||
@ -828,7 +832,10 @@ END.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.6 2002-09-09 08:04:06 pierre
|
||||
Revision 1.7 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.6 2002/09/09 08:04:06 pierre
|
||||
* remove all warnings about far
|
||||
|
||||
Revision 1.5 2002/09/07 15:06:37 peter
|
||||
|
@ -163,6 +163,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
|
||||
USES BseDos, Os2Def; { Standard unit }
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF PPC_FPC} { FPC }
|
||||
USES DosCalls, Os2Def, Dos; { Standard unit }
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF PPC_BPOS2} { C'T PATCH TO BP CODE }
|
||||
USES DosTypes, DosProcs; { Standard unit }
|
||||
|
||||
@ -447,7 +451,10 @@ END.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2002-09-09 08:02:49 pierre
|
||||
Revision 1.9 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.8 2002/09/09 08:02:49 pierre
|
||||
* avoid instabilities on win2000
|
||||
|
||||
Revision 1.7 2002/09/07 15:06:38 peter
|
||||
|
11
fv/views.pas
11
fv/views.pas
@ -71,7 +71,11 @@ USES
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$IFDEF PPC_FPC}
|
||||
Os2Def, DosCalls, PmWin,
|
||||
{$ELSE}
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF GRAPH_API}
|
||||
@ -5800,7 +5804,10 @@ END.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.38 2002-09-12 12:03:13 pierre
|
||||
Revision 1.39 2002-09-22 19:42:21 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.38 2002/09/12 12:03:13 pierre
|
||||
* handle unix mouse differently as it uses video buffer
|
||||
|
||||
Revision 1.37 2002/09/09 08:06:33 pierre
|
||||
|
@ -1,4 +1,3 @@
|
||||
|
||||
{ $Id$}
|
||||
{********[ SOURCE FILE OF GRAPHICAL FREE VISION ]**********}
|
||||
{ }
|
||||
@ -53,7 +52,11 @@ USES
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
Os2Def, Os2Base, OS2PmApi, { Standard units }
|
||||
{$IFDEF PPC_FPC}
|
||||
Os2Def, DosCalls, PmWin, { Standard units }
|
||||
{$ELSE}
|
||||
Os2Def, Os2Base, OS2PmApi, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
Dos,
|
||||
{$ifdef USE_VIDEO_API}
|
||||
@ -1193,7 +1196,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.21 2002-09-09 08:04:05 pierre
|
||||
Revision 1.22 2002-09-22 19:42:52 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.21 2002/09/09 08:04:05 pierre
|
||||
* remove all warnings about far
|
||||
|
||||
Revision 1.20 2002/09/07 15:06:35 peter
|
||||
|
@ -53,7 +53,11 @@ USES
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$IFDEF PPC_FPC}
|
||||
OS2Def, DosCalls, PMWIN, { Standard units }
|
||||
{$ELSE}
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
GFVGraph, { GFV standard unit }
|
||||
@ -4204,7 +4208,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.19 2002-09-09 08:14:47 pierre
|
||||
Revision 1.20 2002-09-22 19:42:23 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.19 2002/09/09 08:14:47 pierre
|
||||
* remove virtual modifer from store methods
|
||||
|
||||
Revision 1.18 2002/09/07 15:06:36 peter
|
||||
|
@ -66,6 +66,9 @@ USES
|
||||
{$IFDEF PPC_Speed} { SPEED PASCAL UNITS }
|
||||
BseDos, Os2Def, { Standard units }
|
||||
{$ENDIF}
|
||||
{$IFDEF PPC_FPC} { FPC UNITS }
|
||||
DosCalls, Os2Def, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_UNIX}
|
||||
@ -1674,7 +1677,10 @@ BEGIN
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.34 2002-09-13 22:24:30 pierre
|
||||
Revision 1.35 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.34 2002/09/13 22:24:30 pierre
|
||||
* fix Alt+'9' recognition in GetAltChar function
|
||||
|
||||
Revision 1.33 2002/09/13 09:21:15 pierre
|
||||
|
@ -225,6 +225,10 @@ FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Wor
|
||||
USES DosTypes, DosProcs; { Standard units }
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF PPC_FPC} { FPC UNITS }
|
||||
USES DosCalls, OS2Def; { Standard units }
|
||||
{$ENDIF}
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_UNIX} { LINUX COMPILER }
|
||||
@ -684,7 +688,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.7 2002-09-07 15:06:36 peter
|
||||
Revision 1.8 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.7 2002/09/07 15:06:36 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
Revision 1.6 2002/06/04 11:12:41 marco
|
||||
|
@ -201,7 +201,11 @@ CONST
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
USES Os2Base; { Standard unit }
|
||||
{$IFDEF PPC_FPC}
|
||||
USES DosCalls; { Standard unit }
|
||||
{$ELSE}
|
||||
USES Os2Base; { Standard unit }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{***************************************************************************}
|
||||
@ -828,7 +832,10 @@ END.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.6 2002-09-09 08:04:06 pierre
|
||||
Revision 1.7 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.6 2002/09/09 08:04:06 pierre
|
||||
* remove all warnings about far
|
||||
|
||||
Revision 1.5 2002/09/07 15:06:37 peter
|
||||
|
@ -163,6 +163,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
|
||||
USES BseDos, Os2Def; { Standard unit }
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF PPC_FPC} { FPC }
|
||||
USES DosCalls, Os2Def, Dos; { Standard unit }
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF PPC_BPOS2} { C'T PATCH TO BP CODE }
|
||||
USES DosTypes, DosProcs; { Standard unit }
|
||||
|
||||
@ -447,7 +451,10 @@ END.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2002-09-09 08:02:49 pierre
|
||||
Revision 1.9 2002-09-22 19:42:22 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.8 2002/09/09 08:02:49 pierre
|
||||
* avoid instabilities on win2000
|
||||
|
||||
Revision 1.7 2002/09/07 15:06:38 peter
|
||||
|
@ -71,7 +71,11 @@ USES
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF OS_OS2} { OS2 CODE }
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$IFDEF PPC_FPC}
|
||||
Os2Def, DosCalls, PmWin,
|
||||
{$ELSE}
|
||||
OS2Def, OS2Base, OS2PMAPI, { Standard units }
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF GRAPH_API}
|
||||
@ -5800,7 +5804,10 @@ END.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.38 2002-09-12 12:03:13 pierre
|
||||
Revision 1.39 2002-09-22 19:42:21 hajny
|
||||
+ FPC/2 support added
|
||||
|
||||
Revision 1.38 2002/09/12 12:03:13 pierre
|
||||
* handle unix mouse differently as it uses video buffer
|
||||
|
||||
Revision 1.37 2002/09/09 08:06:33 pierre
|
||||
|
Loading…
Reference in New Issue
Block a user