TAdvPanelStyler

VCL TMS VCL UI Pack
4

Let me put it this way



procedure TAppearance.CarejstAdvPanel(const AComp: TjstAdvPanel);
var
  iCaptionHeight, iStatusBarHeight: Integer;
  bCanSize: Boolean;
begin
  AComp.ParentDoubleBuffered := True;
  bCanSize := AComp.CanSize;
  iCaptionHeight := AComp.Caption.Height;
  iStatusBarHeight := AComp.StatusBar.Height;
  AComp.ParentColor := False;
  AComp.ParentBackground := False;
  AComp.ParentFont := True;
  SupObjJson.ReadjstPanel(AComp);
  AComp.CanSize := bCanSize;


  if not AComp.StaticColor then
    AComp.Styler := FTSMCentre.AdvPanelStyler;


  AComp.Caption.Height := iCaptionHeight;
  AComp.StatusBar.Height := iStatusBarHeight;
end;