Initial commit

2026-06-13 00:10:11 +08:00
commit 2191c1aed4
535 changed files with 184587 additions and 0 deletions
@@ -0,0 +1,35 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "ProgressThreadUnit.h"
+#include "ProgressFormUnit.h"
+#pragma package(smart_init)
+//---------------------------------------------------------------------------
+
+//   Important: Methods and properties of objects in VCL can only be
+//   used in a method called using Synchronize, for example:
+//
+//      Synchronize(&UpdateCaption);
+//
+//   where UpdateCaption could look like:
+//
+//      void __fastcall TProgressThread::UpdateCaption()
+//      {
+//        Form1->Caption = "Updated in a thread";
+//      }
+//---------------------------------------------------------------------------
+
+__fastcall TProgressThread::TProgressThread(bool CreateSuspended, TForm* pForm)
+	: TThread(CreateSuspended)
+{
+	m_pForm = pForm;
+}
+//---------------------------------------------------------------------------
+void __fastcall TProgressThread::Execute()
+{
+	//---- Place thread code here ----
+	((TProgressForm*)m_pForm)->Operation();
+}
+//---------------------------------------------------------------------------