Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
11 дек 2024, 14:45

Задача РисуемРамку

Автор feelgood, 22 мар 2020, 16:33

0 Пользователей и 1 гость просматривают эту тему.

feelgood

Добрый день! Есть задача, форма, с двумя полями, ширина и высота, при заполнении цифрами, что бы заполняла в таблице ячейки к примеру символами "*"... Как на картинке. Но заполнятся должны только края квадрата, как рамка, середина будет пустой. Вот что есть на данный момент, но как убрать символы с середины?


Procedure PressExecuteButton(Button)
   
   
   Spreadsheet = new SpreadsheetDocument;
   Template = GetTemplate( "Template" );
   Area = Template.GetArea( "горизонт|вертикаль" );
   
   //// Create text ////
   Str = "";
   for i = 1 по ПарДлина do
      Area.Parameters.Текст = "*";
      Spreadsheet.Put( Area );
      for n = 1 по ПарШирина - 1 do
         Str = Str + "*";
         Area.Parameters.Текст = "*";
         Spreadsheet.Join( Area );
      EndDo;
   EndDo;
   
   ////////////////////
   //Area.Parameters.Текст = Str;
   //Spreadsheet.Put( Area );
   
   Spreadsheet.Show();
   
   
   
EndProcedure



Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск