paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:02:41 +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; ShowNode: Boolean;
ShowChilds: Boolean; ShowChilds: Boolean;
begin begin
if CodeNode=nil then exit; while CodeNode<>nil do begin
ShowNode:=true; ShowNode:=true;
ShowChilds:=true; ShowChilds:=true;
// don't show statements // 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 // don't show parameter lists
if (CodeNode.Desc in [ctnProcedureHead]) then begin if (CodeNode.Desc in [ctnProcedureHead]) then begin
ShowNode:=false; ShowNode:=false;
@ -343,6 +345,7 @@ begin
then then
ShowNode:=false; ShowNode:=false;
ViewNode:=ParentViewNode;
if ShowNode then begin if ShowNode then begin
NodeData:=TViewNodeData.Create(CodeNode); NodeData:=TViewNodeData.Create(CodeNode);
NodeText:=GetNodeDescription(ACodeTool,CodeNode); NodeText:=GetNodeDescription(ACodeTool,CodeNode);
@ -357,16 +360,12 @@ begin
ViewNode:=CodeTreeview.Items.AddObject(nil,NodeText,NodeData); ViewNode:=CodeTreeview.Items.AddObject(nil,NodeText,NodeData);
ViewNode.ImageIndex:=NodeImageIndex; ViewNode.ImageIndex:=NodeImageIndex;
ViewNode.SelectedIndex:=NodeImageIndex; ViewNode.SelectedIndex:=NodeImageIndex;
InFrontViewNode:=ViewNode;
end;
if ShowChilds then if ShowChilds then
CreateNodes(ACodeTool,CodeNode.FirstChild,ViewNode,nil,true); CreateNodes(ACodeTool,CodeNode.FirstChild,ViewNode,nil,true);
if CreateSiblings then if not CreateSiblings then break;
CreateNodes(ACodeTool,CodeNode.NextBrother,ParentViewNode,ViewNode,true); CodeNode:=CodeNode.NextBrother;
end else begin
if ShowChilds then
CreateNodes(ACodeTool,CodeNode.FirstChild,ParentViewNode,nil,true);
if CreateSiblings then
CreateNodes(ACodeTool,CodeNode.NextBrother,ParentViewNode,InFrontViewNode,
true);
end; end;
end; end;

58
lcl/buttons.pp
View File

