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

Question

我在下面使用這些代碼，但是它並沒有顯示當我在IOS模擬器上運行程序時的行。 我沒有看到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;