delphi - SpTBX: ドック BG をキャンバスに描画する方法

Question

TBX には、テーマ ドック 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

(sptbx の) CurrentSkin 変数を使用します。

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