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.
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
