unit mWaehrungen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, Grids;
type
TFWaehrungen =
class(TForm)
ImHintergrund: TImage;
Bt1AusD: TBitBtn;
Bt1Euro: TBitBtn;
Bt1Fr: TBitBtn;
Bt1KanD: TBitBtn;
Bt1Peso: TBitBtn;
Bt1Pfund: TBitBtn;
Bt1Real: TBitBtn;
Bt1USD: TBitBtn;
Bt1Yen: TBitBtn;
Bt1Yuan: TBitBtn;
Bt1Zlo: TBitBtn;
Bt2AusD: TBitBtn;
Bt2Euro: TBitBtn;
Bt2Fr: TBitBtn;
Bt2KanD: TBitBtn;
Bt2Peso: TBitBtn;
Bt2Pfund: TBitBtn;
Bt2Real: TBitBtn;
Bt2USD: TBitBtn;
Bt2Yen: TBitBtn;
Bt2Yuan: TBitBtn;
Bt2Zlo: TBitBtn;
Ed1Laender: TLabeledEdit;
Ed2Laender: TLabeledEdit;
LiW1: TListBox;
LiL1: TListBox;
LiW2: TListBox;
LiL2: TListBox;
LiW3: TListBox;
LiL3: TListBox;
BtNachSeite: TButton;
BtVorSeite: TButton;
LaKurs: TLabel;
LaAnfang: TLabel;
LaEnde: TLabel;
LaWEnde1: TLabel;
LaWEnde2: TLabel;
EdWaehrungA: TEdit;
EdKurs: TEdit;
EdWaehrungB: TEdit;
BtTauschen: TButton;
LaWAnfang: TLabel;
procedure FormCreate(Sender: TObject);
procedure BtVorSeiteClick(Sender: TObject);
procedure BtNachSeiteClick(Sender: TObject);
procedure Bt1EuroClick(Sender: TObject);
procedure Bt2EuroClick(Sender: TObject);
procedure Bt1USDClick(Sender: TObject);
procedure Bt2USDClick(Sender: TObject);
procedure Bt1PfundClick(Sender: TObject);
procedure Bt2PfundClick(Sender: TObject);
procedure Bt1FrClick(Sender: TObject);
procedure Bt2FrClick(Sender: TObject);
procedure Bt1ZloClick(Sender: TObject);
procedure Bt2ZloClick(Sender: TObject);
procedure Bt1KanDClick(Sender: TObject);
procedure Bt2KanDClick(Sender: TObject);
procedure Bt1AusDClick(Sender: TObject);
procedure Bt2AusDClick(Sender: TObject);
procedure Bt1YenClick(Sender: TObject);
procedure Bt2YenClick(Sender: TObject);
procedure Bt1YuanClick(Sender: TObject);
procedure Bt2YuanClick(Sender: TObject);
procedure Bt1PesoClick(Sender: TObject);
procedure Bt2PesoClick(Sender: TObject);
procedure Bt1RealClick(Sender: TObject);
procedure Bt2RealClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FWaehrungen: TFWaehrungen;
Waehrung_A, Waehrung_B: Integer;
Seite: Byte;
implementation
{$R *.dfm}
procedure TFWaehrungen.FormCreate(Sender: TObject);
begin
With ImHintergrund.Canvas
Do
begin
Brush.Color := clGreen;
Rectangle(0, 0, 800, 100);
Brush.Color := clHighlight;
Rectangle(0, 100, 800, 400);
Brush.Color := clGreen;
Rectangle(0, 400, 800, 500);
end;
Waehrung_A := 100000;
Waehrung_B := 100000;
Seite := 1;
LiL2.Visible := False;
LiW2.Visible := False;
LiL3.Visible := False;
LiW3.Visible := False;
BtVorSeite.Enabled := False;
end;
procedure TFWaehrungen.BtVorSeiteClick(Sender: TObject);
begin
Seite := Seite - 1;
If Seite = 1
Then
begin
BtVorSeite.Enabled := False;
BtNachSeite.Enabled := True;
LiL1.Visible := True;
LiW1.Visible := True;
LiL2.Visible := False;
LiW2.Visible := False;
LiL3.Visible := False;
LiW3.Visible := False;
end;
If Seite = 2
Then
begin
BtVorSeite.Enabled := True;
BtNachSeite.Enabled := True;
LiL1.Visible := False;
LiW1.Visible := False;
LiL2.Visible := True;
LiW2.Visible := True;
LiL3.Visible := False;
LiW3.Visible := False;
end;
end;
procedure TFWaehrungen.BtNachSeiteClick(Sender: TObject);
begin
Seite := Seite + 1;
If Seite = 2
Then
begin
BtVorSeite.Enabled := True;
BtNachSeite.Enabled := True;
LiL1.Visible := False;
LiW1.Visible := False;
LiL2.Visible := True;
LiW2.Visible := True;
LiL3.Visible := False;
LiW3.Visible := False;
end;
If Seite = 3
Then
begin
BtVorSeite.Enabled := True;
BtNachSeite.Enabled := False;
LiL1.Visible := False;
LiW1.Visible := False;
LiL2.Visible := False;
LiW2.Visible := False;
LiL3.Visible := True;
LiW3.Visible := True;
end;
end;
procedure TFWaehrungen.Bt1EuroClick(Sender: TObject);
begin
Waehrung_A := 100000;
EdWaehrungB.Text := FloatToStr(StrToFloat(EdWaehrungA.Text) * (Waehrung_B
Div Waehrung_A));
EdKurs.Text := FloatToStr(Waehrung_B
Div Waehrung_A);
LaWAnfang.Caption := '
Euro (Europa)';
LaKurs.Caption := '
1 Euro (Europa) =';
LaKurs.Left := 190 - LaKurs.Width;
end;
procedure TFWaehrungen.Bt2EuroClick(Sender: TObject);
begin
Waehrung_B := 100000;
EdWaehrungB.Text := FloatToStr(StrToFloat(EdWaehrungA.Text) * (Waehrung_B
Div Waehrung_A));
EdKurs.Text := FloatToStr(Waehrung_B
Div Waehrung_A);
LaWEnde1.Caption := '
Euro (Europa)';
LaWEnde2.Caption := '
Euro (Europa)';
end;
procedure TFWaehrungen.Bt1USDClick(Sender: TObject);
begin
Waehrung_A := 129373;
EdWaehrungB.Text := FloatToStr(StrToFloat(EdWaehrungA.Text) * (Waehrung_B
Div Waehrung_A));
EdKurs.Text := FloatToStr(Waehrung_B
Div Waehrung_A);
LaWAnfang.Caption := '
Dollar (Vereinigte Staaten)';
LaKurs.Caption := '
1 Dollar (Vereinigte Staaten) =';
LaKurs.Left := 190 - LaKurs.Width;
end;
procedure TFWaehrungen.Bt2USDClick(Sender: TObject);
begin
Waehrung_B := 129373;
EdWaehrungB.Text := FloatToStr(StrToFloat(EdWaehrungA.Text) * (Waehrung_B
Div Waehrung_A));
EdKurs.Text := FloatToStr(Waehrung_B
Div Waehrung_A);
LaWEnde1.Caption := '
Dollar (Vereinigte Staaten)';
LaWEnde2.Caption := '
Dollar (Vereinigte Staaten)';
end;
procedure TFWaehrungen.Bt1PfundClick(Sender: TObject);
begin
Waehrung_A := 80755;
EdWaehrungB.Text := FloatToStr(StrToFloat(EdWaehrungA.Text) * (Waehrung_B
Div Waehrung_A));
EdKurs.Text := FloatToStr(Waehrung_B
Div Waehrung_A);
LaWAnfang.Caption := '
Pfund (Großbritannien)';
LaKurs.Caption := '
Pfund (Großbritannien) =';
LaKurs.Left := 190 - LaKurs.Width;
end;
procedure TFWaehrungen.Bt2PfundClick(Sender: TObject);
begin
Waehrung_B := 80755;
EdWaehrungB.Text := FloatToStr(StrToFloat(EdWaehrungA.Text) * (Waehrung_B
Div Waehrung_A));
EdKurs.Text := FloatToStr(Waehrung_B
Div Waehrung_A);
LaWEnde1.Caption := '
Pfund (Großbritannien)';
LaWEnde2.Caption := '
Pfund (Großbritannien)';
end;
.
.
.
end.