| products/sources/formale sprachen/VDM/VDMPP/TempoCollaborativePP/ |
|
Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei: Feedback.pas Sprache: Unknown
|
unit Feedback;
//------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ interface //------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Utilities, language; //------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ type TFeedform = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label6: TLabel; Label7: TLabel; Vorname: TEdit; Name: TEdit; Email: TEdit; Kommentar: TMemo; Absenden: TButton; Bewertung: TComboBox; Verwerfen: TButton; constructor Create(Owner: TComponent); override; procedure AbsendenClick(Sender: TObject); procedure VerwerfenClick(Sender: TObject); procedure FormPaint(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClick(Sender: TObject); public { Déclarations publiques } Done, Stopped:boolean; end; //------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ implementation //------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ {$R *.dfm} //------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ constructor TFeedform.Create(Owner: TComponent); begin inherited; Done:=false; Stopped:=false; Vorname.Clear; Name.Clear; Email.Clear; Kommentar.Clear; end; //------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ procedure TFeedform.AbsendenClick(Sender: TObject); begin Label1.Font.Color:=clWindowText; Label2.Font.Color:=clWindowText; Label3.Font.Color:=clWindowText; Label6.Font.Color:=clWindowText; if trim(vorname.Text)='' then Label1.Font.Color:=clRed else if trim(name.Text)='' then Label2.Font.Color:=clRed else if trim(email.Text)='' then begin showmessage(trans(lang,51,'Bitte Email eingeben')); Label3.Font.Color:=clRed end else if (Pos('@',Email.text)<=0) or (Pos('.',Email.text)<=0) then Label3.Font.Color:=clRed else if Bewertung.ItemIndex=-1 then Label6.Font.Color:=clRed else begin Done:=true; Close end; end; //------------------------------------------------------------------ // -- // FeedBack -- // -- //------------------------------------------------------------------ procedure TFeedform.VerwerfenClick(Sender: TObject); begin Stopped:=true; Close; end; //------------------------------------------------------------------ // -- // Paint -- // -- //------------------------------------------------------------------ procedure TFeedform.FormClick(Sender: TObject); begin // end; procedure TFeedform.FormClose(Sender: TObject; var Action: TCloseAction); begin Stopped:=true end; //------------------------------------------------------------------ // -- // Paint -- // -- //------------------------------------------------------------------ procedure TFeedForm.FormPaint(Sender: TObject); begin Absenden.SetFocus end; //------------------------------------------------------------------ // -- // Ende dieser Quelle -- // -- //------------------------------------------------------------------ end. [ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ] |