//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "ChildWin.h"
#include "Main.h"
#include "FullScr.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//---------------------------------------------------------------------
__fastcall TMDIChild::TMDIChild(TComponent *Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------

void __fastcall TMDIChild::FormClose(TObject *Sender, TCloseAction &Action)
{
	Action = caFree;  // 關(guān)閉后自動(dòng)釋放資源
}
//---------------------------------------------------------------------

void __fastcall TMDIChild::Image1DblClick(TObject *Sender)
{
	// 雙擊表示繼續(xù)捕獲下一幅圖象，創(chuàng)建一個(gè)新的線程發(fā)送命令并接收圖象數(shù)據(jù)流
	TRecvStreamThread *RecvThread = new TRecvStreamThread(true);
	RecvThread->FreeOnTerminate = true;  // 線程執(zhí)行完畢自動(dòng)釋放資源
	RecvThread->RemoteAddress = RemoteAddress;  // 指定主機(jī)IP
	RecvThread->CL = CL;  // 色深
	RecvThread->CQ = CQ;  // 品質(zhì)
	RecvThread->RemoteScreen = Image1;
	//RecvThread->StatusBar = StatusBar1;
	RecvThread->Resume();  // 開始執(zhí)行線程
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::FormShow(TObject *Sender)
{
	// 設(shè)置初始的窗口大小
	ClientWidth = 320;
	ClientHeight = 240;
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::N3Click(TObject *Sender)
{
	// 將圖象保存為文件
	if (MainForm->SPDialog->Execute())
		Image1->Picture->Bitmap->SaveToFile(MainForm->SPDialog->FileName);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::N2Click(TObject *Sender)
{
	// 全屏顯示
	FullScrForm->Image1->Picture = Image1->Picture;
	FullScrForm->Show();
}
//---------------------------------------------------------------------------