Add(MainForm,5412717,273,217)
{
 Height=386
 Name="form"
 Position=1
 Point(Handle)
 Point(Width)
 link(onCreate,8279789:doTimer,[])
}
Add(MST_ColAction,935753,490,231)
{
 MSTControl="tab"
}
Add(DoData,5286389,392,231)
{
 Data=String(col;110)
 link(onEventData,9976398:doEvent1,[])
}
Add(MTStrTbl,2452207,476,168)
{
 Top=32
 Width=384
 Height=315
 Align=5
 Font=[MS Sans Serif,8,1,0,204]
 TabOrder=-1
 Name="tab"
 ColorSp=12639424
 ColDelimiter=";"
 ColumnWidth=110
 ColorItems=0
 HeaderDragDrop=0
 TextAlign=2
 Grid=0
 InfoTip=1
 Point(Handle)
 Point(ItemAtPos)
 Point(onDblClick)
 Point(doFont)
}
Add(Timer,8279789,343,231)
{
 Interval=500
 Enable=1
 AutoStop=6
 Point(onStop)
 link(onTimer,5286389:doData,[])
}
Add(MST_RowAction,4842353,490,280)
{
 MSTControl="tab"
}
Add(Hub,9976398,441,231)
{
 link(onEvent1,935753:doColAction,[])
 link(onEvent2,4842353:doRowAction,[(473,244)(473,286)])
}
Add(StyleXP,2073371,273,182)
{
}

