inputfra.pas

来自「《Delphi实例开发教程》源代码包说明」· PAS 代码 · 共 61 行

unit InputFra;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, CheckLst, Buttons, ComCtrls;

type
  TfraInput = class(TFrame)
    pnlcustomInput: TPanel;
    pnlcustombar: TPanel;
    sbMaintain: TSpeedButton;
    sbSaveID: TSpeedButton;
    PnlNewInput: TPanel;
    gbEngineList: TGroupBox;
    clbEngine: TCheckListBox;
    gbWebTypeList: TGroupBox;
    clbWebType: TCheckListBox;
    pnlInputEdits: TPanel;
    Label1: TLabel;
    lblTimeLimit: TLabel;
    cbbTimeLimit: TComboBox;
    pnlInputID: TPanel;
    tvIDList: TTreeView;
    gbInput: TGroupBox;
    rbSelect: TRadioButton;
    rbNew: TRadioButton;
    pnlTimelimit: TPanel;
    edtKeyword1: TEdit;
    edtKeyword2: TEdit;
    edtKeyword3: TEdit;
    gbKeyword: TGroupBox;
    Panel1: TPanel;
    procedure tvIDListCollapsed(Sender: TObject; Node: TTreeNode);
    procedure tvIDListExpanded(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation
uses CustomSearchFrm;

{$R *.dfm}

procedure TfraInput.tvIDListCollapsed(Sender: TObject; Node: TTreeNode);
begin
  tvIDList.Height:=20;
  tvIDList.Width:=gbWebTypeList.Width;
end;

procedure TfraInput.tvIDListExpanded(Sender: TObject; Node: TTreeNode);
begin
  tvIDList.Height:=20+(tvIDList.Items.Count-1)*14;
  tvIDList.Width:=gbWebTypeList.Width;
end;

end.