business_area.pas

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

unit BUSINESS_AREA;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, CommCtrl, ComCtrls, ActnList, ImgList, ToolWin,
  ExtCtrls, StdActns, EASY_GASMAIN;

type
  TAREADlg = class(TForm)
    TV: TTreeView;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ActionList1: TActionList;
    AddItem: TAction;
    AddSUB: TAction;
    DelItem: TAction;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SaveToFile: TFileSaveAs;
    ImportFile: TFileOpen;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    procedure AddItemExecute(Sender: TObject);
    procedure AddSUBExecute(Sender: TObject);
    procedure AddSUBUpdate(Sender: TObject);
    procedure DelItemExecute(Sender: TObject);
    procedure SaveToFileAccept(Sender: TObject);
    procedure ImportFileAccept(Sender: TObject);
    procedure DelItemUpdate(Sender: TObject);
    procedure TVChange(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
    FEditing:Boolean;
    Procedure SetEditing(Value:Boolean);

  public
    { Public declarations }
  published
    property Editing:Boolean read FEditing write SetEditing default False;
  end;


var
  AREADlg: TAREADlg;

implementation

{$R *.dfm}

procedure TAREADlg.AddItemExecute(Sender: TObject);
var NewItem:TTreeNode;
begin
  if (TV.Selected=nil) or (TV.Selected.Level=0) then NewItem:=TV.Items.Add(nil,'请输入新值') else
  NewItem:=TV.Items.AddChild(TV.Selected.Parent,'请输入新值');
  TV.Selected:=NewItem;
  CommCtrl.TreeView_EditLabel(TV.Handle,NewItem.ItemId);
end;

Procedure TAREADlg.SetEditing(Value:Boolean);
Begin
  FEditing:=Value;
  ToolBar.Visible:=Value;
  TV.RowSelect:=Not Value;
  TV.ReadOnly:=Not Value;
  Bitbtn1.Default:=Not Editing;
  Bitbtn1.Enabled:=False;
end;

procedure TAREADlg.AddSUBExecute(Sender: TObject);
var new:TTreeNode;
begin
  New:=TV.Items.AddChildFirst(TV.Selected,'请输入新项');
  TV.Selected:=New;
  TreeView_EditLabel(TV.Handle,New.ItemId);
end;

procedure TAREADlg.AddSUBUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled:=(TV.Selected<>nil) and (TV.Selected.Level<1);
end;

procedure TAREADlg.DelItemExecute(Sender: TObject);
begin
  TV.Selected.Delete;
end;

procedure TAREADlg.SaveToFileAccept(Sender: TObject);
begin
  TV.SaveToFile(SaveToFile.Dialog.FileName);
end;

procedure TAREADlg.ImportFileAccept(Sender: TObject);
begin
  TV.LoadFromFile(ImportFile.Dialog.FileName);
end;

procedure TAREADlg.DelItemUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled:=(TV.Selected<>nil);
end;

procedure TAREADlg.TVChange(Sender: TObject; Node: TTreeNode);
begin
  if Not FEditing then Bitbtn1.enabled:=Node.Level=1 else Bitbtn1.Enabled:=True;
end;

end.