mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-28 03:30:30 +02:00
+ ufvcommon unit
git-svn-id: branches/unicodekvm@48592 -
This commit is contained in:
parent
e60b41f2ab
commit
29dfb6131e
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -5037,6 +5037,7 @@ 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/ufvcommon.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
|
||||
|
@ -178,6 +178,12 @@ begin
|
||||
AddInclude('fvcommon.inc');
|
||||
AddInclude('platform.inc');
|
||||
end;
|
||||
T:=P.Targets.AddUnit('ufvcommon.pas');
|
||||
with T.Dependencies do
|
||||
begin
|
||||
AddInclude('fvcommon.inc');
|
||||
AddInclude('platform.inc');
|
||||
end;
|
||||
T:=P.Targets.AddUnit('fvconsts.pas');
|
||||
T:=P.Targets.AddUnit('gadgets.pas');
|
||||
with T.Dependencies do
|
||||
|
@ -51,7 +51,11 @@
|
||||
{ 0.4.0 14 Nov 00 LdB Revamp of whole unit }
|
||||
{**********************************************************}
|
||||
|
||||
{$ifdef FV_UNICODE}
|
||||
UNIT UFVCommon;
|
||||
{$else FV_UNICODE}
|
||||
UNIT FVCommon;
|
||||
{$endif FV_UNICODE}
|
||||
|
||||
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
|
||||
INTERFACE
|
||||
|
2
packages/fv/src/ufvcommon.pas
Normal file
2
packages/fv/src/ufvcommon.pas
Normal file
@ -0,0 +1,2 @@
|
||||
{$DEFINE FV_UNICODE}
|
||||
{$I fvcommon.inc}
|
Loading…
Reference in New Issue
Block a user