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

#include <vcl.h>
#include <stdio.h>

#pragma hdrstop

#include "GeneralDialogPanel.h"
#pragma package(smart_init)
#include "PNGButton.cpp"

//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
//
static const char *pngImage =
"89504E470D0A1A0A0000000D49484452000000450000001208060000000D0613"\
"66000000097048597300000B1300000B1301009A9C1800000A4D694343505068"\
"6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF"\
"F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A"\
"561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5"\
"7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8"\
"1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC"\
"01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200"\
"C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05"\
"00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2"\
"00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C"\
"CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97"\
"4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313"\
"48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F"\
"223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA"\
"560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED"\
"2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383"\
"FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A"\
"F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86"\
"4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432"\
"79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0"\
"812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C"\
"0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70"\
"170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261"\
"48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA"\
"90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F"\
"5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961"\
"5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402"\
"8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2"\
"272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93"\
"48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90"\
"6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452"\
"A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650"\
"2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83"\
"1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7"\
"192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295"\
"3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9"\
"09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685"\
"46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9"\
"EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C"\
"4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED"\
"EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB"\
"79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31"\
"3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87"\
"67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94"\
"6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85"\
"A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6"\
"5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29"\
"D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B"\
"743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6"\
"4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD"\
"D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7"\
"C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E"\
"3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B"\
"FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5"\
"0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1"\
"15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0"\
"476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67"\
"BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845"\
"F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC"\
"A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7"\
"6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA"\
"68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C"\
"949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423"\
"F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433"\
"DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317"\
"772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2"\
"A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17"\
"955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4"\
"EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E"\
"CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9"\
"26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD"\
"8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF"\
"B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C"\
"7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD"\
"EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293"\
"E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7"\
"5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F"\
"EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6"\
"EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07"\
"FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247"\
"CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73"\
"ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC"\
"CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F"\
"F73EE77CFEFC2FF784F3FB25D29F330000067F4944415478DABD58094C944714"\
"9EDD85656529085A400B495913D46A9346894DDAC4A3BA2A566CB54A8B72552C"\
"2A022D2AD178228256299472C8214D056FA86D53A807A65A4D5AABD1A6D15A95"\
"8A3D14C55A05916365D9DDBE61DFB06F87DD4093EA9FBCFCF3CF3FF3E69B6FDE"\
"BCF76614168B853D89C7643289A282881245419A5A50E4F6F4BF19C522B55738"\
"18E3BFEA96755A1494143291FFF3E124A8405C405C515CB05E8031E19B122740"\
"77811851BAB0AD994C5249C610A220933413DD322926223DC43F695204684E84"\
"1B883B881644837574E2666C4F09E3F5069036907690C7488E9828255C4D4458"\
"A323C205295C4727911EC26552B8724F102F029A21B02604C627E40D32800CC0"\
"81B6A018255254488816F5FAE07B004EC6420029B14E41087908F200DF6D488C"\
"98A8205C8DFAB4F816C4D0AD27B0084238CE0ED4D981C4181D598A666EF8DBE9"\
"D7AFD7A7D2E5562A955D5151917129EF27D7565656BD94959D73C068347AD136"\
"414141B95F1EAA5A830350525C10A857C4FCC8942B57AFA648BA4D5B32338AA7"\
"4F9BFAD7C54B977CE2172F4D34180C5ADA263838B8A0F2C0BE2C24A61D096384"\
"14F7D7C366A53434DC5E27E34E4A5CB6FCDDD898BA13274FFAAD5ABD264FC6ED"\
"EFEFBFEDE8E19AED8418879612307DC6CC838D8D8DE368673737B7FB39D9592B"\
"D7AEDBB0AAB9B97904FDE7EBEBFB53EDD1C373A178CB81A5085206720C00BE10"\
"C087D0FE1E1E1E8FCA4A4B76AE484D0D877F0112E89F01F4122836A2B5762029"\
"165CF96E5238E99326EB773535358DEF2F6E2F2FCF1F4E9D3C1149C8363A2285"\
"BF34A74E9F0E0156BF80157B962A51A954066E4DB44EA3D1DCDBBC296D9E5E3F"\
"E52C9A3B7D84C96A9094217575752F2E5C149FDDDADA3A9036747575ED845554"\
"4B643517EF284C1D3D7AD445F8BC0DD28C63C8DBA79B9433677ED4A5AC5879A0"\
"BFB83FDCBA65C1C409E37FEB0F297C22CF64E77C1CB177DFFE02B3D9ECC29C3C"\
"0A85C23C3FE29DA4D4952BF6C0E723661FFE7A3031AB4FE1663B0444575D5DA3"\
"DFB8293D0E74AB9CE906D3B7AC5FB7B66CF69B6FD4C2E70D903B085EF814C66C"\
"3E6800EA1F5C5C523AB17467D9B6BE702F8A5BB87A59C2D26FE1F31FD42B2CD0"\
"EC2CFAF0C1862E5E92B0F9ECB973B1CE94BF3C6EDCAE92E21D1BA0D8C06C61B2"\
"D7FC98D5F171D0FE9C149091EB37A64DE4E438D31D1636F33858E07750BC0A52"\
"CFACDB8783EF64F6215990C20304B79021807B5E3F705721D1F7983540F46C4B"\
"67A4F08102DF9A175E545F7F639A33E5C386E98E1DAAAAE4FBFD26593D47A4B8"\
"21686E29C340462C8A5F3CFBFCF90B639DE90E09197B01FCCC5750BC82A4DC41"\
"F08F9D90E285A4F803EEE47EE0CE27A4504B71480A9F84F772F07AE0B157B13E"\
"1EFD94C95BB3B66FCB665627285B8BC80D844F190AA2CBFD242F7C5779C59CBE"\
"7483891F4A5C96C057946F1FEA53689EC2497147FD83C117461CABAD5DDE97EE"\
"D0D0E91F6DCDCC38C8ACDB87EB1551CDE1F6D102E0D0FC82C2DDB27352ABD54D"\
"9D9D9DDEB48E3B31087B51B131D1479835E6CBA48895E4FD86D61E3FFE2A4482"\
"4CD9A96AB5EEAD6D6DED1EB48E3BDFCC8CF4B553F5FAEF91141A7DC4027247DB"\
"9D039557EC0EC9CB2F28EF2FEEE4A4C49898E8A8F3CC96033974B46ED7AED58D"\
"8C7B2FFE6B880E8154C9A0413EBF1415166C84C8912BFF832871F3D39DA5B386"\
"0F0FE6A6FE58224544079F9BB76E3DBF2032BAA2A5A5E539DA3F3030F04FD82A"\
"FBE74746C6DDBFFFC02E72787A7A36ECDD53111D1810F007B32671224A0852BA"\
"33E5CB977FF503DCD510798264DC25454519B10BE3B264DC10817E07DC61A346"\
"BD7097D932E65EA4784C0B9DB1FFEEDDBF67D2CE3CD66F4E4F9B032B760556E3"\
"15B0A27D5D5D5DEEB48D9F9F6FCDB1238723A0D84AAAEDCC1B74E7CBBAB55A6D"\
"CBEEF2CF72753ADD23708EBE49C91F24C1AA6A1CE84E62F6662EF294EE6C76C2"\
"A4D78A1F3E6C992BE3DE51989F3076CC98E6EA9A6F02D236A5E7C11CED1243C8"\
"553E875C6509B3256F26991411253C992D25B620106EBA069CA048F37BBA32AB"\
"1314D1815A0A27458326CEF7BD0FEAD7206966664BF34532A6C46F03EA7D8084"\
"B4619DBC7DD4ACF7B94A9C7D449A2FCE490A664BF3E9B94AA4F9E6A771201413"\
"D52070772C8B3CC2C46C074271B853927F1D08BA1D276164B64847F58BC3A02B"\
"B33F65D3444F29E93632DB8150E87D2AA764015C9C64C5D5015D497A925531FB"\
"53AEB83AA027590BEB7DD5E0E2A0AFD02F1E25C144C7168BF254AE0E2831F482"\
"C9D9458F7C5944FFC9174D8C3DA14BA67F0133893470B75DAFB1000000004945"\
"4E44AE426082";

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

