drag move in scrollbox

[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.

[Spectre]

jap das war des rätsels lösung, danke! magst du mir erklären warum das so ist? möchte ja auch was lernen was bewirkt parentbackground?

EDIT: wäre es möglich das man nur bis zum rand des bildes scrollen kann und das bild selbst nicht "aus dem panel" schieben kann?