fmeventproperties.pas

来自「Delphi的另一款钢琴软件」· PAS 代码 · 共 75 行

unit fmEventProperties;

interface

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

type
  TfmEditEvent = class(TForm)
    gbPosition: TGroupBox;
    Label1: TLabel;
    edBar: TEdit;
    udBar: TUpDown;
    Label2: TLabel;
    edBeat: TEdit;
    udBeat: TUpDown;
    Label3: TLabel;
    edTick: TEdit;
    udTick: TUpDown;
    Label4: TLabel;
    edRaw: TEdit;
    udRaw: TUpDown;
    btnOK: TButton;
    btnCancel: TButton;
    gbData: TGroupBox;
    Label5: TLabel;
    nbData: TNotebook;
    Label6: TLabel;
    edChannel: TEdit;
    udChannel: TUpDown;
    Label7: TLabel;
    Label8: TLabel;
    edNote: TEdit;
    udNote: TUpDown;
    edVelocity: TEdit;
    udVelocity: TUpDown;
    lbStatus: TListBox;
    pnlStatus: TPanel;
    procedure lbStatusClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmEditEvent: TfmEditEvent;

implementation

{$R *.DFM}

procedure TfmEditEvent.lbStatusClick(Sender: TObject);
var
  page : string;
begin
  with lbStatus do
  begin
    pnlStatus.Caption := Items [ItemIndex];
    case ItemIndex of
      0, 1 : page := 'NoteOnOff';
      2 : page := 'KeyAftertouch';
      3 : page := 'Controller';
      4 : page := 'ProgramChange';
      5 : page := 'ChannelAftertouch';
      else
        page := '';
    end;
    nbData.ActivePage := page
  end
end;

end.