paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +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);
const
AddModeNames: array[TAddMode] of string =
('taAddFirst', 'taAdd', 'taInsert');
LCLStreamID = -7;
type

23
lcl/include/treeview.inc
View File

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