usplittable.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· PAS 代码 · 共 57 行

unit uSplitTable;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, RVSpinEdit;

type
  TfrmRVSplit = class(TForm)
    panUnmerge: TGroupBox;
    cbUnmergeRows: TCheckBox;
    cbUnmergeCols: TCheckBox;
    btnOk: TButton;
    btnCancel: TButton;
    GroupBox1: TGroupBox;
    rbSplit: TRadioButton;
    rbUnmerge: TRadioButton;
    panSplit: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    seColumns: TRVSpinEdit;
    seRows: TRVSpinEdit;
    cbMerge: TCheckBox;
    procedure rbClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  protected

  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TfrmRVSplit.rbClick(Sender: TObject);
begin
  panSplit.Visible := rbSplit.Checked;
  panUnmerge.Visible := rbUnmerge.Checked;
end;

procedure TfrmRVSplit.btnOkClick(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

procedure TfrmRVSplit.btnCancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.