paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* find/replace dialogs need packed records !!

Browse Source
This commit is contained in:
pierre 1999-02-18 17:27:57 +00:00
parent f511ac5267
commit 8e36b55d87
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/weditor.pas
View File

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