www.pudn.com > d4psp31.zip > fmEventProperties.pas, change:1998-09-01,size:1502b


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.