Add(MainForm,8951961,105,196)
{
 Width=440
 Height=172
 Point(onMouseDown)
 link(onMouseDown,14966239:doEvent,[(148,223)(148,202)])
}
Add(Memo,3116927,434,154)
{
 Left=170
 Top=5
 Width=245
 Height=55
 Strings=#17:Это пример текста|15:для сохранения.|0:|
}
Add(PopupMenu,9965293,217,196)
{
 Menu=#15:сохранить в txt|15:сохранить в bat|15:сохранить в ini|15:сохранить в str|15:сохранить в vbs|
 TranspIcon=1
 link(onClick,11916909:doGetString,[(264,202)(264,230)])
}
Add(SDialog,3434106,378,189)
{
 Title="Сохранить Буфер в Файл"
 Point(doFilter)
 Point(doFileName)
 link(onExecute,3116927:doSave,[])
}
Add(StrList,11916909,280,196)
{
 Strings=#5:1.txt|5:1.bat|5:1.ini|5:1.str|5:1.vbs|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,1100150:doEvent1,[])
}
Add(IndexToChanel,14966239,161,196)
{
 link(onEvent2,9965293:doPopupHere,[(200,209)(200,202)])
}
Add(Hub,1100150,329,203)
{
 OutCount=4
 link(onEvent1,3434106:doFileName,[])
 link(onEvent3,3644706:doText,[])
 link(onEvent4,3434106:doExecute,[(358,230)(358,195)])
}
Add(Label,3391927,105,147)
{
 Left=170
 Top=70
 Width=249
 Height=17
 Caption="Вариант фильтра, который фолжен появляться:"
}
Add(Label,3644706,434,217)
{
 Left=170
 Top=95
 Width=244
 Height=17
 Color=16777215
 Font=[MS Sans Serif,8,0,255,1]
 Caption="________________________________________"
}

procedure THISDialog._work_doFileName;
begin
  _prop_FileName := ReadString(_Data, _data_FileName, '');
end;

procedure THISDialog._work_doFilter;
begin
  _prop_Filter := ToString(_Data);
end;

procedure THISDialog._work_doExecute;
var
  Opts: TOpenSaveOptions;
begin
  if not Assigned(FSaveDialog) then
  begin
    // By NetSpirit
    Opts := DefOpenSaveDlgOptions;
    if _prop_NoChangeDir = 1 then Opts:= Opts + [OSNoChangedir];
    if _prop_PathMustExists = 0 then Opts := Opts - [OSPathMustExist, OSFileMustExist];
    if _prop_OverwritePrompt = 0 then Opts := Opts - [OSOverwritePrompt];
    FSaveDialog := NewOpenSaveDialog(_prop_Title,_prop_StartDir, Opts);
    
    FSaveDialog.OpenDialog := False;
    FSaveDialog.WndOwner := ReadHandle;
  end;

  FSaveDialog.Filter := _prop_Filter;
  FSaveDialog.FileName := ReadString(_Data, _data_FileName, _prop_FileName);
  if FSaveDialog.Execute then
    _hi_CreateEvent(_Data, @_event_onExecute, FSaveDialog.FileName)
  else
    _hi_CreateEvent(_Data, @_event_onCancel);
end;

Add(MainForm,6263189,91,224)
{
 Left=20
 Top=105
 Width=550
 link(onCreate,1924266:doSendMessage,[])
}
Add(Memory,13575718,231,187)
{
 @Hint=#12:EM_LIMITTEXT|
 Default=Integer(197)
}
Add(SendMessage,1924266,210,238)
{
 WParam=-1
 Point(Message)
 link(Handle,8941988:Handle,[(216,183)(517,183)])
 link(Message,13575718:Value,[])
}
Add(Memo,10620720,588,168)
{
 Left=309
 Width=225
 Height=265
 Align=3
 Font=[Courier New,9,0,0,204]
 ModeSp=1
 ScrollBars=2
 Point(Handle)
 Point(SelText)
}
Add(Button,3955856,399,189)
{
 Left=230
 Top=60
 Width=70
 Caption="Передать"
 link(onClick,3324535:doData,[])
}
Add(Memo,8941988,490,133)
{
 Width=225
 Height=265
 Align=1
 Font=[Courier New,9,0,0,204]
 ModeSp=1
 Strings=#47:Если сейчас выделить текст и нажать "Передать",|0:|47:[Выделенный Текст] будет передан в правый edit.|0:|48:Однако, если вставить сюда текст БОЛЬШОГО объема|22:(больше 33 000 знаков)|42:выделенный из него фрагмент не передается.|0:|0:|
 ScrollBars=2
 Point(Handle)
 Point(SelText)
}
Add(DoData,3324535,518,189)
{
 link(onEventData,10620720:doText,[])
 link(Data,8941988:SelText,[])
}
Add(InfoTip,4945334,469,28)
{
 Info=#118:Когда вставляю в левый memo текст большОго объема (>32кб?) SelText ничего "не хранит", или не отдает, по крайней мере.|
 Font=[MS Sans Serif,10,1,0,1]
 Width=197
 Height=207
}
Add(LinkTip,206172,147,280)
{
 Link="https://forum.hiasm.com/topic/6566/"
 Font=[MS Sans Serif,8,0,16711680,1]
}
Add(InfoTip,3404046,147,126)
{
 Info=#48:Взято от Dilma и Galkov в ветке по ссылке внизу.|
 Width=197
 Height=179
}