pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Register in Virtual Controls pallete instead of VirtualTreeView

Browse Source 
* Remove unused file

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@632 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-12-15 16:16:28 +00:00
parent 0a389177d4
commit 379225acd2
2 changed files with 4 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/virtualtreeview-unstable/registervirtualtreeview.lfm
View File

@ -1,9 +0,0 @@
object Form1: TForm1
Left = 404
Height = 300
Top = 152
Width = 400
HorzScrollBar.Page = 399
VertScrollBar.Page = 299
Caption = 'Form1'
end

8
components/virtualtreeview-unstable/registervirtualtreeview.pas
View File

@ -15,19 +15,19 @@ implementation
procedure RegisterUnitVirtualTrees; procedure RegisterUnitVirtualTrees;
begin begin
RegisterComponents('Virtual Treeview', [TVirtualDrawTree,TVirtualStringTree]); RegisterComponents('Virtual Controls', [TVirtualDrawTree, TVirtualStringTree]);
end; end;
procedure RegisterUnitVTHeaderPopup; procedure RegisterUnitVTHeaderPopup;
begin begin
RegisterComponents('Virtual Treeview', [TVTHeaderPopupMenu]); RegisterComponents('Virtual Controls', [TVTHeaderPopupMenu]);
end; end;
procedure Register; procedure Register;
begin begin
RegisterUnit('VirtualTrees',@RegisterUnitVirtualTrees); RegisterUnit('VirtualTrees', @RegisterUnitVirtualTrees);
RegisterUnit('VTHeaderPopup',@RegisterUnitVTHeaderPopup); RegisterUnit('VTHeaderPopup', @RegisterUnitVTHeaderPopup);
end; end;
initialization initialization