fprojects.pas

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

unit fProjects;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DockPanel, ImgList, uOptVars, ShellAPI,
  ElXPThemedControl, ElTree, fMain, Menus;

type
  TfrmProjects = class(TDockableForm)
    img: TImageList;
    tvMain: TElTree;
    PopupMenu1: TPopupMenu;
    procedure tvMainDblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tvMainResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProjects: TfrmProjects;

implementation

{$R *.dfm}

uses dMain;

procedure TfrmProjects.tvMainDblClick(Sender: TObject);

begin
  if tvMain.Selected <> nil then begin
    With tvMain.Selected do begin
      if ImageIndex = 0 then begin
        dmMain.ClickLink(Text);
        exit;
      end
      else if ImageIndex = 1 then
        ShellExecute(Handle, '', PChar(Text), '', '', 0)
      else if ImageIndex > 4 then begin
        if ImageIndex <> 2 then
          if FileExists(PProjRec(Data).fName) then
            dmMain.NewDoc(PProjRec(Data).FName);
      end;
    end;
  end;
end;

procedure TfrmProjects.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmMain.ProjectView1.Checked := false;
end;

procedure TfrmProjects.tvMainResize(Sender: TObject);
begin
  tvMain.HeaderSections.Item[0].Width := tvMain.ClientWidth; 
end;

end.