static const COLORREF
			CLR_TXT_HOT 				=  RGB(171, 186, 207), //d5dde8
			CLR_BKG_EXTERNAL_ROUND      =  RGB(107, 115, 126),
			CLR_BKG_EXTERNAL_FRMAE      =  RGB(145, 156, 170),
			CLR_BKG_INTERNAL 	        =  RGB(65,  70,  77 ),
			CLR_BKG_INTERNAL_LINE_HIG   =  RGB(118, 126, 134),
			CLR_BKG_INTERNAL_LINE_BLACK =  RGB(32,  36,  41 );

//---------------------------------------------------------------------------
static inline void ValidCtrCheck(TGeneralDialogPanel *)
{
	new TGeneralDialogPanel(NULL);
}
//---------------------------------------------------------------------------

#define PNGCLOSE_LEFT Width - m_imgClose->Width/3 - 2
#define PNGCLOSE_TOP  3
__fastcall TGeneralDialogPanel::TGeneralDialogPanel(TComponent* Owner)
	: TPanel(Owner)
{
	Color = CLR_BKG_INTERNAL;
	FOnCanceled = NULL;
	m_imgClose = new TPngImage();

	TMemoryStream *pngStream = new TMemoryStream();

	String pngData     = pngImage;
	int length         = pngData.Length();
	const char *temppngImage = pngImage;

	unsigned char buffer[10000];
	for(int i=0;i<length;i++){
		sscanf(temppngImage, "%02hhx", &buffer[i]);
		temppngImage += 2;
	}

	pngStream->Position = 0;
	pngStream->WriteBuffer(buffer, length);

	pngStream->Position = 0;
	m_imgClose->LoadFromStream(pngStream);

	delete pngStream;

	m_btnClose = new CBTPNButton(this);
	m_btnClose->SetStateCount( 3 );
	m_btnClose->SetPngImg( m_imgClose );
	m_btnClose->SetColor( Color );

	m_btnClose->Left        =  PNGCLOSE_LEFT;
	m_btnClose->Top         =  PNGCLOSE_TOP;
	m_btnClose->Hint        =  "关闭";
	m_btnClose->ModalResult =  System::Uitypes::mrCancel;
	m_btnClose->Parent      =  this;
	m_btnClose->OnClick		=  CloseClick;

	Canvas->Font->Size = 9;
}
//---------------------------------------------------------------------------
__fastcall TGeneralDialogPanel::~TGeneralDialogPanel()
{
	if(m_imgClose)
		delete m_imgClose;
	if(m_btnClose)
		delete m_btnClose;
}
//---------------------------------------------------------------------------
namespace Generaldialogpanel
{
	void __fastcall PACKAGE Register()
	{
		TComponentClass classes[1] = {__classid(TGeneralDialogPanel)};
		RegisterComponents(L"Samples", classes, 0);
	}
}
//---------------------------------------------------------------------------

