paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 10:20:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

OnEditingDone for TStringGrid

Browse Source 
git-svn-id: trunk@8253 -
This commit is contained in:
jesus 2005-12-05 21:38:35 +00:00
parent 843b3af558
commit 8e974df7ce
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/grids.pas
View File

@ -159,6 +159,9 @@ type
type
{ Default cell editor for TStringGrid }
{ TStringCellEditor }
TStringCellEditor=class(TCustomMaskEdit)
private
FGrid: TCustomGrid;
@ -171,6 +174,8 @@ type
procedure msg_GetValue(var Msg: TGridMessage); message GM_GETVALUE;
procedure msg_SetGrid(var Msg: TGridMessage); message GM_SETGRID;
procedure msg_SelectAll(var Msg: TGridMessage); message GM_SELECTALL;
public
procedure EditingDone; override;
end;
TButtonCellEditor = class(TButton)
@ -198,6 +203,7 @@ type
procedure msg_SetGrid(var Msg: TGridMessage); message GM_SETGRID;
procedure msg_SetValue(var Msg: TGridMessage); message GM_SETVALUE;
public
procedure EditingDone; override;
property BorderStyle;
end;
@ -848,6 +854,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Invalidate; override;
procedure EditingDone; override;
{ Exposed procs }
procedure AutoAdjustColumns;
@ -1244,6 +1251,7 @@ type
property OnDblClick;
property OnDrawCell;
property OnEditButtonClick;
property OnEditingDone;
property OnEnter;
property OnExit;
property OnGetEditMask;
@ -4841,6 +4849,12 @@ begin
end;
end;
procedure TCustomGrid.EditingDone;
begin
if not FEditorShowing then
inherited EditingDone;
end;
procedure TCustomGrid.EditorGetValue;
begin
if not (csDesigning in ComponentState) and (Editor<>nil) and Editor.Visible then begin
@ -6088,6 +6102,13 @@ begin
end;
end;
procedure TStringCellEditor.EditingDone;
begin
inherited EditingDone;
if FGrid<>nil then
FGrid.EditingDone;
end;
procedure TStringCellEditor.KeyDown(var Key: Word; Shift: TShiftState);
function AllSelected: boolean;
begin
@ -7843,6 +7864,13 @@ begin
FMouseSelecting:=True;
end;
procedure TPickListCellEditor.EditingDone;
begin
inherited EditingDone;
if FGrid<>nil then
FGrid.EditingDone;
end;
procedure TPickListCellEditor.Change;
begin
inherited Changed;