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

+ added unicode versions of the app, dialogs, msgbox and validate units (unicode conversion not completed yet)

Browse Source 
git-svn-id: branches/unicodekvm@48585 -
This commit is contained in:
nickysn 2021-02-10 12:41:59 +00:00
parent 3fd5f452cd
commit d373397f30
10 changed files with 77 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -5033,11 +5033,15 @@ packages/fv/src/sysmsg.pas svneol=native#text/plain
packages/fv/src/tabs.pas svneol=native#text/plain
packages/fv/src/time.pas svneol=native#text/plain
packages/fv/src/timeddlg.pas svneol=native#text/plain
packages/fv/src/uapp.pas svneol=native#text/plain
packages/fv/src/udialogs.pas svneol=native#text/plain
packages/fv/src/udrivers.pas svneol=native#text/plain
packages/fv/src/uhistlist.pas svneol=native#text/plain
packages/fv/src/umenus.pas svneol=native#text/plain
packages/fv/src/umsgbox.pas svneol=native#text/plain
packages/fv/src/unixsmsg.inc svneol=native#text/plain
packages/fv/src/uoutline.pas svneol=native#text/plain
packages/fv/src/uvalidate.pas svneol=native#text/plain
packages/fv/src/uviews.pas svneol=native#text/plain
packages/fv/src/validate.inc svneol=native#text/plain
packages/fv/src/validate.pas svneol=native#text/plain

49
packages/fv/fpmake.pp
View File

@ -51,6 +51,21 @@ begin
AddUnit('fvconsts');
end;
T.ResourceStrings := True;
T:=P.Targets.AddUnit('uapp.pas');
with T.Dependencies do
begin
AddInclude('app.inc');
AddInclude('platform.inc');
AddUnit('fvcommon');
AddUnit('udrivers');
AddUnit('uviews');
AddUnit('umenus');
AddUnit('uhistlist');
AddUnit('udialogs');
AddUnit('umsgbox');
AddUnit('fvconsts');
end;
T.ResourceStrings := True;
T:=P.Targets.AddUnit('asciitab.pas');
with T.Dependencies do
begin
@ -111,6 +126,20 @@ begin
AddUnit('histlist');
end;
T.ResourceStrings := True;
T:=P.Targets.AddUnit('udialogs.pas');
with T.Dependencies do
begin
AddInclude('dialogs.inc');
AddInclude('platform.inc');
AddUnit('fvcommon');
AddUnit('fvconsts');
AddUnit('udrivers');
AddUnit('uviews');
AddUnit('uvalidate');
AddUnit('uapp');
AddUnit('uhistlist');
end;
T.ResourceStrings := True;
T:=P.Targets.AddUnit('drivers.pas');
with T.Dependencies do
begin
@ -218,6 +247,17 @@ begin
AddUnit('app');
end;
T.ResourceStrings := True;
T:=P.Targets.AddUnit('umsgbox.pas');
with T.Dependencies do
begin
AddInclude('msgbox.inc');
AddInclude('platform.inc');
AddUnit('udialogs');
AddUnit('udrivers');
AddUnit('uviews');
AddUnit('uapp');
end;
T.ResourceStrings := True;
T:=P.Targets.AddUnit('outline.pas');
with T.Dependencies do
begin
@ -300,6 +340,15 @@ begin
AddUnit('fvconsts');
AddUnit('msgbox');
end;
T:=P.Targets.AddUnit('uvalidate.pas');
with T.Dependencies do
begin
AddInclude('validate.inc');
AddInclude('platform.inc');
AddUnit('fvcommon');
AddUnit('fvconsts');
AddUnit('umsgbox');
end;
T:=P.Targets.AddUnit('views.pas');
with T.Dependencies do
begin

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

@ -25,7 +25,11 @@
{ }
{**********************************************************}
{$ifdef FV_UNICODE}
UNIT UApp;
{$else FV_UNICODE}
UNIT App;
{$endif FV_UNICODE}
{2.0 compatibility}
{$ifdef VER2_0}

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

@ -25,7 +25,11 @@
{ }
{**********************************************************}
{$ifdef FV_UNICODE}
UNIT UDialogs;
{$else FV_UNICODE}
UNIT Dialogs;
{$endif FV_UNICODE}
{$CODEPAGE cp437}

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

@ -44,7 +44,11 @@
{ 1.60 30 Sep 99 Complete recheck preformed }
{**********************************************************}
{$ifdef FV_UNICODE}
UNIT UMsgBox;
{$else FV_UNICODE}
UNIT MsgBox;
{$endif FV_UNICODE}
{2.0 compatibility}
{$ifdef VER2_0}

2
packages/fv/src/uapp.pas Normal file
View File

@ -0,0 +1,2 @@
{$DEFINE FV_UNICODE}
{$I app.inc}

2
packages/fv/src/udialogs.pas Normal file
View File

@ -0,0 +1,2 @@
{$DEFINE FV_UNICODE}
{$I dialogs.inc}

2
packages/fv/src/umsgbox.pas Normal file
View File

@ -0,0 +1,2 @@
{$DEFINE FV_UNICODE}
{$I msgbox.inc}

2
packages/fv/src/uvalidate.pas Normal file
View File

@ -0,0 +1,2 @@
{$DEFINE FV_UNICODE}
{$I validate.inc}

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

@ -42,7 +42,11 @@
{ 1.41 03 Nov 99 FPC windows code added }
{**********************************************************}
{$ifdef FV_UNICODE}
UNIT UValidate;
{$else FV_UNICODE}
UNIT Validate;
{$endif FV_UNICODE}
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
INTERFACE