ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/ibtreeview/Unit1.pas

Comparing ibx/trunk/examples/ibtreeview/Unit1.pas (file contents):
Revision 311 by tony, Mon Aug 24 09:32:58 2020 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

#	Line 32 | Line 32 | interface
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 | procedure TForm1.DeleteNodeExecute(Sende
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