TRect Rect = TRect(0, 0, Width, Height);
     if(this->Parent != NULL)
     {
        HDC hDC = GetDC(this->Handle);
        GradientRect(hDC, Rect, FGradientVertical, FColorStart, FColorEnd);
        ReleaseDC(this->Handle, hDC);
     }

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "RPanel.h"
#pragma package(smart_init)
#include "GradFill.h"
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TRPanel *)
{
        new TRPanel(NULL);
}
//---------------------------------------------------------------------------
__fastcall TRPanel::TRPanel(TComponent* Owner)
        : TCustomPanel(Owner)
{
 FBackGround = new Graphics::TBitmap();
 ControlStyle << csOpaque;
 DoubleBuffered = true;
}
//---------------------------------------------------------------------------
namespace Rpanel
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TRPanel)};
                 RegisterComponents("RComp", classes, 0);
        }
}
//---------------------------------------------------------------------------

void __fastcall TRPanel::SetBackGround(Graphics::TBitmap *value)
{
 FBackGround->Assign(value);
 Invalidate();
// if(value)
// {
//    Canvas->Brush->Style = bsSolid;
//  Canvas->Brush->Bitmap->Assign(FBackGround);
//    Canvas->Brush->Bitmap->Assign(FBackGround);
//  Canvas->FillRect(TRect(0, 0, Width, Height));
// }
}
//---------------------------------------------------------------------------

__fastcall TRPanel::~TRPanel()
{
 delete FBackGround;
}
//---------------------------------------------------------------------------

void __fastcall TRPanel::Paint()
{
/*
// Canvas->Brush->Style = bsSolid;
 if(!FBackGround->Empty)
 {
    Canvas->Brush->Bitmap = FBackGround;
    Canvas->FillRect(TRect(0, 0, Width, Height));
 }
 else
 {
     TRect Rect = TRect(0, 0, Width, Height);
     if(this->Parent != NULL)
     {
        HDC hDC = GetDC(this->Handle);

        GradientRect(hDC, Rect, FGradientVertical, FColorStart, FColorEnd);

//        long int OldMode;
//        OldMode = SetBkMode(hDC, TRANSPARENT);

//        DrawText(hDC, FCaption.c_str(), - 1, &Rect,
//            (FMultiline ? 0 : DT_SINGLELINE) | DT_CENTER | \
//            (FWordWrap ? DT_WORDBREAK : 0) | DT_VCENTER);

//        SetBkMode(hDC, OldMode);
//        if(Focused())
//            DrawFocusRect(hDC, &Rect);

        ReleaseDC(this->Handle, hDC);
     }
//    Canvas->Brush->Color = Color;
//    Canvas->FillRect(TRect(0, 0, Width, Height));
 }
 */
// if(FOnPaint) FOnPaint(this);
}
//---------------------------------------------------------------------------

