paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 22:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

reduced paint messages on destroy

Browse Source 
git-svn-id: trunk@3126 -
This commit is contained in:
mattias 2002-08-18 08:57:47 +00:00
parent 17bb402115
commit 359d81b25f
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/main.pp
View File

@ -324,6 +324,8 @@ type
// code explorer events // code explorer events
procedure OnCodeExplorerGetCodeTree(Sender: TObject; procedure OnCodeExplorerGetCodeTree(Sender: TObject;
var ACodeTool: TCodeTool); var ACodeTool: TCodeTool);
procedure OnCodeExplorerJumpToCode(Sender: TObject; const Filename: string;
CleanPos: integer)
// view project ToDo list events // view project ToDo list events
procedure ViewProjectTodosOpenFile(Sender: TObject; procedure ViewProjectTodosOpenFile(Sender: TObject;
@ -4681,6 +4683,7 @@ begin
if CodeExplorerView=nil then begin if CodeExplorerView=nil then begin
CodeExplorerView:=TCodeExplorerView.Create(Self); CodeExplorerView:=TCodeExplorerView.Create(Self);
CodeExplorerView.OnGetCodeTree:=@OnCodeExplorerGetCodeTree; CodeExplorerView.OnGetCodeTree:=@OnCodeExplorerGetCodeTree;
CodeExplorerView.OnJumpToCode:=@OnCodeExplorerJumpToCode;
end; end;
EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(nmiwCodeExplorerName).Apply; EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(nmiwCodeExplorerName).Apply;
@ -7461,6 +7464,20 @@ begin
CodeToolBoss.Explore(ActiveUnitInfo.Source,ACodeTool,false); CodeToolBoss.Explore(ActiveUnitInfo.Source,ACodeTool,false);
end; end;
procedure TMainIDE.OnCodeExplorerJumpToCode(Sender: TObject;
const Filename: string; CleanPos: integer)
var
CodeBuffer: TCodeBuffer;
ACodeTool: TCodeTool;
begin
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit;
CodeBuffer:=CodeToolBoss.FindFile(Filename);
if CodeBuffer=nil then exit;
ACodeTool:=nil;
CodeToolBoss.Explore(CodeBuffer,ACodeTool,false);
end;
procedure TMainIDE.ViewProjectTodosOpenFile(Sender: TObject; procedure TMainIDE.ViewProjectTodosOpenFile(Sender: TObject;
const Filename: string); const Filename: string);
begin begin
@ -9261,6 +9278,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.612 2003/06/20 12:56:53 mattias
reduced paint messages on destroy
Revision 1.611 2003/06/19 23:10:57 mattias Revision 1.611 2003/06/19 23:10:57 mattias
implemented two step compiling of IDE, needed for designtime packages implemented two step compiling of IDE, needed for designtime packages