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

ValEdit: KeyOptions: implement KeyAdd.

Browse Source 
git-svn-id: trunk@40418 -
This commit is contained in:
bart 2013-02-26 17:41:55 +00:00
parent e06657740f
commit 730d773260
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/valedit.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, Controls, StdCtrls, SysUtils, Grids, LResources, Dialogs, LazUtf8, variants, LCLProc,
ContNrs;
LCLType, ContNrs;
type
@ -152,6 +152,7 @@ type
function GetCells(ACol, ARow: Integer): string; override;
function GetDefaultEditor(Column: Integer): TWinControl; override;
function GetRowCount: Integer;
procedure KeyDown(var Key : Word; Shift : TShiftState); override;
procedure SetCells(ACol, ARow: Integer; const AValue: string); override;
procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
procedure SetRowCount(AValue: Integer);
@ -1049,6 +1050,24 @@ begin
Result := inherited RowCount;
end;
procedure TValueListEditor.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
if (KeyAdd in KeyOptions) then
begin
if (Key = VK_INSERT) and (Shift = []) then
begin
//Insert a row in the current position
InsertRow('', '', False);
Key := 0;
end;
end;
if (KeyDelete in KeyOptions) then
begin
//ToDo: delete a row if user presses Delete, need to find out (blackbox Delphi) when this should happen
end;
end;
procedure TValueListEditor.SetCells(ACol, ARow: Integer; const AValue: string);
var
I: Integer;