diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-25 12:37:29 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-25 12:37:29 +0200 |
commit | 367ede5d373aeeebc6ab142827eaa201e996e473 (patch) | |
tree | 47910e516c1c7efc4ff57cb3141b396aad247be0 | |
parent | 6978d236f5ad85a8af5c8fab72e935ffa7e40b2d (diff) | |
download | fpGUI-367ede5d373aeeebc6ab142827eaa201e996e473.tar.xz |
Disable grid smooth scrolling by default.
I don't want to alter behaviour of existing fpGUI applications.
-rw-r--r-- | src/gui/fpg_basegrid.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/gui/fpg_basegrid.pas b/src/gui/fpg_basegrid.pas index eae2a576..9a29e004 100644 --- a/src/gui/fpg_basegrid.pas +++ b/src/gui/fpg_basegrid.pas @@ -153,7 +153,7 @@ type property ColumnTextColor[ACol: Integer]: TfpgColor read GetColumnTextColor write SetColumnTextColor; property VisibleRows: Integer read VisibleLines; property TopRow: Integer read FFirstRow write SetFirstRow; - property Options: TfpgGridOptions read FOptions write FOptions default [go_SmoothScroll]; + property Options: TfpgGridOptions read FOptions write FOptions default []; property OnDrawCell: TfpgDrawCellEvent read FOnDrawCell write FOnDrawCell; property OnFocusChange: TfpgFocusChangeNotify read FOnFocusChange write FOnFocusChange; property OnRowChange: TfpgRowChangeNotify read FOnRowChange write FOnRowChange; @@ -1230,7 +1230,7 @@ begin FRowSelect := False; FScrollBarStyle := ssAutoBoth; FUpdateCount := 0; - FOptions := [go_SmoothScroll]; + FOptions := []; FFont := fpgGetFont('#Grid'); FHeaderFont := fpgGetFont('#GridHeader'); |