ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibtreeview/Unit1.pas
(Generate patch)
# Line 32 | Line 32
32  
33   uses
34    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
35 <  StdCtrls, DbCtrls, ActnList, Menus, db, IBTreeView, IBDatabase,
35 >  StdCtrls, DbCtrls, ActnList, Menus, db, DBTreeView, IBTreeView, IBDatabase,
36    IBCustomDataSet, IBLookupComboEditBox, IBQuery, IBDynamicGrid, ComCtrls;
37  
38   type
# Line 182 | Line 182
182   begin
183    if MessageDlg(Format('Do you want to delete the %s department?',[IBTreeview1.Selected.Text]),
184                mtConfirmation,[mbYes,mbNo],0) = mrYes then
185 <    TIBTreeNode(IBTreeview1.Selected).DeleteAll
185 >    TDBTreeNode(IBTreeview1.Selected).DeleteAll
186   end;
187  
188   procedure TForm1.DeleteNodeUpdate(Sender: TObject);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines