ugallerybrowsedlg.pas

来自「delphi 写的delphi的程序 Handel is a free, st」· PAS 代码 · 共 64 行

unit UGalleryBrowseDlg;

interface

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

type
  TGalleryBrowseDlg = class(TForm)
    ImageList1: TImageList;
    lvItems: TListView;
    procedure OKButtonClick(Sender: TObject);
    procedure LargeIcons1Click(Sender: TObject);
    procedure lvItemsDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GalleryBrowseDlg: TGalleryBrowseDlg;

implementation

uses MainForm;

{$R *.DFM}

procedure TGalleryBrowseDlg.OKButtonClick(Sender: TObject);
begin
   case lvItems.Selected.Index of
      0: FMainForm.NewProject;
      1: FMainForm.NewComponent;
      2: ;
      3: ;
      4: FMainForm.NewForm;
      5: ;
      6: ;
      7: FMainForm.NewTextFile;
      8: ;
      9: FMainForm.NewUnit;
   end;
   ModalResult:= mrOK;
end;

procedure TGalleryBrowseDlg.LargeIcons1Click(Sender: TObject);
begin
   case (Sender as TMenuItem).Tag of
      0: lvItems.ViewStyle:= vsIcon;
      1: lvItems.ViewStyle:= vsSmallIcon;
      2: lvItems.ViewStyle:= vsList;
      3: lvItems.ViewStyle:= vsReport;
   end;
end;

procedure TGalleryBrowseDlg.lvItemsDblClick(Sender: TObject);
begin
   OKButtonClick(self);
end;

end.