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

fixed changing the cell value while in editor mode from Jesus

Browse Source 
git-svn-id: trunk@6652 -
This commit is contained in:
mattias 2005-01-21 10:41:30 +00:00
parent 623d8f33d0
commit 07c70ad0b5
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/grids.pas
View File

@ -3756,7 +3756,7 @@ begin
{$IfDef dbgFocus}DebugLn('DoEnter - EditorHiding');{$Endif}
end else begin
{$IfDef dbgFocus}DebugLn('DoEnter - Ext');{$Endif}
exit;
//exit;
if EditorAlwaysShown then begin
SelectEditor;
if Feditor=nil then Invalidate
@ -5630,6 +5630,14 @@ begin
end;
procedure TCustomStringGrid.Setcells(aCol, aRow: Integer; const Avalue: string);
procedure UpdateCell;
begin
if EditorMode and (aCol=FCol)and(aRow=FRow) then
begin
EditorDoSetValue;
end;
InvalidateCell(aCol, aRow);
end;
var
C: PCellProps;
begin
@ -5637,7 +5645,7 @@ begin
if C<>nil then begin
if C^.Text<>nil then StrDispose(C^.Text);
C^.Text:=StrNew(pchar(aValue));
InvalidateCell(aCol, aRow);
UpdateCell;
end else begin
if AValue<>'' then begin
New(C);
@ -5645,7 +5653,7 @@ begin
C^.Attr:=nil;
C^.Data:=nil;
FGrid.Celda[aCol,aRow]:=C;
InvalidateCell(aCol, aRow);
UpdateCell;
end;
end;
end;