Frame... example for Delphi

This example sets the control's frame properties. 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;
Lead1.FrameThickness := 2;
Lead1.FrameColor := RGB(0, 0, 0);
Lead1.FrameInnerStyle := fisInset;
Lead1.FrameOuterStyle := fosRaised;
Lead1.FrameInnerHiliteColor := RGB(255, 255, 0);   {Yellow}
Lead1.FrameInnerShadowColor := RGB(128, 128, 128); {Dark Gray}
Lead1.FrameOuterHiliteColor := RGB(255, 0, 0);     {Red}
Lead1.FrameOuterShadowColor := RGB(192, 192, 192); {Light Gray}
Lead1.FrameInnerThickness := 3;
Lead1.FrameOuterThickness := 3;
Lead1.AutoRepaint := True;