Scrollbar - vertikal ?

[pluto]

Hallo,
bei meinem paint projekt bin ich zum scroll problem gekommen... und habe mich nach mehren versuchen für die scrollbar-komponente entschieden....
(warum das rad neu erfinden?)

meine frage ist jetzt: wie bekomme ich diese komponente vertikal ?
geht das überhuapt ?

weil meine methode springt leider:

Code: Alles auswählen

Tpaint2ScrollboxItem = class(TCustomControl)
....
procedure Tpaint2ScrollboxItem.MouseMove(Shift: TShiftState; X,Y: Integer);
begin
  inherited MouseMove(shift,x,y);
  if ssleft in Shift then begin
    ismove:=True;
    top:=y;
    Invalidate;
  end;
end;

wenn das zu wenig code kopiere ich genre die gesammte code hier rein(nur von einer unit*G*)......

[monta]

Weis zwar gerade nicht, was der Code dabei macht...aber wenn du ne TScrollbox einfach vertikal haben willst musst du nur die Property Kind auf sbVertical setzen.

[Euklid]

meine frage ist jetzt: wie bekomme ich diese komponente vertikal ?
geht das überhuapt ?

Hallo Pluto!

Klar geht das: Guck mal im Objektinspektor nach der EIgenschaft "Kind". Das gewünschte Argument nennt sich sbVertical.

Viele Grüße, Euklid

[pluto]

neine keine Scrollbox die funktniert leider bei mir nicht !
die scrollbalken werden zwar angezeigt haben aber keine wirkung...

unter windows werden die garnicht angezeigt..

ich meine die komponente TScrollbar sie ist zu finden unter:
Standart

[Euklid]

Pluto, ist deine PageSize größer 0? Ansonsten wird die Scrollbar nicht funktionieren. Ich meine die selbe Komponente. Da gibt es eine Eigenschaft Kind, wie beschrieben.

[pluto]

vielen dank !
habe ich gestern garnicht gesehen

[Euklid]

keine Ursache.

Fände es aber auch besser, wenn die PageSize standartmäßig auf 1 oder so stehen würde statt auf 0...

[Christian]

Welches Scrollproblem ?

[pluto]

das sich die scrollbox nicht auto. der größe des inhaltes anpasst... z.b. bei einer paintbox hatte ich das problem oder bei einem panel sobalt ich die panel größer mache als die scrollbox sollte sich die scorllbalken anpassen und genau das passiert nicht ! unterwindows sehe ich die scorllbalken überhaupt nicht !

[monta]

ja Pluto, irgendwas musst du ja auch noch zu tun haben

[pluto]

ja unter delphi ging das alles autoamitsch mit der Scrolbox und den scorllbalken...
naja... ich habe mir da was eigenes ausgedacht... wenn ich glück habe läuft meine idee *G*

[Christian]

das problem ist schon ne weile behoben man setze einfach autosize auf true ...

[pluto]

toll ist ja gans klasse, dann ist es aber keine scollbox mehr weil sich die box nur noch an die größe des panles anpasst.... und es gibt auch keine scrollbalken !!!

[Euklid]

Ich bin mir sicher, das Lazarus-Projekt setzt alles daran, diese Bugs zu beseitigen. Bitte berücksichtigen, dass es beta ist, und sich dabei fortlaufend den bugfreien Status annähert, aber nicht bugfrei ist.

Bis dahin bleiben uns zwei Möglichkeiten:

1. Wir umschiffen den Bug durch den Quelltext unseres Programms vorrübergehend, bis es in der LCL bereinigt wurde.

2. Wir suchen und entfernen den Bug aus der LCL.

[pluto]

an beide möglichkeiten habe ich schon gedacht !

zu 1: ich habe mir eine eigene procedure überlegt die das scrollen übernemen könnte

zu 2: das dürfte schwer werden, aber machbar..... evlt. werde ich es tuen....