delphi - SpTBX：如何在画布上绘制停靠 BG

Question

在 TBX 中，我有一个在画布上绘制主题 Dock BG 的代码。

var
  t: TTbxTheme;
  s:string;
  r: TRect;
..
  S:= TbxSwitcher.Theme;
  t:= GetTbxTheme(S);
  t.PaintDock(ACanvas.Handle, R, R, 0);
  ReleaseTBXTheme(t);

如何在 SpTBX 中做到这一点？

Answer 1

使用 CurrentSkin (of sptbx) 变量。

  CurrentSkin.PaintBackground(
    ACanvas, R,
    skncDock, sknsNormal, true{BG}, false{Borders});