|
unit reSounds;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, SysUtils, jpeg, OleServer, ActnList;
type
TSoundsBox = class(TForm)
OKButton: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
CancelButton: TButton;
Label5: TLabel;
MorseCheckBox: TCheckBox;
procedure MorseCheckBoxClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CancelButtonClick(Sender: TObject);
private
{ Private declarations }
Edit1S: String;
Edit2S: String;
Edit3S: String;
Edit4S: String;
public
{ Public declarations }
end;
var
SoundsBox: TSoundsBox;
implementation
uses reAgenda, Dialogs;
{$R *.dfm}
procedure TSoundsBox.FormCreate(Sender: TObject);
var
MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
end;
procedure TSoundsBox.Button1Click(Sender: TObject);
begin
if edit1.Enabled then
if MainForm1.OpenDialog.execute then begin
edit1s := edit1.Text;
edit1.Text := MainForm1.OpenDialog.FileName;
edit1.Text := StringReplace(edit1.Text,Opt.ProgramDir, '',[rfReplaceAll ])
end;
end;
procedure TSoundsBox.Button2Click(Sender: TObject);
begin
if edit2.Enabled then
if MainForm1.OpenDialog.execute then begin
edit2.Text := MainForm1.OpenDialog.FileName;
edit2.Text := StringReplace(edit2.Text,Opt.ProgramDir, '',[rfReplaceAll ])
end;
end;
procedure TSoundsBox.Button3Click(Sender: TObject);
begin
if edit3.Enabled then
if MainForm1.OpenDialog.execute then begin
edit3.Text := MainForm1.OpenDialog.FileName;
edit3.Text := StringReplace(edit3.Text,Opt.ProgramDir, '',[rfReplaceAll ])
end;
end;
procedure TSoundsBox.Button4Click(Sender: TObject);
begin
if edit4.Enabled then
if MainForm1.OpenDialog.execute then begin
edit4.Text := MainForm1.OpenDialog.FileName;
edit4.Text := StringReplace(edit4.Text,Opt.ProgramDir, '',[rfReplaceAll ])
end;
end;
procedure TSoundsBox.FormShow(Sender: TObject);
begin
edit1s := edit1.Text;
edit2s := edit2.Text;
edit3s := edit3.Text;
edit4s := edit4.Text;
MorseCheckBox.Checked := opt.PlayMorseCodes;
end;
procedure TSoundsBox.MorseCheckBoxClick(Sender: TObject);
begin
if MorseCheckBox.Checked then begin
Edit1.Enabled := false;
Edit2.Enabled := false;
Edit3.Enabled := false;
Edit4.Enabled := false;
Edit1.Visible := false;
Edit2.Visible := false;
Edit3.Visible := false;
Edit4.Visible := false;
end else begin
Edit1.Enabled := true;
Edit2.Enabled := true;
Edit3.Enabled := true;
Edit4.Enabled := true;
Edit1.Visible := true;
Edit2.Visible := true;
Edit3.Visible := true;
Edit4.Visible := true;
end;
Opt.PlayMorseCodes := MorseCheckBox.Checked;
end;
procedure TSoundsBox.CancelButtonClick(Sender: TObject);
begin
edit1.Text := edit1s;
edit2.Text := edit2s;
edit3.Text := edit3s;
edit4.Text := edit4s;
SoundsBox.Close;
end;
end.
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
