Hallo,

wenn das Bild in TImage groß ist, dann kann ich zwar das Image scrollen um den versteckten Teil zu sehen
aber das Bild bewegt nicht nur wenn ich fertig mit scrollen bin !

Keine Echtzeit scroll !

In OI habe ich die TImage-Eigenschaft "IncrementalDesplay" auf true gesetzt aber macht nicht !

Gruß

HI

wie scrollst du?
Liegt das TImage auf einer TScrollBox, dann funktioniert das anzeigen, auch wenn das Bild gescrollt wird.

rollstuhlfahrer

natürlich Liegt das TImage auf einer TScrollBox, aber funktioniert das anzeigen nicht gleichzeitig !
Nur beim MouseUp wird das Scroll-Ergebniss angezeigt. Beim Scrollen beim das Bild unbeweglich !

es kommt darauf an, wie du scrollst. Nimmst du den Schieber und ziehst ihn, passiert nichts. Drückst du aber auf die Netten Knöfchen, dann läuft das Bild flüssig.
Du kannst ja mit TPanel und TScrollbar dir deine eigene TScrollbox(ex) machen.

rollstuhlfahrer

So, taktaky:
Wichtige Aufgabe für Dich: Nimm Dir mehr Zeit beim Schreiben von Beiträgen. Deine letzten Beiträge heute sind allesamt unleserlich dahingeklatscht.

Wenn Du möchtest, dass wir Dir helfen, dann nimm Dir bitte die Zeit, Deine Beiträge in ganzen Sätzen zu verfassen. Dass Du dies kannst, hast Du schon oft genug bewiesen.

Ja natürlich wenn ich auf die kleine Pfeilen und die Taste gedrückt halte, dann läuft das Bild flüssig.
Ich scolle aber durch das Verschieben von Scroll-Bar

>> Du kannst ja mit TPanel und TScrollbar dir deine eigene TScrollbox(ex) machen. Wie mache ich das ?

[ironie]Ganz einfach: du machst eine neue Komponente, die du von TPanel ableitest. Dort deklarierst du ein weiteres Panel, das größer als die Komponente ist. Dann nimmst du noch zwei ScrollBars dazu -> fertig.
[/ironie]

Der Rest der Umsetzung gehört dir

rollstuhlfahrer

Du meinst statt scrollBox, einen Scrollbar nehmen. OK
Ich würde testen

So habe ich gemacht und funktioniert gut aber nicht perfekt, da scrollbar scrollt mehr als Bild-Breite etwa 10% weiter !

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
Image1.width:=Image1.Picture.width;
Scrollbar1.Max:=trunc(Image1.Picture.Width / 2);
Image1.Left:=-Scrollbar1.Position;
end;

procedure TForm2.ScrollBar2Change(Sender: TObject);
begin
Image1.Height:=Image1.Picture.Height;
Scrollbar2.Max:=trunc(Image1.Picture.Height / 2);
Image1.Top:=-Scrollbar2.Position;
end;

Zitat von taktaky:

Ich scolle aber durch das Verschieben von Scroll-Bar

hast du dir mal "Tracking" bei den Eigenschaften HorzScrollbar und VertScrollbar angeschaut? wenn ich dich richtig verstehe, sollte das dein Problem lösen...

Gruß Frank

Richtig
Er war false. Danke!
Ich muss nun wieder die Idee von Image auf Panel löschen

Gruß