From 2bb545136be3f71c837b5e281fc3860d621e4159 Mon Sep 17 00:00:00 2001 From: pierre Date: Wed, 18 Dec 2002 01:19:20 +0000 Subject: [PATCH] + Use TEditorInputLine instead of TInputLine --- ide/fpcodcmp.pas | 13 ++++++++----- ide/fpdebug.pas | 11 +++++++---- ide/fpmopts.inc | 17 ++++++++++------- ide/fpmrun.inc | 7 +++++-- ide/fpmsrch.inc | 9 ++++++--- ide/fpmtools.inc | 7 +++++-- ide/fptools.pas | 17 ++++++++++------- 7 files changed, 51 insertions(+), 30 deletions(-) diff --git a/ide/fpcodcmp.pas b/ide/fpcodcmp.pas index 6ad2a1fbc6..1a3aa97119 100644 --- a/ide/fpcodcmp.pas +++ b/ide/fpcodcmp.pas @@ -20,7 +20,7 @@ unit FPCodCmp; { CodeComplete } interface uses Objects,Drivers,Dialogs, - WUtils,WViews; + WEditor,WUtils,WViews; type PCodeCompleteWordList = ^TCodeCompleteWordList; @@ -36,7 +36,7 @@ type CodeCompleteLB : PAdvancedListBox; RB : PRadioButtons; CB : PCheckBoxes; - MinInputL,InputL : PInputLine; + MinInputL,InputL : PEditorInputLine; procedure Add; procedure Edit; procedure Delete; @@ -69,8 +69,8 @@ uses App,Views,MsgBox,Validate, Commands, {$endif} systems, BrowCol, - WEditor, FPSwitch, - FPCompil, FPVars, FPSymbol, + FPSwitch, FPCompil, + FPVars, FPSymbol, FPConst,FPString,FPViews; {$ifndef NOOBJREG} @@ -638,7 +638,10 @@ END. { $Log$ - Revision 1.11 2002-09-26 13:00:41 pierre + Revision 1.12 2002-12-18 01:19:20 pierre + + Use TEditorInputLine instead of TInputLine + + Revision 1.11 2002/09/26 13:00:41 pierre * avoid RTE 213 Revision 1.10 2002/09/11 13:12:42 pierre diff --git a/ide/fpdebug.pas b/ide/fpdebug.pas index f07186f7bf..59c740904b 100644 --- a/ide/fpdebug.pas +++ b/ide/fpdebug.pas @@ -183,9 +183,9 @@ type Breakpoint : PBreakpoint; TypeRB : PRadioButtons; NameIL : PEditorInputLine; - ConditionsIL: PInputLine; - LineIL : PInputLine; - IgnoreIL : PInputLine; + ConditionsIL: PEditorInputLine; + LineIL : PEditorInputLine; + IgnoreIL : PEditorInputLine; end; PWatch = ^TWatch; @@ -3574,7 +3574,10 @@ end. { $Log$ - Revision 1.42 2002-12-16 15:15:40 pierre + Revision 1.43 2002-12-18 01:20:12 pierre + + Use TEditorInputLine instead of TInputLine + + Revision 1.42 2002/12/16 15:15:40 pierre * Added TBreakpointCollection.FindBreakpointAt method Revision 1.41 2002/12/16 09:05:28 pierre diff --git a/ide/fpmopts.inc b/ide/fpmopts.inc index f0d4e29b7c..d16fd75123 100644 --- a/ide/fpmopts.inc +++ b/ide/fpmopts.inc @@ -66,7 +66,7 @@ var R,R2,R3,TabR,TabIR: TRect; CB1,CB2,CB3,CB4,CB5: PCheckBoxes; RB1,{RB2,}RB3,RB4,RB5,RB6: PRadioButtons; Items: PSItem; - IL: PInputLine; + IL: PEditorInputLine; Count : integer; I,L: longint; Tab: PTab; @@ -445,9 +445,9 @@ var R,R2,R3: TRect; CB2: PCheckBoxes; {$endif win32} {$ifdef Unix} - IL: PInputLine; + IL: PEditorInputLine; {$endif Unix} - IL2: PInputLine; + IL2: PEditorInputLine; L,I: longint; Items: PSItem; const @@ -556,7 +556,7 @@ end; procedure TIDEApp.DoRemote; var R,R2: TRect; - IL1,IL2,IL3,IL4,IL5,IL6: PInputLine; + IL1,IL2,IL3,IL4,IL5,IL6: PEditorInputLine; D: PCenterDialog; const FieldLines = 6; @@ -638,7 +638,7 @@ end; procedure TIDEApp.Directories; var R,R2: TRect; D: PCenterDialog; - IL : array[0..11] of PInputLine; + IL : array[0..11] of PEditorInputLine; Count,I : integer; const LW = 25; @@ -905,7 +905,7 @@ var D: PCenterDialog; R,R2,R3: TRect; CB: PCheckBoxes; ILTab,ILIdent: PIntegerLine; - ExtIL,TabExtIL: PInputLine; + ExtIL,TabExtIL: PEditorInputLine; TabSize,IndentSize: Integer; EFlags,EFValue: Longint; Title: string; @@ -1367,7 +1367,10 @@ end; { $Log$ - Revision 1.10 2002-11-28 12:56:23 pierre + Revision 1.11 2002-12-18 01:21:42 pierre + + Use TEditorInputLine instead of TInputLine + + Revision 1.10 2002/11/28 12:56:23 pierre + Remote dialog added Revision 1.9 2002/11/21 00:37:56 pierre diff --git a/ide/fpmrun.inc b/ide/fpmrun.inc index 052c7cc28a..ddaa9553f0 100644 --- a/ide/fpmrun.inc +++ b/ide/fpmrun.inc @@ -294,7 +294,7 @@ end; procedure TIDEApp.Parameters; var R,R2: TRect; D: PCenterDialog; - IL: PInputLine; + IL: PEditorInputLine; begin R.Assign(0,0,round(ScreenWidth*54/80),4); New(D, Init(R, dialog_programparameters)); @@ -495,7 +495,10 @@ end; { $Log$ - Revision 1.7 2002-12-16 09:06:08 pierre + Revision 1.8 2002-12-18 01:21:42 pierre + + Use TEditorInputLine instead of TInputLine + + Revision 1.7 2002/12/16 09:06:08 pierre * don't insert breakpoints in unsaved sources Revision 1.6 2002/10/12 19:43:07 hajny diff --git a/ide/fpmsrch.inc b/ide/fpmsrch.inc index 8f1245e9d1..e110b01e88 100644 --- a/ide/fpmsrch.inc +++ b/ide/fpmsrch.inc @@ -17,7 +17,7 @@ function ProcedureDialog(S : string) : PDialog; var D: PDialog; R,R1,R2: TRect; - IL: PInputLine; + IL: PEditorInputLine; begin R.Assign(0,0,40,8); New(D, Init(R, dialog_proceduredialog)); @@ -189,7 +189,7 @@ end; function SymbolDialog(S : string) : PDialog; var D: PDialog; R,R1,R2: TRect; - IL: PInputLine; + IL: PEditorInputLine; begin R.Assign(0,0,40,8); New(D, Init(R, dialog_browsesymbol)); @@ -228,7 +228,10 @@ end; { $Log$ - Revision 1.3 2002-09-07 15:40:44 peter + Revision 1.4 2002-12-18 01:21:42 pierre + + Use TEditorInputLine instead of TInputLine + + Revision 1.3 2002/09/07 15:40:44 peter * old logs removed and tabs fixed } diff --git a/ide/fpmtools.inc b/ide/fpmtools.inc index 426defac17..2f96bd95c3 100644 --- a/ide/fpmtools.inc +++ b/ide/fpmtools.inc @@ -210,7 +210,7 @@ var PGrepDialog : PCenterDialog; R,R1,R2 : TRect; Control : PView; - IL1,IL2 : PInputLine; + IL1,IL2 : PEditorInputLine; s : string; p,lineNb,GrepOutputLine : longint; error : word; @@ -384,7 +384,10 @@ end; { $Log$ - Revision 1.5 2002-09-07 15:40:44 peter + Revision 1.6 2002-12-18 01:21:42 pierre + + Use TEditorInputLine instead of TInputLine + + Revision 1.5 2002/09/07 15:40:44 peter * old logs removed and tabs fixed Revision 1.4 2002/08/29 10:06:33 pierre diff --git a/ide/fptools.pas b/ide/fptools.pas index 1c97315fea..be2832d65d 100644 --- a/ide/fptools.pas +++ b/ide/fptools.pas @@ -20,7 +20,7 @@ interface uses Objects,Drivers,Views,Dialogs,Validate, BrowCol, - WViews, + WEditor,WViews, FPViews; const @@ -67,9 +67,9 @@ type function Execute: Word; virtual; private Tool : PTool; - TitleIL : PInputLine; - ProgramIL: PInputLine; - ParamIL : PInputLine; + TitleIL : PEditorInputLine; + ProgramIL: PEditorInputLine; + ParamIL : PEditorInputLine; HotKeyRB : PRadioButtons; end; @@ -160,7 +160,7 @@ uses Dos, Commands, {$endif} App,MsgBox, - WConsts,WUtils,WINI,WEditor, + WConsts,WUtils,WINI, FPConst,FPString,FPVars,FPUtils; {$ifndef NOOBJREG} @@ -896,7 +896,7 @@ var R: TRect; OK: boolean; I,J,MaxLen: integer; Memo: PFPMemo; - IL: PInputLine; + IL: PEditorInputLine; CB: PCheckBoxes; RB: PRadioButtons; LV: PLabel; @@ -1621,7 +1621,10 @@ end; END. { $Log$ - Revision 1.4 2002-09-07 15:40:46 peter + Revision 1.5 2002-12-18 01:21:16 pierre + + Use TEditorInputLine instead of TInputLine + + Revision 1.4 2002/09/07 15:40:46 peter * old logs removed and tabs fixed Revision 1.3 2002/08/29 10:05:01 pierre