← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/lazarus/gutsy

« back to all changes in this revision

Viewing changes to lcl/interfaces/win32/win32wscomctrls.pp

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-05-06 13:46:10 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070506134610-lf4rbsb7p0mx31x1
Tags: 0.9.22-1
http://bugs.debian.org/421850
http://bugs.debian.org/408512
* Add homepage to debian/control.
* New upstream release. (Closes: #421850, #408512)
* Remove old patch and add new symlink /usr/bin/startlazarus.
* Add myself to Uploaders.
* Add XS-X-Vcs-Svn header to debian/control.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lcl/interfaces/win32/win32wscomctrls.pp
1
 
{ $Id: win32wscomctrls.pp 9770 2006-08-29 23:33:15Z marc $}
 
1
{ $Id: win32wscomctrls.pp 10481 2007-01-20 02:19:19Z marc $}
2
2
{
3
3
 *****************************************************************************
4
4
 *                            Win32WSComCtrls.pp                             * 
125
125
    class function GetSelCount(const ALV: TCustomListView): Integer; override;
126
126
    class function GetSelection(const ALV: TCustomListView): Integer; override;
127
127
    class function GetTopItem(const ALV: TCustomListView): Integer; override;
 
128
    class function GetViewOrigin(const ALV: TCustomListView): TPoint; override;
128
129
    class function GetVisibleRowCount(const ALV: TCustomListView): Integer; override;
129
130
 
130
131
    class procedure SetAllocBy(const ALV: TCustomListView; const AValue: Integer); override;
136
137
    class procedure SetProperty(const ALV: TCustomListView; const AProp: TListViewProperty; const AIsSet: Boolean); override;
137
138
    class procedure SetProperties(const ALV: TCustomListView; const AProps: TListViewProperties); override;
138
139
    class procedure SetScrollBars(const ALV: TCustomListView; const AValue: TScrollStyle); override;
139
 
    class procedure SetScrolledLeft(const ALV: TCustomListView; const AValue: Integer); override;
140
 
    class procedure SetScrolledTop(const ALV: TCustomListView; const AValue: Integer); override;
141
140
    class procedure SetSort(const ALV: TCustomListView; const AType: TSortType; const AColumn: Integer); override;
 
141
    class procedure SetViewOrigin(const ALV: TCustomListView; const AValue: TPoint); override;
142
142
    class procedure SetViewStyle(const ALV: TCustomListView; const Avalue: TViewStyle); override;
143
143
  end;
144
144