Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,121 @@
+//---------------------------------------------------------------------------
+
+#ifndef PolicyEditFormUnitH
+#define PolicyEditFormUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ExtCtrls.hpp>
+#include <Vcl.Grids.hpp>
+#include "PolicyUnit.h"
+#include <Vcl.Menus.hpp>
+#include <Vcl.Tabs.hpp>
+
+//---------------------------------------------------------------------------
+class TPolicyEditForm : public TForm
+{
+__published:	// IDE-managed Components
+	TLabel *m_lblPolicy;
+	TComboBox *m_cbPolicy;
+	TButton *m_btnAdd;
+	TPanel *m_panEdit;
+	TButton *m_btnDelRow;
+	TButton *m_btnSave;
+	TRadioGroup *m_rgRoad;
+	TButton *m_btnSelect;
+	TButton *m_btnDel;
+	TStringGrid *m_sg;
+	TPanel *m_panChip;
+	TLabel *m_lblDead;
+	TBevel *m_bvChip;
+	TEdit *m_pEditor;
+	TRadioButton *m_rbDead0;
+	TRadioButton *m_rbDead1;
+	TRadioButton *m_rbDead2;
+	TEdit *m_edDeadPause;
+	TLabel *m_lblDead2Tail;
+	TGroupBox *m_rgDead;
+	TCheckBox *m_cbTierWinRet;
+	TCheckBox *m_cbTierAccChip;
+	TBevel *Bevel1;
+	TButton *m_btnTip;
+	TComboBox *m_cbKind;
+	TComboBox *m_pCombo;
+	TButton *m_btnInsRow;
+	TCheckBox *m_cbLevelTotalDiff;
+	TCheckBox *m_cbLevelInstant;
+	TCheckBox *m_cbLevelIndie;
+	TPopupMenu *m_pmSG;
+	TMenuItem *miExport;
+	TMenuItem *miImport;
+	TCheckBox *m_cbTierLos0;
+	TTabSet *m_tsTop;
+	void __fastcall FormCreate(TObject *Sender);
+	void __fastcall OnDelRowClick(TObject *Sender);
+	void __fastcall OnPolicyChange(TObject *Sender);
+	void __fastcall OnAddClick(TObject *Sender);
+	void __fastcall OnSaveClick(TObject *Sender);
+	void __fastcall SGDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State);
+	void __fastcall EditorKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall EditorKeyPress(TObject *Sender, System::WideChar &Key);
+	void __fastcall SGMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall SGMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall SGTopLeftChanged(TObject *Sender);
+	void __fastcall SGMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
+	void __fastcall OnSelectClick(TObject *Sender);
+	void __fastcall OnDelClick(TObject *Sender);
+	void __fastcall OnRoadClick(TObject *Sender);
+	void __fastcall OnDeadClick(TObject *Sender);
+	void __fastcall EditorExit(TObject *Sender);
+	void __fastcall SGKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall SGSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect);
+	void __fastcall DeadPauseExit(TObject *Sender);
+	void __fastcall DeadPauseKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall OnKindChange(TObject *Sender);
+	void __fastcall OnChipOptionClick(TObject *Sender);
+	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
+	void __fastcall OnSPEditChange(TObject *Sender);
+	void __fastcall OnAskRoadClick(TObject *Sender);
+	void __fastcall OnTipClick(TObject *Sender);
+	void __fastcall ComboKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall OnInsRowClick(TObject *Sender);
+	void __fastcall OnExport(TObject *Sender);
+	void __fastcall OnImport(TObject *Sender);
+	void __fastcall TopMeasureTab(TObject *Sender, int Index, int &TabWidth);
+	void __fastcall TopDrawTab(TObject *Sender, TCanvas *TabCanvas, TRect &R, int Index, bool Selected);
+	void __fastcall TopChange(TObject *Sender, int NewTab, bool &AllowChange);
+	void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
+private:	// User declarations
+    int m_iType;
+	int m_iSelPolicy;
+	TBasePolicy* m_editPolicy;
+
+	int m_colEdit, m_rowEdit;
+	int m_nRows, m_nNewNum;
+	String m_sOrig, m_sType;;
+	bool m_bRowChanged, m_bColChanged, m_bRoadChanged;
+
+	TRadioButton *m_aDeadRB[3];
+	TFrame *m_frmSP;  //ÌØÊâ²ßÂÔÃæ°å
+
+	vector<int> m_aCPMap; //ComboÓ³Éä
+
+	void __fastcall UpdateGrid();
+    String __fastcall AutoNewName();
+	void __fastcall GridEndEdit();
+	void __fastcall SetSelection(int selRow);
+	void __fastcall SGSelCell(int ACol, int ARow);
+	void __fastcall Clear();
+	void __fastcall CalcNewName();
+	void __fastcall InitChipGrid(int kind);  //0=ÆÕÍ¨×¢Âë 1=²ã¼¶×¢Âë
+	void __fastcall ClearSPFrame();
+    void __fastcall SetView(int type);
+
+public:		// User declarations
+
+	__fastcall TPolicyEditForm(TComponent* Owner, int iType);//, int iSel);
+};
+//---------------------------------------------------------------------------
+#endif