lcl: grids: fixed compilation

git-svn-id: trunk@14201 -
This commit is contained in:
mattias 2008-02-20 08:36:45 +00:00
parent 5c2f5fb19b
commit acc075b846

View File

@ -6020,7 +6020,7 @@ begin
SendMessage(FEditor.Handle, CN_CHAR, Word(Ch), 0)
else begin
{$Endif}
Msg.MsgID:=GM_SETVALUE;
Msg.LclMsg.Msg:=GM_SETVALUE;
Msg.Grid:=Self;
Msg.Col:=FCol;
Msg.Row:=FRow;