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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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.     procedure FormCreate(Sender: TObject);
  25.     procedure List1Click(Sender: TObject);
  26.     procedure Details1Click(Sender: TObject);
  27.     procedure Exit1Click(Sender: TObject);
  28.     procedure About1Click(Sender: TObject);
  29.     procedure CheckBoxes1Click(Sender: TObject);
  30.     procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
  31.     procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  32.       Data: Integer; var Compare: Integer);
  33.     procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  34.       Shift: TShiftState; X, Y: Integer);
  35.     procedure FormDestroy(Sender: TObject);
  36.   public
  37.     { Public declarations }
  38.   private
  39.     nSortCol: Integer;
  40.   end;
  42. var
  43.   Form1: TForm1;
  45. implementation
  47. {$R *.xfm}
  49. procedure TForm1.FormCreate(Sender: TObject);
  50. var
  51.   List: TStringList;
  52.   NewItem: TListItem;
  53.   I: Integer;
  54. begin
  55.   // stops warning message
  56.   NewItem := nil;
  58.   // load the items
  59.   ListView1.Items.Clear;
  60.   List := TStringList.Create;
  61.   try
  62.     List.LoadFromFile (
  63.       ExtractFilePath (Application.ExeName) + 'Items.txt');
  64.     for I := 0 to List.Count - 1 do
  65.       if List [I][1] = #9 then
  66.         NewItem.SubItems.Add (Trim (List [I]))
  67.       else if List [I][1] = '@' then
  68.         NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
  69.       else
  70.       begin
  71.         // a new item
  72.         NewItem := ListView1.Items.Add;
  73.         NewItem.Caption := List [I];
  74.       end;
  75.   finally
  76.     List.Free;
  77.   end;
  78. end;
  80. procedure TForm1.List1Click(Sender: TObject);
  81. begin
  82.   ListView1.ViewStyle := vsList;
  83.   List1.Checked := True;
  84. end;
  86. procedure TForm1.Details1Click(Sender: TObject);
  87. begin
  88.   ListView1.ViewStyle := vsReport;
  89.   Details1.Checked := True;
  90. end;
  92. procedure TForm1.Exit1Click(Sender: TObject);
  93. begin
  94.   Close;
  95. end;
  97. procedure TForm1.About1Click(Sender: TObject);
  98. begin
  99.   MessageDlg ('Reference List (ListView example)' +
  100.     #13'from "Mastering Delphi"'#13'author: Marco Cant