开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
RefForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：5k
源码类别：

Delphi控件源码

开发平台：

Delphi

RefForm.pas：源码内容
  1. unit RefForm;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, Menus, ImgList;
  9. type
  10.   TForm1 = class(TForm)
  11.     ListView1: TListView;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     Exit1: TMenuItem;
  15.     View1: TMenuItem;
  16.     LargeIcons1: TMenuItem;
  17.     SmallIcons1: TMenuItem;
  18.     List1: TMenuItem;
  19.     Details1: TMenuItem;
  20.     Help1: TMenuItem;
  21.     About1: TMenuItem;
  22.     N1: TMenuItem;
  23.     CheckBoxes1: TMenuItem;
  24.     ImagesLarge: TImageList;
  25.     ImagesSmall: TImageList;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure LargeIcons1Click(Sender: TObject);
  28.     procedure SmallIcons1Click(Sender: TObject);
  29.     procedure List1Click(Sender: TObject);
  30.     procedure Details1Click(Sender: TObject);
  31.     procedure Exit1Click(Sender: TObject);
  32.     procedure About1Click(Sender: TObject);
  33.     procedure CheckBoxes1Click(Sender: TObject);
  34.     procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
  35.     procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  36.       Data: Integer; var Compare: Integer);
  37.     procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  38.       Shift: TShiftState; X, Y: Integer);
  39.     procedure FormDestroy(Sender: TObject);
  40.   public
  41.     { Public declarations }
  42.   private
  43.     nSortCol: Integer;
  44.   end;
  46. var
  47.   Form1: TForm1;
  49. implementation
  51. {$R *.DFM}
  52. {$R BITMAPS.RES}
  54. procedure TForm1.FormCreate(Sender: TObject);
  55. var
  56.   List: TStringList;
  57.   NewItem: TListItem;
  58.   I: Integer;
  59. begin
  60.   // stops warning message
  61.   NewItem := nil;
  63.   // load the items
  64.   ListView1.Items.Clear;
  65.   List := TStringList.Create;
  66.   try
  67.     List.LoadFromFile (
  68.       ExtractFilePath (Application.ExeName) + 'Items.txt');
  69.     for I := 0 to List.Count - 1 do
  70.       if List [I][1] = #9 then
  71.         NewItem.SubItems.Add (Trim (List [I]))
  72.       else if List [I][1] = '@' then
  73.         NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
  74.       else
  75.       begin
  76.         // a new item
  77.         NewItem := ListView1.Items.Add;
  78.         NewItem.Caption := List [I];
  79.       end;
  80.   finally
  81.     List.Free;
  82.   end;
  83. end;
  85. procedure TForm1.LargeIcons1Click(Sender: TObject);
  86. begin
  87.   ListView1.ViewStyle := vsIcon;
  88.   LargeIcons1.Checked := True;
  89. end;
  91. procedure TForm1.SmallIcons1Click(Sender: TObject);
  92. begin
  93.   ListView1.ViewStyle := vsSmallIcon;
  94.   SmallIcons1.Checked := True;
  95. end;
  97. procedure TForm1.List1Click(Sender: TObject);
  98. begin
  99.   ListView1.ViewStyle := vsList;
  100.   List1.Checked := True;
  101. end;
  103. procedure TForm1.Details1Click(Sender: TObject);
  104. begin
  105.   ListView1.ViewStyle := vsReport;
  106.   Details1.Checked := True;
  107. end;
  109. procedure TForm1.Exit1Click(Sender: TObject);
  110. begin
  111.   Close;
  112. end;
  114. procedure TForm1.About1Click(Sender: TObject);
  115. begin
  116.   MessageDlg ('Reference List (ListView example)' +
  117.     #13'from "Mastering Delphi"'#13'author: Marco Cant