浏览代码

* Add codepage directive to files.

git-svn-id: trunk@3839 -
daniel 19 年之前
父节点
当前提交
7a4203b79a
共有 6 个文件被更改,包括 13 次插入0 次删除
  1. 2 0
      fv/dialogs.pas
  2. 2 0
      fv/menus.pas
  3. 2 0
      fv/outline.pas
  4. 2 0
      fv/statuses.pas
  5. 3 0
      fv/tabs.pas
  6. 2 0
      fv/views.pas

+ 2 - 0
fv/dialogs.pas

@@ -27,6 +27,8 @@
 
 
 UNIT Dialogs;
 UNIT Dialogs;
 
 
+{$CODEPAGE 437}
+
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE
                                   INTERFACE
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}

+ 2 - 0
fv/menus.pas

@@ -27,6 +27,8 @@
 
 
 UNIT Menus;
 UNIT Menus;
 
 
+{$CODEPAGE cp437}
+
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE
                                   INTERFACE
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}

+ 2 - 0
fv/outline.pas

@@ -1,5 +1,7 @@
 unit outline;
 unit outline;
 
 
+{$CODEPAGE cp437}
+
 {***************************************************************************}
 {***************************************************************************}
                                   interface
                                   interface
 {***************************************************************************}
 {***************************************************************************}

+ 2 - 0
fv/statuses.pas

@@ -1,6 +1,8 @@
 {$V-}
 {$V-}
 unit Statuses;
 unit Statuses;
 
 
+{$CODEPAGE cp437}
+
 {#Z+}
 {#Z+}
 {  Free Vision Status Objects Unit
 {  Free Vision Status Objects Unit
    Free VIsion
    Free VIsion

+ 3 - 0
fv/tabs.pas

@@ -20,6 +20,9 @@
 
 
  ****************************************************************************}
  ****************************************************************************}
 unit tabs;
 unit tabs;
+
+{$CODEPAGE cp437}
+
 interface
 interface
 
 
 uses
 uses

+ 2 - 0
fv/views.pas

@@ -27,6 +27,8 @@
 
 
 UNIT Views;
 UNIT Views;
 
 
+{$CODEPAGE cp437}
+
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE
                                   INTERFACE
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}