|
Вопрос # 4 670/ вопрос открыт / |
|
Приветствую, уважаемые эксперты! Пытаюсь из формы 1 нарисовать линии на форме 2. Но не рисует. Как исправить? Хочу, чтобы из заданной точки пошли рисоваться линии.
Приложение: Переключить в обычный режим- with form2.PaintBox1.Canvas do
- begin
- MoveTo(20,25);
- end;
-
- ......
-
-
- ...
- with form2.PaintBox1.Canvas do
- begin
- p1:=round(dtau*50);
- p2:=round((T0-T)*200/495);
- Lineto(p1,p2);
- end;
- ...
-
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 20 октября 2010, 17:47; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 20 октября 2010, 08:31 [#1]:
На TPaintBox надо рисовать в обработчике события TPaintBox.OnPaint, иначе можно просто не увидеть нарисованное. С другой стороны...
p1:=round(dtau*50);
p2:=round((T0-T)*200/495);
Lineto(p1,p2);
посмотри в отладчике значения p1 и p2: может они вылезают за границы PaintBox?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Вадим К (статус: Академик), 20 октября 2010, 10:16 [#2]:
вторая форма должна быть видна в момент рисования, так как если рисовать, а потом передвинуть на передний план (развернуть, просто показать и так далее), то она перерисует себя и ничем хорошим это не окончиться - будет снова без рисунка.
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