@ -8,7 +8,7 @@
Initial Revision : Sun Mar 28 23:15:32 CST 1999 Initial Revision : Sun Mar 28 23:15:32 CST 1999
Revised : Sat Jul 3 1999 Revised: Sat Jul 3 1999
***************************************************************************/ ***************************************************************************/
@ -66,7 +66,7 @@ type
FModalResult: TModalResult; FModalResult: TModalResult;
FShortCut: TShortcut; FShortCut: TShortcut;
procedure SetCancel(NewCancel: boolean); procedure SetCancel(NewCancel: boolean);
procedure SetDefault(Value : Boolean); procedure SetDefault(Value: Boolean);
procedure WMDefaultClicked(var Message: TLMessage); message LM_CLICKED; procedure WMDefaultClicked(var Message: TLMessage); message LM_CLICKED;
protected protected
procedure Click; override; procedure Click; override;
@ -171,11 +171,11 @@ type
procedure RealizeKind; procedure RealizeKind;
//Return the caption associated with the aKind value. //Return the caption associated with the aKind value.
function GetCaptionOfKind(aKind: TBitBtnKind) : String; function GetCaptionOfKind(aKind: TBitBtnKind): String;
protected protected
procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); override; procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); override;
procedure Click; override; procedure Click; override;
procedure GlyphChanged(Sender : TObject); procedure GlyphChanged(Sender: TObject);
procedure InitializeWnd; override; procedure InitializeWnd; override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
@ -244,22 +244,20 @@ type
TCustomSpeedButton = class(TGraphicControl) TCustomSpeedButton = class(TGraphicControl)
private private
FAllowAllUp : Boolean; FAllowAllUp: Boolean;
FDown : Boolean; FDown: Boolean;
FDragging : Boolean; FDragging: Boolean;
FFlat : Boolean; FFlat: Boolean;
FGlyph: TButtonGlyph; FGlyph: TButtonGlyph;
FGroupIndex : Integer; FGroupIndex: Integer;
FLastDrawFlags: integer; FLastDrawFlags: integer;
FLayout: TButtonLayout; FLayout: TButtonLayout;
FMargin : integer; FMargin: integer;
FMouseInControl : Boolean; FMouseInControl: Boolean;
FShortcut : Longint; FShortcut: Longint;
FSpacing : integer; FSpacing: integer;
FTransparent : Boolean; FTransparent: Boolean;
FDCNowAvailable : Boolean; //this is for gtk1, DeviceContext not available during creation process???? function GetGlyph: TBitmap;
FDownWaiting : Boolean; //when this one is true, need to down button when DC is available
function GetGlyph : TBitmap;
procedure UpdateExclusive; procedure UpdateExclusive;
procedure SetAllowAllUp(Value: Boolean); procedure SetAllowAllUp(Value: Boolean);
procedure SetGlyph(Value: TBitmap); procedure SetGlyph(Value: TBitmap);
@ -271,20 +269,20 @@ type
procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED; procedure CMEnabledChanged(var Message: TLMessage); message CM_ENABLEDCHANGED;
protected protected
FState: TButtonState; FState: TButtonState;
function GetNumGlyphs : Integer; function GetNumGlyphs: Integer;
procedure GlyphChanged(Sender : TObject); procedure GlyphChanged(Sender: TObject);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override; X, Y: Integer); override;
procedure Paint; override; procedure Paint; override;
procedure SetDown(Value : Boolean); procedure SetDown(Value: Boolean);
procedure SetGroupIndex(const Value : Integer); procedure SetGroupIndex(const Value: Integer);
procedure SetFlat(const Value : Boolean); procedure SetFlat(const Value: Boolean);
procedure SetMargin(const Value : integer); procedure SetMargin(const Value: integer);
procedure SetNumGlyphs(Value : integer); procedure SetNumGlyphs(Value: integer);
procedure SetSpacing(const Value : integer); procedure SetSpacing(const Value: integer);
procedure RealSetText(const Value: TCaption); override; procedure RealSetText(const Value: TCaption); override;
procedure UpdateState(InvalidateOnChange: boolean); virtual; procedure UpdateState(InvalidateOnChange: boolean); virtual;
function GetDrawFlags: integer; virtual; function GetDrawFlags: integer; virtual;
@ -352,12 +350,12 @@ uses
WSButtons; WSButtons;
const const
BitBtnModalResults : array[TBitBtnKind] of TModalResult = ( BitBtnModalResults: array[TBitBtnKind] of TModalResult = (
0, mrOK, mrCancel, 0, mrYes, mrNo, 0, mrOK, mrCancel, 0, mrYes, mrNo,
0, mrAbort, mrRetry, mrIgnore, mrAll, 0, mrAbort, mrRetry, mrIgnore, mrAll,
mrNoToAll, mrYesToAll); mrNoToAll, mrYesToAll);
BitBtnImages : array[TBitBtnKind] of Longint = ( BitBtnImages: array[TBitBtnKind] of Longint = (
idButtonOk, idButtonOk, idButtonCancel, idButtonHelp, idButtonYes, idButtonOk, idButtonOk, idButtonCancel, idButtonHelp, idButtonYes,
idButtonNo, idButtonClose, idButtonAbort, idButtonRetry, idButtonIgnore, idButtonNo, idButtonClose, idButtonAbort, idButtonRetry, idButtonIgnore,
idButtonAll, idButtonNoToAll, idButtonYesToAll); idButtonAll, idButtonNoToAll, idButtonYesToAll);
@ -373,9 +371,6 @@ end;
{$I buttonglyph.inc} {$I buttonglyph.inc}
{$I speedbutton.inc} {$I speedbutton.inc}
initialization
finalization
end. end.
@ -383,6 +378,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.80 2004/10/15 12:04:09 mattias
calling updating notebook tab after realize, needed for close btns 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); SetScrollInfo(Handle, SB_VERT, ScrollInfo, true);
end; end;
end; end;
//DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert On nMin=',ScrollInfo.nMin, //DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert On nMin=',dbgs(ScrollInfo.nMin),
//' nMax=',ScrollInfo.nMax,' nPage=',ScrollInfo.nPage, //' nMax=',dbgs(ScrollInfo.nMax),' nPage=',dbgs(ScrollInfo.nPage),
//' nPos=',ScrollInfo.nPos,' GetMaxScrollTop=',GetMaxScrollTop); //' nPos=',dbgs(ScrollInfo.nPos),' GetMaxScrollTop=',dbgs(GetMaxScrollTop));
end else begin end else begin
//DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert Off '); //DebugLn('>>>>>>>>>> [TCustomTreeView.UpdateScrollbars] Vert Off ');
FLastVertScrollInfo.cbSize:=0; FLastVertScrollInfo.cbSize:=0;

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

@ -7922,7 +7922,7 @@ begin
' bRedraw=',bRedraw, ' bRedraw=',bRedraw,
' Handle=',HexStr(Cardinal(Handle),8));} ' Handle=',HexStr(Cardinal(Handle),8));}
// do we have to set this allways ? // do we have to set this always ?
if bRedraw then if bRedraw then
begin begin
if GtkWidgetIsA(PGtkWidget(Scroll),gtk_scrolled_window_get_type) then if GtkWidgetIsA(PGtkWidget(Scroll),gtk_scrolled_window_get_type) then
@ -8695,6 +8695,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.369 2004/10/01 13:16:44 mattias
fixed unselecting TCanvas objects fixed unselecting TCanvas objects