void __fastcall TGeneralDialogPanel::CloseClick(TObject *Sender)
{
	if( FOnCanceled )
		FOnCanceled( this );
}

//---------------------------------------------------------------------------
void __fastcall TGeneralDialogPanel::WMEraseBkgnd(Winapi::Messages::TWMEraseBkgnd &Message)
{
	TRect rect = GetClientRect();
	TRect rectFill = rect;

	TCanvas* tempCanvas = new TCanvas;
	tempCanvas->Handle = Message.DC;

	rectFill.Top    = rectFill.Top    + LEN_BKG_EXTERNAL_ROUND;
	rectFill.Left   = rectFill.Left   + LEN_BKG_EXTERNAL_ROUND;
	rectFill.Right  = rectFill.Right  - LEN_BKG_EXTERNAL_ROUND;
	rectFill.Bottom = rectFill.Bottom - LEN_BKG_EXTERNAL_ROUND;

	tempCanvas->Brush->Color = CLR_BKG_INTERNAL;

	tempCanvas->FillRect( rectFill );

	delete tempCanvas;

	Message.Result = true;
}
//---------------------------------------------------------------------------

void __fastcall TGeneralDialogPanel::WMSize(Winapi::Messages::TWMSize &Message)
{
	DefaultHandler( &Message );

 	m_btnClose->Left        =  PNGCLOSE_LEFT;
	m_btnClose->Top         =  PNGCLOSE_TOP;
}
//---------------------------------------------------------------------------

