Реферат Розробка програмного забезпечення

er)

{if (PrintDialog1- gt; Execute ()) {

Printer () - gt; BeginDoc ();

for (int i=0; i lt; RichEdit1- gt; Lines- gt; Count; i ++)

Printer()-gt;Canvas-gt;TextOut(100,100+(RichEdit1-gt;Font-gt;Size+80)*i,RichEdit1-gt;Lines-gt;Strings[0]) ;

Printer () - gt; EndDoc (); }}

//---------------------------------------------------------------------------__fastcall TForm1 :: N3Click (TObject * Sender)

{- gt; Execute ();

}

//---------------------------------------------------------------------------__fastcall TForm1 :: N2Click (TObject * Sender)

{(FontDialog1 - gt; Execute ()) RichEdit1- gt; Font=FontDialog1- gt; Font;

}

//---------------------------------------------------------------------------

программа керування інтерфейс Ідентифікатор

Практична робота 15. Програма для роботи з аудіо- та відео- файлами

Завдання 15.1

создать! застосування, Пожалуйста програватіме аудіо- та відео- файли. Файли завантажуються в програму помощью компонента TOpenDialog.

//---------------------------------------------------------------------------

# include lt; vcl.h gt;

# pragma hdrstop

# include Unit1.h

//---------------------------------------------------------------------------

# pragma package (smart_init)

# pragma resource *. dfm * Form1;

//---------------------------------------------------------------------------

__ fastcall TForm1 :: TForm1 (TComponent * Owner)

: TForm (Owner)

{}

//---------------------------------------------------------------------------__fastcall TForm1 :: Button1Click (TObject * Sender)

{- gt; Close (); (OpenDialog1- gt; Execute ()) {- gt; FileName=OpenDialog1- gt; FileName; - gt; Open (); - gt; Display=Panel1 ; - gt; Play ();

}}

//---------------------------------------------------------------------------