suche Scrollbox mit versetzten Scrollbars

[Mario]

Hallo,

ich suche eine Scrollbox, die etwas versetzte Scrollbars hat. Ich möchte den freien Platz gern für Text nutzen. Hat jemand eine Idee, wie man die originalen Scrollbars verkleinern kann oder eigene Scrollbars anflanschen kann, ohne das Ding komplett neu zu programmieren?

[Niko]

Hi,

nimm doch einfach eine Scrollbox, setze AutoScroll der Scrollbox und Visible der beiden Scrollbars auf false und nimm zwei eigenständige Scrollbars, die du beliebig anordnen kannst. Min wird bei beiden eigenständigen Scrollbars auf 0 gesetzt und Max auf den Wert der Range-Eigenschaft der entsprechenden Scrollbox-Scrollbar (eventuell im OnResize der Scrollbox automatisch anpassen).

Jetzt muss nur noch im OnChange deiner eigenen Scrollbars die Position-Eigenschaft der passenden Scrollbox-Scrollbar auf den Position Wert deiner eigenen Scrollbar gesetzt werden.

[Mario]

Zitat von Niko:

Jetzt muss nur noch im OnChange deiner eigenen Scrollbars die Position-Eigenschaft der passenden Scrollbox-Scrollbar auf den Position Wert deiner eigenen Scrollbar gesetzt werden.

Klingt gut, funktioniert aber bei mir leider nicht. Die Scrollbars der Scrollbox lassen sich invisible nicht setzen und damit kann ich den Inhalt der Scrollbox leider nicht verschieben

[Niko]

Hi,

erstmal sorry für die späte Antwort - habe im Moment ziemlich viel zu tun.

Ich habe eigentlich gedacht, dass das funktionieren müsste, aber selbst wenn man der Scrollbox die WM_HSCROLL/WM_VSCROLL-Nachricht direkt sendet geht es nicht.

Bleibt wohl nur noch die Möglichkeit, die Scrollbar der Scrollbox auf Visible zu lassen und mit deinen eigenen Komponenten (am Besten auf einem Panel) zu überedecken.

Oder du suchst mal bei Torry nach einer passenden Komponente.

[Mario]

Leider ohne Erfolg. Schade.

Trotzdem besten Dank für Deine Mühen!

[himitsu]

Setz doch einfach 2 Panel's ineinander.

Auf das Innere kommt dann das Zeug, was reinsoll.

Und mit 2 Scrollbars kannst du dann das innere Pannel verschieben.


[add]

Delphi-Quellcode:

// Panel1:
//   BevelOuter   = bvNone
//   BorderSingle = bsSingle
//   Caption      = ''
//
// Panel2:
//   BevelOuter   = bvNone
//   Caption      = ''
//
// ScrollBar2:
//   Kind         = sbVertical

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    ScrollBar1.Max := Panel2.Width;
    ScrollBar1.PageSize := Panel1.Width - 4;
    ScrollBar1.Position := -Panel2.Left;
    ScrollBar2.Max := Panel2.Height;
    ScrollBar2.PageSize := Panel1.Height - 4;
    ScrollBar2.Position := -Panel2.Top;
  End;

Procedure TForm1.ScrollBar1Change(Sender: TObject);
  Begin
    Panel2.Left := -ScrollBar1.Position;
  End;

Procedure TForm1.ScrollBar2Change(Sender: TObject);
  Begin
    Panel2.Top := -ScrollBar2.Position;
  End;