Сайт поклонников программы Multimedia Builder

Объект "ПАРАГРАФ" это интересно!

Alex3A — Sun, 28 Oct 2012 11:16:17 GMT

Форум: ГОТОВЫЕ ОТВЕТЫ ПО MMB
Описание темы: Всем посмотреть.
Автор темы: Alex3A
Автор последнего сообщения: YURIY
Количество ответов: 7

Установка шрифтов в Runtime

toizy — Tue, 07 Feb 2012 08:15:23 GMT

Известно, что существует проблема с использованием оригинальных шрифтов в
проекте. Так, если вы применили для какого-нибудь заголовка экзотический шрифт,
существующий у вас в системе, то когда вы принесете файл своему другу, у
которого данного шрифта нет, у него вместо заголовка будут каракули. Эта
проблема решается несколькими способами. Первый способ (имхо, не самый лучший)
- это использовать команду InstallFont(), которую прописать в скрипте старта
первой страницы проекта. Сам файл используемого шрифта надо внедрить в проект (
Меню "Проект" - "Внедренные файлы...") и обращаться к нему через условный путь
\. То есть в скрипте старта первой страницы должна быть запись,
похожая на эту: InstallFont("\DERBY.TTF")

После этого присваиваете нужным текстовым объектам выбранный шрифт и проблема,
вроде бы, решена. Потому-что теперь после старта проекта на любом компьютере
будет выполняться команда установки вашего шрифта во временный каталог, откуда
он и будет подключаться к проекту, а после закрытия проекта, соответственно,
удаляться (не проверялось :))). Но тут существует, на мой взгляд, по крайней
мере две проблемы. Первая, это то, что файлы некоторых шрифтов весят по 200 Кб
и больше, что затрудняет их использование, если вы собираетесь сделать
компактный проект. И вторая проблема заключается в трудности проверки на вашем
собственном компьютере, происходит ли подключение шрифта? А вдруг вы что-
нибудь сделали неправильно? Ведь в вашей системе шрифт установлен постоянно, и
поэтому всегда будет отображаться правильно, независимо от того, происходит ли
его инсталляция или нет. Не будете же вы ради проверки постоянно удалять его
из системной папки? (Впрочем, у меня эта проблема решена, так как я использую
менеджер шрифтов Extensis Suitcase и все остальные шрифты, кроме системных,
подключаются только после запуска этой программы, и отключаются после ее
закрытия. Поэтому, установив нужный шрифт, я закрываюменеджер шрифтов, и
назначенный шрифт в проекте сразу пропадает. Тут-то уж не ошибешься, работает
ли команда InstallFont()).

Однако есть и другие способы расправиться со "строптивыми" шрифтами. Вот еще
один. Выделив нужный текстовый объект, в меню "Объект" выберите "Преобразовать
в рисунок", и ваш заголовок превратится из текстового объекта в битмап, у
которого автоматически создадутся прозрачные области, чтобы просвечивал фон.
Битмап, как известно, есть картинка (растровый объект), а значит будет
отображаться одинаково при любых обстоятельствах. При этом, что важно,
исходный текстовый объект не удаляется из проекта, а делается скрытым (к его
имени добавятся буквы _BAK). Это очень важно, так как позволяет в дальнейшем
редактировать текстовый объект. Кстати, не забудьте перед преобразованием в
рисунок сгладить шрифт (установить флажок "Сгладить" в свойствах текстового
объекта).
Этот способ хорош тем, что не требует внедрять в проект файл шрифта. Но
появление в проекте дополнительного битмапа также увеличивает его размер.

Еще один способ предложил bron(автор русификаций ММВ версий 4.9.01 и 4.9.5).
Заключается он в следующем. Пишем то, что нужно, и шрифтом, каким нужно. Затем
выбираем пункт меню "Эффекты > ММВ-эффекты > Подсветка". В открывшемся окне в
поле "Перо" ставим ширину пера 0 и направление "Внешний", в поле "Цвет" такой
же цвет, как у шрифта, остальные поля оставляем, как есть. После применения
эффекта появится группа объектов, один из которых будет иметь имя типа Text_GL.
Это и есть то, что нам нужно (объект также получается растровый). Второй
объект в группе нужно сделать скрытым. Этот способ хорош тем, что буквы
автоматически будут сглаженными, за счет применения к ним эффекта.

Размещение графики в проектах

as-master — Tue, 26 Jul 2011 05:34:54 GMT

Если у вас в проекте предусмотрено много графики (не той, что используется для оформления интерфейса, а каких-либо картинок), то её однозначно лучше разместить во внешних файлах. На это есть две причины: 1. Проект будет быстрее запускаться. 2. Проект будет значительно меньше весить.

Однако, если картинок немного, можно обойтись и без внешних файлов. Тут есть два пути: 1. Положить картинки прямо на страницу проекта (а затем использовать их с помощью команд "Показать-Скрыть" или команд перемещения), и 2. Положить картинки во внедренные файлы.

