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