Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

вставка подпрограммы   Найти похожие ветки 

 
dim2001   (2002-02-17 17:40) [0]

Подскажите, пожалуйста, как быть
У меня на форме 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) [1]

procedure PaintIt(Canvas:TCancas);
begin
...
end;



Страницы: 1 вся ветка

Текущий архив: 2002.03.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.008 c
1-9241
yaJohn
2002-02-15 16:56
2002.03.04
RUSSIAN_CHARSET


4-9329
solsoft
2001-12-28 10:19
2002.03.04
Прокрутка текста колесом мыши


1-9140
dim2001
2002-02-17 17:40
2002.03.04
вставка подпрограммы


14-9269
mvg_first
2002-01-10 20:32
2002.03.04
Есть ли альтернатива АДО при доступе к MS SQL 2000


7-9308
neodiX
2001-11-29 15:40
2002.03.04
Kak programno otkliucit klavu i mysh v WinNT i Win2k?