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

reduced paint messages on destroy

Browse Source 
git-svn-id: trunk@2624 -
This commit is contained in:
mattias 2002-08-17 23:41:32 +00:00
parent 2978211924
commit ce7861f2c2
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/codeexplorer.pas
View File

@ -191,6 +191,10 @@ var
NodeImageIndex: Integer;
begin
if CodeNode=nil then exit;
// don't show statements, parameter lists
if (CodeNode.Desc in AllPascalStatements)
or (CodeNode.Desc in [ctnProcedureHead,ctnParameterList]) then exit;
NodeData:=TViewNodeData.Create(CodeNode);
NodeText:=GetNodeDescription(ACodeTool,CodeNode);
NodeImageIndex:=0;
@ -269,11 +273,23 @@ procedure TCodeExplorerView.JumpToSelection;
var
CurItem: TTreeNode;
CurNode: TViewNodeData;
Caret: TCodeXYPosition;
NewTopLine: integer;
begin
CurItem:=CodeTreeview.Selected;
if CurItem=nil then exit;
CurNode:=TViewNodeData(CurItem.Data);
if CurNode.StartPos<1 then exit;
CodeBuffer:=CodeToolBoss.FindFile(MainFilename);
if CodeBuffer=nil then exit;
ACodeTool:=nil;
CodeToolBoss.Explore(CodeBuffer,ACodeTool,false);
if ACodeTool=nil then exit;
ACodeTool.CleanPosToCaretAndTopLine(CurNode.StartPos,
);
if Assigned(OnJumpToCode) then
OnJumpToCode(Self,MainFilename,CurNode.StartPos);
end;