вставка подпрограммы [D5, Win95/98]
dim2001 © (2002-02-17 17:40:00)
Подскажите, пожалуйста, как быть
У меня на форме Image и две кнопки. При нажатии на первую на
Image рисуется график, при нажатии на вторую график печатается.
procedure TForm1.Button1Click(Sender: TObject);
begin
WITH Image1.Canvas DO BEGIN
// процедура рисования
END;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WITH Printer.Canvas DO BEGIN
// процедура рисования
END;
BeginDoc;
EndDoc;
end;
Процедура рисования состоит из MoveTo, LineTo. Оформленная
отдельно, она не знает на каком Canvas рисовать. Можно ли передать
процедуре объект - формальный параметр на котором надо рисовать ?
Вроде это делается через Sender. Но я в ООП не силен.
Может кто подскажет как быть с этим? Или предложите другой
вариант.
Anatoly Podgoretsky (2002-02-17 17:58:00) [1]
procedure PaintIt(Canvas:TCancas);
begin
...
end;
Наверх 
ЧАТ |
Орешник |
|
