ufeaturemodifyform.pas

运输培训管理束）录像等四个按钮。 [Conferencing_Vidio_system.rar] - 用微软实时通信（RTC）API创建音频和视频会议、共享应用程序、共享白板、简单的点对点聊天对话

unit uFeatureModifyForm;

interface

uses
  SysUtils, Classes,  Windows, Messages, Graphics, Controls, Forms, StdCtrls, ExtCtrls,
  cxSSCtrls, cxSSTypes, cxSSRes;

type
  TFeatureModifyForm = class(TForm)
    gpPanel: TPanel;
    rbShiftCol: TRadioButton;
    rbShiftRw: TRadioButton;
    rbRw: TRadioButton;
    rbCol: TRadioButton;
    btnOk: TButton;
    btnCancel: TButton;
    cxLB: TcxLabelBevel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    FModifySheet: TcxSSCellsModify;
  public
    function Execute(AModifySheet: TcxSSModifyType): Boolean;
    property Modify: TcxSSCellsModify read FModifySheet write FModifySheet;
  end;


implementation

  {$R *.dfm}

function TFeatureModifyForm.Execute(AModifySheet: TcxSSModifyType): Boolean;
begin
  if AModifySheet = mtInsert then
    SetCaptions([Self, cxLB, rbShiftCol, rbShiftRw, rbRw, rbCol, btnOk, btnCancel],
      [scxSpreadSheetInsertCells, scxSpreadSheetInsertCells,
      scxSpreadSheetShiftCellRight, scxSpreadSheetShiftCellTop,
      scxSpreadSheetAllRow,  scxSpreadSheetAllColumn, scxFormOk, scxFormCancel])
  else
    SetCaptions([Self, cxLB, rbShiftCol, rbShiftRw, rbRw, rbCol, btnOk, btnCancel],
       [scxSpreadSheetDeleteCells, scxSpreadSheetDeleteCells,
       scxSpreadSheetShiftCellLeft, scxSpreadSheetShiftCellTop,
       scxSpreadSheetAllRow,  scxSpreadSheetAllColumn, scxFormOk, scxFormCancel]);
  Result := inherited ShowModal = mrOk;
  if Result then
  begin
    if rbShiftCol.Checked then
      FModifySheet := msShiftCol
    else
      if rbShiftRw.Checked then
        FModifySheet := msShiftRow
      else
        if rbRw.Checked then
          FModifySheet := msAllRow
        else
          FModifySheet := msAllCol
  end;
end;

procedure TFeatureModifyForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
    Close;
end;

procedure TFeatureModifyForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    ModalResult := mrCancel;
end;

end.