|
| Дата: Среда, 26.10.2011, 18:29 | Сообщение # 1 |
Генерал-лейтенант
Сообщений: 522
|
procedure TForm1.Button1Click(Sender: TObject);
begin
if paint = true then begin
canvas.pen.color:=clred;
canvas.MoveTo(100,100);
canvas.LineTo(500,500); end
else paint:=true;
end;
Вот процедура, я хотел чтобы при нажатии на кнопку рисовалась линия. Создал обработчик события OnClick. При свертывание программы избражение исчезало.Я создал обработчик OnPaint( для формы). Изображение появлялось сразу после того когда запускалась программа.
Я ввел булевскую переменную(глобальную), которая при первом запуске проверяла, если паинт не тру, то нечего не рисовала, но ставила ему значение тру. (чтобы при нажатии кнопки рисунок рисовался). а он пишет ошибку поч???
|
| |
|
|
|
| Дата: Четверг, 27.10.2011, 12:04 | Сообщение # 2 |
Генералиссимус
Сообщений: 2438
|
TOTKTO3HAETBCE, >_< прогу целиком + в след. месяце, ща трафика нет для скачек.
|
| |
|
|
