🚀 go-pugleaf

"Saravanan" <asaravanan@ften.com> wrote:
>

<snip>

>  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) & ~WS_CAPTION ) ;

You should be overriding the CreateParams method for this
and if you intercept WM_NCPAINT, you can draw a flat border
so you don't have to mimic default behavior with resizing.
For example:

    protected:
        virtual void __fastcall CreateParams( TCreateParams &Params );
    private:    // User declarations
        MESSAGE void __fastcall WMNCPaint( TMessage &Message );
    public:    // User declarations
        BEGIN_MESSAGE_MAP
            VCL_MESSAGE_HANDLER( WM_NCPAINT, TMessage, WMNCPaint )
        END_MESSAGE_MAP( TForm )


#include <memory>
//-------------------------------------------------------------
void __fastcall TForm2::CreateParams( TCreateParams &Params )
{
    TForm::CreateParams( Params );
    Params.Style = Params.Style & ~WS_CAPTION;
}
//-------------------------------------------------------------
MESSAGE void __fastcall TForm2::WMNCPaint(TMessage &Message)
{
    TForm::Dispatch( &Message );
    std::auto_ptr<TCanvas> pCanvas ( new TCanvas );
    pCanvas->Handle = ::GetWindowDC( Handle );
    TRect R;
    ::GetWindowRect( Handle, &R );
    int width = R.Right - R.Left,
        height = R.Bottom - R.Top,
        Limit = ::GetSystemMetrics( SM_CXDLGFRAME );
    for( int x = 0; x < Limit; ++x )
      {
          pCanvas->Pen->Color = pCanvas->Pixels[ width - 1 - x ][ height - 1 - x ];
          pCanvas->MoveTo( x, height - 2 - x );
          pCanvas->LineTo( x, x );
          pCanvas->LineTo( width - x, x );
      }
    ::ReleaseDC( Handle, pCanvas->Handle );
}
//-------------------------------------------------------------

~ JD