Помощь для lorents'а - Страница 5

Дата: Пятница, 13 Июня 2008, 00:05 | Сообщение # 121

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Yuriy, получится если все сделать правильно, я такое делал AutoPlay Media Studio (без обид), именно использовал те настройки которые писал выше biggrin

( но кодов я писать еще не умею здесь)

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Сообщение отредактировал lorents - Пятница, 13 Июня 2008, 00:05

toizy

Дата: Пятница, 13 Июня 2008, 11:03 | Сообщение # 122

Студийная субстанция

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

Сообщений: 2309

Репутация: 29

Награды: 12

Статус: Offline

Quote (lorents)

у тебя нет звука наведения на кнопку и нажатие на нее?

Какого именно?

Quote (basme)

На письмо не отвечает... Полный offline.

Да, надо позвонить. Мож случилось что...

Жизнь оказалась не такой уж и забавной, как поначалу...

Дата: Пятница, 13 Июня 2008, 13:49 | Сообщение # 123

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

toizy, типа вот таких только в формате wav, при конвертировании идет сильное качества

Добавлено (13 Июнь 2008, 13:49)
---------------------------------------------
и еще не знаешь как сделать пакетную печать картинок?

Прикрепления: 6322293.rar (4.8 Kb)

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Пятница, 13 Июня 2008, 14:37 | Сообщение # 124

MMB Club

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

Сообщений: 358

Репутация: 5

Награды: 2

Статус: Offline

Quote (Yuriy)

basme, а если через системыне команды Windows попробовать печатать?

В системных командах я полный ламер, так что советы здесь давать не могу.

Quote (lorents)

basme, т.е придется каждую картинку печать вручную, или я что то не так понял?

Да нет, в том то и дело. Всё будет делаться автоматически - нажал ты на кнопочку, и принтер пошёл фигачить страницу за страницей.
Лично я сделал бы это через цикл, но ничеко конкретного сейчас сказать не могу, так как не знаю, откуда будут браться фотографии, как они называются, ну и т. д. Уточни, что конкретно ты пишешь или хочешь написать, разберёмся.

Дата: Пятница, 13 Июня 2008, 14:55 | Сообщение # 125

Друг клуба ММВ

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

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

Я же тебе уже пмсал, в проводнике по поиску *.wav найдешь все системные звуки, в зависимости от
операционки, они могут находиться в разных местах, к примеру в 2000 С:\winnt\media.

Дата: Пятница, 13 Июня 2008, 15:03 | Сообщение # 126

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Alex3A,
искал, но то что нужно не нашел, ну лан с этим это не большая проблема

basme,
если не трудно можешь просто пример сделать, а я уже сам разберусь, пожалуйста biggrin

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Пятница, 13 Июня 2008, 17:38 | Сообщение # 127

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Alex3A, я нашел, как ты и сказал, не знаю почему раньше не видел
вот они

C:\WINDOWS\Media\start.wav
C:\WINDOWS\Media\Windows Navigation Start.wav

и мне надо просто вот этот путь указать здесь?

Добавлено (13 Июнь 2008, 16:06)
---------------------------------------------
и еще почему мой проект запускает файл C:\WINDOWS\Media\start.wav с большим искажение ? sad

Добавлено (13 Июнь 2008, 17:28)
---------------------------------------------
Alex3A,
все уже не надо, разобрался
Спасибо!

Добавлено (13 Июнь 2008, 17:38)
---------------------------------------------
хотел спросить на счет переход страниц
у меня переход страниц осуществляется после того как я нажму и отпущу левую кнопку мыши, как сделать чтоб при нажатии осуществлялся переход страниц?

Прикрепления: 7708681.png (11.2 Kb)

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Сообщение отредактировал lorents - Пятница, 13 Июня 2008, 15:52

Дата: Пятница, 13 Июня 2008, 18:50 | Сообщение # 128

Друг клуба ММВ

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

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

Quote (lorents)

как сделать чтоб при нажатии осуществлялся переход страниц?

Так и сделай!
Разжевать?
В винде существует множество событий, немного из которых имеються в ммб,
каждый объект имеет возможность реагировать на некоторые из них.
В приведенном окне отрабатываються минимум два, наезд мышки на объект и клик.
Теперь тебе задача, найди где объект реагирует на нажатие и отпускание кнопки мышки.
Подсказка - там написано mouse down и mouse up, все находиться в свойствах объекта.
Конечно, объекты бывают разные, в том числе и поддерживать могут разные события.

Дата: Пятница, 13 Июня 2008, 19:05 | Сообщение # 129

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

благодарю, все понял и сделал

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Пятница, 13 Июня 2008, 19:37 | Сообщение # 130

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

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

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Quote (lorents)

