paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation of wviews unit for go32v2

Browse Source 
git-svn-id: trunk@5801 -
This commit is contained in:
pierre 2007-01-04 08:13:13 +00:00
parent d1b6522866
commit f745a62679
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/fpstring.pas
View File

@ -13,7 +13,10 @@
**********************************************************************} **********************************************************************}
{$i globdir.inc} {$i globdir.inc}
{$ifdef USERESSTRINGS}{$mode objfpc}{$endif} {$ifdef USERESSTRINGS}
{$mode objfpc}
{$endif USERESSTRINGS}
unit fpstring; unit fpstring;
interface interface

18
ide/wviews.pas
View File

@ -11,6 +11,10 @@
**********************************************************************} **********************************************************************}
{$I globdir.inc} {$I globdir.inc}
{$ifdef USERESSTRINGS}
{$mode objfpc}
{$endif USERESSTRINGS}
unit WViews; unit WViews;
interface interface
@ -300,11 +304,15 @@ const
); );
{$endif} {$endif}
{$ifdef USERESSTRINGS}
resourcestring sConfirm='Confirm'; resourcestring
sError='Error'; {$else}
sInformation='Information'; const
sWarning='Warning'; {$endif}
sConfirm='Confirm';
sError='Error';
sInformation='Information';
sWarning='Warning';
const const
MessageDialog : PCenterDialog = nil; MessageDialog : PCenterDialog = nil;