Если вам важен небольшой размер проекта, то в этом случае лучше идти по второму пути (подчеркиваю - если картинок немного). При этом проект не будет заметнее тормозить, а вот его размер станет ощутимо меньшим.

Проведите проверку. Возьмите любую jpg-картинку весом в 30-50 килобайт. Сделайте два проекта. В один проект картинку положите на страницу и сохраните. Во второй проект картинку добавьте во внедренные файлы и сохраните. Сравните размеры проектов. В моем случае данные были таковы: картинка - вес 28 Кб. Первый проект - 300 Кб, второй - 28 Кб. Результат налицо.

Дальше. Если у вас графика используется для оформления интерфейса (фоны, кнопки и прочие элементы), то, как показывает практика, лучше использовать несжатые картинки форматов BMP и TIF, чем сжатые картинки формата JPG.

Почему так? Потому-что ММВ сама умеет сжимать графику и хорошо сожмет несжатые картинки (алгоритм сжатия примерно такой: находятся пикселы одинакового цвета, и описывается цвет сразу для группы пикселов, а не для каждого). А картинки формата JPG - уже сжатые картинки, причём в JPG используется отличный от описанного выше алгоритм сжатия. В результате на сжатых картинках JPG появляется много пикселов с дополнительными цветами, которых вовсе не было в исходной, несжатой картинке. Поэтому такие картинки будут сжиматься программой ММВ хуже.

Проведите проверку. Возьмите BMP-файл размером примерно 300-500 Кб (ВАЖНО!!! Исходный bmp-файл не должен быть сделан из JPG-файла!) Сконвертируйте его в JPG-формат с сильным сжатием (примерно 2..3, если в фотошопе, или около 25 процентов, если в другой программе, например ACDSee). Сделайте два проекта - в один на страницу поместите BMP-картинку, в другой - JPG. Сохраните оба проекта и сравните размер. В моем случае данные были таковы: BMP-картинка - 350 Кб, она же, сжатая в JPG - всего 6 Кб. Однако же проект с BMP-картинкой весил 40 Кб, тогда как с JPG - уже 110. Причем качество картинки первого проекта значительно лучше, чем второго

Делайте выводы.

Добавление программы в автозагрузку

toizy — Sun, 15 May 2011 10:29:30 GMT

Иногда бывает нужно прописаться в автозагрузку системы. Чтобы не использовать плагин, вы можете использовать данный код:

Code

s$=' add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v MyProg /t REG_SZ /d ' + PathToMyProg$ + ' /f'
Run("reg", "s$")

...где MyProg - имя секции в реестре (желательно придумать своё, уникальное), а PathToMyProg$ - путь к вашей программе, который нужно сформировать заранее (но это уже другая история)

Этот код добавит вашу программу в автозагрузку, и она будет загружаться во время каждого старта Windows. Если необходимо запуститься всего однажды (после следующей перезагрузки), используйте тот же код, только вместо имени секции Run нужно написать RunOnce

Использование скрипта CBK_EXIT

YURIY — Sun, 01 May 2011 14:12:33 GMT

Если создать скрипт с именем CBK_EXIT, то он автоматически будет выполнен при выходе из вашей программы. Обычно это используется для записи (сохранения) каких-либо значений в реестр или файл при выходе. Также этот скрипт можно использовать для показа окна с надписью "Вы действительно хотите выйти?" и двумя нопками: ДА и НЕТ. Для этого создайте скрипт с указанным именем и напишите там следующий код:

Code

MessageEx("Выход из программы",""Вы действительно хотите выйти?",36")
ID=CBK_MsgEx
If (ID=6) Then
   Exit()
End
If (ID=7) Then
   Return()
End

Два важных замечания:

1. Объект скрипта CBK_EXIT непременно должен находиться на странице Master Top Layer. При расположении его на странице проекта или на Master Page скрипт работать НЕ БУДЕТ!!!

2. Скрипт срабатывает на обычные методы выхода из программы: при нажатии на стандартную кнопку "Выход", или по клавише Esc, или по сочетанию клавиш Alt+F4. Если вы создали свою кнопку "Выход", то в ней необходимо прописать запуск скрипта CBK_EXIT.

Округление положительных чисел

toizy — Thu, 24 Mar 2011 08:29:07 GMT

На сей раз рецепт от Rush, главного специалиста по математики и алгоритмам ММВ.

Вот такая немного вычурная формула вычисляет "по всем правилам округления":

Code

round=INT(n)+(n-INT(n)>0.5)

n - число, которое требует округления.

Note: только для положительных чисел...

Создание папки с помощью команды Run

toizy — Mon, 24 Jan 2011 18:46:31 GMT

Code

Run("cmd","WAIT,HIDE /c md "\Папка"")

"\Папка" - путь к создаваемой папке. Обязательно должен быть в кавычках.

