Flimmer ved flytning af image

procedure TForm1.FormCreate(Sender: TObject);
begin
doublebuffered := true;
end;

Stoney

Det er bedre at tegne et flyttefelt på formens canvas og først flytte billedet når man slipper museknappen.

Prøv nedenstående kode hvor jeg har et TImage på en form.:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  XStart,YStart:integer;
  A, B, C, D: TPoint;

const
  CanMoveObject: Boolean = false;


implementation

{$R *.DFM}

procedure TegnFigur(PenMode: TPenMode; PenColor: integer; Penwidth: integer);

begin
  with Form1.Canvas do
  begin
    Pen.Mode := PenMode;
    Pen.Width := 0;
    Pen.color := Pencolor;
    PolyLine([A, B, D, C, A]);
  end;

end;

procedure FeltTilBillede;
begin
    A.X := Form1.Image1.left;
    A.Y := Form1.Image1.top;
    B.X := A.X + Form1.Image1.width;
    B.Y := A.Y;
    C.X := A.X;
    C.Y := A.Y + Form1.Image1.Height;
    D.X := B.X;
    D.Y := C.Y;
end;


procedure TegnFlyttefelt(X, Y: integer);
begin
  if CanMoveObject then
  begin
    TegnFigur(pmNotXor, clBlack, 1); //tegner
    A.X := Form1.Image1.Left + (X - XStart);
    A.Y := Form1.Image1.Top + (y - YStart);
    B.X := A.X + Form1.Image1.width;
    B.Y := A.Y;
    C.X := A.X;
    C.Y := A.Y + Form1.Image1.Height;
    D.X := B.X;
    D.Y := C.Y;
    TegnFigur(pmNotXor, clBlack, 1); //sletter igen
  end;
end;

procedure BilledeTilFelt;
begin
    Form1.Image1.top := A.Y;
    Form1.Image1.Left := A.X;
    Form1.Image1.Width := B.X - A.X;
    Form1.Image1.Height := C.Y - A.Y;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
CanMoveObject := true;
FeltTilBillede;
XStart := X;
YStart := Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
CanMoveObject := false;
BilledeTilFelt;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if CanMoveObject then TegnFlyttefelt(X,Y);
end;

end.

Hej EHT

Jeg har lige prøvet dit forslag
men jeg får denne fejl

[Error] Unit1.pas(94): Left side cannot be assigned to

ved denne linje

CanMoveObject := true;

hvad er der galt

Hej Arnold

Jeg har lige checket min kode og får ingen fejl selv.
Har du kopieret koden over som den står.

Jeg checkede koden fra EKSPERTEN sådan:

Jeg startede med at indsætte et TImage på Form1 og oprettede derefter procedurene:

Image1MouseUp, Image1MouseDown og Image1MouseMove ved at dobbeltklikke i object inspectoren på de relevante EVENTS.

Derefter slettede jeg hele koden og kopierede koden fra Eksperten.

Så prøv igen.

Med venlig hilsen
Erik

Du kan også undlade at flytte billedet før musen er flyttet lidt mere end 1 pixel, det gør det meget mere flydende.

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If MuseKnapNede = 1 then
  begin
    if abs(Y-StartY)>=5 then  {***}
    Begin
      if Y > StartY then
      begin
        Image2.top := Image2.Top +5;
      end
      else
      begin
        Image2.top := Image2.Top -5;
      end;
      StartY := Y;  {***}
    end;
    if abs(X-StartX)>=5 then  {***}
    Begin
      if X > StartX then
      begin
        Image2.Left := Image2.Left +5;
      end
      else
      begin
        Image2.Left := Image2.Left -5;
      end;
      StartX := X;    {***}
    end;
  end;
end;

Eller lidt simplere:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If MuseKnapNede = 1 then
    if ((abs(Y-StartY)>=5) or (abs(X-StartX)>=5)) then
    Begin
      Image2.top := Image2.Top + Y - StartY;
      Image2.Left := Image2.Left + X - StartX;
      StartY := Y;
      StartX := X;
    end;
end;