/* write your code below */
 //適用於原始影像之可見型浮水印方法
 //---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "File20131226_01.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

float a; //嵌入強度因子0~1 越接近1表示原始圖片權重佔越大
int gray; //儲存圖片灰階直
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{
	OpenPictureDialog1->InitialDir=ExtractFilePath(Application->ExeName);
	if(OpenPictureDialog1->Execute())
	{
		Original_Image->Picture->LoadFormFile(OpenPictureDialod1->FileName);
		PageControl->ActivePage=TabSheet1;
	}

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

void __fastcall TForm1::Button2Click(TObject *Sender)
{
	OpenPictureDialog1->InitialDir=ExtractFilePath(Application->ExeName);
	if(OpenPictureDialog1->Execute())
	{
		Watermark_Image->Picture->LoadFormFile(OpenPictureDialod1-

>FileName);
		PageControl->ActivePage=TabSheet1;
	}

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

void __fastcall TForm1::Button3Click(TObject *Sender)
{
	//嵌入浮水印
	for(int y=0;y<Origial_Image->Picture->Height;y++)
	 for(int x=0;x<Original_Image->picture->Width;x++)
	 {
	 if(y>=yy->Position && y<yy->Position+Original_Image->Picture->Height
	 && x>=xx->Position && x<xx->Position+Original_Image->Picture->Width )
	  {
	  	gray=a/10*GetValue(Original_Image->Canyas->Pixels[x][y])+(1-

a/10)*GetRValue
		     (Original_Image->Canvas->Pixels[x][y])*GetRValue

(Watermark_Image->Canvas
			 ->Pixels[x-xx->Position][y-yy->Position])/255;

			 Watermarked_Image->Canvas->Pixels[x][y]=(TColor)RGB

(gray,gray,gray);
			 }
	  else

		Watermarked_Image->Canvas->Pixels[x][y]=Original_Image->Canvas-

>Pixels[x][y];
	 }

	PageControl1->ActivePage=TabSheet2;
}
//--------------------------------------------------

void __fastcall TForm1::FormCreat(TObject *Sender)
{
 PageControl1->ActivePage=TabSheet1;
 }
//---------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender,TCloseAction &Action)
{
 Action=caFree;

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

void_fastcall TForm1::Button6Click(TObject *Sender)
{
 if(SavePictureDialog1->Execute())
 {
  Watermarked_Image->Picture->Bitmap->PixelFormat=pf8bit;
  Watermarked_Image->Picture->SaveToFile(SavePictureDialog->FileName);
 }

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

void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
 a=ScrollBar1->Position;
 Label5->Caption=a/10;
}
//-----------------------------------------------------

void __fastcall TForm1::xxChange(TObject *Sender)
{
 Label6->Caption=xx->Position;
}
//-----------------------------------------------------

void __fastcall TForm1::yyChange(TObject *Sender)
{
 Label7->Caption=yy->Position;
}