paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 16:56:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

MWE:

Browse Source 
* Made TListview more Delphi compatible
  * Did some cleanup

git-svn-id: trunk@1505 -
This commit is contained in:
lazarus 2002-03-11 23:07:23 +00:00
parent 1462c1cf7e
commit 9ce1f94b25
1 changed files with 38 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
lcl/comctrls.pp
View File

@ -492,7 +492,7 @@ type
//FReadOnly : Boolean; //FReadOnly : Boolean;
FBorderStyle: TBorderStyle; FBorderStyle: TBorderStyle;
FDefItemHeight: integer; FDefItemHeight: integer;
FImages : TCustomImageList; FSmallImages : TCustomImageList;
FListItems : TListItems; FListItems : TListItems;
FColumns : TViewColumns; FColumns : TViewColumns;
FViewStyle : TViewStyle; FViewStyle : TViewStyle;
@ -506,7 +506,7 @@ type
FLastHorzScrollInfo: TScrollInfo; FLastHorzScrollInfo: TScrollInfo;
FLastVertScrollInfo: TScrollInfo; FLastVertScrollInfo: TScrollInfo;
procedure SetDefaultItemHeight(AValue: integer); procedure SetDefaultItemHeight(AValue: integer);
procedure SetImages(const AValue: TCustomImageList); procedure SetSmallImages(const AValue: TCustomImageList);
procedure SetItems(Value : TListItems); procedure SetItems(Value : TListItems);
procedure SetMultiSElect(const AValue: Boolean); procedure SetMultiSElect(const AValue: Boolean);
procedure SetScrollBars(const Value: TScrollStyle); procedure SetScrollBars(const Value: TScrollStyle);
@ -529,31 +529,47 @@ type
Procedure ItemAdded; //called by TListItems Procedure ItemAdded; //called by TListItems
procedure WMHScroll(var Msg: TLMScroll); message LM_HSCROLL; procedure WMHScroll(var Msg: TLMScroll); message LM_HSCROLL;
procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL; procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL;
// property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
property Columns : TViewColumns read FColumns write FColumns;
// property ColumnClick: Boolean read FColumnClick write SetColumnClick default True;
property DefaultItemHeight: integer read FDefItemHeight write SetDefaultItemHeight;
// property HideSelection: Boolean read FHideSelection write SetHideSelection default True;
property Items: TListItems read FListItems write SetItems;
property MultiSelect: Boolean read FMultiSelect write SetMultiSelect default False;
// property ReadOnly: Boolean read FReadOnly write SetReadOnly;
// property RowSelect: Boolean read FRowSelect write SetRowSelect default False;
property ScrolledLeft: integer read FScrolledLeft write SetScrolledLeft; property ScrolledLeft: integer read FScrolledLeft write SetScrolledLeft;
property ScrolledTop: integer read FScrolledTop write SetScrolledTop; property ScrolledTop: integer read FScrolledTop write SetScrolledTop;
property DefaultItemHeight: integer property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars default ssBoth;
read FDefItemHeight write SetDefaultItemHeight; property SmallImages: TCustomImageList read FSmallImages write SetSmallImages;
property Sorted: Boolean read FSorted write SetSorted;
property SortColumn: Integer read FSortColumn write SetSortColumn;
property ViewStyle: TViewStyle read FViewStyle write SetViewStyle;
public public
constructor Create(Aowner: TComponent); override; constructor Create(Aowner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
property Columns : TViewColumns read FColumns write FColumns;
property ViewStyle : TViewStyle read FViewStyle write SetViewStyle;
property Items : TListItems read FListItems write SetItems;
property Sorted : Boolean read FSorted write SetSorted;
property SortColumn : Integer read FSortColumn write SetSortColumn;
property MultiSelect : Boolean read FMultiSelect write SetMultiSelect default False;
property Images : TCustomImageList read FImages write SetImages;
property ScrollBars: TScrollStyle
read FScrollBars write SetScrollBars default ssBoth;
end; end;
TListView = class(TCustomListView) TListView = class(TCustomListView)
published published
property Align;
property Anchors;
// property BorderStyle;
property BorderWidth;
property Color;
property Columns; property Columns;
property ScrollBars; // property ColumnClick;
// property Constraints;
property Enabled;
property Font;
// property HideSelection;
property Items; property Items;
property Images; property MultiSelect;
// property ReadOnly default False;
// property RowSelect;
property ScrollBars;
property SmallImages;
property SortColumn;
property Visible; property Visible;
property ViewStyle; property ViewStyle;
property OnMOuseMOve; property OnMOuseMOve;
@ -1757,6 +1773,11 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.25 2002/03/11 23:07:23 lazarus
MWE:
* Made TListview more Delphi compatible
* Did some cleanup
Revision 1.24 2002/03/08 09:30:30 lazarus Revision 1.24 2002/03/08 09:30:30 lazarus
MG: nicer parameter names MG: nicer parameter names