Hello
I am building an application for touchscreen using TsScrollBox component.
I have noticed a couple of things, I'm not sure if the list below requires patching inside component source, hope you can help me.
– I have enabled pan interactive gesture for TsScrollBox.
When trying to pan inside the scroll box, it works fine. However the scrollbar does not update position.
This happens when skin is enabled and scrollbars are skinned. In order to workaround I had to call UpdateScrollBars() inside
the pan gesture assigned to the scrollbox:
Code:
procedure TForm4.PanelGesture(Sender: TObject;
const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
if EventInfo.GestureID = igiPan then begin
UpdateScrolls(sScrollBox1.ListSW, True);
end;
end;
– Having
Code:
sScrollBox1.AutoMouseScrollWheel:=TRUE;
sScrollBox1.VertScrollBar.Tracking:=TRUE;
prevents the pan gesture to be processed. How is it possible
to have both pan gesture and AutoMouseScrollWheel working at the same time?
– OnGesture() event for TsScrollBox is not published, it needs manual assignment eg:
Code:
procedure TForm4.FormCreate(Sender: TObject);
begin
sScrollBox1.OnGesture:=PanelGesture;
end;
I am using Delphi XE w/AlphaSkins 10.26 on Win7
Thanks