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

Тема: Курсовые проекты

se or RadioButton4.Checked=falseRadioButton5.Checked=false ) MessageDlg ( Помилка! Заповніть всі поля! raquo ;, mtWarning, [mbOK], 0);

If (length (edit1.text) lt; gt; 0) and (length (cbb1.text) lt; gt; 0) (length (combobox1.text) lt; gt; 0) RadioButton1.Checked or RadioButton2. Checked or RadioButton3.CheckedRadioButton4.Checked or RadioButton5.CheckedButton8.Enabled:=True ;; Theade.Timer2Timer (Sender: TObject);

if changeposition=False then.Position:=MediaPlayer1.Position ;; Theade.ProgressBar1MouseDown (Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer); k lt; gt; 0 then

changeposition:=True ;;; Theade.ProgressBar1MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

if changeposition then

MediaPlayer1.Position:=k * x;

MediaPlayer1.Play;

changeposition:=False ;; Theade.ProgressBar1MouseMove (Sender: TObject; Shift: TShiftState;

X, Y: Integer); changeposition then

if (x lt;=0) and (x gt;=ProgressBar1.Width) then

ProgressBar1.Position:=x * k ;;; Theade.ListBox1DblClick (Sender: TObject); Sender as TListBox do

begin

Mediaplayer1.FileName:=Items [ItemIndex];

Mediaplayer1.Open;

Mediaplayer1.Play;

end ;; Theade.btn1Click (Sender: TObject) ;. Visible:=true; OpenDialog1.Execute then

listbox1.Items.AddStrings (opendialog1.files);

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

Timer2.Enabled:=True;

ProgressBar1.max:=MediaPlayer1.Length;

k:=MediaPlayer1.Length div ProgressBar1.Width ;;; Theade.btn2Click (Sender: TObject);

ii: integer;

with ListBox1 do

begin

for ii:=- 1 + Items.Count downto 0 do

if Selected [ii] then Items.Delete (ii);

end ;; Theade.btn3Click (Sender: TObject);

listbox1.Items.Add ( );

listbox1.Items.Add ( ___________ NewPlayList ____________ ) ;; Theade.btn4Click (Sender: TObject) ;. Clear ;; Theade.FormMouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);:=crDefault ;; Theade.image7MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);:=crHandPoint ;; Theade.image7MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer) ;. Picture:=(sender as TImage) .Picture ;; Theade.btn5Click (Sender: TObject); ( hh.exe DThelpm , SW_SHOW) ;; Theade.Button3Click (Sender: TObject) ;. show; .Left:=(Screen.Width-updates.Width) div 2; .Top:=(Screen.Height-updates.Height) div 2 ;; Theade.RadioButton6Click (Sender: TObject) ;. Active :=false; .SQL.Clear; .SQL.Add ( SELECT * FROM афіша order by Data ) ;. Active:=True ;; Theade.RadioButton7Click (Sender: TObject) ;. Active:=false; .SQL.Clear; .SQL.Add ( SELECT * FROM афіша order by Data desc ) ;. Active:=True ;; Theade.Button5Click (Sender: TObject);.Text:=laquo;lt;Nasvanie_spektaklyagt;raquo;;.Text:=laquo;lt;Rejissergt;raquo;;.Text:=laquo;lt;Janrgt;raquo;;.SQL.Clear;.SQL.Add(laquo;SELECT * FROM Афіша ) ;. Active:=True; .Checked:=False; .Checked:=False ;; Theade.Edit2Click (Sender: TObject);.Text:=laquo;raquo;;.Text:=laquo;lt;Rejissergt;raquo;;.Text:=laquo;lt;Janrgt;raquo;;;Theade.Edit3Click(Sender: TObject);.Text:=laquo;lt;Nasvanie_spektaklyagt;raquo;;.Text:=laquo;raquo;;.Text:=laquo;lt;Janrgt;raquo;;;

Theade.Edit4Click (Sender: TObject);.Text:=laquo;lt;Nasvanie_spektaklyagt;raquo;;.Text:=laquo;lt;Rejissergt;raquo;;.Text:=laquo;raquo;;;Theade.Button4Click(Sender: TObject); ks: string; Edit2.text lt; gt; lt; Nazvanie_spektaklya gt; then

begin

ks:=edit2.text + % raquo ;;

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add ( SELECT * FROM Афіша WHERE Nazvanie_spektaklya like + QuotedStr (ks));

ADOQuery1.Active:=True;

end;

if Edit3.text lt; gt; lt; Rejisser gt; then

begin

ks:=edit3.text + % raquo ;;

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;