www.pudn.com > d4psp31.zip > fmSongProperties.pas, change:1998-11-03,size:1545b


unit fmSongProperties; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls, ComCtrls, Buttons, Mask, Grids, ImgList; 
 
type 
  TSongPropertiesForm = class(TForm) 
    btnOk: TBitBtn; 
    btnCancel: TBitBtn; 
    PageControl1: TPageControl; 
    tsGeneral: TTabSheet; 
    tsTimeSig: TTabSheet; 
    tsKeySignatures: TTabSheet; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    edFormat: TEdit; 
    Label4: TLabel; 
    edNumberOfTracks: TEdit; 
    edResolution: TEdit; 
    btnHelp: TBitBtn; 
    GroupBox1: TGroupBox; 
    btnInsertTimeSignature: TBitBtn; 
    btnEditTimeSignature: TBitBtn; 
    btnDeleteTimeSignature: TBitBtn; 
    GroupBox2: TGroupBox; 
    btnInsertKeySignature: TBitBtn; 
    btnEditKeySignature: TBitBtn; 
    btnDeleteKeySignature: TBitBtn; 
    ImageList1: TImageList; 
    lvTimeSignatures: TListView; 
    lvKeySignatures: TListView; 
    procedure FormShow(Sender: TObject); 
  private 
    procedure UpdateSignatureButtons; 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  SongPropertiesForm: TSongPropertiesForm; 
 
implementation 
 
{$R *.DFM} 
 
procedure TSongPropertiesForm.FormShow(Sender: TObject); 
begin 
  UpdateSignatureButtons; 
end; 
 
procedure TSongPropertiesForm.UpdateSignatureButtons; 
var 
  enableIt : boolean; 
begin 
  enableIt := lvTimeSignatures.Selected <> Nil; 
  btnEditTimeSignature.Enabled := enableIt; 
  btnDeleteTimeSignature.Enabled := enableIt; 
end; 
 
 
end.