Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TStringlist,
9. Mai 2005
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if isMoved then
begin
if X <> StartX then begin
scrollbox1.horzScrollBar.Position := scrollbox1.horzScrollBar.Position - (X-StartX);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by TStringlist,
8. Mai 2005
Hi, außerdem dürfte dabei auch wichtig sein, dass du dein X, nach einem jeweiligen Scrollen des Bildes, dann auch immer um einen entsprechenden Wert mitkorrigierst. Ansonsten würde dieses bis dato schon getätigte Scrollen ja auch gar nicht registriert und die Diff zwischen X und MoveX ggf. immer größer, obgleich du aber schon nachgescrollt hast.