Yuriy, получится если все сделать правильно, я такое делал AutoPlay Media Studio (без обид), именно использовал те настройки которые писал выше( но кодов я писать еще не умею здесь)

Напиши его код и объясни каждую строчку, так как язык сценария AutoPlay Media Studio мы не знаем. А на его основе с твоей помощью что-нибудь придумаем.

Дата: Пятница, 13 Июня 2008, 19:54 | Сообщение # 131

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Code

File.Run(_SystemFolder .. "\\rundll32.exe", _SystemFolder .. "\\mshtml.dll,PrintHTML \"" .. _SourceFolder .. "\\AutoPlay\\HTML\\my_page.html" .. "\"", "", "", false);

File.Run - запуск файла
_SystemFolder .. "\\rundll32.exe" - указываем место положение файла rundll32.exe (C:\WINDOWS\system32\rundll32.exe)
_SystemFolder .. "\\mshtml.dll,PrintHTML \" - указываем место положение dll-файла, который отвечает за печать html-файлов, и даем команду этому dll-файлу (PrintHTML)
_SourceFolder .. "\\AutoPlay\\HTML\\my_page.html" - указываем место положение файла, которого надо распечать
"\"", "", "", false - это параметры, относяшиеся к File.Run и они пустые

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Сообщение отредактировал lorents - Пятница, 13 Июня 2008, 19:56

Дата: Пятница, 13 Июня 2008, 20:46 | Сообщение # 132

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

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

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

lorents,

Code

Run("rundll32","WAIT,HIDE mshtml.dll,PrintHTML \"ПУТЬ_К_ФАЙЛУ\"")

Дата: Пятница, 13 Июня 2008, 23:39 | Сообщение # 133

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Yuriy,

ща проверим, спасибо

Добавлено (13 Июнь 2008, 23:39)
---------------------------------------------
хочу вернуться к фоновому изображению, не подскажите как сделать так чтоб фоновое изображение менялось при таких же условиях как и стандартная рамка окна, имею ввиду

на вот это

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Пятница, 13 Июня 2008, 23:53 | Сообщение # 134

Друг клуба ММВ

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

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

Первое окно активно, второе нет.
Ну и в чем проблема, ты уже знаешь как ее решать.
Если у тебя окно без заголовка, но ты его хочешь емулировать, меняй соответственно картинки.

Дата: Суббота, 14 Июня 2008, 00:06 | Сообщение # 135

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Alex3A,

на сколько я понимаю алгоритм кода такой

если окно активно то
одна картинка
если окно не активно то
другая картинка

правильно?

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Суббота, 14 Июня 2008, 00:22 | Сообщение # 136

Друг клуба ММВ

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

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

Правильно.
Если так тебе нужен заголовок, так оставь его (в свойствах проекта).
(Заголовок - полоса на окне с верху, где кнопочки закрытия, минимизации...)

Дата: Суббота, 14 Июня 2008, 00:29 | Сообщение # 137

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Alex3A,
мне заголовок не нужен

ни как не могу сообразить как написать код строки
если окно активно то

не подскажешь?

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Суббота, 14 Июня 2008, 01:28 | Сообщение # 138

Друг клуба ММВ

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

Сообщений: 2646

Репутация: 39

Награды: 11

Статус: Offline

Для сего события, ммб не дает возможности обработки.

Дата: Суббота, 14 Июня 2008, 01:32 | Сообщение # 139

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

секундочку, что я не пойму, я хочу сделать чтоб если окно моего проекта активно то один фон если нет то другой,

и как мне это сделать?

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Суббота, 14 Июня 2008, 01:52 | Сообщение # 140

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

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

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

lorents, никак.

Дата: Суббота, 14 Июня 2008, 12:06 | Сообщение # 141

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

жаль

Добавлено (14 Июнь 2008, 12:06)
---------------------------------------------
и эту ситуацию ни как нельзя исправить?

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Суббота, 14 Июня 2008, 14:18 | Сообщение # 142

MMB Club

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

Сообщений: 358

Репутация: 5

Награды: 2

Статус: Offline

Quote (lorents)

basme,если не трудно можешь просто пример сделать, а я уже сам разберусь, пожалуйста

Понимаешь, я не смогу сделать конкретный пример, пока не узнаю, откуда берутся изображения. Ну, вот, например, как сделать печать изображений из выбранной папки:
Сейчас у меня ММВ под рукой нет, так что просто напишу код:

Code

k=0
BrowseForFolder("Выбери папку","")
folder$=CBK_OpenDir
If (folder$<>'') Then
   SearchForFiles("folder$","*.jpg")
   ListBoxAddItem("ListBox","<List>")
