Browse Source

* find/replace dialogs need packed records !!

pierre 26 years ago
parent
commit
8e36b55d87
1 changed files with 7 additions and 4 deletions
  1. 7 4
      ide/text/weditor.pas

+ 7 - 4
ide/text/weditor.pas

@@ -316,7 +316,7 @@ implementation
 uses Dos,MsgBox,Dialogs,App,StdDlg,HistList,Validate;
 uses Dos,MsgBox,Dialogs,App,StdDlg,HistList,Validate;
 
 
 type
 type
-     TFindDialogRec = record
+     TFindDialogRec = packed record
        Find: String[80];
        Find: String[80];
        Options: Word;
        Options: Word;
        Direction: word;
        Direction: word;
@@ -324,7 +324,7 @@ type
        Origin: word;
        Origin: word;
      end;
      end;
 
 
-     TReplaceDialogRec = record
+     TReplaceDialogRec = packed record
        Find: String[80];
        Find: String[80];
        Replace: String[80];
        Replace: String[80];
        Options: Word;
        Options: Word;
@@ -333,7 +333,7 @@ type
        Origin: word;
        Origin: word;
      end;
      end;
 
 
-     TGotoLineDialogRec = record
+     TGotoLineDialogRec = packed record
        LineNo  : string[5];
        LineNo  : string[5];
        Lines   : integer;
        Lines   : integer;
      end;
      end;
@@ -3217,7 +3217,10 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.19  1999-02-18 13:44:36  peter
+  Revision 1.20  1999-02-18 17:27:57  pierre
+   * find/replace dialogs need packed records !!
+
+  Revision 1.19  1999/02/18 13:44:36  peter
     * search fixed
     * search fixed
     + backward search
     + backward search
     * help fixes
     * help fixes