Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/PVS/vectors/ (Beweissystem der NASA Version 6.0.9^©) Datei vom 28.9.2014 mit Größe 2 kB

Impressum reSounds.pas 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.

quality94%

¤ 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.0.0Bemerkung: (vorverarbeitet) ¤

*Bot Zugriff

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.