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

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

Delphi控件源码

开发平台：

Delphi

RefForm.pas：源码内容
  1. unit RefForm;
  3. interface
  5. uses
  6.   SysUtils, Qt, Classes, QGraphics, QControls, QForms, QDialogs,
  7.   QComCtrls, QMenus, QImgList, QTypes;
  9. type
  10.   TForm1 = class(TForm)
  11.     ListView1: TListView;
  12.     MainMenu1: TMainMenu;
  13.     File1: TMenuItem;
  14.     Exit1: TMenuItem;
  15.     View1: TMenuItem;
  16.     List1: TMenuItem;
  17.     Details1: TMenuItem;
  18.     Help1: TMenuItem;
  19.     About1: TMenuItem;
  20.     N1: TMenuItem;
  21.     CheckBoxes1: TMenuItem;
  22.     ImagesLarge: TImageList;
  23.     ImagesSmall: TImageList;
  24.     AddItem1: TMenuItem;
  25.     N2: TMenuItem;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure List1Click(Sender: TObject);
  28.     procedure Details1Click(Sender: TObject);
  29.     procedure Exit1Click(Sender: TObject);
  30.     procedure About1Click(Sender: TObject);
  31.     procedure CheckBoxes1Click(Sender: TObject);
  32.     procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
  33.     procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  34.       Data: Integer; var Compare: Integer);
  35.     procedure FormDestroy(Sender: TObject);
  36.     procedure AddItem1Click(Sender: TObject);
  37.     procedure ListView1ItemDoubleClick(Sender: TObject; Item: TListItem);
  38.   public
  39.     { Public declarations }
  40.   private
  41.     nSortCol: Integer;
  42.   end;
  44. var
  45.   Form1: TForm1;
  47. implementation
  49. uses NewDial;
  51. {$R *.xfm}
  53. procedure TForm1.FormCreate(Sender: TObject);
  54. var
  55.   List: TStringList;
  56.   NewItem: TListItem;
  57.   I: Integer;
  58. begin
  59.   // stops warning message
  60.   NewItem := nil;
  62.   // load the items
  63.   ListView1.Items.Clear;
  64.   List := TStringList.Create;
  65.   try
  66.     List.LoadFromFile (
  67.       ExtractFilePath (Application.ExeName) + 'Items.txt');
  68.     for I := 0 to List.Count - 1 do
  69.       if List [I][1] = #9 then
  70.         NewItem.SubItems.Add (Trim (List [I]))
  71.       else if List [I][1] = '@' then
  72.         NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
  73.       else
  74.       begin
  75.         // a new item
  76.         NewItem := ListView1.Items.Add;
  77.         NewItem.Caption := List [I];
  78.       end;
  79.   finally
  80.     List.Free;
  81.   end;
  82. end;
  84. procedure TForm1.List1Click(Sender: TObject);
  85. begin
  86.   ListView1.ViewStyle := vsList;
  87.   List1.Checked := True;
  88. end;
  90. procedure TForm1.Details1Click(Sender: TObject);
  91. begin
  92.   ListView1.ViewStyle := vsReport;
  93.   Details1.Checked := True;
  94. end;
  96. procedure TForm1.Exit1Click(Sender: TObject);
  97. begin
  98.   Close;
  99. end;
  101. procedure TForm1.About1Click(Sender: TObject);
  102. begin
  103.   MessageDlg ('Reference List (ListView example)' +
  104.     #13'from "Mastering Delphi"'#13'author: Marco Cant