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

ssageBox (handle, PChar ( Ви впевнені, що хочете вийти? ), PChar ( Dramteatr | Вихід з програми ), 52); Push=IDYES then canclose:=true else canclose:=false ;; Theade.Timer1Timer (Sender: TObject) ;. Caption:= Dramteatr Дата: + DateToStr (date) + Час: '+ timetostr (time) ;; Theade.label32Click (Sender: TObject) ;. show; .Left:=(Screen.Width-historyT.Width) div 2; .Top :=(Screen.Height-historyT.Height) div 2 ;; Theade.label32MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer) ;. Font.Color:=clActiveBorder ;; Theade.label32MouseLeave (Sender: TObject) ;. Font.Color:=clBlack ;; Theade.label33Click (Sender: TObject) ;. show; .Left:=(Screen.Width-Ttoday.Width) div 2; .Top:=(Screen.Height-Ttoday.Height) div 2 ;; Theade.label33MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer) ;. Font.Color:=clActiveBorder ;; Theade.label33MouseLeave (Sender: TObject) ;. Font.Color:=clBlack ;; Theade.label34Click (Sender: TObject) ;. show; .Left:=(Screen.Width-troupe.Width) div 2; .Top:=(Screen.Height-troupe.Height) div 2 ;; Theade.label34MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer) ;. Font.Color:=clActiveBorder ;; Theade.label34MouseLeave (Sender: TObject) ;. Font.Color:=clBlack ;; Theade.label35Click (Sender: TObject) ;. show; .Left:=(Screen.Width-repertory.Width) div 2; .Top:=(Screen.Height-repertory.Height) div 2 ;; Theade.label35MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer) ;. Font.Color:=clActiveBorder ;; Theade.label35MouseLeave (Sender: TObject) ;. Font.Color:=clBlack ;; Theade.label36Click (Sender: TObject) ;. show; .Left:=(Screen.Width-coordinates.Width) div 2; .Top:=(Screen.Height-coordinates.Height) div 2 ;; Theade.label36MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer) ;. Font.Color:=clActiveBorder ;; Theade.label36MouseLeave (Sender: TObject) ;. Font.Color:=clBlack ;; Theade.label37Click (Sender: TObject) ;. show; .Left:=(Screen.Width-partners.Width) div 2; .Top:=(Screen.Height-partners.Height) div 2 ;; Theade.label37MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer) ;. Font.Color:=clActiveBorder ;; Theade.label37MouseLeave (Sender: TObject) ;. Font.Color:=clBlack ;; Theade.label4Click (Sender: TObject) ;. Show ;; Theade.Button8Click (Sender: TObject) ;. show; .Left:=(Screen.Width-card.Width) div 2; .Top:=(Screen.Height-card.Height) div 2 ;; Theade. FormCreate (Sender: TObject) ;. Left:=(Screen.Width-heade.Width) div 2; .Top:=(Screen.Height-heade.Height) div 2;:=0;:=FindFirst ( G: Фотогалерея *. jpg , faAnyFile, sr); f=0 do begin

SetLength (img, q + 1);

img [q]:=TImage.Create (ts6);

img [q] .Picture.LoadFromFile ('G: Фотогалерея ' + sr.Name);

img [q] .Width:=100;

img [q] .Height:=100;

img [q] .Proportional:=true;

img [q] .top:=ClientHeight - 120;

img [q] .OnMouseMove:=Image7MouseMove;

img [q] .OnMouseUp:=image7MouseUp;

if q=0 then

img [q] .Left:=5

else

img [q] .Left:=img [q - 1] .Left + 110;

img [q] .Parent:=ts6;

f:=FindNext (sr); (q) ;; (sr) ;. SQL.Clear; .SQL.Add ( SELECT * FROM Афіша ) ;. Active:=True ;; Theade.RadioButton1Enter ( Sender: TObject) ;. Items.clear; i:=1 to 12 do.Items.add (inttostr (i)) ;; Theade.RadioButton2Enter (Sender: TObject) ;. Items.clear; i:=1 to 4 do.Items.add (inttostr (i)) ;; Theade.RadioButton3Enter (Sender: TObject) ;. Items.clear; i:=1 to 2 do.Items.add (inttostr (i)) ;; Theade.RadioButton4Enter (Sender:TObject) ;. Items.clear; i:=1 to 2 do.Items.add (inttostr (i)) ;; Theade.RadioButton5Enter (Sender: TObject) ;. Items.clear; i:=1 to 2 do. Items.add (inttostr (i)) ;; Theade.Button1Click (Sender: TObject);.SetSubstitutes([laquo;#[Today]raquo;,DateToStr(Date)]);.Preview;;Theade.Edit1KeyPress(Sender: TObject; var Key: Char); i, hk: byte; f, d: string;:=edit1.text;:=edit1.text;:=0; key=, theni:=1 to length (edit1.Text) dod [i]=, then hk:=i; (f, 1, hk); hk gt; 0 then delete (d, hk + 1,3); (pos (f, d) lt; gt; 0) and (hk gt; 0) then. text:=d; key:=# 0; .SelStart:=length (d); ( Квиток на вибране місце проданий! raquo ;, mtWarning, [mbOK], 0) ;; not (Key in [ 0 .. 9 raquo ;, , raquo ;, raquo ;, # 13, # 8]) then ( Помилка! Введіть цифри! raquo ;, mtWarning, [mbOK], 0); not (Key in [ 0 raquo ; .. 9 raquo ;, , raquo ;, raquo ;, # 13, # 8]) then Key:=# 0 ;; Theade.Button2Click (Sender: TObject); (length (edit1.text) =0) or (length (cbb1.text)=0) (length (combobox1.text)=0) (RadioButton1ecked=false or RadioButton2.Checked=falseRadioButton3.Checked=fal...