Практична робота 14 Програми для роботи зі стандартними діалоговими компонентами

Завдання 14.1

За допомогою компонентів FontDialog, PrintDialog, PrintSetupDialog реалізувати підтримку форматованого тексту в компоненті RichEdit з можливістю друку його вмісту.

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

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm2::N1Click(TObject *Sender)

{

if ( PrintDialog1->Execute()) {

Printer()->BeginDoc();

for(int i = 0;i<RichEdit1->Lines->Count;i++)

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

Printer()->EndDoc();

}

}

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

void __fastcall TForm2::N2Click(TObject *Sender)

{

PrinterSetupDialog1->Execute();

}

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

void __fastcall TForm2::N3Click(TObject *Sender)

{

if(FontDialog1 -> Execute()) RichEdit1->Font = FontDialog1->Font ;

}

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

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

Завдання 15.1

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

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if(OpenDialog1->Execute())

{

MediaPlayer1->FileName = OpenDialog1->FileName;

MediaPlayer1->Open();

}

}//---------------------------------------------------------------------------