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

LCL: remove obsolete AddModeNames. Use WriteStr

Browse Source 
git-svn-id: trunk@33237 -
This commit is contained in:
juha 2011-11-02 23:16:27 +00:00
parent ed92cee3f1
commit 9a1d779e44
2 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -2342,8 +2342,6 @@ type
ETreeViewError = class(ETreeNodeError); ETreeViewError = class(ETreeNodeError);
const const
AddModeNames: array[TAddMode] of string =
('taAddFirst', 'taAdd', 'taInsert');
LCLStreamID = -7; LCLStreamID = -7;
type type

23
lcl/include/treeview.inc
View File

@ -1233,8 +1233,12 @@ begin
FPrevMultiSelected:=nil; FPrevMultiSelected:=nil;
end; end;
procedure TTreeNode.InternalMove(ANode: TTreeNode; function AddModeStr(AddMode: TAddMode): string;
AddMode: TAddMode); begin
WriteStr(Result, AddMode);
end;
procedure TTreeNode.InternalMove(ANode: TTreeNode; AddMode: TAddMode);
{ {
TAddMode = (taAddFirst, taAdd, taInsert); TAddMode = (taAddFirst, taAdd, taInsert);
@ -1249,8 +1253,9 @@ var
begin begin
{$IFDEF TREEVIEW_DEBUG} {$IFDEF TREEVIEW_DEBUG}
DbgOut('[TTreeNode.InternalMove] Self=',DbgS(Self),' Self.Text=',Text DbgOut('[TTreeNode.InternalMove] Self=',DbgS(Self),' Self.Text=',Text
,' ANode=',ANode<>nil,' AddMode=',AddModeNames[AddMode]); ,' ANode=',ANode<>nil,' AddMode=', AddModeStr(AddMode));
if ANode<>nil then DbgOut(' ANode.Text=',ANode.Text); if ANode<>nil then
DbgOut(' ANode.Text=',ANode.Text);
DebugLn(''); DebugLn('');
{$ENDIF} {$ENDIF}
if TreeView<>nil then TreeView.BeginUpdate; if TreeView<>nil then TreeView.BeginUpdate;
@ -1363,8 +1368,9 @@ begin
{$IFDEF TREEVIEW_DEBUG} {$IFDEF TREEVIEW_DEBUG}
DbgOut('[TTreeNode.InternalMove] END Self=',DbgS(Self),' Self.Text=',Text DbgOut('[TTreeNode.InternalMove] END Self=',DbgS(Self),' Self.Text=',Text
,' ANode=',DbgS(ANode<>nil),' AddMode=',AddModeNames[AddMode]); ,' ANode=',DbgS(ANode<>nil),' AddMode=',AddModeStr(AddMode));
if ANode<>nil then DbgOut(' ANode.Text=',ANode.Text); if ANode<>nil then
DbgOut(' ANode.Text=',ANode.Text);
DebugLn(''); DebugLn('');
{$ENDIF} {$ENDIF}
end; end;
@ -2099,8 +2105,9 @@ begin
TreeNodeError('TTreeNodes.InternalAddObject Owner=nil'); TreeNodeError('TTreeNodes.InternalAddObject Owner=nil');
{$IFDEF TREEVIEW_DEBUG} {$IFDEF TREEVIEW_DEBUG}
write('[TTreeNodes.InternalAddObject] Node=',Node<>nil,' S=',S, write('[TTreeNodes.InternalAddObject] Node=',Node<>nil,' S=',S,
' AddMode=',AddModeNames[AddMode]); ' AddMode=',AddModeStr(AddMode));
if Node<>nil then DbgOut(' Node.Text=',Node.Text); if Node<>nil then
DbgOut(' Node.Text=',Node.Text);
DebugLn(''); DebugLn('');
{$ENDIF} {$ENDIF}
Result := Owner.CreateNode; Result := Owner.CreateNode;