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

+ Use TEditorInputLine instead of TInputLine

Browse Source
This commit is contained in:
pierre 2002-12-18 01:19:20 +00:00
parent 09b12ce0ad
commit 2bb545136b
7 changed files with 51 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/fpcodcmp.pas
View File

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

11
ide/fpdebug.pas
View File

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

17
ide/fpmopts.inc
View File

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

7
ide/fpmrun.inc
View File

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

9
ide/fpmsrch.inc
View File

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

7
ide/fpmtools.inc
View File

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

17
ide/fptools.pas
View File

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