paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +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}
{$ifdef USERESSTRINGS}{$mode objfpc}{$endif}
{$ifdef USERESSTRINGS}
{$mode objfpc}
{$endif USERESSTRINGS}
unit fpstring;
interface

18
ide/wviews.pas
View File

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