забавно - игрушка для обучения программированию

[DeKot]

Вот уже вторая жалоба на Acses Violation, но у себя я такого не наблюдал. Просмотрю внимательно еще раз код.

[raxp]

происходит при потере фокуса... как уже отписывал, нуно перекинуть

procedure TForm1.FormPaint(Sender: TObject);
 //BPic1.Free;
 BCol.Free;

[mutabor]

Dekot, спасибо за раскраску, пригодится )

Вот уже вторая жалоба на Acses Violation, но у себя я такого не наблюдал

При каждой перерисовке окна она была обеспечена, просто из-за того, что окно на весь экран перерисовка редко происходит.

Пофиксил баг с Access violation, он был при перерисовке окна, из-за того что освобождался объект, а потом к несуществущему была попытка обращения (2 raxp, ничего вообще нельзя освобождать там). Добавил кисточку цветную и картинку с рыбкой из мультика про Немо. Картинки скопируйте из предыдущих версий, я их убрал из-за размера. Файл с кисточкой должен быть в папке Image.

[raxp]

(2 raxp, ничего вообще нельзя освобождать там).

даже намеков в моих двух постах про это не было, напротив указал, что их убрать нужно в destroy... да простит меня Dekot, немножно доработал, добавил еще 12 раскрасок и сделал, чтоб само считало картинки в каталоге и добавляло столько рядов перехода page сколько по mod 12 вне зависимости от кол-ва, т.е. пользователю не придется каждый перекомпилировать, чтоб добавлять новые картинки...

[DeKot]

Спасибо mutabor и raxp за доработки. Скомпоновал их в общую прогу - получилась отличная детская игрушка.
Вот пример реального совместного творчества с открытыми кодами. Надо и далее практиковать на форуме. И лейбл придумать - создано на Programmersforum.ru.