TCanvas

← →
Цукор5 (2005-10-11 00:30) [0]

Есть класс :
type TPSA=class(TObject) private ... public ... procedure Draw(Canvas:TCanvas); end;

Используется так :
ClassPSA.Draw(Image1.Canvas);

Вопрос. Возможно ли узнать в методе класса Weigth&Heigth TImage? Я так полагаю,что НЕТ :(

← →
Цукор5 (2005-10-11 00:32) [1]

Пардон,Width и Height

← →
GuAV © (2005-10-11 00:41) [2]

> Я так полагаю,что НЕТ :(

Лучше всего продолжать полагать так и передавать кроме Canvas ещё и Rect для рисования.

← →
Цукор5 (2005-10-11 01:00) [3]

Типа :
procedure Draw(Canvas:TCanvas;Rect:TRect); ... ClassPSA.Draw(Image1.Canvas,Image1.ClientRect);

2 GuAV © (11.10.05 00:41) [2]
Спасибо ))

Ну, помолясь можно использовать TCanvas.ClipRect.

TCanvas Найти похожие ветки