Formular mit Timage und scrollbar

[Kralle]

Moin,

Ich habe auf einem Formular nur eine Timage-Komponente.
Was ich jetzt nicht schaffe, ist es die beiden so zu parametrieren,
Das das Formular maximiert angezeigt wird und wenn der Inhalt der Timage-Komponente größer als
der Bildschirm ist, die Horizontale und Vertikale Scrollbar erscheinen um den Rest des Bildes sehen zu können.

Alternativ würde ich ein zugrosses Bild auf die max. Bildschirmgröße "verkleinern".

Kann mir jemand dabei helfen?

Mit den diversen Parametern der Komponenten habe ich erfolglos probiert.

Gruss
Heiko

[BrunoT]

Hallo Kralle,

ich hatte das so gelöst:

Ich habe auf die Form eine TScrollBox gesetzt und darein ein TImage.

Dann sollte es problemlos gehn.

mfg

Holger

[Kralle]

Hallo Holger,

Zitat von BrunoT:

Hallo Kralle,

ich hatte das so gelöst:

Ich habe auf die Form eine TScrollBox gesetzt und darein ein TImage.

Suppi das klappt.
Gibt es jetzt auch noch einen Trick, damit der Inhalt sich beim Verschieben mit bewegt?

MfG
Heiko

[BrunoT]

Hallo Kralle,

Zitat:

Gibt es jetzt auch noch einen Trick, damit der Inhalt sich beim Verschieben mit bewegt?

Wie meinen? Mit der Maus das Bild verschieben?

mi den Scrollbalken sollte es doch schon gehn.

mfg

Holger

[Kralle]

Hallo Holger,

Zitat von BrunoT:

Hallo Kralle,

Wie meinen? Mit der Maus das Bild verschieben?
mit den Scrollbalken sollte es doch schon gehn.

Was ich meine ist folgendes: Wenn ich einen der Scrollbalken bewege,
den verschiebt sich der Inhalt erst wenn ich den Balken loslasse.

Also, nicht so wie beim Browser, wo der Inhalt live den Balken folgt.

Jetzt klarer?

MfG
Heiko

[BrunoT]

Zitat:

Was ich meine ist folgendes: Wenn ich einen der Scrollbalken bewege,
den verschiebt sich der Inhalt erst wenn ich den Balken loslasse.

Also, nicht so wie beim Browser, wo der Inhalt live den Balken folgt.

Da müsstest Du ein Repaint nach jedem Schritt aufrufen.

Wie, das kann ich dir aus dem Stegreif auch nicht sagen.

mfg

[BrunoT]

Hallo Kralle,

ich habe nun mal TScrollbox gegen TJvScrollbox von Jedi ausgetauscht. Somit ist zumindestens das Scrollen mit Maus möglich

Delphi-Quellcode:

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
   label1.Caption:=inttoStr(WheelDelta);
   if  WheelDelta>0 then
   ScrollBox1.ScrollBy(0,-5);
   if  WheelDelta<0 then
   ScrollBox1.ScrollBy(0,5);
end;

Ausserdem kann man da bei den Scrollbalken Tracking auf TRUE schalten. e Voila

mfg

[Kralle]

Hallo Bruno,

Zitat von BrunoT:

ich habe nun mal TScrollbox gegen TJvScrollbox von Jedi ausgetauscht. Somit ist zumindestens das Scrollen mit Maus möglich

Ausserdem kann man da bei den Scrollbalken Tracking auf TRUE schalten. e Voila

Das hört sich erstmal gut an, aber ...
... ich habe noch nie mit den Jedi-Sachen gearbeitet und weiß auch nicht,
wie ich die in mein "Turbo Delphi Pro" einbinden muß.

MfG
Heiko