You've already forked lazarus-ccr
* Register in Virtual Controls pallete instead of VirtualTreeView
* 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:
@ -1,9 +0,0 @@
|
||||
object Form1: TForm1
|
||||
Left = 404
|
||||
Height = 300
|
||||
Top = 152
|
||||
Width = 400
|
||||
HorzScrollBar.Page = 399
|
||||
VertScrollBar.Page = 299
|
||||
Caption = 'Form1'
|
||||
end
|
@ -15,19 +15,19 @@ implementation
|
||||
|
||||
procedure RegisterUnitVirtualTrees;
|
||||
begin
|
||||
RegisterComponents('Virtual Treeview', [TVirtualDrawTree,TVirtualStringTree]);
|
||||
RegisterComponents('Virtual Controls', [TVirtualDrawTree, TVirtualStringTree]);
|
||||
end;
|
||||
|
||||
procedure RegisterUnitVTHeaderPopup;
|
||||
begin
|
||||
RegisterComponents('Virtual Treeview', [TVTHeaderPopupMenu]);
|
||||
RegisterComponents('Virtual Controls', [TVTHeaderPopupMenu]);
|
||||
end;
|
||||
|
||||
procedure Register;
|
||||
|
||||
begin
|
||||
RegisterUnit('VirtualTrees',@RegisterUnitVirtualTrees);
|
||||
RegisterUnit('VTHeaderPopup',@RegisterUnitVTHeaderPopup);
|
||||
RegisterUnit('VirtualTrees', @RegisterUnitVirtualTrees);
|
||||
RegisterUnit('VTHeaderPopup', @RegisterUnitVTHeaderPopup);
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
Reference in New Issue
Block a user