🚀 go-pugleaf

"Paw Suddergaard" <paw@top-house.dk> wrote in message
news:43843bb9$1@newsgroups.borland.com...

> BTW: Heres a delphi example of somwthing like that. I just need it in
C++...
>
> http://www.scalabium.com/faq/dct0059.htm


    class TForm1 : public TForm
    {
    private:
        MESSAGE void __fastcall WMNCPaint(TWMNCPaint &Message);
        //...
    public:
        //...
        BEGIN_MESSAGE_MAP
            VCL_MESSAGE_HANDLER(WM_NCPAINT, TWMNCPaint, WMNCPaint)
        END_MESSAGE_MAP(TForm)
    };

    void __fastcall TForm1::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->Color = clActiveCaption;
            ACanvas->Font->Style = TFontStyles() << fsItalic;

            // 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) + 1;

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


Gambit