#pas
procedure THIPanel.Init;
begin
   Control := NewmdvPanel(FParent,TBevelCut(_prop_BevelOuter),TBevelCut(_prop_BevelInner),
      _prop_BevelWidth,TBorderStyle(_prop_BorderStyle),_prop_BorderWidth);
   //Control := NewPanel(FParent,esNone);
   
    case _prop_Style of
    0: Control.ExStyle := $1;
    1: Control.ExStyle := $200;
    2: Control.ExStyle := $201;
    3: Control.ExStyle := $2000;
    4: Control.ExStyle := $20000;
    end;