Firemonkey 的 switch 中画图

Question

上面好像没有caption的属性;我想写上"开""关"这样的字;
但是 使用 Switch1Paint 
procedure TForm1.Switch1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
   Canvas.Stroke.Color := claRed; Canvas.Stroke.Kind := TBrushKind.bkSolid;
   Canvas.FillText(ARect,'开',true,1,,TTextAlign.taLeading, TTextAlign.taLeading);
 end;没效果啊 panel 就可以的~~

Answer 1

呵呵,版主没使用过?新的东西出来了嘛,想搞搞看,别让自己落伍了;