Einzelnen Beitrag anzeigen

Tharon

Registriert seit: 19. Okt 2004
Ort: Frankfurt/Main
12 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Bild im Image aus dem Rahmen schieben

  Alt 5. Nov 2004, 21:14
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
Angehängte Dateien
Dateityp: zip test_image.zip (62,3 KB, 20x aufgerufen)
Thomas
  Mit Zitat antworten Zitat