paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 12:29:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated the uses clauses of the unicode versions of the app, dialogs, msgbox

Browse Source 
and validate units to use only unicode units in their uses clause

git-svn-id: branches/unicodekvm@48586 -
This commit is contained in:
nickysn 2021-02-10 12:47:48 +00:00
parent d373397f30
commit 0fe68e7c9e
4 changed files with 32 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fv/src/app.inc
View File

@ -70,8 +70,13 @@ USES
Dos,
Video,
FVCommon, {Memory,} { GFV standard units }
Objects, Drivers, Views, Menus, HistList, Dialogs,
msgbox, fvconsts;
Objects,
{$ifdef FV_UNICODE}
UDrivers, UViews, UMenus, UHistList, UDialogs, Umsgbox,
{$else FV_UNICODE}
Drivers, Views, Menus, HistList, Dialogs, msgbox,
{$endif FV_UNICODE}
fvconsts;
{***************************************************************************}
{ PUBLIC CONSTANTS }

13
packages/fv/src/dialogs.inc
View File

@ -64,10 +64,15 @@ USES
{$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE }
OS2Def, DosCalls, PMWIN, { Standard units }
OS2Def, DosCalls, PMWIN, { Standard units }
{$ENDIF}
FVCommon, FVConsts, Objects, Drivers, Views, Validate; { Standard GFV units }
FVCommon, FVConsts, Objects, { Standard GFV units }
{$ifdef FV_UNICODE}
UDrivers, UViews, UValidate;
{$else FV_UNICODE}
Drivers, Views, Validate;
{$endif FV_UNICODE}
{***************************************************************************}
{ PUBLIC CONSTANTS }
@ -1040,7 +1045,11 @@ resourcestring slCancel='Cancel';
IMPLEMENTATION
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
{$ifdef FV_UNICODE}
USES UApp,UHistList; { Standard GFV unit }
{$else FV_UNICODE}
USES App,HistList; { Standard GFV unit }
{$endif FV_UNICODE}
{***************************************************************************}
{ PRIVATE DEFINED CONSTANTS }

11
packages/fv/src/msgbox.inc
View File

@ -85,7 +85,12 @@ UNIT MsgBox;
{$V-} { Turn off strict VAR strings }
{====================================================================}
USES objects, dialogs; { Standard GFV units }
USES objects, { Standard GFV units }
{$ifdef FV_UNICODE}
udialogs;
{$else FV_UNICODE}
dialogs;
{$endif FV_UNICODE}
{***************************************************************************}
{ PUBLIC CONSTANTS }
@ -172,7 +177,11 @@ FUNCTION InputBoxRect (Var Bounds: TRect; Const Title, ALabel: String;
IMPLEMENTATION
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
{$ifdef FV_UNICODE}
USES UDrivers, UViews, UApp{, Resource}; { Standard GFV units }
{$else FV_UNICODE}
USES Drivers, Views, App{, Resource}; { Standard GFV units }
{$endif FV_UNICODE}
{***************************************************************************}
{ INTERFACE ROUTINES }

4
packages/fv/src/validate.inc
View File

@ -300,7 +300,11 @@ CONST
IMPLEMENTATION
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
{$ifdef FV_UNICODE}
USES UMsgBox; { GFV standard unit }
{$else FV_UNICODE}
USES MsgBox; { GFV standard unit }
{$endif FV_UNICODE}
{***************************************************************************}
{ PRIVATE ROUTINES }