Initial commit

2026-06-13 00:05:19 +08:00
commit 754cd7ccdb
402 changed files with 123771 additions and 0 deletions
@@ -0,0 +1,65 @@
+//---------------------------------------------------------------------------
+
+#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 "GeneralDialogPanel.h"
+#include "PNGButton.hpp"
+#include "LineEdit.h"
+#include "TextButton.h"
+#include "CKBox.h"
+#include "ComboBoxComponent.h"
+#include <Vcl.AppEvnts.hpp>
+//---------------------------------------------------------------------------
+class TSaveForm : public TForm
+{
+__published:	// IDE-managed Components
+	TGeneralDialogPanel *DialogPanel;
+    TLabel *m_sdFileNameLabel;
+	TLineEdit *m_editFileName;
+	TTextButton *m_btnBrowse;
+	TTextButton *m_btnCancel;
+	TTextButton *m_btnOk;
+	TCKBox *m_SongCheck;
+	TCKBox *m_ComposeCheck;
+	TComboBoxComponent *m_SaveTypeCombo;
+	TLabel *m_SaveTypeLabel;
+
+	void __fastcall BtnBrowseClick(TObject *Sender);
+	void __fastcall FileNameChange(TObject *Sender);
+	void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall DoComboChange(TComboBoxItem *Sender, int Index);
+	void __fastcall DoComposeCheck(TObject *Sender);
+	void __fastcall DoSongCheck(TObject *Sender);
+	void __fastcall FormCreate(TObject *Sender);
+//	void __fastcall DoMessage(tagMSG &Msg, bool &Handled);
+
+private:	// User declarations
+	int m_aTypeIndex[4];
+	int FMediaOption,
+		FSaveType;	// 0 : ¹¤³Ì     1 £º mp3    2 £º wav    3 £ºmid
+
+    String FFilePath,
+           m_MediaPath,
+           m_ProjPath,
+		   m_DefName;
+
+	void __fastcall DoOpenDlgTypeChange(TObject *Sender);
+	void __fastcall SetMediaOption(int Value);
+
+public:		// User declarations
+	__fastcall TSaveForm(TComponent* Owner, int iType);
+
+	__property int MediaOption = {read = FMediaOption};
+    __property int SaveType = {read = FSaveType};
+    __property String FilePath = {read = FFilePath};
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TSaveForm *SaveForm;
+//---------------------------------------------------------------------------
+#endif