Загрузка флешек из внешних файлов

as-master — Wed, 07 Jul 2010 13:08:21 GMT

Известно, что из внешних файлов можно подгружать в проект
только либо рисунки в формате JPG и BMP, либо текстовые файлы.
При использовании картинок флеш в формате SWF и анимашек
в формате GIF их надо сразу вставлять в проект.

А что делать, если у вас много таких картинок? Если все вставить
в проект сразу, то "весить" такое произведение будет немеряно...

Как выяснилось, флешки МОЖНО подгружать из внешних файлов!
Для этого надо использовать объект Browser и загружать в него
файлы SWF такой командой:

Browser("Browser$","swf$")

где swf$ - полный путь к файлу *.swf

Для примера прицепляю проектик, где флешка грузится из внедренных
файлов. Что по сути то же самое. Для этого в свойствах объектв Browser
прописан путь:

\1.swf

Удаление пустых строк

Rush — Sun, 02 May 2010 12:46:37 GMT

Копался сегодня в архивах своих проектов. Нашел, вроде, оригинальную штуку.

Code

crlf$=CHR(13)+CHR(10)
lfcr$=CHR(10)+CHR(13)
string$=StrFromFile(N:\test.txt,1,-1)
string$=StrChange(string$,lfcr$,'')
pos=LEN(string$)-1
If (crlf$=StrCopy(string$,pos,2)) Then
   string$=StrDel(string$,pos,2)
End
If (crlf$=StrCopy(string$,1,2)) Then
   string$=StrDel(string$,1,2)
End
rv=StrToFile(N:\test.txt,string$,0,0)

Самое главное в этом способе - убирает за раз сколько угодно расположенных подряд пустых строк. Работает гораздо быстрее текстовых редакторов.

PS. Хотел в готовые ответы запихать, а там дверки прикрыты.

Простейший скрипт для создания триальной программы

toizy — Sun, 18 Apr 2010 22:48:26 GMT

Вот простейший скрипт для создания триальной программы, который ограничивает
количество запусков программы определенным числом (в данном случае это 20):

Code

LoadVariable("TrialProject","number")
If (number <> 0) Then
Else
   number=1
   SaveVariable("TrialProject","number")
End
LoadVariable("TrialProject","number")
A = 20-number
If (A=0) Then
   Message("Срок использования программы истёк!","")
   Exit()
End
Осталось запусков = 20-number
number = number+1
SaveVariable("TrialProject","number")
Message("Внимание! Вы используете демонстрационную версию!","Осталось запусков")

Скрипт нужно написать в старте первой страницы. Имя ключа TrialProject
замените на то, что вам нужно.
По истечении 20 запусков программа больше работать не будет. Чтобы сбросить
блокирование, нужно найти в реестре ключ с именем TrialProject и удалить его.
В сущности, обычный юзер никак не сможет догадаться, как это сделать. И даже
немного продвинутый, но не знакомый с ММВ, тоже. Откуда ему знать, какой ключ
надо искать в реестре?

Вот Ещё один скрипт для создания триальной программы

Code

CurrentYear=CBK_Year
CurrentMonth=CBK_MonthNum
CurrentDay=CBK_DateNum
LoadVariable("Year","Year")
LoadVariable("Month","Month")
LoadVar iable("Day","Day")
If (Year=0 & Month=0 & Day=0) Then
   SaveVariable("Year","CurrentYear")
   Year=CurrentYear
   SaveVariable("Month","CurrentMonth")
   Month=CurrentMonth
   SaveVariable("Day","Cu rrentDay")
   Day=CurrentDay
End
Year=CurrentYear-Year
If (Year>=2) Then
   Exit()
End
If (Year=1) Then
   Month=Month-CurrentMonth
   If (Month<>11) Then
     Exit()
   Else
     Day=31-Day+CurrentDay
     If (Day>15) Then
       Exit()
     End
   End
End
If (Year=0) Then
   Month=CurrentMonth-Month
   If (Month>=2) Then
     Exit()
   End
   If (Month=1) Then
     If (CurrentMonth=5 | CurrentMonth=7 | CurrentMonth=10 | CurrentMonth=12) Then
       Day=30-Day+CurrentDay
       If (Day>15) Then
         Exit()
       End
     End
     If (CurrentMonth=2 | CurrentMonth=4 | CurrentMonth=6 | CurrentMonth=8 | CurrentMonth=9 | CurrentMonth=11) Then
       Day=31-Day+CurrentDay
       If (Day>15) Then
         Exit()
       End
     End
     If (CurrentMonth=3) Then
       Day=28-Day+CurrentDay
       If (Day>15) Then
         Exit()
       End
     End
   End
   If (Month=0) Then
     Day=CurrentDay-Day
     If (Day>15) Then
       Exit()
     End
   End
End
If (Year<0 | Month<0 | Day<0) Then
   Exit()
End