function WndHDR(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
const
  HDN_FIRST            = -300;           { Header }
  HDN_ITEMCHANGINGA    = HDN_FIRST - 0;
  HDN_ITEMCHANGEDA     = HDN_FIRST - 1;
  HDN_DIVIDERDBLCLICKA = HDN_FIRST - 5;
  HDN_BEGINTRACKA      = HDN_FIRST - 6;
  HDN_ENDTRACKA        = HDN_FIRST - 7;  
  HDN_ITEMCHANGINGW    = HDN_FIRST - 20;
  HDN_ITEMCHANGEDW     = HDN_FIRST - 21;
  HDN_DIVIDERDBLCLICKW = HDN_FIRST - 25;
  HDN_BEGINTRACKW      = HDN_FIRST - 26;
  HDN_ENDTRACKW        = HDN_FIRST - 27;  
type
  tagNMHEADERA = packed record
    Hdr: TNMHdr;
    Item: Integer;
    Button: Integer;
    PItem: PHDItemA;
  end;
  HD_NOTIFY = tagNMHEADERA;
  PHDNotify = ^HD_NOTIFY; 
  PNMHEADER = ^tagNMHEADERA;  
var
  fClass: ThiMTStrTbl;
  ind: integer;
  di, dw: TData;
  s: string;
begin
  Result := false;
  fClass := ThiMTStrTbl(Sender.Tag);
  with fClass do
  begin
    case Msg.message of
      WM_NOTIFY:
        case HD_NOTIFY(Pointer(Msg.LParam)^).Hdr.code of
        HDN_ITEMCHANGINGA, HDN_ITEMCHANGINGW:
          _hi_onEvent(_event_onChangeWidth, Sender.LVColWidth[HD_NOTIFY(Pointer(Msg.LParam)^).Item]);        
        HDN_ENDTRACKA, HDN_ENDTRACKW:
        begin
          ind := HD_NOTIFY(Pointer(Msg.LParam)^).Item;
          s := Sender.LVColText[ind] + _ColDlm +
               int2str(PHDNotify(PNMHEADER(Msg.LParam))^.pItem^.cxy) + _ColDlm +
               int2str(Sender.LVColImage[ind]) + _ColDlm +
               int2str(ord(Sender.LVColAlign[ind]));
          CList.Items[ind] := InitColStr(s);
          dtInteger(di, ind);
          dtInteger(dw, PHDNotify(PNMHEADER(Msg.LParam))^.pItem^.cxy);
          di.ldata := @dw;
//          _hi_onEvent_(_event_onChangeWidth, di);
        end;
        HDN_BEGINTRACKA, HDN_BEGINTRACKW, HDN_DIVIDERDBLCLICKA, HDN_DIVIDERDBLCLICKW:
          if not FChangeWidth then
          begin
            Rslt := 1;
            Result := True;
          end;          
        end;  
// Костыль для борьбы с лагом отрисовки сетки при скроллинге со cтилем XP;
      WM_HSCROLL, WM_VSCROLL:
        case LOWORD(Msg.wParam) of
          SB_THUMBPOSITION, SB_THUMBTRACK, SB_ENDSCROLL: Sender.Invalidate;
        end;
    end;      
  end;   
end;

Add(MainForm,3910667,161,84)
{
 Height=319
 Caption="Example"
 link(onCreate,2290980:doEnum,[])
}
Add(MTStrTbl,2452207,98,84)
{
 Left=5
 Top=5
 Width=380
 Height=220
 Align=5
 Name="tab"
 FlatScroll=1
 Redaction=0
 HeaderDragDrop=0
 Grid=0
}
Add(StrList,6602338,210,28)
{
 Strings=#10:Col=100==210:Co2=100==2|10:Co3=100==2|
}
Add(ArrayEnum,2290980,224,98)
{
 link(onItem,4863294:doColAction,[])
 link(onEndEnum,10041622:doEnum,[(282,111)(282,90)])
 link(Array,6602338:Array,[])
}
Add(MST_ColAction,4863294,301,98)
{
 MSTControl="tab"
}
Add(MST_RowAction,12985991,455,70)
{
 MSTControl="tab"
}
Add(StrList,15034837,336,28)
{
 Strings=#11:111;222;333|11:111;222;333|11:111;222;333|11:111;222;333|11:111;222;333|11:111;222;333|11:111;222;333|11:111;222;333|11:111;222;333|11:111;222;333|
}
Add(MT_String,922736,406,70)
{
 link(onResult,12985991:doRowAction,[])
}
Add(ArrayEnum,10041622,350,84)
{
 link(onItem,922736:doMTString,[])
 link(Array,15034837:Array,[])
}

Add(MainForm,3910667,175,252)
{
 Width=454
 Height=273
 Caption="Example"
 link(onCreate,2290980:doEnum,[])
}
Add(StrList,6602338,238,210)
{
 Strings=#8:1=100==2|8:2=100==2|8:3=100==2|
}
Add(ArrayEnum,2290980,252,266)
{
 link(onItem,4863294:doColAction,[])
 link(onEndEnum,10041622:doEnum,[(296,279)(296,230)])
 link(Array,6602338:Array,[])
}
Add(MST_ColAction,4863294,343,266)
{
 MSTControl="tab1"
}
Add(MST_RowAction,12985991,427,210)
{
 MSTControl="tab1"
}
Add(StrList,15034837,294,168)
{
 Strings=#11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|11:1111;2222;0|
}
Add(MT_String,922736,364,210)
{
 link(onResult,12985991:doRowAction,[])
}
Add(ArrayEnum,10041622,308,224)
{
 link(onItem,922736:doMTString,[])
 link(Array,15034837:Array,[])
}
Add(MTStrTbl,4055523,511,77)
{
 Left=10
 Top=5
 Width=270
 Height=220
 Name="tab1"
 FlatScroll=1
 ColumnWidth=120
 ColumnClick=1
 ColorItems=0
 HeaderDragDrop=0
 TextAlign=2
 Grid=0
 DrawManager="000"
 Point(onMouseEnter)
 Point(onMouseLeave)
 Point(onChar)
}
Add(MST_UseEditCtrl,3498945,567,301)
{
 MSTControl="tab1"
 Point(doClientRect)
 Point(onClientRect)
 PColor(onCellSize,8421440)
 PColor(onEscCell,32768)
 link(onCellSize,13620734:doValue,[(667,307)(667,244)])
 link(onEnterCell,87120:doEvent1,[])
 link(onEscCell,11620372:doWork2,[(667,321)(667,405)(791,405)(791,342)])
 link(onClientRect,6501317:doSeparateMT,[(624,328)(624,356)])
}
Add(MT_MultiData,2622840,735,308)
{
 Point(Data)
 link(onData1,13270797:doLeft,[])
 link(onData2,13270797:doTop,[])
 link(Data,13620734:Value,[])
}
Add(Hub,15922927,805,322)
{
 link(onEvent1,13270797:doSetFocus,[])
 link(onEvent2,13270797:doBringToFront,[])
}
Add(Hub,87120,679,308)
{
 OutCount=6
 link(onEvent1,3498945:doClientRect,[(705,314)(705,291)(546,291)(546,314)])
 link(onEvent2,2622840:doSeparateMT,[(711,321)(711,314)])
 link(onEvent3,15922927:doEvent1,[])
 link(onEvent4,13270797:doText2,[(721,335)(721,307)])
 link(onEvent5,13270797:doSelectAll,[(769,342)(769,363)])
 link(onEvent6,12709971:doRead,[(704,349)(704,483)(555,483)(555,440)])
}
Add(MT_Memory,13620734,735,238)
{
}
Add(Edit,13270797,861,294)
{
 Left=305
 Top=105
 Width=90
 Alignment=2
 Point(doLeft)
 Point(doTop)
 Point(doSetFocus)
 Point(doBringToFront)
 Point(doSendToBack)
 Point(doHeight)
 Point(doWidth)
 Point(doSelectAll)
 link(onEnter,8159470:doEvent1,[])
 link(Str,3498945:Cell,[(867,280)(613,280)(613,349)(594,349)])
}
Add(MT_MultiData,6501317,721,350)
{
 link(onData1,15880877:doEvent1,[(779,356)(779,349)])
}
Add(MST_ArrayCols,12639332,539,385)
{
 MSTControl="tab1"
}
Add(MT_MTArrayRW,12709971,567,434)
{
 link(onRead,16402293:doSplit,[])
 link(Array,12639332:ColumnArray,[(573,426)(545,426)])
 link(Index,3498945:SubItem,[])
}
Add(StrPart,16402293,651,434)
{
 Char="="
 link(onSplit,3107408:doSplit,[])
}
Add(StrPart,3107408,721,434)
{
 Char="="
 link(onPart,1162960:doEvent1,[])
}
Add(Hub,8159470,903,301)
{
 PColor(onEvent2,32768)
 link(onEvent1,3498945:doSetData,[(931,307)(931,380)(555,380)(555,307)])
 link(onEvent2,11620372:doWork1,[(938,314)(938,271)(844,271)])
}
Add(HubEx,11620372,840,336)
{
 PColor(onEvent,32768)
 link(onEvent,13270797:doSendToBack,[])
}
Add(Label,13122282,882,406)
{
 Left=305
 Top=145
}
Add(Label,6375608,882,448)
{
 Left=305
 Top=165
}
Add(Hub,1162960,812,441)
{
 link(onEvent1,13270797:doWidth,[(849,447)(849,356)])
 link(onEvent2,6375608:doText,[])
}
Add(Hub,15880877,805,343)
{
 link(onEvent1,13270797:doHeight,[])
 link(onEvent2,13122282:doText,[(840,356)(840,412)])
}
Add(StyleXP,9160581,168,84)
{
}