Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 1 из 1
  • 1
Модератор форума: Peter, DEMBEL  
Изменяемый объект + скрин в нём
GuliveRДата: Ср, 27 Сентября 2017, 21:10 | Сообщение # 1
Новичок


Демонстрация возможностей:
- пример динамического изменения положения и изменения размера объекта с помощью мыши.
- пример создания скриншота по размеру объекта с помощью плагина NeoBookScreenCapture.
Что в архиве:
- исходник проекта.
- иконки png.
- плагин NeoBookScreenCapture

Добавлено (27 Сентября 2017, 21:10)
---------------------------------------------
Скрины сохраняются в папку Мои документы/WrapperScreenshot
Версия NeoBook 5.8.4.

Прикрепления: Screenshoter.zip (794.8 Kb)
 
Сообщение


Демонстрация возможностей:
- пример динамического изменения положения и изменения размера объекта с помощью мыши.
- пример создания скриншота по размеру объекта с помощью плагина NeoBookScreenCapture.
Что в архиве:
- исходник проекта.
- иконки png.
- плагин NeoBookScreenCapture

Добавлено (27 Сентября 2017, 21:10)
---------------------------------------------
Скрины сохраняются в папку Мои документы/WrapperScreenshot
Версия NeoBook 5.8.4.


Автор - GuliveR
Дата добавления - 27 Сентября 2017 в 21:10
PeterДата: Ср, 27 Сентября 2017, 22:10 | Сообщение # 2
Админ NeoBook
GuliveR, а почему в проекте текст на странице на английском?

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
СообщениеGuliveR, а почему в проекте текст на странице на английском?

Автор - Peter
Дата добавления - 27 Сентября 2017 в 22:10
ВадимДата: Чт, 28 Сентября 2017, 06:04 | Сообщение # 3
Генератор идей
GuliveR, интересный пример!! thumbs_up

У меня почему-то рамка перетаскивается то в режиме удержания левой кнопки мыши (как по идее и должно быть), то в режиме "прилипания" к курсору - когда левая кнопка мыши отпущена рамка всё равно следует за мышью.

Добавлено (28 Сентября 2017, 06:04)
---------------------------------------------

Цитата Peter ()
текст на странице на английском?
Да, тогда уж есть смысл сделать инструкцию на двух языках, раз это учебный проект. Или предлагать к загрузке две разных версии проекта. Будет польза и русскоязычным и англоязычным необукерам.


Бесплатный онлайн курс программирования в VisualNEO Win (NeoBook)
 
СообщениеGuliveR, интересный пример!! thumbs_up

У меня почему-то рамка перетаскивается то в режиме удержания левой кнопки мыши (как по идее и должно быть), то в режиме "прилипания" к курсору - когда левая кнопка мыши отпущена рамка всё равно следует за мышью.

Добавлено (28 Сентября 2017, 06:04)
---------------------------------------------

Цитата Peter ()
текст на странице на английском?
Да, тогда уж есть смысл сделать инструкцию на двух языках, раз это учебный проект. Или предлагать к загрузке две разных версии проекта. Будет польза и русскоязычным и англоязычным необукерам.

Автор - Вадим
Дата добавления - 28 Сентября 2017 в 06:04
GuliveRДата: Чт, 28 Сентября 2017, 06:48 | Сообщение # 4
Новичок
Цитата Peter ()
почему в проекте текст на странице на английском?

Я взял кусок текста, который был под рукой на тот момент, а попался текст описания плагина)
Он нужен был, чтобы было что скринить.

Цитата Вадим ()
рамка перетаскивается то в режиме удержания левой кнопки мыши (как по идее и должно быть), то в режиме "прилипания" к курсору - когда левая кнопка мыши отпущена рамка всё равно следует за мышью.

Я так и не смог отследить удержание ЛКМ, поэтому сделал по клику, кликнул - прилепил к курсору, - ещё кликнул - отлепил. Так же и с изменением размера.
Если подскажите как отследить удержание ЛКМ, то буду благодарен)
 
Сообщение
Цитата Peter ()
почему в проекте текст на странице на английском?

Я взял кусок текста, который был под рукой на тот момент, а попался текст описания плагина)
Он нужен был, чтобы было что скринить.

Цитата Вадим ()
рамка перетаскивается то в режиме удержания левой кнопки мыши (как по идее и должно быть), то в режиме "прилипания" к курсору - когда левая кнопка мыши отпущена рамка всё равно следует за мышью.

Я так и не смог отследить удержание ЛКМ, поэтому сделал по клику, кликнул - прилепил к курсору, - ещё кликнул - отлепил. Так же и с изменением размера.
Если подскажите как отследить удержание ЛКМ, то буду благодарен)

