Class TFormProgram (unit DTProgFm)

Inherits from

TForm

Renamed from ProgForm.pas 6/20/1998 Paul Rice to avoid conflicts with others' work.

Constructors



Functions

procedure BitBtnOKClick(Sender: TObject);


procedure EditFEndChange(Sender: TObject);


procedure EditFStartChange(Sender: TObject);


procedure EditNStepsChange(Sender: TObject);


procedure EditTotalDurationChange(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormShow(Sender: TObject);

function TFormProgram.

Properties

Events

Variables

BitBtnCancel : TBitBtn;


BitBtnOK : TBitBtn;


EditFEnd : TEdit;


EditFStart : TEdit;


EditNSteps : TEdit;


EditTotalDuration : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


MemoLevels : TMemo;


EndFrequency : integer;


FrequencySteps : integer;


LevelList : string;


StartFrequency : integer;


TotalDuration : integer;

Public declarations


Constructors


Functions


procedure BitBtnOKClick(Sender: TObject);


procedure EditFEndChange(Sender: TObject);


procedure EditFStartChange(Sender: TObject);


procedure EditNStepsChange(Sender: TObject);


procedure EditTotalDurationChange(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormShow(Sender: TObject);

function TFormProgram.GetLevels: string; var sl: TStringList; i: integer; begin sl := TStringList.Create; for i := 0 to MemoLevels.Lines.Count-1 do sl.Add (MemoLevels.Lines [i]); Result := sl.CommaText; sl.Free; end;


Properties


Events


Variables


BitBtnCancel : TBitBtn;


BitBtnOK : TBitBtn;


EditFEnd : TEdit;


EditFStart : TEdit;


EditNSteps : TEdit;


EditTotalDuration : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


MemoLevels : TMemo;


EndFrequency : integer;


FrequencySteps : integer;


LevelList : string;


StartFrequency : integer;


TotalDuration : integer;

Public declarations