← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid-proposed

« back to all changes in this revision

Viewing changes to lcl/forms.pp

  • Committer: Package Import Robot
  • Author(s): Abou Al Montacir
  • Date: 2014-07-14 20:16:50 UTC
  • mfrom: (1.1.15)
  • Revision ID: package-import@ubuntu.com-20140714201650-ossm36rrsdomp379
Tags: 1.2.4+dfsg-1
* New upstream release with few fixes and official support of FPC 2.6.4.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.2_fixes_branch#Fixes_for_1.2.4_.28Merged.29

Show diffs side-by-side

added added

removed removed

Lines of Context:
lcl/forms.pp
80
80
 
81
81
  TControlScrollBar = class(TPersistent)
82
82
  private
83
 
    FAutoRange: Longint; // = FRange - ClientSize, >=0
 
83
    FAutoRange: Longint; // = Max(0, FRange - ClientSize)
84
84
    FIncrement: TScrollBarInc;
85
85
    FKind: TScrollBarKind;
86
86
    FPage: TScrollBarInc;
87
87
    FPosition: Integer;
88
 
    FRange: Integer;
 
88
    FRange: Integer; // if AutoScroll=true this is the needed size of the child controls
89
89
    FSmooth: Boolean;
90
90
    FTracking: Boolean;
91
91
    FVisible: Boolean;
103
103
    function GetSmooth: Boolean; virtual;
104
104
    function HandleAllocated: boolean; virtual;
105
105
    function IsRangeStored: boolean; virtual;
106
 
    procedure AutoCalcRange; virtual;
107
106
    procedure ControlUpdateScrollBars; virtual;
108
107
    procedure InternalSetRange(const AValue: Integer); virtual;
109
108
    procedure ScrollHandler(var Message: TLMScroll);
158
157
    class procedure WSRegisterClass; override;
159
158
    procedure AlignControls(AControl: TControl; var ARect: TRect); override;
160
159
    function AutoScrollEnabled: Boolean; virtual;
 
160
    procedure CalculateAutoRanges; virtual;
161
161
    procedure CreateWnd; override;
162
162
    function GetClientScrollOffset: TPoint; override;
163
163
    function GetLogicalClientRect: TRect; override;// logical size of client area
164
164
    procedure DoOnResize; override;
165
165
    procedure WMHScroll(var Message : TLMHScroll); message LM_HScroll;
166
166
    procedure WMVScroll(var Message : TLMVScroll); message LM_VScroll;
167
 
    function ComputeScrollbars: Boolean; virtual;
 
167
    procedure ComputeScrollbars; virtual;
168
168
    procedure ScrollbarHandler(ScrollKind: TScrollBarKind;
169
169
                               OldPosition: Integer); virtual;
170
170
    procedure SetAutoScroll(Value: Boolean); virtual;