Forum Replies Created
-
AuthorPosts
-
vadim_ckParticipant
Спасибо!
vadim_ckParticipant'TCount' wrote:В MouseDown вместо Repaint() нужно сделать RepaintForms SkinManager'a:
sSkinmanager1.RepaintForms(true);
Должны в месте нажатия появляться кружки. Только снова хочу обратить внимание на “Mode” в OnPaint…
Если сделать эту переменную глобальной и убрать ее объявление как локальной в процедурах OnMouseDown и OnPaint, то все нормально.
Видимо, это просто какой-то глюк в AlphaControls, не знаю)
или я что то не понимаю или так и не работает. Вы не могли бы сами отредачить и скинуть мне?
Спасибо
vadim_ckParticipant'TCount' wrote:Ну так и говорите, что при клике не рисует. Опишите точно, что Вам нужно) Если это клик, то клик по чему? по кнопке, по форме или по чему?
при клике на форму должно рисовать.
vadim_ckParticipant'TCount' wrote:Одно дело, если вообще не рисует, а другое дело – кривой код. Пробовали в событии OnPaint нарисовать что-нибудь? У Вас там было закомментирована в конце процедуры прорисовка эллипса и линий. Рисует же!
да. но у меня не рисует по клику мышки. при клике должно рисовать эллипс.
vadim_ckParticipant'TCount' wrote:Все рисуется, ошибка непосредственно в Вашем коде. Обратите внимание на строку в OnPaint формы:
Mode := ComboBox1.ItemIndex;
Именно она всему виной. Попробуйте ее удалить и увидите, что все прорисовывается. Так что, подумайте над этим:)
Удалил. по прежнему не рисует.
vadim_ckParticipant'TCount' wrote:Демка есть? Потому что у меня все рисуется и не исчезает.
вот проект. только скины по стандарту лежат в C:Skins
[attachment=6990:qw.rar]
vadim_ckParticipant'TCount' wrote:Если я правильно понял, Вы рисуете на форме. Если да, то лучше рисовать в PaintPox'е, который положить на форму.
Да. просто по заданию нужно на форме.
-
AuthorPosts