On Fri, 08 Dec 2006 11:33:41 +0100 Vincent Snijders <[EMAIL PROTECTED]> wrote:
> Mattias Gaertner schreef: > > On Sun, 3 Sep 2006 22:01:27 -0300 > > "Flávio Etrusco" <[EMAIL PROTECTED]> wrote: > > > >>> Maybe I read wrong, forms.pp: > >>> > >>> @@ -113,7 +112,6 @@ > >>> procedure SetSize(const AValue: integer); virtual; > >>> procedure SetSmooth(const Value: Boolean); virtual; > >>> procedure SetVisible(const Value: Boolean); virtual; > >>> - Procedure UpdateScrollBar; virtual; > >>> public > >>> constructor Create(AControl: TWinControl; AKind: > >>> TScrollBarKind); procedure Assign(Source: TPersistent); override; > >>> @@ -123,6 +121,7 @@ > >>> function GetOtherScrollBar: TControlScrollBar; > >>> function GetHorzScrollBar: TControlScrollBar; virtual; > >>> function GetVertScrollBar: TControlScrollBar; virtual; > >>> + procedure UpdateScrollBar; virtual; > >>> property Size: integer read GetSize write SetSize stored > >>> false; published > >>> property Increment: TScrollBarInc read GetIncrement write > >>> SetIncrement default 8; > >>> > >> Oops, sorry, I didn't notice this in TControlScrollBar... HonestIy > >> can't see any reason for it :-$ > >> I guess I had the need at some point to call it from my SynEdit > >> code, but (fortunately) it doesn't seem to be necessary anymore. > >> > >> It would be better to undo it. Do want me to send an updated patch > >> or can you please fix it? > > > > Fixed and applied. > > > > Flávio, Mattias, Micha (main participators to this thread) can you > look at this patch again: > http://www.freepascal.org/cgi-bin/viewcvs.cgi?root=lazarus&rev=9952&view=rev > > I think it causes bug 7866: > http://www.freepascal.org/mantis/view.php?id=7866 Scrollbars are now visible again. There were an uninitialized value and one overinitialized value. But under win32 the controls are moved, instead of scrolled. For example: Compile lcl with -dVerboseScrollingWinControl. Put a TEdit on a form with a big Left, so that the horizontal scroll bar is needed. (form.autoscroll=true). BUG: When scrolling to the right, the TEdit is moved (left coord changes) to the right instead of keeping its Left coord and moving visually to the left (left coord should stay). Mattias _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
