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

grid, make space in gridmessage so message handling doesn't mess with custom data (on windows)

Browse Source 
git-svn-id: trunk@14199 -
This commit is contained in:
jesus 2008-02-20 07:54:36 +00:00
parent 20cb515746
commit 418e7777de
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/grids.pas
View File

@ -164,7 +164,7 @@ type
PGridMessage=^TGridMessage;
TGridMessage=record
MsgID: Cardinal;
LclMsg: TLMessage;
Grid: TCustomGrid;
Col,Row: Integer;
Value: string;
@ -1966,7 +1966,7 @@ begin
FEditor.TabStop:=False;
Msg.MsgID:=GM_SETGRID;
Msg.LclMsg.msg:=GM_SETGRID;
Msg.Grid:=Self;
Msg.Options:=0;
FEditor.Dispatch(Msg);
@ -5756,7 +5756,7 @@ begin
InflateRect(Msg.CellRect, -1, -1);
FEditor.BoundsRect := Msg.CellRect;
end else begin
Msg.MsgID:=GM_SETPOS;
Msg.LclMsg.msg:=GM_SETPOS;
Msg.Grid:=Self;
Msg.Col:=FCol;
Msg.Row:=FRow;
@ -5773,7 +5773,7 @@ begin
{$ifdef dbgGrid}DebugLn('EditorSelectALL INIT');{$endif}
if FEditor<>nil then
if FEditorOptions and EO_SELECTALL = EO_SELECTALL then begin
Msg.MsgID:=GM_SELECTALL;
Msg.LclMsg.msg:=GM_SELECTALL;
FEditor.Dispatch(Msg);
end;
{$ifdef dbgGrid}DebugLn('EditorSelectALL END');{$endif}
@ -5784,7 +5784,7 @@ var
msg: TGridMessage;
begin
if (FEditor<>nil) and FEditor.Visible then begin
Msg.MsgID:=GM_GETVALUE;
Msg.LclMsg.msg:=GM_GETVALUE;
Msg.grid:=Self;
Msg.Col:=FCol;
Msg.Row:=FRow;
@ -5800,14 +5800,14 @@ var
begin
if FEditor<>nil then begin
// Set the editor mask
Msg.MsgID:=GM_SETMASK;
Msg.LclMsg.msg:=GM_SETMASK;
Msg.Grid:=Self;
Msg.Col:=FCol;
Msg.Row:=FRow;
Msg.Value:=GetEditMask(FCol, FRow);
FEditor.Dispatch(Msg);
// Set the editor value
Msg.MsgID:=GM_SETVALUE;
Msg.LclMsg.msg:=GM_SETVALUE;
Msg.Grid:=Self;
Msg.Col:=FCol;
Msg.Row:=FRow;