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

codeexplorer: using lower recursive depth

Browse Source 
git-svn-id: trunk@6139 -
This commit is contained in:
mattias 2004-10-15 13:28:22 +00:00
parent 8f32b28a3f
commit d5177800f0
4 changed files with 81 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/codeexplorer.pas
View File

@ -316,13 +316,15 @@ var
ShowNode: Boolean;
ShowChilds: Boolean;
begin
if CodeNode=nil then exit;
while CodeNode<>nil do begin
ShowNode:=true;
ShowChilds:=true;
// don't show statements
if (CodeNode.Desc in AllPascalStatements+[ctnParameterList]) then exit;
if (CodeNode.Desc in AllPascalStatements+[ctnParameterList]) then begin
ShowNode:=false;
ShowChilds:=false;
end;
// don't show parameter lists
if (CodeNode.Desc in [ctnProcedureHead]) then begin
ShowNode:=false;
@ -343,6 +345,7 @@ begin
then
ShowNode:=false;
ViewNode:=ParentViewNode;
if ShowNode then begin
NodeData:=TViewNodeData.Create(CodeNode);
NodeText:=GetNodeDescription(ACodeTool,CodeNode);
@ -357,16 +360,12 @@ begin
ViewNode:=CodeTreeview.Items.AddObject(nil,NodeText,NodeData);
ViewNode.ImageIndex:=NodeImageIndex;
ViewNode.SelectedIndex:=NodeImageIndex;
InFrontViewNode:=ViewNode;
end;
if ShowChilds then
CreateNodes(ACodeTool,CodeNode.FirstChild,ViewNode,nil,true);
if CreateSiblings then
CreateNodes(ACodeTool,CodeNode.NextBrother,ParentViewNode,ViewNode,true);
end else begin
if ShowChilds then
CreateNodes(ACodeTool,CodeNode.FirstChild,ParentViewNode,nil,true);
if CreateSiblings then
CreateNodes(ACodeTool,CodeNode.NextBrother,ParentViewNode,InFrontViewNode,
true);
if not CreateSiblings then break;
CodeNode:=CodeNode.NextBrother;
end;
end;

8
lcl/buttons.pp
View File

@ -257,8 +257,6 @@ type
FShortcut: Longint;
FSpacing: integer;
FTransparent: Boolean;
FDCNowAvailable : Boolean; //this is for gtk1, DeviceContext not available during creation process????
FDownWaiting : Boolean; //when this one is true, need to down button when DC is available
function GetGlyph: TBitmap;
procedure UpdateExclusive;
procedure SetAllowAllUp(Value: Boolean);
@ -373,9 +371,6 @@ end;
{$I buttonglyph.inc}
{$I speedbutton.inc}
initialization
finalization
end.
@ -383,6 +378,9 @@ end.
{ =============================================================================
$Log$
Revision 1.81 2004/10/15 13:28:22 mattias
codeexplorer: using lower recursive depth
Revision 1.80 2004/10/15 12:04:09 mattias
calling updating notebook tab after realize, needed for close btns

6
lcl/include/treeview.inc
View File

@ -3524,9 +3524,9 @@ begin
SetScrollInfo(Handle, SB_VERT, ScrollInfo, true);
end;
end;
//DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert On nMin=',ScrollInfo.nMin,
//' nMax=',ScrollInfo.nMax,' nPage=',ScrollInfo.nPage,
//' nPos=',ScrollInfo.nPos,' GetMaxScrollTop=',GetMaxScrollTop);
//DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert On nMin=',dbgs(ScrollInfo.nMin),
//' nMax=',dbgs(ScrollInfo.nMax),' nPage=',dbgs(ScrollInfo.nPage),
//' nPos=',dbgs(ScrollInfo.nPos),' GetMaxScrollTop=',dbgs(GetMaxScrollTop));
end else begin
//DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert Off ');
FLastVertScrollInfo.cbSize:=0;

5
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -7922,7 +7922,7 @@ begin
' bRedraw=',bRedraw,
' Handle=',HexStr(Cardinal(Handle),8));}
// do we have to set this allways ?
// do we have to set this always ?
if bRedraw then
begin
if GtkWidgetIsA(PGtkWidget(Scroll),gtk_scrolled_window_get_type) then
@ -8695,6 +8695,9 @@ end;
{ =============================================================================
$Log$
Revision 1.370 2004/10/15 13:28:22 mattias
codeexplorer: using lower recursive depth
Revision 1.369 2004/10/01 13:16:44 mattias
fixed unselecting TCanvas objects