Как рисовать на компоненте, если свойство Canvas недоступно?

Previous  Top  Next

    
 

 

 

У всех компонентов, порожденных от TCustomControl, имеется свойство Canvas типа TCanvas.

Если свойство Canvas недоступно, Вы можете достучаться до него созданием потомка и переносом этого свойства в раздел Public.

Code:

{ Example. We recommend You to create this component through Component Wizard.

In Delphi 1 it can be found as 'File|New Component...', and can be found

as 'Component|New Component...' in Delphi 2 or above. }

type

TcPanel = class(TPanel)

public

   property Canvas;

end;

 

 

 

Akzhan Abdulin

(2:5040/55)

 

Если у объекта нет свойства Canvas (у TDBEdit, вpоде-бы нет), по кpайней меpе в D3 можно использовать класс TControlCanvas. Пpимеpное использование:

Code:

var cc: TControlCanvas;

...

cc := TControlCanvas.Create;

cc.Control := youControl;

...

 

и далее как обычно можно использовать методы Canvas.

 

Andrew Velikoredchanin

(2:5026/29.3)

©Drkb::03742