如何使用TListBoxItems.OnPaint事件更改TListBox的外观？

Question

我在下面使用这些代码，但是当我在IOS sim上运行程序时它没有显示该行。 我没看到embarcadero的任何演示，有人知道怎么做吗？

我正在使用Embarcadero Delphi XE4 for iOS。

procedure TForm1.ListBoxItem3Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
  Canvas.BeginScene;
  Canvas.DrawLine(ARect.TopLeft, ARect.BottomRight, 1);
  Canvas.EndScene;
end;

Answer 1

似乎你必须在绘画之前设置笔画：

procedure TForm1.ListBoxItem3Paint(Sender: TObject; Canvas: TCanvas;
    const ARect: TRectF);
begin
  Canvas.Stroke.Thickness:=1;
  Canvas.Stroke.Kind:=TBrushKind.bkSolid;
  Canvas.Stroke.Color:=$FF000000;
  Canvas.DrawLine(ARect.TopLeft, ARect.BottomRight, 1);
end;