e24.pas

来自「delphi的学习资料」· PAS 代码 · 共 64 行

unit E24;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBTables,
  DBCtrls, ExtDlgs,jpeg, Mask, ComCtrls, ImgList;

type
  TfmE24 = class(TForm)
    Panel2: TPanel;
    btnStyl: TBitBtn;

    Memo: TMemo;
    TreeView1: TTreeView;
    ListView1: TListView;
    ImageListS: TImageList;
    ImageListL: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnStylClick(Sender: TObject);
  private    { Private declarations }
  public     { Public declarations }
  end;

const T=True;  F=False;

var
  fmE24: TfmE24;

var
  st: TViewStyle;

  
////////////////////////////////////////////////////////////////////////////////
implementation

{$R *.dfm}

procedure TfmE24.FormCreate(Sender: TObject);
begin
end;


//==============================================================================
procedure TfmE24.FormClose(Sender: TObject; var Action: TCloseAction);
begin
end;

//==============================================================================
procedure TfmE24.btnStylClick(Sender: TObject);
begin
  if Ord(st)<3 then
    inc(st)
  else
    st:=vsIcon;
  ListView1.ViewStyle:=st;
end;

end.