Можно ли одной процедурой рисовать на Image.Canvas и Printer.Canvas

@YurgenLi · Регистрация: 03.10.2011

Здравствуйте, пожалуйста, подскажите можно ли одной процедурой рисовать на Image.Canvas и Printer.Canvas?

@Arcor · 03.10.2011, 21:42

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

быстрый пример, рисует на всем, на чем есть Canvas

Delphi

procedure ISO(C: TCanvas);
begin
  C.Rectangle(10,10,200,100);
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  ISO(Form1.Canvas);
  ISO(PaintBox1.Canvas);
  ISO(Image1.Canvas);
end;

@YurgenLi · 03.10.2011, 21:50 **[ТС]**

спасибо

@YurgenLi 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 7
	03.10.2011, 21:50 [ТС]	3
	спасибо 0

Опции темы

Можно ли одной процедурой рисовать на Image.Canvas и Printer.Canvas

Решение