drag move in scrollbox

[Spectre]

hallo!

der code steht eigentlich schon fast. ich möchte ein grosses bild innerhalb einer scrollbox mit der mouse nach links und rechts schieben anstatt mit den horizontalen und vertikalen reglern! mit diesem code klappt das perfekt...allerdings stören mich optisch die horizontalen und vertikalen regler. schalte ich diese auf visible:=false funktionierts allerdings nicht mehr. wie ändere ich den code so das ich die regler wegblende und trotzdem mit der maus das bild bewegen kann?

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AdvPicture, AdvScrollBox, StdCtrls;

type
  TForm1 = class(TForm)
    scrollbox: TAdvScrollBox;
    pic: TAdvPicture;
    Button1: TButton;
    procedure picMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure picMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure picMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure scrollboxMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure scrollboxMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure scrollboxMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);

  private
  FMouseAnchor : TPoint;
    FPanning : Boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
scrollbox.VertScrollBar.Visible:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.picMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
FMouseAnchor := Mouse.CursorPos; // absolute Position des Mauszeigers merken
  FPanning := True; // Verschieben wurde eingeleitet
end;

procedure TForm1.picMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  CursorPos : TPoint;
  dx, dy : Integer;
begin
  if (not FPanning) then Exit; // Inhalt der Scrollbox nur bei gedrückter Maustaste bewegen

  CursorPos := Mouse.CursorPos;

  dx := CursorPos.X - FMouseAnchor.X; // Verschiebung in x-Richtung
  dy := CursorPos.Y - FMouseAnchor.Y; // Verschiebung in y-Richtung

  // horizontale/vertikale Scrollbar aktualisieren
  ScrollBox.HorzScrollBar.Position := ScrollBox.HorzScrollBar.Position - dx;
  ScrollBox.VertScrollBar.Position := ScrollBox.VertScrollBar.Position - dy;

  // "Schmieren" des Bildes vermeiden
  ScrollBox.Repaint;

  // absolute Position des Mauszeigers für nächsten Vergleich merken
  FMouseAnchor := CursorPos;
end;

procedure TForm1.picMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 FPanning := False;
end;

procedure TForm1.scrollboxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
FMouseAnchor := Mouse.CursorPos; // absolute Position des Mauszeigers merken
  FPanning := True; // Verschieben wurde eingeleitet
end;

procedure TForm1.scrollboxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var
  CursorPos : TPoint;
  dx, dy : Integer;
begin
 if (not FPanning) then Exit; // Inhalt der Scrollbox nur bei gedrückter Maustaste bewegen

  CursorPos := Mouse.CursorPos;

  dx := CursorPos.X - FMouseAnchor.X; // Verschiebung in x-Richtung
  dy := CursorPos.Y - FMouseAnchor.Y; // Verschiebung in y-Richtung

  // horizontale/vertikale Scrollbar aktualisieren
  ScrollBox.HorzScrollBar.Position := ScrollBox.HorzScrollBar.Position - dx;
  ScrollBox.VertScrollBar.Position := ScrollBox.VertScrollBar.Position - dy;

  // "Schmieren" des Bildes vermeiden
  ScrollBox.Repaint;

  // absolute Position des Mauszeigers für nächsten Vergleich merken
  FMouseAnchor := CursorPos;
end;

procedure TForm1.scrollboxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 FPanning := False;
end;

end.

danke wenn ihr mal nen blick drauf werft. danke robin


EDIT: ich könnte die scrollbars natürlich hinter panels etc verstecken..hahahhaaa...die profilösung

[Bummi]

Ich verwende TMS nicht, aber wenn Du die Scrollbars weglässt, könnte das Bild IMHO auch auf einem Panel o.ä. liegen und der Code reduziert sich auf:

Delphi-Quellcode:

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   FX := X;
   FY := Y;
end;

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
    begin
     Image.Left := Image.Left - FX + X;
     Image.Top  := Image.Top - FY + Y;
    end;
end;

[Spectre]

wo deklariere ich FX/FY, und als was ohne ne fehlermeldung zu bekommen?

hier
"procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FX := X;
FY := Y;
end;"

gibts sonst nen error bezüglich FX/FY

[Medium]

Am besten als private Felder deines Formulares, da sie ja in dessen Methoden übergreifend verfügbar sein müssen.

[Spectre]

??

als : X bzw : Y ?? da ist ne fehlermeldung vorprogrammiert und den privates

[Bummi]

Delphi-Quellcode:

  TForm1 = class(TForm)
// .....
  private
    { Private-Deklarationen }
    FX,FY:Integer;
  public

    { Public-Deklarationen }
  end;

[Spectre]

ahhh, sorry danke.

geiler code! funktioniert perfekt, nur flackert es ziemlich, obwohl ich doublebuffered:=true auf dem formular und dem panel habe. wenn ich es ins formCreate für das image selbst setze flackert es nur noch umso mehr :O

kann ich das irgendwie lösen?

[Bummi]

Kenn ich nur wenn man sich direkt auf einem Tabsheet befindet, im Zweifelsfalle ein Panel mit Doublebuffered als Parent für das Image verwenden.

[Spectre]

probiers aus, an dem code ist nicht mehr viel dran. hab das advimage eben ins TImage geändert, selbes ergebnis...läufts bei dir flüssig ohne flackern? ? dieser code ist mit standartkomponenten, nur nem panel und nem Timage

Code:

unit source;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AdvPicture, AdvScrollBox, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    pic: TImage;
    procedure picMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure picMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

  private
    FX,FY:Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.picMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FX := X;
   FY := Y;
end;

procedure TForm1.picMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  CursorPos : TPoint;
  dx, dy : Integer;
begin
   if (ssLeft in Shift) then
    begin
   pic.Left := pic.Left - FX + X;
    pic.Top := pic.Top - FY + Y;
end;
end;

end.

[Bummi]

Doublebuffered hast Du ja gesetzt? Setze mal ParentBackGround auf false.