Initial commit

2026-06-13 00:10:11 +08:00
commit 2191c1aed4
535 changed files with 184587 additions and 0 deletions
@@ -0,0 +1,34 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "TransparentPanelUnit.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+
+__fastcall TransparentPanelUnit::TPanel::TPanel(TComponent* AOwner)
+	: Vcl::Extctrls::TPanel(AOwner)
+{
+	ControlStyle >> csOpaque;
+}
+
+void __fastcall TransparentPanelUnit::TPanel::CreateWnd(void)
+{
+	Vcl::Extctrls::TPanel::CreateWnd();
+
+	SetWindowLong( Parent->Handle, GWL_STYLE,
+			GetWindowLong(Parent->Handle, GWL_STYLE) & ~WS_CLIPCHILDREN );
+}
+
+void __fastcall TransparentPanelUnit::TPanel::CreateParams(Controls::TCreateParams &Params)
+{
+	Vcl::Extctrls::TPanel::CreateParams(Params);
+
+	Params.ExStyle |= WS_EX_TRANSPARENT;
+}
+
+void __fastcall TransparentPanelUnit::TPanel::Paint()
+{
+	SetBkMode( Canvas->Handle, TRANSPARENT);
+	StyleServices()->DrawParentBackground( Handle, Canvas->Handle, NULL, false);
+}