Замечания и предложения

Среда PascalABC.NET
#1875

Изначально так и было,но тогда не получится реализовать свойство “Name”

#1876

А как записать картинку в ресурсы?

#1877 
{$resource Картинка.png}

begin
  
end.
#1878

Не обязательно возвращать полноценное имя при создании из потока. Можно возвращать nil, а можно кидать исключение.

Ну, если уже создавать из имени ресурса - не надо называть это созданием из потока в описаниях. Конечного пользователя только запутает.

#1879

Хорошо,как тогда назвать?

#1880

Так и назвать, именем ресурса. И можно ещё в скобках добавить, что имеется в виду $resource, раз даже @Admin забыл что такое ресурсы программы))

1 лайк
#1881

А какие еще могут быть ресурсы?

#1882

@Admin,примите мои поправки и предложения?

#1883

Какие?

Давайте по одному

1 лайк
#1884

Первым делом хотелось бы вот это:

#1885

В таком виде не примем. Вы сами пишете, что это не работает. Поясните, заголовки каких методов и конструкторов вы хотите добавить

#1886

InitOb4 и InitOb5 + 2 последних конструктура. Не работает,если только в самом модуле менять.Вылетатет внутренняя ошибка компилятора,я уже писал какая. Код рабочий,думаю у вас ошибки.

#1887

2 сообщения перенесены в тему Болталка PascalABC.NET

#1889

Не позиционируем. Читайте на сайте.

Мы его позиционируем как использующийся в сфере образования и научных исследований.

Это разные вещи.

Обучающий - это два оператора и три операции.

#1890

Это вы не умеете код в стандартных модулях менять. Всё работает.

Приведите пожалуйста дельту - что добавить в класс. В приватную секцию отдельно, в публичную - отдельно.

И отформатируйте пожалуйста код стандартными средствами - тяжело читать.

#1892

Сообщение перенесено в тему Болталка PascalABC.NET

#1893

В приватную секцию:

  private
    PName: string;
    
    function GetString(self: string; oi, ni: integer): string;
    begin
      for var i := oi to ni do 
        result += self[i];
    end;
    
    procedure InitOb5(x, y, w, h: real; name: string);
    begin
      PName := GetString(name, 1, name.LastIndexOf('.'));
      var bmi := new System.Windows.Media.Imaging.BitmapImage();
      bmi.BeginInit();
      bmi.StreamSource := GetResourceStream(name);
      bmi.EndInit();
      Rest(x, y, w, h, bmi);
    end;
    
    procedure InitOb4(x, y: real; name: string);
    begin
      PName := GetString(name, 1, name.LastIndexOf('.'));
      var bmi := new System.Windows.Media.Imaging.BitmapImage();
      bmi.BeginInit();
      bmi.StreamSource := GetResourceStream(name);
      bmi.EndInit();
      Rest(x, y, bmi.PixelWidth, bmi.PixelHeight, bmi);
    end;
#1894

В публичную секцию

    ///Создает рисунок из потока
constructor(x, y: real; name: string; b: boolean := false):=Invoke(InitOb4, x, y, name);
    ///Создает рисунок из потока с шириной w и высотой h
constructor(x, y, w, h: real; name: string; b: boolean := false):=Invoke(InitOb5, x, y, w, h, name);
#1895

А параметр b у вас нигде не используется. b=True - из ресурсов - верно?

И что делает GetString?

#1896

К сожалению нет,просто параметр,что бы не было конфликтов. А GetString нужен что обрезать строку. Сейчас внесу несколько поправок,ибо вместо GetString можно использовать срезы для строк, и с параметром b нужно что-то сделать.