🚀 go-pugleaf

Hi,

Once again thanks for your reply!


Here is my code:

******************
.h:
******************
class TForm2 : public TForm
{
__published:	// IDE-managed Components
private:	// User declarations
         MESSAGE void __fastcall WMNCPaint(TWMNCPaint &Message);
public:		// User declarations
         __fastcall TForm2(TComponent* Owner);
         BEGIN_MESSAGE_MAP
             VCL_MESSAGE_HANDLER(WM_NCPAINT, TWMNCPaint, WMNCPaint)
         END_MESSAGE_MAP(TForm)
};

*****************
.cpp:
*****************

void __fastcall TForm2::WMNCPaint(TWMNCPaint &Message)
{
   TForm::Dispatch(&Message);
   TCanvas *ACanvas = new TCanvas;
   try
   {
       // to retrieve the device context for the window
       ACanvas->Handle = GetWindowDC(Handle);
       ACanvas->Brush->Style = bsClear;//transparant background
       ACanvas->Font->Style = TFontStyles() << fsBold;

       // calculate the left coordinate for caption drawing
       int intLeftShift = GetSystemMetrics(SM_CYMENU) + 
GetSystemMetrics(SM_CXBORDER);

       // calculate the top coordinate for caption drawing
       int intTopShift = ((GetSystemMetrics(SM_CYCAPTION) - 
abs(ACanvas->Font->Height)) / 2);

       // output the caption string
       ACanvas->TextOut(intLeftShift, intTopShift, "Test!");
   }
   __finally
   {
       // to release the device context
       ReleaseDC(Handle, ACanvas->Handle);
       delete ACanvas;
   }
}
//---------------------------------------------------------------------------