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

Question

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

我正在使用适用于 iOS 的 Embarcadero Delphi XE4。

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

看来您必须在绘画之前设置 Stroke ：

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;