Răsfoiți Sursa

* fix compilation of wviews unit for go32v2

git-svn-id: trunk@5801 -
pierre 18 ani în urmă
părinte
comite
f745a62679
2 a modificat fișierele cu 17 adăugiri și 6 ștergeri
  1. 4 1
      ide/fpstring.pas
  2. 13 5
      ide/wviews.pas

+ 4 - 1
ide/fpstring.pas

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

+ 13 - 5
ide/wviews.pas

@@ -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;