paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 04:30:48 +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, Dos,
Video, Video,
FVCommon, {Memory,} { GFV standard units } FVCommon, {Memory,} { GFV standard units }
Objects, Drivers, Views, Menus, HistList, Dialogs, Objects,
msgbox, fvconsts; {$ifdef FV_UNICODE}
UDrivers, UViews, UMenus, UHistList, UDialogs, Umsgbox,
{$else FV_UNICODE}
Drivers, Views, Menus, HistList, Dialogs, msgbox,
{$endif FV_UNICODE}
fvconsts;
{***************************************************************************} {***************************************************************************}
{ PUBLIC CONSTANTS } { PUBLIC CONSTANTS }

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

@ -64,10 +64,15 @@ USES
{$ENDIF} {$ENDIF}
{$IFDEF OS_OS2} { OS2 CODE } {$IFDEF OS_OS2} { OS2 CODE }
OS2Def, DosCalls, PMWIN, { Standard units } OS2Def, DosCalls, PMWIN, { Standard units }
{$ENDIF} {$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 } { PUBLIC CONSTANTS }
@ -1040,7 +1045,11 @@ resourcestring slCancel='Cancel';
IMPLEMENTATION IMPLEMENTATION
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>} {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
{$ifdef FV_UNICODE}
USES UApp,UHistList; { Standard GFV unit }
{$else FV_UNICODE}
USES App,HistList; { Standard GFV unit } USES App,HistList; { Standard GFV unit }
{$endif FV_UNICODE}
{***************************************************************************} {***************************************************************************}
{ PRIVATE DEFINED CONSTANTS } { PRIVATE DEFINED CONSTANTS }

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

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

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

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