| Class TFormProgram (unit DTProgFm) |
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);| 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;| 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