как изменить видимость методов в наследнике стандартного класса?

[xrob]

Где-то видел очень похожий пример - как сделать видимым Canvas в TPanel.
там создавали наследника от панельки и писали в нем:
public
property Canvas;
и это работало - Canvas теперь виден был в новом классе

Как такое же сделать с процедурами?

Вот наследую я свой класс от панельки и хочу в нем использовать
стандартный SetWidth, который описан еще в TControl, и он там в private.

по аналогии с первым примером пытаюсь написать:
public
procedure SetWidth(value:integer);

но компилятор, в принципе, справедливо сообщает
что процедура объявлена, но не реализована...

Вот можно ли ему как-то объяснить, что это не новая процедура,
а попытка перенести старую в public ?

Заранее спасибо =)

[evg_m]

стандартный SetWidth, который описан еще в TControl, и он там в private.

Увы, для private это не пройдет.

Если бы она была protected (что и было в property Canvas)
то можно было бы написать СВОЮ процедуру(метод) в котором вызывать нужную. Но не private.
Смысл private как раз в том чтобы никто и никогда не смог бы напрямую пользоваться ею (только сам класс).
А для Tcontrol (и тем паче TPanel) есть же свойство public(а может protected) property Width которое как раз и "открывает" данную процедуру (выполняет действия по ее вызову).

[xrob]

Дело в том, что мне как раз и нужны эти имена свойств.
чтобы в моем компоненте было свойство Width, которое бы вызывало
стандартные действия + действия моего компонента на случай изменения размера -
перерассчет координат, перерисовка и т.п.

[evg_m]

Для изменения реакций (включения дополнительных действий) есть динамические(dinamic) и виртуальные (virtual) методы.
Так в Tcontrol есть

Tcontrol =class
protected
procedure Resize; dinamic; 

end;

И вам надо всего лишь

TMycontrol =class(TControl)
protected
  procedure Resize; override;

end;

procedure TMyControl.Resize; override;
begin
  ...  // выполнить до родительской обработки
  inherited;  // использовать родительскую обработку
  .... // а это после родительской 
end;

перерассчет координат, перерисовка и т.п.

пересчет координат здесь да возможен.
А для перерисовки вообще-то есть
procedure Paint; virtual;
и много много других на все другие случаи.

[xrob]

evg_m, а если мне нужны разные действия на изменение высоты или ширины? =)

проверять в Resize что изменилось?
а если при вызове свойства ширины, но с таким же параметром, как сейчас,
нужно выполнить только действия, предназначенные для события ширины?

да что-то вроде
C.Width:=100;
// some actions
C.Width:=100;

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

а перекрытый Paint во всех моих компонентах
используется лишь с одной целью - отрисовать Frame на Canvas окна.

Frame - это битмап, который есть в каждом моем графическом компоненте.
его размеры равны размерам формы и отрисовка самого компонента
производится именно на него.

этот Frame - что-то вроде заднего буффера, поскольку если сразу
рисовать все на Canvas окна, то неизбежно мелькание (и никакой DoubleBuffered здесь не поможет).
это первая причина.
вторая - иногда делаю компоненты, у которых отрисовка некоторых элементов
сложнее, чем отрисовка всего Frame в итоге.
поэтому вся отрисовка происходит в процедуре Render, по МОЕМУ специальному запросу
(например в случае изменения размеров), а не по сообщению винды.

а в случае последнего, как я уже говорил - готовый Frame рисуется на Canvas окна.


С минусами, конечно не поспоришь - растяни компонент на весь экран и получишь
огромного размера битмап в памяти...
Но, если предложите более оптимальный способ отображения без мелькания -
перепишу все свои компоненты =)

[Аватар]

OnCanResize и OnResize формы чем не нравятся? В первом из них вообще можно запретить изменение размеров или подавить их своими значениями

[xrob]

Аватар, мало информации.
Так мы узнаем только что что-то изменилось, а что именно - не знаем.
А что бы вы сделали?

Если вы едете на машине и прокололи колесо, вы менять все будете, или только проколотое?
вот в случае OnResize вы, похоже, все собираетесь менять...

Проблему, описанную в первом посте я решил радикально:

WHTL - Width, Height, Top, Left соответственно (нужное подчеркнуть)

(процедура TControl.Set-WHTL канула в лету и больше никогда не будет запущена)

TMyClass = class(TPanel)
public // не вижу смысла от самого себя что-то скрывать

F-WHTL:integer; // переменные для хранения параметров

procedure MySet-WHTL(value:integer);
property Width (<--- красивое название!!!) :integer read FWidth write MySetWidth; <-- св-во запускает мою процедуру

procedure Update;
end;

implementation

procedure TMyClass .MySet-WHTL(value:integer);
begin
F-WHTL:=value;
SomeActions; <-- мои действия в случае изменения конкретного параметра
Update;
end;

procedure TMyClass .Update;
begin
SetWindowPos(Handle, 0, FLeft, FTop, FWidth, FHeight, SWP_NOZORDER);
end;

конечно, в таком случае не выполняются действия стандартных
TControl.Set-WHTL (пока не разобрался какую роль они играют),
но все работает и результатом я доволен.

[Аватар]

мало информации

Ни чего не мало. Исходные значения Width и Height можно запомнить в OnActivate в переменные доступные всем процедурам формы (в Private формы например их разместить). Далее в той же OnResize имеем старые и новые значения. На выходе из OnResize новые засунуть в те же переменные

[xrob]

в посте #5 я выделил то, что я понимаю под "мало информации"

возник теперь другой вопрос, очень похожий на то что мне объясняли.

Как узнать что окно изменило видимость?

т.е. была запущена private процедура SetVisible.

[evg_m]

Для изменения реакций (включения дополнительных действий) есть динамические(dinamic) и виртуальные (virtual) методы.

Все virtual; dinamic; сделаны именно для тех кого не устраивает стандартное поведение.

и много много других на все другие случаи.

    function CanResize(var NewWidth, NewHeight: Integer): Boolean; virtual;

Description

CanResize is called automatically when an attempt is made to resize the control, after any autosizing has occurred. The NewWidth and NewHeight arguments specify the attempted new values for the control’s height and width. CanResize optionally adjusts the values of NewWidth and NewHeight, and returns true if the control can be resized to the returned values. CanResize returns false if the control cannot be resized.

CanResize generates an OnCanResize event. An OnCanResize event handler may change the values of NewHeight and NewWidth.

See Also

Occurs when an attempt is made to resize the control.

type TCanResizeEvent = procedure(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean) of object;

property OnCanResize: TCanResizeEvent;