void __fastcall TGeneralDialogPanel::CreateWnd()
{
	Vcl::Extctrls::TPanel::CreateWnd();

    Canvas->Font->Assign(Font);
}
//---------------------------------------------------------------------------

void __fastcall TGeneralDialogPanel::Paint(void)
{

	//==========画圆角
	Canvas->Pen->Color   = CLR_BKG_EXTERNAL_ROUND;
	int X,Y;
	//上面的
	Y         				 = 0;

	X            			 = 0;
	Canvas->Pixels[X][Y]     = Canvas->Pen->Color;
	X         				 = Width - LEN_BKG_EXTERNAL_ROUND;
	Canvas->Pixels[X][Y]     = Canvas->Pen->Color;

    //下面的
	Y            			 = Height - LEN_BKG_EXTERNAL_ROUND;

	X         				 = 0;
	Canvas->Pixels[X][Y]     = Canvas->Pen->Color;
	X         				 = Width - LEN_BKG_EXTERNAL_ROUND;
	Canvas->Pixels[X][Y]     = Canvas->Pen->Color;

	//===========画边框
	Canvas->Pen->Color   = CLR_BKG_EXTERNAL_FRMAE;

	Canvas->MoveTo( LEN_BKG_EXTERNAL_FRMAE, 	  0 );
	Canvas->LineTo( Width-LEN_BKG_EXTERNAL_FRMAE, 0 );

	Canvas->MoveTo( LEN_BKG_EXTERNAL_FRMAE,       Height-LEN_BKG_EXTERNAL_FRMAE );
	Canvas->LineTo( Width-LEN_BKG_EXTERNAL_FRMAE, Height-LEN_BKG_EXTERNAL_FRMAE );

	Canvas->MoveTo( 0, 					          LEN_BKG_EXTERNAL_FRMAE );
	Canvas->LineTo( 0, 					          Height-LEN_BKG_EXTERNAL_FRMAE );

	Canvas->MoveTo( Width-LEN_BKG_EXTERNAL_FRMAE, LEN_BKG_EXTERNAL_FRMAE );
	Canvas->LineTo( Width-LEN_BKG_EXTERNAL_FRMAE, Height-LEN_BKG_EXTERNAL_FRMAE );

	//===========画分割线
	int iLineHeight      = LEN_BKG_INTERNAL_LINE;

	Canvas->Pen->Color   = CLR_BKG_INTERNAL_LINE_HIG;
	Canvas->MoveTo( LEN_BKG_EXTERNAL_FRMAE,       iLineHeight );
	Canvas->LineTo( Width-LEN_BKG_EXTERNAL_FRMAE, iLineHeight );
	Canvas->MoveTo( LEN_BKG_EXTERNAL_FRMAE,       iLineHeight+2 );
	Canvas->LineTo( Width-LEN_BKG_EXTERNAL_FRMAE, iLineHeight+2 );

	Canvas->Pen->Color   = CLR_BKG_INTERNAL_LINE_BLACK;
	Canvas->MoveTo( LEN_BKG_EXTERNAL_FRMAE,       iLineHeight+1 );
	Canvas->LineTo( Width-LEN_BKG_EXTERNAL_FRMAE, iLineHeight+1 );

	//画标题

	Canvas->Font->Color  = CLR_TXT_HOT;
	Canvas->Brush->Style = bsClear;
	TSize size = Canvas->TextExtent( Caption );
	X = LEN_BKG_EXTERNAL_FRMAE + ( Width - size.Width )/2,
	Y = LEN_BKG_EXTERNAL_FRMAE + ( LEN_BKG_INTERNAL_LINE-size.Height )/2;
	Canvas->TextOut( X, Y, Caption );
}
//---------------------------------------------------------------------------
void __fastcall TGeneralDialogPanel::MouseDown(System::Uitypes::TMouseButton Button, System::Classes::TShiftState Shift, int X, int Y)
{

	if (X > Left + 10 && X < Left + Width - 50 && Y < Top + LEN_BKG_INTERNAL_LINE){
		ReleaseCapture();
		Parent->Perform(WM_NCLBUTTONDOWN,HTCAPTION, 0);
	}else{
    	Vcl::Extctrls::TPanel::MouseDown(Button, Shift, X, Y);
	}
}
//---------------------------------------------------------------------------