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

cody: icon for TCodyTreeView

Browse Source 
git-svn-id: trunk@30682 -
This commit is contained in:
mattias 2011-05-11 13:24:03 +00:00
parent 989a8fde2a
commit e57b30614c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/ide/codyregistration.pas
View File

@ -32,7 +32,7 @@ interface
uses uses
Classes, SysUtils, Classes, SysUtils,
IDECommands, MenuIntf, IDECommands, MenuIntf,
CodyFrm, CodyStrConsts, CodyCtrls, PPUListDlg, AddAssignMethodDlg; LResources, CodyFrm, CodyStrConsts, CodyCtrls, PPUListDlg, AddAssignMethodDlg;
procedure Register; procedure Register;
@ -47,6 +47,7 @@ var
AddAssignMethodCommand: TIDECommand; AddAssignMethodCommand: TIDECommand;
RemoveWithBlockCommand: TIDECommand; RemoveWithBlockCommand: TIDECommand;
InsertFileAtCursorCommand: TIDECommand; InsertFileAtCursorCommand: TIDECommand;
TVIconRes: TLResource;
begin begin
CmdCatFileMenu:=IDECommandList.FindCategoryByName('FileMenu'); CmdCatFileMenu:=IDECommandList.FindCategoryByName('FileMenu');
if CmdCatFileMenu=nil then if CmdCatFileMenu=nil then
@ -87,6 +88,8 @@ begin
crsRemoveWithBlock, nil, nil, RemoveWithBlockCommand); crsRemoveWithBlock, nil, nil, RemoveWithBlockCommand);
// components // components
TVIconRes:=LazarusResources.Find('TTreeView');
LazarusResources.Add(TCodyTreeView.ClassName,TVIconRes.ValueType,TVIconRes.Value);
RegisterComponents('LazControls',[TCodyTreeView]); RegisterComponents('LazControls',[TCodyTreeView]);
end; end;