DrawShape example for C++ Builder

This example demonstrates most of the three-dimensional shape properties as it draws a rectangle on the current bitmap. For example purposes, both inner and outer bands are turned on. However, normal three-dimensional effects use inner bands or outer bands, but not both.

Lead1->AutoRepaint= False;
/*Load an image for the main control*/
Lead1->Load("d:\\ltwin11x\\images\\image1.cmp", 0, 0, 1);
/*Load an image for the background of the shape*/
Lead2->Load("d:\\ltwin11x\\images\\ulay1.bmp", 0, 0, 1);
/*Shape background*/
Lead1->ShapeBackgroundStyle= sbsTiledImage ;
Lead1->BackgroundImageTop= 0;
Lead1->BackgroundImageLeft= 0;
Lead1->BackgroundImageWidth= Lead2->BitmapWidth;
Lead1->BackgroundImageHeight= Lead2->BitmapHeight;
/*Shape location*/
Lead1->ShapeTop= 50;
Lead1->ShapeLeft= 50;
Lead1->ShapeWidth= Lead1->DstWidth- 50;
Lead1->ShapeHeight= Lead1->DstHeight- 50;
/*Shape border*/
Lead1->ShapeBorderColor= (TColor)RGB(255, 0, 0);
Lead1->ShapeBorderStyle= sbrSolid ;
Lead1->ShapeBorderThickness= 10;
Lead1->ShapeInnerBandHiliteColor= (TColor)RGB(255, 255, 255);
Lead1->ShapeInnerBandShadowColor= (TColor)RGB(0,0,0);
Lead1->ShapeInnerBandStyle= sibRaised ;
Lead1->ShapeInnerBandThickness= 2;
Lead1->ShapeOuterBandHiliteColor = (TColor)RGB(0, 255, 0);
Lead1->ShapeOuterBandShadowColor = (TColor)RGB(128, 128, 128);
Lead1->ShapeOuterBandStyle =sobRaised ;
Lead1->ShapeOuterBandThickness = 2;
/*Make the shape a permanent part of the bitmap*/
Lead1->DrawPersistence = True;
/*Draw the shape*/
Lead1->DrawShape (EFX_SHAPE_RECTANGLE, Lead2->Bitmap);
/*Repaint*/
Lead1->AutoRepaint = True;