*onEmptyFieldClick=Событие происходит всякий раз при нажатии на пустую (не занятую строками) область таблицы|2|0

Add(MainForm,2953706,42,112)
{
 Width=494
 Height=382
 Position=1
 link(onCreate,3556725:doEnum,[])
}
Add(MTStrTbl,11740120,84,203)
{
 Left=5
 Top=5
 Width=470
 Height=335
 Font=[MS Sans Serif,12,0,0,1]
 Name="test"
 Columns=#1:№|9:test1=200|10:test2 =200|
 IgnoreEmptyField=0
 Grid=0
 Point(onMouseDown)
 Point(onEmptyFieldClick)
 link(onMouseDown,12051947:doEvent,[])
 link(onEmptyFieldClick,7912398:doEvent,[(142,244)(142,286)])
}
Add(MT_String,6192416,133,119)
{
 link(onResult,9361380:doRowAction,[])
}
Add(StrList,6915816,70,70)
{
 Strings=#32:1;test string 111;test string 12|32:2;test string 121;test string 22|32:3;test string 131;test string 32|32:4;test string 141;test string 42|32:5;test string 151;test string 52|32:6;test string 161;test string 62|32:7;test string 171;test string 72|32:8;test string 181;test string 82|
}
Add(ArrayEnum,3556725,84,126)
{
 link(onItem,6192416:doMT,[])
 link(Array,6915816:Array,[])
}
Add(MST_RowAction,9361380,182,119)
{
 MSTControl="test"
}
Add(PopupMenu,5547842,224,287)
{
 Menu=#3:Add|
}
Add(IndexToChanel,7912398,168,280)
{
 link(onEvent2,5547842:doPopupHere,[])
}
Add(PopupMenu,12158859,224,238)
{
 Menu=#3:Add|6:Change|6:Delete|
}
Add(IndexToChanel,12051947,168,231)
{
 link(onEvent2,12158859:doPopupHere,[])
}

 Add(MainForm,2075368,539,322)
{
 Width=494
 Height=382
 Position=1
 link(onCreate,3556725:doEnum,[])
}
Add(MTStrTbl,11740120,581,413)
{
 Left=5
 Top=5
 Width=470
 Height=335
 Font=[MS Sans Serif,12,0,0,1]
 Name="test"
 Columns=#1:№|9:test1=200|10:test2 =200|
 IgnoreEmptyField=0
 Grid=0
 Point(onEmptyFieldClick)
 Point(onMouseUp)
 link(onEmptyFieldClick,7912398:doEvent,[])
 link(onMouseUp,12051947:doEvent,[(625,454)(625,489)])
}
Add(MT_String,6192416,630,329)
{
 link(onResult,9361380:doRowAction,[])
}
Add(StrList,6915816,567,280)
{
 Strings=#32:1;test string 111;test string 12|32:2;test string 121;test string 22|32:3;test string 131;test string 32|32:4;test string 141;test string 42|32:5;test string 151;test string 52|32:6;test string 161;test string 62|32:7;test string 171;test string 72|32:8;test string 181;test string 82|
}
Add(ArrayEnum,3556725,581,336)
{
 link(onItem,6192416:doMT,[])
 link(Array,6915816:Array,[])
}
Add(MST_RowAction,9361380,679,329)
{
 MSTControl="test"
}
Add(PopupMenu,5547842,693,448)
{
 Menu=#3:Add|
}
Add(IndexToChanel,7912398,637,441)
{
 link(onEvent2,5547842:doPopupHere,[])
}
Add(PopupMenu,12158859,693,490)
{
 Menu=#3:Add|6:Change|6:Delete|
}
Add(IndexToChanel,12051947,637,483)
{
 link(onEvent2,12158859:doPopupHere,[])
}

WM_LBUTTONUP,WM_MBUTTONUP,WM_RBUTTONUP:
       if Control.LVItemAtPos(SmallInt(LoWord(Msg.lParam)),SmallInt(hiWord(Msg.lParam))) = -1 then
	    begin
         if _prop_IgnoreEmptyField then
		   Result := true;
		 case Msg.WParam of
           1:   dtInteger(di,0);
           2:   dtInteger(di,1);
           16:  dtInteger(di,2);
           else dtInteger(di,-1);
         end;
         _hi_onEvent_(_event_onEmptyFieldClick, di);
        end;
	  WM_LBUTTONDOWN,WM_MBUTTONDOWN,WM_RBUTTONDOWN,
	  WM_LBUTTONDBLCLK,WM_MBUTTONDBLCLK,WM_RBUTTONDBLCLK:
       if _prop_IgnoreEmptyField and (Control.LVItemAtPos(SmallInt(LoWord(Msg.lParam)),SmallInt(hiWord(Msg.lParam))) = -1) then
         Result := true;

  if _prop_MSTControl.getfctl3d then
  begin
    case _prop_MSTControl.getwinstyle of
      0: b := 3;
      1: b := 1;
      2: b := 2;
      3: b := 4;
      4: b := 6;
    end;
  end
  else
    b := 1;

if boolean(_prop_MSTControl.getfctl3d) then
 case integer(_prop_MSTControl.getwinstyle) of

function GetScrollBarInfo(hwnd: HWND; idObject: Longint; var psbi: TScrollBarInfo): BOOL; stdcall; external 'user32.dll' name 'GetScrollBarInfo';

implementation

uses hiMultiBlockFind, hiStr_Enum;

  inherited;

  FBkColor                := Control.Color;
  FTextColor              := Control.Font.Color;
  FTextBkColor            := Control.Color;
  Control.LVBkColor       := FBkColor;
  Control.LVTextColor     := FTextColor;
  Control.LVTextBkColor   := FTextBkColor;
  Control.Tag             := Cardinal(Self);
  Control.AttachProc(WndProcTabGrid);
  Control.AttachProc(WndHDR);
//  Control.DoubleBuffered := _prop_DoubleBuffered;
  if _prop_DoubleBuffered then Control.Perform(LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_DOUBLEBUFFER, LVS_EX_DOUBLEBUFFER);

const
  LVS_EX_DOUBLEBUFFER = $00010000;