Заставка из SmallPlugin

Страница 1 из 1 1
Модератор форума: as-master

Заставка из SmallPlugin (Помогите разобраться)

Заставка из SmallPlugin

MiFodiy

Дата: Воскресенье, 30 Октября 2011, 20:45 | Сообщение # 1

Новый участник

Группа: Проверенные

Сообщений: 27

Репутация: 0

Награды: 0

Статус: Offline

Здравствуйте! Помогите, пожалуйста, разобраться со SmallPlugin. Взял пример создания заставки, хотел переделать под себя - не вышло. Не хочет открывать другую страницу (и другой проект). Что я не так делаю? Направьте на путь истинный...

Прикрепления: splash_screen.zip (172.0 Kb)

YURIY

Дата: Понедельник, 31 Октября 2011, 13:05 | Сообщение # 2

Злостный админ

Группа: Администраторы

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Ответ от автора плагина:

Quote (dgilmour)

Code

PluginSet("PlugIn","1")
PluginRun("PlugIn","HideTaskbarButton")
Path$ = '<Embedded>\Shape.bmp'
PluginSet("PlugIn","Path$")
PluginSet("PlugIn","0")
PluginRun("PlugIn","AlphaBlendWindow")
SysCommand("CenterWindow","")
For i = 1 To 255
   PluginSet("PlugIn","-i")
   PluginRun("PlugIn","AlphaBlendWindow")
Next i
Param$ = '<Embedded>\Title.bmp, 181, 40, 255, ERASEBACKGROUND'
PluginSet("PlugIn","Param$")
For i = 1 To 255
   PluginSet("PlugIn","i")
   PluginRun("PlugIn","AlphaBlendImage")
Next i
Param$ = '<Embedded>\String.bmp, 186, 97, 255, ERASEBACKGROUND'
PluginSet("PlugIn","Param$")
For i = 1 To 255
   PluginSet("PlugIn","i")
   PluginRun("PlugIn","AlphaBlendImage")
Next i
Pause("3000")
Param$ = '<Embedded>\String.bmp, 186, 97, 255, ERASEBACKGROUND'
PluginSet("PlugIn","Param$")
For i = 255 To 0
   PluginSet("PlugIn","i")
   PluginRun("PlugIn","AlphaBlendImage")
Next i
Param$ = '<Embedded>\Title.bmp, 181, 40, 255, ERASEBACKGROUND'
PluginSet("PlugIn","Param$")
For i = 255 To 0
   PluginSet("PlugIn","i")
   PluginRun("PlugIn","AlphaBlendImage")
Next i
For i = 255 To 0
   PluginSet("PlugIn","-i")
   PluginRun("PlugIn","AlphaBlendWindow")
Next i
SysCommand("ResizeWindow","315,200")
Param$ = ''
PluginSet("PlugIn","Param$")
PluginRun("PlugIn","AlphaBlendWindow")
PageTimer("100","Page 2")

если нужно стандартное окно, то пусть перед SysCommand("CenterWindow","") поставит Refresh("")