ecPopupCtrl.pas

procedure TTemplatePopup.InsertTemplate(Templ: TCodeTemplate);
//...........
  SyntMemo.ClearSelection;

  //AT
  s := StringOfChar(' ', SyntMemo.LinesPosToLog(SyntMemo.CaretPos).X);

  st := TecStringList.Create;
  st.Assign(Templ.Code);
  for i := 1 to st.Count - 1 do
   st[i] := s + st[i]; //AT
  s := st.Text;
  st.Free;
//...........