ListBoxGetItems("ListBox","items$,nums$,#,numit")
   For i=1 To CBK_NumInList
     k=k+1

     img$=GetArrayItem(items$,#,k)
     ReplaceImage("Bitmap","img$")
     If (ObjectWidth(Bitmap)>ObjectWidth(Rectangle)| ObjectHeight(Bitmap)>ObjectHeight(Rectangle)) Then
       ResizeImage("Bitmap","ObjectWidth(Rectangle),ObjectHeight(Rectangle)")
     End
     PrintRect("Rectangle","")
   Next i
End

В проекте должны быть:
- объект Rectangle - область печати
- объект Bitmap, изображение, такого же размера, как и Rectangle, чтобы совпадало с ним
- объект ListBox - список, его можно засунуть куда-нибудь за границу окна проекта
- кнопка, в которой лежит этот код.

Теперь объясняю код:
Сначала мы предлагаем пользователю выбрать папку командой BrowseForFolder, и присваиваем переменной folder$ значение пути к выбранной папке.
Теперь в выбранной папке ищем все подходящие файлы (поддерживаются jpg и bmp, к сожалению, gif не поддерживается.
Затем мы из внутреннего списка ММВ <List>, куда помещаются все найденные файлы, заносим их в объект списка.
Следующий шаг - получаем все элементы из списка в строку items$.
А затем через цикл получаем каждый элемент, если изображение больше прямоугольника, уменьшаем его, и печатаем.

Что непонятно - спрашивай. Проверить у меня не было возможности, так что проверь сам, и если не работает - отпостись здесь, исправим.

Дата: Суббота, 14 Июня 2008, 15:11 | Сообщение # 143

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

спасибо!

Добавлено (14 Июнь 2008, 15:11)
---------------------------------------------
в коде есть ошибка: не закрыт цикл и не закрыто условие (end)

help

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Суббота, 14 Июня 2008, 18:37 | Сообщение # 144

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

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

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

Quote (lorents)

в коде есть ошибка: не закрыт цикл и не закрыто условие (end)

Ты уверен? Или basme исправил код?

Дата: Суббота, 14 Июня 2008, 18:50 | Сообщение # 145

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

все в порядке

Добавлено (14 Июнь 2008, 18:50)
---------------------------------------------
благодарю

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Сообщение отредактировал lorents - Суббота, 14 Июня 2008, 19:46

Дата: Суббота, 14 Июня 2008, 21:19 | Сообщение # 146

MMB Club

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

Сообщений: 358

Репутация: 5

Награды: 2

Статус: Offline

Так всё-таки код подошёл в точности, или lorents, у тебя другая ситуация?

Добавлено (14 Июнь 2008, 21:19)
---------------------------------------------

Quote (Yuriy)

lorents, никак.

Quote (Yuriy)

и эту ситуацию ни как нельзя исправить?

Ну, у меня получился скрипт, следящий за тем, активно окно, или нет. Собственно, если мышью щёлкнули вне окна, прога знает, что оно не активно, а если в окне - активно.
Привожу скрипт:

Code

mx=MouseX()
my=MouseY()
ww=PubWidth()
wh=PubHeight()
lmb=MouseLButton()
If (lmb=1) Then
   If (mx<0 | my<0) Then
     isactive=0
   Else
     If (mx>ww | my>wh) Then
       isactive=0
     Else
       isactive=1
     End
   End
End
ScriptTimer("Script","1")

Этот скрипт нужно запускать из скрипта старта страницы. Он будет загружать в переменную isactiv значение 1 либо 0, в зависимости от того, активно окно, или нет.

Дата: Суббота, 14 Июня 2008, 21:44 | Сообщение # 147

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

basme,
если не трудно можно пример?

Добавлено (14 Июнь 2008, 21:44)
---------------------------------------------
даный код я должен ввести в Script, я правильно понял?

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Суббота, 14 Июня 2008, 23:09 | Сообщение # 148

MMB Club

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

Сообщений: 358

Репутация: 5

Награды: 2

Статус: Offline

Quote (lorents)

даный код я должен ввести в Script, я правильно понял?

Совершенно верно.

Quote (lorents)

если не трудно можно пример?

Всегда пожалуйста!

Прикрепления: forlorents.zip (0.6 Kb)

Дата: Суббота, 14 Июня 2008, 23:13 | Сообщение # 149

Ветеран форума

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

basme, Работает! СПАСИБО!!! biggrin

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Суббота, 14 Июня 2008, 23:49 | Сообщение # 150

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

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

Сообщений: 3018

Репутация: 71

Награды: 28

Статус: Offline

basme, хорошее решение, но только на клики по окну и вне его. Если щёлкнуть по его имени в панели задач или по заголовку - ничего не изменится. Но это уже не к тебе относится, а к MMB.