Tilpasning af billeder!!

Hvad ligger du i ordet "Tilpasse" ?

Man skal kan flytte billedet op,ned, venstre og højere.

Desuden skal man kunde resize billedet

Hvem? Hvornår?

Er det brugererne af den endelige applikation der skal kunne ændre dette når programmet kører eller ?

JA, brugerne

Så skal dit billede "fange" en OnClick/OnMouseDown event og så reagere på OnMouseMove indtil der igen er kommet en "OnMouseRelease" eller hvad de nu hedder

Eller må bare lave et par knapper man kan trykke på. Flyt op/ned/højre/venstre samt et par til at resize.

Når man så trykker på knapperne kan du flytte/resize det øverste billede.

med denne kode kan du flytte billedet
op,ned,venstre og højre.

{$R *.DFM}
const
Traekker:Boolean=False;
var
Sidste_x, Sidste_y:Integer;
procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
mx,my:Integer;
begin
if (traekker)and( ssleft in shift) then
begin
mx:=Panel2.Left;
Panel2.Left:=Panel2.Left-(sidste_x-x);
mx:=Panel2.Left-mx;
my:=Panel2.Top;
Panel2.top:=Panel2.top-(Sidste_y-y);
my:=Panel2.Top-my;
sidste_y:=Y-my;
sidste_x:=x-mx;
end
else
traekker:= false;
end;

procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (SSleft in shift) then begin
Traekker:= True;
Sidste_x:=x;
Sidste_y:=y;
end;
end;
end.

He he... er blevet mere eller mindre forviret over den lille stump kode!!

Det billed(well objektet billedet hæntes ind i) hedder layout.

Kunde du ikke putte det ind i koden!!

Udemilbart vile mit gæt være at layout skal erstattes med Panel2

hvis du har to TImage komponenter lagt oven på hinanden kan du resize den nederste i den event der "loader" billedet til den øverste (jeg går ud fra at brugeren trykker en knap eller lgn)

hvis det øverste TImage hedder layout og det nederste hedder bground ville koden se nogenlunde sådan ud:

procedure TForm1.bitbtn3Click( Sender : TObject);
begin

//  billedet "loades" ind i "layout"

  bground.width := layout.width;
  bground.height := layout.width;
end;

Kan flere point hjælpe lidt!!

Jeg ville nu helst have at man kan kunde Resize ved at trikke i jørnerne af billedet og flytte billedet op,nen,højre og venstre ved at trykke og så trikke billedet!

Skal lige sige, at jeg er helt grøn og skal helst have alt skæret ud i pap!!

Hmm, må vel sætte mig meget mere ind i Delphi, og prøva at spørge igen enanden gang!