Перезагрузка методов

[SomeOneAndrey]

Приветствую.
Возникла надобность дописать свой код в процедуру компонента, а именно в
Image.Canvas.Pen.Width
В объекте TPen - Width это свойство, запись идет через процедуру SetWidth
Как добавить в эту процедуру свой код не изменяя стандартный модуль?
Пробовал с перегрузкой методов, но что-то не вышло, вылетала программа с ошибкой в ntdll.dll
Прошу пример правильной перегрузки методов на конкретном примере.

[Stilet]

Придется прописывать наследование для Pen, Canvas и Image с нуля и полностью. Это если не ошибаюсь. Короче писанины будет немерянно.
Ты лучше скажи что именно нужно дописать. На 99% уверен что так изменять стандартный компонент не нужно.

[SomeOneAndrey]

Сообщение от Stilet

Придется прописывать наследование для Pen, Canvas и Image с нуля и полностью. Это если не ошибаюсь. Короче писанины будет немерянно.
Ты лучше скажи что именно нужно дописать. На 99% уверен что так изменять стандартный компонент не нужно.

Я делаю онлайн пеинт, для наилучшей синхронизации мне нужно добавить свой код прямо в процедуру изменения кисти. Например так, я перезагрузил TCanvas в TImage, чтобы добавить свой код в MoveTo и LineTo

  TCanvas = class(Vcl.Graphics.TCanvas)
  public
    procedure MoveTo(X, Y: Integer);
    procedure LineTo(X, Y: Integer);
  end;
  //
  TImage = class(Vcl.ExtCtrls.TImage)
  private
    function GetCanvas: TCanvas;
  public
    property Canvas: TCanvas read GetCanvas;
  end;

И все работает хорошо. Но если я добавляю TPen

  TCanvas = class(Vcl.Graphics.TCanvas)
  private
    FPen: TPen;
  protected
    procedure SetPen(Value: TPen);
  public
    procedure MoveTo(X, Y: Integer);
    procedure LineTo(X, Y: Integer);
  published
    property Pen: TPen read FPen write SetPen;
  end;

То получаю ошибку при попытке взаимодействия с TPen'ом

Access violation at address 7796EC81 in module 'ntdll.dll'. Write of address 00500850.

Все еще надеюсь на помощь

[min@y™]

код метода setpen() дай посмотреть.

[SomeOneAndrey]

Сообщение от min@y™

код метода setpen() дай посмотреть.

procedure TCanvas.SetPen(Value: TPen);
begin
  FPen.Assign(Value);
end;

[min@y™]

эээээ! код своего метода setpen() дай посмотреть.

[SomeOneAndrey]

Сообщение от min@y™

эээээ! код своего метода setpen() дай посмотреть.

Мой SetPen это обычный SetPen, но даже с ним программа вылетает

[Stilet]

Мой SetPen это обычный SetPen, но даже с ним программа вылетает

Ха! А зачем тогда ты переопределяешь его, если он такой же? Извини за глупый вопрос.

для наилучшей синхронизации мне нужно добавить свой код прямо в процедуру изменения кисти

С чего ты взял что это что-то улучшит?

[min@y™]

Сообщение от SomeOneAndrey

Мой SetPen это обычный SetPen, но даже с ним программа вылетает

значит вылетает не из-за него.

[SomeOneAndrey]

Сообщение от Stilet

Ха! А зачем тогда ты переопределяешь его, если он такой же? Извини за глупый вопрос.

Проблема в том, что мне этот SetPen вовсе не нужен. Мне необходимо переопределить TPen на свой. Когда я переопределяю TPen

published
    property Pen: TPen read FPen write SetPen;

То среда требует чтобы я задекларировал процедуру SetPen

Сообщение от Stilet

С чего ты взял что это что-то улучшит?

Допустим изменение цвета кисти можно вызывать из нескольких мест, рядом с каждым местом вызова придется дописывать функцию синхронизации. Куда логичнее вписать её прямо в саму процедуру изменения цвета

Сообщение от min@y™

значит вылетает не из-за него.

Вот я и не знаю из за чего вылетает, по этой причине и обратился на форум, попробуйте Вы, возможно у Вас не будет вылетать. Какая цель - указано в начале темы, необходимо изменить процедуру записи в свойство Image.Canvas.Pen.Width