Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: next-obligation.v Sprache: Delphi

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.18 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

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.