Initial commit

SaveFormUnit.h

@@ -0,0 +1,52 @@
+//---------------------------------------------------------------------------
+
+#ifndef SaveFormUnitH
+#define SaveFormUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ExtCtrls.hpp>
+#include <Vcl.Imaging.pngimage.hpp>
+#include "PNGButton.hpp"
+#include "TransparentEditUnit.h"
+#include <Vcl.Graphics.hpp>
+//---------------------------------------------------------------------------
+class TSaveForm : public TForm
+{
+__published:	// IDE-managed Components
+	TImage *m_imgBk;
+	TImage *m_imgComposeCheck;
+	TImage *m_imgSongCheck;
+	TPNGButton *m_btnOk;
+	TPNGButton *m_btnCancel;
+	TPNGButton *m_btnBrowse;
+	TransparentEditUnit::TEdit *m_editFileName;
+	TLabel *m_lblCaption;
+	void __fastcall ImgCheckClick(TObject *Sender);
+	void __fastcall FormCreate(TObject *Sender);
+	void __fastcall FormDestroy(TObject *Sender);
+	void __fastcall BtnBrowseClick(TObject *Sender);
+	void __fastcall FileNameChange(TObject *Sender);
+	void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall FormActivate(TObject *Sender);
+
+private:	// User declarations
+	TBitmap *m_pImgCheckState[2];
+
+	void __fastcall WMNCHitTest(TWMNCHitTest &Msg);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest)
+	END_MESSAGE_MAP(TForm)
+public:		// User declarations
+	int m_iSaveType;
+
+	__fastcall TSaveForm(TComponent* Owner, String strDefaultFile, int iLastOption, int iLastType);
+
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TSaveForm *SaveForm;
+//---------------------------------------------------------------------------
+#endif