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

ValEdit: Make TValueListeditor.Clear only clear Strings, not entire Grid.

Browse Source 
git-svn-id: trunk@41158 -
This commit is contained in:
bart 2013-05-12 15:44:33 +00:00
parent 4afc35bcd3
commit 62c0f61046
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/valedit.pas
View File

@ -167,6 +167,8 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Clear;
procedure DeleteColRow(IsColumn: Boolean; index: Integer);
procedure DeleteRow(Index: Integer); override;
procedure DeleteCol(Index: Integer); override;
@ -761,6 +763,11 @@ begin
inherited Destroy;
end;
procedure TValueListEditor.Clear;
begin
Strings.Clear;
end;
procedure TValueListEditor.DeleteColRow(IsColumn: Boolean; index: Integer);
begin
if not IsColumn then