void __fastcall TRPanel::SetColorStart(TColor value)
{
    if(FColorStart != value) {
        FColorStart = value;
        Invalidate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TRPanel::SetColorEnd(TColor value)
{
    if(FColorEnd != value) {
        FColorEnd = value;
        Invalidate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TRPanel::FSetGradientVertical(bool value)
{
    if(value != FGradientVertical)
    {
        FGradientVertical = value;
        Invalidate();
    }
}
//---------------------------------------------------------------------------
void __fastcall TRPanel::WndProc(TMessage& Message)
{
// if(Message.Msg != WM_PAINT) Inherited::WndProc(Message);
 TControl::WndProc(Message);
 switch(Message.Msg)
 {
  case WM_PAINT: WMPaint(Message); Message.Result = 0; return;
//  case WM_FONTCHANGE: ShowMessage("Font changed"); break;
 }
}
//---------------------------------------------------------------------------

void __fastcall TRPanel::WMPaint(TMessage &Message)
{
// Canvas->Brush->Style = bsSolid;
 if(!FBackGround->Empty)
 {
    Canvas->Brush->Bitmap = FBackGround;
    Canvas->FillRect(TRect(0, 0, Width, Height));
 }
 else
 {
     TRect Rect = TRect(0, 0, Width, Height);
     if(this->Parent != NULL)
     {  //(HDC)Message.WParam;
        HDC hDC;
        if((HDC)Message.WParam == NULL) hDC = GetDC(this->Handle);
        else hDC = (HDC)Message.WParam;
//        if(GetUpdateRect(this->Handle, &Rect, false))
        GradientRect(hDC, Rect, FGradientVertical, FColorStart, FColorEnd);
        ReleaseDC(this->Handle, hDC);
     }
 }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#ifndef RPanelH
#define RPanelH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
//---------------------------------------------------------------------------
class PACKAGE TRPanel : public TCustomPanel
{
        typedef TCustomPanel Inherited;
private:
        Graphics::TBitmap *FBackGround;
        TColor FColorStart;
        TColor FColorEnd;
        bool FGradientVertical;
        TNotifyEvent FOnPaint;
        void __fastcall SetBackGround(Graphics::TBitmap *value);
        void __fastcall SetColorStart(TColor value);
        void __fastcall SetColorEnd(TColor value);
        void __fastcall FSetGradientVertical(bool value);
        void __fastcall WndProc(TMessage& Msg);
        void __fastcall WMPaint(TMessage &Message);
protected:
public:
        void __fastcall Paint();
        __fastcall TRPanel(TComponent* Owner);
        __fastcall ~TRPanel();
        __property Canvas;
__published:
//        __property TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint};
        __property Graphics::TBitmap *BackGround  = { read=FBackGround, write=SetBackGround };
        __property Align;
        __property Anchors;
        __property Alignment;
        __property BevelInner;
        __property BevelOuter;
        __property BevelWidth;
        __property BorderStyle;
        __property BorderWidth;
        __property Color;
        __property Hint;
        __property ShowHint;
        __property TColor GradientStart  = { read=FColorStart, write=SetColorStart };
        __property TColor GradientEnd  = { read=FColorEnd, write=SetColorEnd };
        __property bool GradientVertical  = { read=FGradientVertical, write=FSetGradientVertical, default=true };
//        __property TNotifyEvent OnPaint  = { read=FOnPaint, write=FOnPaint };
};
//---------------------------------------------------------------------------
#endif

 HRGN regn1 = CreateRoundRectRgn(0,0,Width+1,Height+1,5,5);
 if(this->Parent != NULL)
  SetWindowRgn(this->Handle,regn1,true);

//---------------------------------------------------------------------------
void __fastcall TRPanel::WndProc(TMessage& Message)
{
// if(Message.Msg != WM_PAINT) Inherited::WndProc(Message);
 TControl::WndProc(Message);
 switch(Message.Msg)
 {
//  case WM_PAINT: WMPaint(Message); Message.Result = 0; break;
  case WM_ERASEBKGND: WMPaint(Message); Message.Result = 1; break;
 }
}
//---------------------------------------------------------------------------

-DVD

--Video
---ANDREA BOCHELLI   “TUSCAN SKIES”. CIELI DI TOSCANA.
---ACE OF BASE.
---ATRIBUTE TO STEVIE RAY VAUGHAN.   1996.

--Soft
---3D РЕДАКТОРЫ.
---Mandrakelinux 10.1. Linux Center Edition.
---SDS, DDK и ИНСТАЛЛЯТОРЫ.

-CD-R

--Films
---11:14.
---11 друзей Оушена.
---13-й район.

--mp3
---Alphaville.
---Gary Moore.
---Rainbow.
---Rammstein (320кбит/сек).

-Games
---ARCANUM. Of Steamworrs & Magick Obscura.2CD.
---СОЛДАТ УДАЧИ.
---UNREAL TOURNAMENT FINAL WORLDS.

И т.п.

DVD.Video: TStringList;
DVD.Video[0]:= ‘ANDREA BOCHELLI   “TUSCAN SKIES”. CIELI DI TOSCANA’
……..
DVD.Soft: TStringList;
DVD.Soft[0]:= ‘3D РЕДАКТОРЫ.’;
…….
CD_R.Films: TStringList;
CD_R.Films[0]:= ’11:14’;
…….
Games: TStringList;
Games[0]:= ‘ARCANUM. Of Steamworrs & Magick Obscura.2CD.’;