demopack.pas

Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器

unit demoPack;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Buttons, nucaintf;

type
  TfrmInstallPackage = class(TForm)
    ListPackage: TTreeView;
    Splitter1: TSplitter;
    ServicesView: TListView;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    OpenDialog1: TOpenDialog;
    procedure ListPackageCollapsing(Sender: TObject; Node: TTreeNode;
      var AllowCollapse: Boolean);
    procedure ListPackageEditing(Sender: TObject; Node: TTreeNode;
      var AllowEdit: Boolean);
    procedure ListPackageChanging(Sender: TObject; Node: TTreeNode;
      var AllowChange: Boolean);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     FBusy       :Boolean;
  public
    { Public declarations }
      procedure AddPackage( const Package:INOAPackage);
      procedure DisplayServices( const Node:TTreeNode );
  end;

var
  frmInstallPackage: TfrmInstallPackage;

implementation
  uses fMain;
{$R *.DFM}

procedure TfrmInstallPackage.AddPackage( const Package:INOAPackage);
var
  Root:TTreeNode;
begin
   Root := ListPackage.Items[0];
   with ListPackage.Items.AddChildObject(Root,'Native',Pointer(Package)) do
   begin
      if Assigned(Package) then
         Text := Package.PackageName;
      ImageIndex     := 2;
      SelectedIndex  := 2;
   end;
   Root.Expand(True)
end;


procedure TfrmInstallPackage.ListPackageChanging(Sender: TObject;
  Node: TTreeNode; var AllowChange: Boolean);
begin
   if Assigned(Node) and not FBusy then
      case Node.ImageIndex of
         0: DisplayServices(nil);
         2: DisplayServices(Node);
      end
end;

procedure TfrmInstallPackage.BitBtn3Click(Sender: TObject);
begin
   Close;
end;

procedure TfrmInstallPackage.BitBtn1Click(Sender: TObject);
begin
   if(OpenDialog1.execute) then
      frmMain.Manager1.LoadPackage(OpenDialog1.FileName);
end;

procedure TfrmInstallPackage.BitBtn2Click(Sender: TObject);
begin
   FBusy := True;
   try
   if(Assigned(ListPackage.Selected) and Assigned(ListPackage.Selected.Data)) then
   begin
      frmMain.Manager1.UnLoadPackage(INOAPackage(ListPackage.Selected.Data));
      ListPackage.Items.Delete(ListPackage.Selected);
   end
   else
   begin
     ShowMessage('Can''t remove a Native or unselected package !');
     Exit;
   end;
   finally
   FBusy := False;
   {update service status}
   DisplayServices(ListPackage.Selected)
   end
end;

procedure TfrmInstallPackage.FormCreate(Sender: TObject);
begin
   OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0))
end;

end.