ScrollBar enabled, obwohl Enabled=False (gelöst)

[himitsu]

Ich hab hier 'ne ScrollBar, welche sich einfach nicht mehr disablen läßt?

Im ganzen Programm wird diese Scrollbar nur über untenstehende Prozedur angesprochen und sonst ist definitiv nirgendwo ein Zugriff auf diese ScrollBar.


Problem ist ja, wenn man z.B. Max kleiner macht als PageSize, daß dann eine Exception geworfen wird.

Nun ja, eigentlich funktioniert es recht gut, ABER
beim zweiten Aufruf der Prozedur, wo sich nur ScrollMax ändert, läuft irgendwas schief.

Bei ersten Aufruf ist die scrollBar disabled (da ScrollMax kleiner als PageSize).
Beim zweiten Aufruf ist ScrollMax zwar etwas größer, aber immernoch kleiner als PageSize, also immernoch disabled ... denkt man, aber obwohl .Enable immernoch auf False steht, ist die ScrollBar urplötzlich aktiv (blau und nicht grau und läßt sich auch bediehnen)

Hab mir auch mal 'ne Timer eingebaut, welcher .Enable ausließt und da wird "richtig" eine 0 angezeigt.

Kennt jemand schon soein Problem?

Delphi-Quellcode:

Procedure TForm1.SetScrollBar(ScrollMin, ScrollMax, PageSize: Integer);
  Var ScrollPos: Integer;

  Begin
    ScrollPos := Min(Max(ScrollBar1.Position, ScrollMin), Max(ScrollMax - PageSize + 1, 0));
    PageSize  := Min(PageSize, Max(ScrollMax - ScrollMin, 0));
    If ScrollBar1.Position < ScrollMin Then ScrollBar1.Position := ScrollMin;
    If ScrollBar1.Position > ScrollMax Then ScrollBar1.Position := ScrollMax;
    If ScrollBar1.PageSize <> PageSize Then ScrollBar1.PageSize := 0;
    ScrollBar1.Min      := ScrollMin;
    ScrollBar1.Max      := ScrollMax;
    ScrollBar1.PageSize := PageSize;
    ScrollBar1.Enabled  := (ScrollMax - ScrollMin > PageSize) or (ScrollPos <> 0);
    ScrollBar1.Position := ScrollPos;
Caption := Format('(%d - %d > %d) or (%d <> 0) = %d', [ScrollMax, ScrollMin, PageSize, ScrollPos, Ord(ScrollBar1.Enabled)]);
  End;

Procedure TForm1.Timer1Timer(Sender: TObject);
  Begin
    Caption := Format('%d', [Ord(ScrollBar1.Enabled)]);
  End;

ich versuch das Ganze demnächst auch mal in ein kleines Testprogramm auszulagen und dort weiter zu testen.

PageSize = der anzeigbare Bereich (meine PaintBox)
ScrollMin und ScrollMax = das, was angezeigt wird (also dessen größe)


[add]
Bin grad auf die Idee gekommen den Status umzuschalten
und hab kurz danach auch noch dieses gefunden http://www.delphipraxis.net/internal...t.php?t=133257 (komisch, vorhin war des noch nich da )

Zitat:

Borland wird da sicher nicht extra nen Patch fuer machen *gg*

stimmt anscheinend ... da D2009

ist natürlich blöd, aber so geht's

Delphi-Quellcode:

ScrollBar1.Enabled  := (ScrollMax - ScrollMin <= PageSize) or (ScrollPos = 0);
ScrollBar1.Enabled  := not ScrollBar1.Enabled;

[edit]
schon komisch, da zermardert man sich ewid dn Schädel, fragt dann doch an und plötzlich hat man die Lösung vor Augen,
aber ich dacht ja auch anfangs noch, meine Berechnung sei falsch