перегруженное свойство родителя

[chingiz]

Всем доброго времени суток.
Имеется компонент на основе - TpaintBox. Нужно переопределить свойство, ну например - Left, доставшееся от родителя. Но мне так же нужно чтобы я имел доступ и к свойству родителя. Если конкретно то в моем компоненте свойство Left должно иметь тип - real которое будет использоваться для расчетов, и именно его я буду задавать из программы, а свойство Left родителя нужно для позиционирования на экране и должно высчитываться автоматически внутри компонента путем округления до целого. Как сделать?

[BDA]

Так зачем его называть также?
Назовите его leftreal и опишите, как хотите (опираясь на описание в родителе).
Выше - мое имхо

[chingiz]

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

Так зачем его называть также?
Назовите его leftreal и опишите, как хотите (опираясь на описание в родителе).
Выше - мое имхо

В настоящее время я так и делаю, назвал свойство (Left_, Top_, и т.д.), но дело в том что пару раз по инерции использовал свойства Left, Top и потом долго долго искал ошибку. Просто скажем процедуру переопределить можно, и вызвать метод родителя посредством incherited. Хотелось бы знать хотябы чисто в познавательных целях, возможно ли нечто подобное сделать со свойством.

[=master=]

Эт о 2 разных свойства, зачем вы их хотите скрещивать?

[Аватар]

Только набросок и в GetLeft, SetLeft понятно по другому

  TMyControl = class(TCustomControl)
  private
    fLeft: Real;
    function  GetLeft: Real;
    procedure SetLeft(Value: Real);
  published
    property Left: Real read GetLeft write SetLeft;
  end;

...

function TMyControl.GetLeft: Real;
begin
  if csDesigning in ComponentState then Result:= inherited Left
                                   else Result:=fLeft;
end;

procedure TMyControl.SetLeft(Value: Real);
begin
  fLeft:=Value;
  inherited Left:= Trunc(Value);
end;

Эт о 2 разных свойства, зачем вы их хотите скрещивать?

Иногда и полезно. Например генератор отчетов и удобно размеры и позиционирование объектов в мм с десятыми долями

[chingiz]

Сообщение от =master=

Эт о 2 разных свойства, зачем вы их хотите скрещивать?

Я их не хочу скрещивать, просто у меня в приложении графические примитивы (надписи, прямоугольники, окружности и т.д.) построены на основе PaintBox и все это реально обрабатывается на станке с ЧПУ, поэтому позиционирование элементов вплоть до двух знаков после запятой имеет значение. Родительские Left, Top нужны чисто для визуализации, ну и конечно всетаки логично и эстетично использовать в визуальном компоненте именно свойства с привычными именами (Left, Top, и т.д.), пусть и с типом real.

Сообщение от Аватар

Только набросок и в GetLeft, SetLeft понятно по другому

Дома нет Делфи приду на работу попробую. На первый взгляд должно работать.

[chingiz]

Сообщение от Аватар

Только набросок и в GetLeft, SetLeft понятно по другому

  TMyControl = class(TCustomControl)
  private
    fLeft: Real;
    function  GetLeft: Real;
    procedure SetLeft(Value: Real);
  published
    property Left: Real read GetLeft write SetLeft;
  end;

...

function TMyControl.GetLeft: Real;
begin
  if csDesigning in ComponentState then Result:= inherited Left
                                   else Result:=fLeft;
end;

procedure TMyControl.SetLeft(Value: Real);
begin
  fLeft:=Value;
  inherited Left:= Trunc(Value);
end;

Аватар спасибо, все работает.