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

lcl: add TListItems.BeginUpdate, TListItems.EndUpdate with empty implementation to simplify delphi project conversion

Browse Source 
git-svn-id: trunk@16941 -
This commit is contained in:
paul 2008-10-09 09:33:45 +00:00
parent 11ae1cd3fc
commit 7b0a85df11
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -739,10 +739,12 @@ type
public
function Add: TListItem;
procedure AddItem(AItem: TListItem);
procedure BeginUpdate;
procedure Clear;
constructor Create(AOwner : TCustomListView);
destructor Destroy; override;
procedure Delete(const AIndex : Integer);
procedure EndUpdate;
function FindCaption(StartIndex: Integer; Value: string;
Partial, Inclusive, Wrap: Boolean;
PartStart: Boolean = True): TListItem;

10
lcl/include/listitems.inc
View File

@ -104,6 +104,11 @@ begin
then FOwner.ItemInserted(AItem);
end;
procedure TListItems.BeginUpdate;
begin
// todo:
end;
{------------------------------------------------------------------------------
TListItems Clear
------------------------------------------------------------------------------}
@ -121,6 +126,11 @@ begin
TListItem(FItems.Items[AIndex]).Delete;
end;
procedure TListItems.EndUpdate;
begin
// todo:
end;
{------------------------------------------------------------------------------}
{ TListItems IntfCreateItem }
{------------------------------------------------------------------------------}