Автор - GuliveR
Дата добавления - 28 Сентября 2017 в 06:48
mishemДата: Чт, 28 Сентября 2017, 11:23 | Сообщение # 5
Эксперт форума
Цитата GuliveR ()
Если подскажите как отследить удержание ЛКМ

zmFunctions
Раздел "Мышь и клавиатура".


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
Сообщение
Цитата GuliveR ()
Если подскажите как отследить удержание ЛКМ

zmFunctions
Раздел "Мышь и клавиатура".

Автор - mishem
Дата добавления - 28 Сентября 2017 в 11:23
GuliveRДата: Чт, 28 Сентября 2017, 19:30 | Сообщение # 6
Новичок
Цитата mishem ()
zmFunctions

Спасибо большое! :)

Сделал перемещение и изменение размера по удержанию левой клавиши мыши.

Добавлено (28 Сентября 2017, 19:30)
---------------------------------------------
Сделал ограничения, чтобы объект не выходил за пределы окна проекта.
Если кому нужно, замените этот код в "Timer1":

Код
If "[zmMouseCode]" "=" "zmLBD"
   If "[MonitorMouse1]" "=" "True"
      GetMousePos "[x]" "[y]"
      GetObjectInfo "Container1" "Width" "[Width]"
      GetObjectInfo "Container1" "Height" "[Height]"
      .Ограничение выхода объекта за пределы окна проекта по горизонтали.
      SetVar "[PosLeft]" "[x]-10"
      SetVar "[PubWidth-Width]" "[PubWidth]-[Width]"
      If "[PosLeft]" ">" "[PubWidth-Width]"
         SetVar "[PosLeft]" "[PubWidth-Width]"
      EndIf
      If "[PosLeft]" "<" "0"
         SetVar "[PosLeft]" "0"
      EndIf
      .Ограничение выхода объекта за пределы окна проекта по вертикали.
      SetVar "[PosTop]" "[y]-10"
      SetVar "[PubHeight-Height]" "[PubHeight]-[Height]"
      If "[PosTop]" ">" "[PubHeight-Height]"
           SetVar "[PosTop]" "[PubHeight-Height]"
      EndIf
      If "[PosTop]" "<" "0"
         SetVar "[PosTop]" "0"
      EndIf
      ..............................................
      MoveObject "Container1" "[PosLeft]" "[PosTop]"
   EndIf
   If "[MonitorMouse2]" "=" "True"
      GetMousePos "[x]" "[y]"
      GetObjectInfo "Container1" "Left" "[Left]"
      GetObjectInfo "Container1" "Top" "[Top]"
      GetObjectInfo "Container1" "Width" "[Width]"
      GetObjectInfo "Container1" "Height" "[Height]"
      .Ограничение уменьшения размера объекта по горизонтали не менее 85px.
      SetVar "[Shirina]" "[x]-[Left]+10"
      If "[Shirina]" "<" "85"
         SetVar "[Shirina]" "85"
      EndIf
      .Ограничение выхода объекта за пределы окна проекта при увеличении размера объекта по горизонтали.
      If "[Shirina]+[Left]" ">" "[PubWidth]"
         SetVar "[Shirina]" "[PubWidth]-[Left]"
      EndIf
      .Ограничение уменьшения размера объекта по вертикали не менее 44px.
      SetVar "[Visota]" "[y]-[Top]+10"
      If "[Visota]" "<" "44"
         SetVar "[Visota]" "44"
      EndIf
      .Ограничение выхода объекта за пределы окна проекта при увеличении размера объекта по вертикали.
      If "[Visota]+[Top]" ">" "[PubHeight]"
         SetVar "[Visota]" "[PubHeight]-[Top]"
      EndIf
      ..............................................
      SizeObject "Container1" "[Shirina]" "[Visota]"
   EndIf
EndIf
Прикрепления: Screenshoter2.zip (13.5 Kb)
 
Сообщение
Цитата mishem ()
zmFunctions

Спасибо большое! :)

Сделал перемещение и изменение размера по удержанию левой клавиши мыши.

Добавлено (28 Сентября 2017, 19:30)
---------------------------------------------
Сделал ограничения, чтобы объект не выходил за пределы окна проекта.
Если кому нужно, замените этот код в "Timer1":

