Ich stelle in einer Zeichenfläche hintereinander verschiedene Kurven(ausschnitte) dar. Die Werte min und max geben den x-Bereich der Kurve an, die ich gerade darstellen will. Beispiel:
1. Kurve: min=0 max=1000 position=irgendetwas dazwischen.
Jetzt kommt die nächste Kurve, bei der ist min=5000 und max=10000, position soll zu Beginn der Darstellung der linke Rand, also auch 5000 sein.
Jetzt muss ich zuerst max hinaufsetzen, erst danach kann ich position setzen und danach min hinaufsetzen.
Liegt die nächste Kurve weiter links, muss ich genau in der umgekehrten Reihenfolge vorgehen, sonst meldet das Programm "Eigenschaft Scrollbar ausserhalb des zulässigen Bereichs". Das ist mühsam, weil ich muss so alle denkbaren Zuweisungsreihenfolgen in Abhängigkeit der alten Scrollbarwerte ausprogrammieren.

Gibt es eine Möglichkeit, Position, min und max "gleichzeitig" zu setzen, ohne dass eine Fehlermeldung kommt, wenn kurzzeitig die Werte nicht zusammenpassen?

TScrollBar.SetParams ?


Ansonsten selbermachen.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TScrollBarPosHelper = class helper for TScrollBar
    function SetMinMax(Min, Max: Integer);
  end;

function TScrollBarPosHelper.SetMinMax(Min, Max: Integer);
begin
  if Min >= Self.Max then Self.Max := Max;
  if Max <= Self.Min then Self.Min := Min;
  if Position > Max then Position := Max;
  if Position > Min then Position := Min;
  if Min <> Self.Min then Self.Min := Min;
  if Max <> Self.Max then Self.Max := Max;
end;

Läßt sich natürlich auch als einzelne Prozedur verwenden, also vor D2006/TDE.

Ah danke, das wars.

Erfreulicherweise tut SetParams genau das Gewünschte.