Delphi 13 - Listbox içerisinde yatay kaydırma çalışmıyor

[Mr.X]

Merhaba,

Delphi 13 ile fark ettiğim değişikliklerden bir diğeri Listbox bileşeninin ListStyle özelliğinin Horizontal seçilmesi durumumda Windows platformunda işlevsiz kalması.
Geçici çözüm olarak kullanabilirsiniz.

procedure TForm1.ListBox1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
{$IF DEFINED(MSWINDOWS)}
 if ListBox1.ListStyle = TListStyle.Horizontal then
 begin
   ListBox1.ViewportPosition :=
     PointF(ListBox1.ViewportPosition.X - (WheelDelta / 4), ListBox1.ViewportPosition.Y);
   Handled := True;
 end;
 {$ENDIF}
end;