mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-31 09:08:01 +02:00
317 lines
9.2 KiB
PHP
317 lines
9.2 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal Integrated Development Environment
|
|
Copyright (c) 1998 by Berczi Gabor
|
|
|
|
Search menu entries
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
function ProcedureDialog(S : string) : PDialog;
|
|
var D: PDialog;
|
|
R,R1,R2: TRect;
|
|
IL: PInputLine;
|
|
begin
|
|
R.Assign(0,0,40,8);
|
|
New(D, Init(R, dialog_proceduredialog));
|
|
with D^ do
|
|
begin
|
|
Options:=Options or ofCentered;
|
|
GetExtent(R); R.Grow(-3,-2); R.B.Y:=R.A.Y+1;
|
|
R1.Copy(R);
|
|
R2.Copy(R); Inc(R2.A.Y);Inc(R2.B.Y);
|
|
New(IL, Init(R2,255));
|
|
Insert(IL);
|
|
IL^.SetData(S);
|
|
Insert(New(PLabel, Init(R1, label_enterproceduretofind, IL)));
|
|
GetExtent(R); R.Grow(-8,-1); R.A.Y:=R.B.Y-2; R.B.X:=R.A.X+10;
|
|
Insert(New(PButton, Init(R, button_OK, cmOK, bfDefault)));
|
|
R.Move(15,0);
|
|
Insert(New(PButton, Init(R, button_Cancel, cmCancel, bfNormal)));
|
|
end;
|
|
IL^.Select;
|
|
ProcedureDialog:=D;
|
|
end;
|
|
|
|
|
|
procedure TIDEApp.FindProcedure;
|
|
var R: TRect;
|
|
S: PSortedSymbolCollection;
|
|
Overflow: boolean;
|
|
ProcS : string;
|
|
Level : longint;
|
|
|
|
function NameMatches(const St : string) : boolean;
|
|
begin
|
|
NameMatches:=(ProcS='') or (Pos(ProcS,UpcaseStr(St)) > 0);
|
|
end;
|
|
|
|
procedure InsertInS(P: PSymbol); {$ifndef FPC}far;{$endif}
|
|
|
|
procedure InsertItemsInS(P: PSymbolCollection);
|
|
var I: Sw_integer;
|
|
begin
|
|
for I:=0 to P^.Count-1 do
|
|
InsertInS(P^.At(I));
|
|
end;
|
|
|
|
begin
|
|
Inc(level);
|
|
if S^.Count=MaxCollectionSize then
|
|
begin Overflow:=true; Exit; end;
|
|
if {(P^.typ = procsym) this needs symconst unit which I prefer to avoid }
|
|
((P^.GetTypeName='proc') or (P^.GetTypeName='func'))
|
|
and NameMatches(P^.GetName) then
|
|
S^.Insert(P);
|
|
{ this is wrong because it inserted args or locals of proc
|
|
in the globals list !! PM}
|
|
if (P^.Items<>nil) and (level=1) then
|
|
InsertItemsInS(P^.Items);
|
|
Dec(level);
|
|
end;
|
|
|
|
var
|
|
EditorWindow : PSourceWindow;
|
|
begin
|
|
level:=0;
|
|
if BrowCol.Modules=nil then
|
|
begin ErrorBox(msg_nodebuginfoavailable,nil); Exit; end;
|
|
EditorWindow:=FirstEditorWindow;
|
|
If assigned(EditorWindow) then
|
|
ProcS:=LowerCaseStr(EditorWindow^.Editor^.GetCurrentWord)
|
|
else
|
|
ProcS:='';
|
|
if ExecuteDialog(ProcedureDialog(ProcS),@ProcS)=cmCancel then
|
|
exit;
|
|
ProcS:=UpcaseStr(ProcS);
|
|
Overflow:=false;
|
|
if assigned(ProcedureCollection) then
|
|
begin
|
|
ProcedureCollection^.deleteAll;
|
|
Dispose(ProcedureCollection,done);
|
|
end;
|
|
New(S, Init(500,500));
|
|
ProcedureCollection:=S;
|
|
BrowCol.Modules^.ForEach(@InsertInS);
|
|
if Overflow then
|
|
WarningBox(msg_toomanysymbolscantdisplayall,nil);
|
|
Desktop^.GetExtent(R); R.A.X:=R.B.X-35;
|
|
Desktop^.Insert(New(PBrowserWindow, Init(R,
|
|
label_sym_findprocedure,SearchFreeWindowNo,nil,label_sym_findprocedure2+ProcS,'',S,nil,nil,nil)));
|
|
end;
|
|
|
|
procedure TIDEApp.Objects;
|
|
begin
|
|
if ObjectTree=nil then
|
|
begin ErrorBox(msg_nodebuginfoavailable,nil); Exit; end;
|
|
|
|
OpenSymbolBrowser(0,0,label_sym_objects,label_sym_globalscope,nil,nil,nil,nil,ObjectTree,nil);
|
|
end;
|
|
|
|
procedure TIDEApp.Globals;
|
|
var R: TRect;
|
|
S: PSortedSymbolCollection;
|
|
Overflow: boolean;
|
|
Level : longint;
|
|
|
|
procedure InsertInS(P: PSymbol); {$ifndef FPC}far;{$endif}
|
|
|
|
procedure InsertItemsInS(P: PSymbolCollection);
|
|
var I: Sw_integer;
|
|
begin
|
|
for I:=0 to P^.Count-1 do
|
|
InsertInS(P^.At(I));
|
|
end;
|
|
|
|
begin
|
|
Inc(level);
|
|
if S^.Count=MaxCollectionSize then
|
|
begin Overflow:=true; Exit; end;
|
|
S^.Insert(P);
|
|
{ this is wrong because it inserted args or locals of proc
|
|
in the globals list !! PM}
|
|
if (P^.Items<>nil) and (level=1) then
|
|
InsertItemsInS(P^.Items);
|
|
Dec(level);
|
|
end;
|
|
|
|
begin
|
|
level:=0;
|
|
if BrowCol.Modules=nil then
|
|
begin ErrorBox(msg_nodebuginfoavailable,nil); Exit; end;
|
|
Overflow:=false;
|
|
if assigned(GlobalsCollection) then
|
|
begin
|
|
GlobalsCollection^.deleteAll;
|
|
Dispose(GlobalsCollection,done);
|
|
end;
|
|
New(S, Init(500,500));
|
|
GlobalsCollection:=S;
|
|
BrowCol.Modules^.ForEach(@InsertInS);
|
|
if Overflow then
|
|
WarningBox(msg_toomanysymbolscantdisplayall,nil);
|
|
Desktop^.GetExtent(R); R.A.X:=R.B.X-35;
|
|
Desktop^.Insert(New(PBrowserWindow, Init(R,
|
|
label_sym_globals,SearchFreeWindowNo,nil,label_sym_globalscope,'',S,nil,nil,nil)));
|
|
end;
|
|
|
|
procedure TIDEApp.Modules;
|
|
var
|
|
R: TRect;
|
|
S: PSortedSymbolCollection;
|
|
procedure InsertInS(P: PSymbol); {$ifndef FPC}far;{$endif}
|
|
begin
|
|
S^.Insert(P);
|
|
end;
|
|
begin
|
|
if BrowCol.Modules=nil then
|
|
begin ErrorBox(msg_nodebuginfoavailable,nil); Exit; end;
|
|
if assigned(ModulesCollection) then
|
|
begin
|
|
ModulesCollection^.deleteAll;
|
|
Dispose(ModulesCollection,done);
|
|
end;
|
|
New(S, Init(500,500));
|
|
ModulesCollection:=S;
|
|
BrowCol.Modules^.ForEach(@InsertInS);
|
|
Desktop^.GetExtent(R); R.A.X:=R.B.X-35;
|
|
Desktop^.Insert(New(PBrowserWindow, Init(R,
|
|
dialog_units,SearchFreeWindowNo,nil,label_sym_globalscope,'',S,nil,nil,nil)));
|
|
end;
|
|
|
|
function SymbolDialog(S : string) : PDialog;
|
|
var D: PDialog;
|
|
R,R1,R2: TRect;
|
|
IL: PInputLine;
|
|
begin
|
|
R.Assign(0,0,40,8);
|
|
New(D, Init(R, dialog_browsesymbol));
|
|
with D^ do
|
|
begin
|
|
Options:=Options or ofCentered;
|
|
GetExtent(R); R.Grow(-3,-2); R.B.Y:=R.A.Y+1;
|
|
R1.Copy(R);
|
|
R2.Copy(R); Inc(R2.A.Y);Inc(R2.B.Y);
|
|
New(IL, Init(R2,255));
|
|
Insert(IL);
|
|
IL^.SetData(S);
|
|
Insert(New(PLabel, Init(R1, label_entersymboltobrowse, IL)));
|
|
GetExtent(R); R.Grow(-8,-1); R.A.Y:=R.B.Y-2; R.B.X:=R.A.X+10;
|
|
Insert(New(PButton, Init(R, button_OK, cmOK, bfDefault)));
|
|
R.Move(15,0);
|
|
Insert(New(PButton, Init(R, button_Cancel, cmCancel, bfNormal)));
|
|
end;
|
|
IL^.Select;
|
|
SymbolDialog:=D;
|
|
end;
|
|
|
|
procedure TIDEApp.SearchSymbol;
|
|
var
|
|
EditorWindow : PSourceWindow;
|
|
S : string;
|
|
begin
|
|
EditorWindow:=FirstEditorWindow;
|
|
If assigned(EditorWindow) then
|
|
S:=LowerCaseStr(EditorWindow^.Editor^.GetCurrentWord)
|
|
else
|
|
S:='';
|
|
if ExecuteDialog(SymbolDialog(S),@S)<>cmCancel then
|
|
OpenOneSymbolBrowser(S);
|
|
end;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.2 2001-10-24 21:49:56 pierre
|
|
+ FindProcedure implemented
|
|
|
|
Revision 1.1 2001/08/04 11:30:23 peter
|
|
* ide works now with both compiler versions
|
|
|
|
Revision 1.1.2.1 2001/03/20 00:20:42 pierre
|
|
* fix some memory leaks + several small enhancements
|
|
|
|
Revision 1.1 2000/07/13 09:48:35 michael
|
|
+ Initial import
|
|
|
|
Revision 1.13 2000/05/02 08:42:28 pierre
|
|
* new set of Gabor changes: see fixes.txt
|
|
|
|
Revision 1.12 2000/03/07 21:57:01 pierre
|
|
* adapted to change of OpenSymbolBrowser
|
|
|
|
Revision 1.11 1999/07/28 23:11:21 peter
|
|
* fixes from gabor
|
|
|
|
Revision 1.10 1999/06/29 12:49:55 pierre
|
|
* SearchSymbol works
|
|
|
|
Revision 1.9 1999/06/28 19:32:22 peter
|
|
* fixes from gabor
|
|
|
|
Revision 1.8 1999/06/28 12:38:19 pierre
|
|
* Globals(Modules)Collection tracing
|
|
|
|
Revision 1.7 1999/06/25 00:34:50 pierre
|
|
+ SearchSymbol function
|
|
|
|
Revision 1.6 1999/04/07 21:55:51 peter
|
|
+ object support for browser
|
|
* html help fixes
|
|
* more desktop saving things
|
|
* NODEBUG directive to exclude debugger
|
|
|
|
Revision 1.5 1999/03/01 15:41:59 peter
|
|
+ Added dummy entries for functions not yet implemented
|
|
* MenuBar didn't update itself automatically on command-set changes
|
|
* Fixed Debugging/Profiling options dialog
|
|
* TCodeEditor converts spaces to tabs at save only if efUseTabChars is
|
|
set
|
|
* efBackSpaceUnindents works correctly
|
|
+ 'Messages' window implemented
|
|
+ Added '$CAP MSG()' and '$CAP EDIT' to available tool-macros
|
|
+ Added TP message-filter support (for ex. you can call GREP thru
|
|
GREP2MSG and view the result in the messages window - just like in TP)
|
|
* A 'var' was missing from the param-list of THelpFacility.TopicSearch,
|
|
so topic search didn't work...
|
|
* In FPHELP.PAS there were still context-variables defined as word instead
|
|
of THelpCtx
|
|
* StdStatusKeys() was missing from the statusdef for help windows
|
|
+ Topic-title for index-table can be specified when adding a HTML-files
|
|
|
|
Revision 1.4 1999/02/10 09:51:03 pierre
|
|
* Adapted to TBrowserWindow changes
|
|
|
|
Revision 1.3 1999/02/04 13:32:08 pierre
|
|
* Several things added (I cannot commit them independently !)
|
|
+ added TBreakpoint and TBreakpointCollection
|
|
+ added cmResetDebugger,cmGrep,CmToggleBreakpoint
|
|
+ Breakpoint list in INIFile
|
|
* Select items now also depend of SwitchMode
|
|
* Reading of option '-g' was not possible !
|
|
+ added search for -Fu args pathes in TryToOpen
|
|
+ added code for automatic opening of FileDialog
|
|
if source not found
|
|
|
|
Revision 1.2 1999/01/14 21:42:23 peter
|
|
* source tracking from Gabor
|
|
|
|
Revision 1.1 1999/01/12 14:29:37 peter
|
|
+ Implemented still missing 'switch' entries in Options menu
|
|
+ Pressing Ctrl-B sets ASCII mode in editor, after which keypresses (even
|
|
ones with ASCII < 32 ; entered with Alt+<###>) are interpreted always as
|
|
ASCII chars and inserted directly in the text.
|
|
+ Added symbol browser
|
|
* splitted fp.pas to fpide.pas
|
|
|
|
Revision 1.9 1999/01/09 18:00:47 peter
|
|
Original implementation
|
|
|
|
}
|