Реферат Ескіз і специфікація типових об'єктів управління графічного інтерфейсу

SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls;

TTtoday=class (TForm)

redt1: TRichEdit;

image2: TImage;

image3: TImage;

image4: TImage;

label2: TLabel;

label3: TLabel;

label4: TLabel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Ttoday: TTtoday; main;

{$ R * .dfm} TTtoday.Button1Click (Sender: TObject) ;. Close ;;. updates;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, jpeg, StdCtrls;

Tupdates=class (TForm)

image2: TImage;

Panel1: TPanel;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

updates: Tupdates;

{$ R * .dfm} Tupdates.Button1Click (Sender: TObject) ;. Close ;;. coordinates;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls;

Tcoordinates=class (TForm)

label3: TLabel;

image3: TImage;

Button1: TButton;

PrintDialog1: TPrintDialog;

Button2: TButton;

image2: TImage;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

coordinates: Tcoordinates; main;

{$ R * .dfm} Tcoordinates.Button1Click (Sender: TObject) ;. Execute ;; Tcoordinates.Button2Click (Sender: TObject) ;. Close ;;. card;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, OleCtnrs, ComObj;

Tcard=class (TForm)

Button1: TButton;

Button2: TButton;

PrintDialog1: TPrintDialog;

image2: TImage;

image3: TImage;

label2: TLabel;

label3: TLabel;

label4: TLabel;

label5: TLabel;

label6: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure image3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

card: Tcard; main;

{$ R * .dfm} Tcard.Button1Click (Sender: TObject);.Close;.Button8.Enabled:=False;.Edit1.Text:=laquo;raquo;;.ComboBox1.Text:=laquo;Рядraquo;;.cbb1.Text:=laquo;raquo;;.RadioButton1.Checked:=false;.RadioButton2.Checked:=false;.RadioButton3.Checked:=false;.RadioButton4.Checked:=false;.RadioButton5.Checked:=false;2.caption:=laquo;Выбранные місця: raquo ;;

label3.caption:=heade.radiobutton2.caption;.caption:=heade.radiobutton3.caption;.caption:=heade.radiobutton4.caption;.caption:=heade.radiobutton5.caption;4.Caption:=laquo;Ряд: raquo ;;

label5.Caption:= Дата і назва вистави: raquo ;;

label6.Caption:= Ціна: raquo ;;; Tcard.Button2Click (Sender: TObject) ;. Execute ;; Tcard.FormActivate (Sender: TObject); c: integer; k, i: byte; .caption:=label2.caption + heade.edit1.text; heade.radiobutton1ecked=true then.caption:=heade.radiobutton1.caption;:=400 ;; heade.radiobutton2ecked=true then.caption:=heade.radiobutton2.caption;:=300 ;; heade.radiobutton3ecked=true then.caption:=heade.radiobutton3.caption;:=200 ;; heade.radiobutton4ecked=true then.caption: =heade.radiobutton4.caption;:=100 ;; heade.radiobutton5ecked=true then.caption:=heade.radiobutton5.caption;:=500 ;;:=1; i:=1 to length (heade.edit1. text) do (heade.edit1.text [i]=, ) or (heade.edit1.text [i]=. ) then:=k+1;.Caption:=label4.Caption+headebobox1.text;.Caption:=label5.caption+heade.cbb1.Text;.Caption:=label6.caption+inttostr(c*k)+laquo; руб. raquo ;;; Tcard.image3Click (Sender: TObject) ;, doc: Variant;:=CreateOleObject(laquo;Word.Applicationraquo;);:=WordApp.documents.Open((ExtractfilePath(application.exename))+laquo;Отчет про билетах.rtfraquo;);.ActiveDocument.SaveAs((ExtractfilePath(application.exename))+laquo;Отчет про білетах.rtf ) ;. Visible:=true; .ActiveDocument.range.insertafter ( [Квиток проданий: + datetostr (Date) + /

+timetostr(GetTime)+laquo;]raquo;+#10);.ActiveDocument.range.insertafter(Label5.Caption+#10);.ActiveDocument.range.insertafter(Label2.Caption+#10);.ActiveDocument.range.insertafter(Label3.Caption+#10);.ActiveDocument.range.insertafter(Label4.Caption+#10);.ActiveDocument.range.insertafter(Label6.Caption+#10#13);;.