Код
If "[zmMouseCode]" "=" "zmLBD"
   If "[MonitorMouse1]" "=" "True"
      GetMousePos "[x]" "[y]"
      GetObjectInfo "Container1" "Width" "[Width]"
      GetObjectInfo "Container1" "Height" "[Height]"
      .Ограничение выхода объекта за пределы окна проекта по горизонтали.
      SetVar "[PosLeft]" "[x]-10"
      SetVar "[PubWidth-Width]" "[PubWidth]-[Width]"
      If "[PosLeft]" ">" "[PubWidth-Width]"
         SetVar "[PosLeft]" "[PubWidth-Width]"
      EndIf
      If "[PosLeft]" "<" "0"
         SetVar "[PosLeft]" "0"
      EndIf
      .Ограничение выхода объекта за пределы окна проекта по вертикали.
      SetVar "[PosTop]" "[y]-10"
      SetVar "[PubHeight-Height]" "[PubHeight]-[Height]"
      If "[PosTop]" ">" "[PubHeight-Height]"
           SetVar "[PosTop]" "[PubHeight-Height]"
      EndIf
      If "[PosTop]" "<" "0"
         SetVar "[PosTop]" "0"
      EndIf
      ..............................................
      MoveObject "Container1" "[PosLeft]" "[PosTop]"
   EndIf
   If "[MonitorMouse2]" "=" "True"
      GetMousePos "[x]" "[y]"
      GetObjectInfo "Container1" "Left" "[Left]"
      GetObjectInfo "Container1" "Top" "[Top]"
      GetObjectInfo "Container1" "Width" "[Width]"
      GetObjectInfo "Container1" "Height" "[Height]"
      .Ограничение уменьшения размера объекта по горизонтали не менее 85px.
      SetVar "[Shirina]" "[x]-[Left]+10"
      If "[Shirina]" "<" "85"
         SetVar "[Shirina]" "85"
      EndIf
      .Ограничение выхода объекта за пределы окна проекта при увеличении размера объекта по горизонтали.
      If "[Shirina]+[Left]" ">" "[PubWidth]"
         SetVar "[Shirina]" "[PubWidth]-[Left]"
      EndIf
      .Ограничение уменьшения размера объекта по вертикали не менее 44px.
      SetVar "[Visota]" "[y]-[Top]+10"
      If "[Visota]" "<" "44"
         SetVar "[Visota]" "44"
      EndIf
      .Ограничение выхода объекта за пределы окна проекта при увеличении размера объекта по вертикали.
      If "[Visota]+[Top]" ">" "[PubHeight]"
         SetVar "[Visota]" "[PubHeight]-[Top]"
      EndIf
      ..............................................
      SizeObject "Container1" "[Shirina]" "[Visota]"
   EndIf
EndIf

Автор - GuliveR
Дата добавления - 28 Сентября 2017 в 19:30
mishemДата: Чт, 28 Сентября 2017, 22:54 | Сообщение # 7
Эксперт форума
Где то тема была, не могу найти, когда мы пытались сделать такую рамку с маркерами что бы они при перемещении не тормозили.

GuliveR, если есть желание, можешь усложнить процесс.
Нужно что бы на концах и посередине были маркеры (квадратики, кружочки и т.п.) за которые изменяется размер выделения.

Нет желания судьбу испытать?
:)


Не хочешь читать хелп?

Если хелп и форум не помогли, тогда все ответы здесь



Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.
 
СообщениеГде то тема была, не могу найти, когда мы пытались сделать такую рамку с маркерами что бы они при перемещении не тормозили.

GuliveR, если есть желание, можешь усложнить процесс.
Нужно что бы на концах и посередине были маркеры (квадратики, кружочки и т.п.) за которые изменяется размер выделения.

Нет желания судьбу испытать?
:)

Автор - mishem
Дата добавления - 28 Сентября 2017 в 22:54
PeterДата: Пт, 29 Сентября 2017, 00:20 | Сообщение # 8
Админ NeoBook
Цитата GuliveR ()
Я взял кусок текста, который был под рукой на тот момент, а попался текст описания плагина)

scratch

Цитата GuliveR ()
замените этот код в "Timer1":

Все же, молотящий непрерывно таймер - не самое лучшее решение.
Можно сделать экономичнее.
См.прикрепление (тоже потребуется упомянутый плагин).
Там только сам принцип перетаскивания объектов на примере прямоугольников (как самый "неудобный" случай), код не совершенен, но, кому надо, доработает в нужном направлении.
;)
Прикрепления: DragObjects.zip (2.4 Kb)


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Цитата GuliveR ()
Я взял кусок текста, который был под рукой на тот момент, а попался текст описания плагина)

scratch

Цитата GuliveR ()
замените этот код в "Timer1":

Все же, молотящий непрерывно таймер - не самое лучшее решение.
Можно сделать экономичнее.
См.прикрепление (тоже потребуется упомянутый плагин).
Там только сам принцип перетаскивания объектов на примере прямоугольников (как самый "неудобный" случай), код не совершенен, но, кому надо, доработает в нужном направлении.
;)

Автор - Peter
Дата добавления - 29 Сентября 2017 в 00:20
  • Страница 1 из 1
  • 1
Поиск: