🚀 go-pugleaf

hi Sam,

put a panel on the form set it to a custom color and try the following
it's for TStaticText but maybe could work also with TMainMenu...
just try it out...


Oren
/*********************************************************/
// earsing background...in form declaration

protected: void __fastcall OnWmCtlColorStatic(TWMCtlColorStatic &Message);

BEGIN_MESSAGE_MAP
      VCL_MESSAGE_HANDLER(WM_CTLCOLORSTATIC, TWMCtlColorStatic,
OnWmCtlColorStatic)
END_MESSAGE_MAP(TForm)

// in form definition .cpp
void __fastcall TForm1::OnWmCtlColorStatic(TWMCtlColorStatic &Message)
{
  if(Message.ChildWnd == StaticText1->Handle)
    {
      SetBkMode(Message.ChildDC, TRANSPARENT);
      Message.Result = (long)GetStockObject(NULL_BRUSH);
    }
  else TForm::Dispatch(&Message);
}

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
  HWND statichwnd = StaticText1->Handle;
  long exstyle = GetWindowLong(statichwnd, GWL_EXSTYLE);
  exstyle = exstyle | WS_EX_TRANSPARENT;
  SetWindowLong(statichwnd, GWL_EXSTYLE, exstyle);
}