Bild im Image aus dem Rahmen schieben

[MisterNiceGuy]

Hi, ich wollte mal gragen ob es möglich ist ein Bild, das in einem Image geladen wird einen
Top = -1 oder einen Left = -10 zuzuweisen? Sodass ich also nur z.B. die Mitte des Bildes sehe.

[jim_raynor]

Was hälst du denn einfach vom ausprobieren. So wie ich das aber sehe wird das Image dann einfach ausserhalb des Formulars anfangen, aber dennoch funktionieren. Am besten du packst das TImage in ein TPanel. Wenn du dann dem Image negative Werte zuweist wird es durch das Panel beschnitten.

[Tharon]

Ja! Aber warum probierst Du das nicht einfach aus?? :wink:

[-NIP-]

Es wird schon nicht deine Windoof-Festplatte formatiert.
Es funktioniert, dessen bin ich mir sicher.

-NIP-

[MisterNiceGuy]

nenene, ihr versteht mich nicht :) Also: Ich hab eine Imagekomponente, die feste Werte hat (Top,Left, Height, Width). Ich will jetzt in der Komonente ein Bild laden, das größer ist als die Imagekomponente und das Bild soll jetzt in dem Sichtbaren Bereich hin und her geschoben werden.

Als Beispiel:
Man stelle sich ein Fenster vor, hinter der sich eine Landschaft befindet. Jedoch sieht man nicht die ganze Landschaft, sondern nur einen rechteckigen Ausschnitt. Guckt man jetzt von einer anderen Stelle duch das Fenster, sieht man einen anderen Teit der Landschaft.
In dem Beispiel ist das Fenster die Imagekomponente und die Landschaft das Bild.

Hoffe ihr versteht jetzt, was ich will :D

[Spoon]

Probiers mal mit Canvas.CopyRect damit kannst du ein Bildausschnitt ausschneiden und in deinem anderen Bild einfügen.. wenn es das ist was du willst :zwinker:

[Tharon]

jim_raynor hat die Antwort eigentlich schon gegeben: setze das TImage auf ein TPanel. Das TPanel ist Dein Fenster, durch das Du die Landschaft betrachtest. Du kannst jetzt das TImage beliebig innerhalb des TPanels verschieben, um verschiedene Ausschnitte des Bildes zu sehen (wenn das TImage größer ist als das TPanel).

Delphi-Quellcode:

procedure TfrmMain.actImageScrollLeftExecute(Sender: TObject);
begin
  imgMain.Left := Min(imgMain.Left + 1, 0);
end; // TfrmMain.actImageScrollLeftExecute


procedure TfrmMain.actImageScrollRightExecute(Sender: TObject);
begin
  imgMain.Left := Max(imgMain.Left - 1, -(imgMain.Width - panImage.Width));
end; // TfrmMain.actImageScrollRightExecute


procedure TfrmMain.actImageScrollUpExecute(Sender: TObject);
begin
  imgMain.Top := Min(imgMain.Top + 1, 0);
end; // TfrmMain.actImageScrollUpExecute


procedure TfrmMain.actImageScrollDownExecute(Sender: TObject);
begin
  imgMain.Top := Max(imgMain.Top - 1, -(imgMain.Height - panImage.Height));
end; // TfrmMain.actImageScrollDownExecute

[MisterNiceGuy]

Genial, danke!!!