#pas
procedure TColorSelector.CreateParams;
begin
  inherited CreateParams(Params);     // это комментарий
  with Params do
  begin
    WindowClass.style := 'CS_DBLCLKS';    // парсинг строк
    Style := Style or WS_CLIPCHILDREN;  
    if NewStyleControls and Ctl3D then
      ExStyle := ExStyle or WS_EX_CLIENTEDGE
    else
      Style := Style or WS_BORDER;
  end;
  Color := clWindow;
end;

#sha
Make(delphi)
Add(Label,26794,343,140)
{
 Left=180
 Top=50
 Font=[Arial,8,0,0,1]
}
Add(MultiElementEx,14285444,210,112)
{
 link(onEvent1,7401:doText,[(298,118)(298,104)])
 link(onEvent2,26794:doText,[(298,125)(298,146)])
 link(onEvent3,66597:doText,[(298,132)(298,188)])
 link(onEvent4,17596:doText,[(298,139)(298,230)])
}
BEGIN_SDK
  Add(EditMultiEx,5658060,21,21)
  {
   WorkCount=#8:doEvent1|
   EventCount=#8:onEvent1|8:onEvent2|8:onEvent3|8:onEvent4|
   link(doEvent1,81859:doEvent1,[(35,27)(35,139)])
  }
  Add(IndexToChanel,50318,196,133)
  {
   Count=4
   Point(Data)
  }
END_SDK
Add(Label,55463,238,189)
{
 Left=75
 Top=30
 Font=[Arial,8,0,0,1]
}