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

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

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.     AddItems1: TMenuItem;
  25.     N2: TMenuItem;
  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.     procedure AddItems1Click(Sender: TObject);
  41.     procedure ListView1DblClick(Sender: TObject);
  42.   public
  43.     { Public declarations }
  44.   private
  45.     nSortCol: Integer;
  46.   end;
  48. var
  49.   Form1: TForm1;
  51. implementation
  53. {$R *.DFM}
  54. {$R BITMAPS.RES}
  56. uses
  57.   StdCtrls, NewDial;
  59. procedure TForm1.FormCreate(Sender: TObject);
  60. var
  61.   ImageList1, ImageList2: TImageList;
  62.   List: TStringList;
  63.   NewItem: TListItem;
  64.   I: Integer;
  65. begin
  66.   // avoid warning
  67.   NewItem := nil;
  69.   // load the large images
  70.   ImageList1 := TImageList.Create (Self);
  71.   ImageList1.Height := 32;
  72.   ImageList1.Width := 32;
  73.   ImageList1.ResourceLoad (rtBitmap,
  74.     'LargeImages', clWhite);
  75.   ListView1.LargeImages := ImageList1;
  77.   // load the small images
  78.   ImageList2 := TImageList.Create (Self);
  79.   ImageList2.ResourceLoad (rtBitmap,
  80.     'SmallImages', clWhite);
  81.   ListView1.SmallImages := ImageList2;
  83.   // load the items
  84.   ListView1.Items.Clear;
  85.   List := TStringList.Create;
  86.   try
  87.     List.LoadFromFile (
  88.       ExtractFilePath (Application.ExeName) + 'Items.txt');
  89.     for I := 0 to List.Count - 1 do
  90.       if List [I][1] = #9 then
  91.         NewItem.SubItems.Add (Trim (List [I]))
  92.       else if List [I][1] = '@' then
  93.         NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
  94.       else
  95.       begin
  96.         // a new item
  97.         NewItem := ListView1.Items.Add;
  98.         NewItem.Caption := List [I];
  99.       end;
  100.   finally
  101.     List.Free;
  102.   end;
  103. end;
  105. procedure TForm1.LargeIcons1Click(Sender: TObject);
  106. begin
  107.   ListView1.ViewStyle := vsIcon;
  108.   LargeIcons1.Checked := True;
  109. end;
  111. procedure TForm1.SmallIcons1Click(Sender: TObject);
  112. begin
  113.   ListView1.ViewStyle := vsSmallIcon;
  114.   SmallIcons1.Checked := True;
  115. end;
  117. procedure TForm1.List1Click(Sender: TObject);
  118. begin
  119.   ListView1.ViewStyle := vsList;
  120.   List1.Checked := True;
  121. end;
  123. procedure TForm1.Details1Click(Sender: TObject);
  124. begin
  125.   ListView1.ViewStyle := vsReport;
  126.   Details1.Checked := True;
  127. end;
  129. procedure TForm1.Exit1Click(Sender: TObject);
  130. begin
  131.   Close;
  132. end;
  134. procedure TForm1.About1Click(Sender: TObject);
  135. begin
  136.   MessageDlg ('Reference List (ListView example)' +
  137.     #13'from "Mastering Delphi"'#13'author: Marco Cant