» Autoplay Media Studio

qwertEHOK
IntToWords.zip ~1.2 kB - скрипт (с примером), позволяющий вывести число прописью.

qwertEHOK

Цитата:

Допустим получится строка в 100 символов, а в документе на первой строке всего 50, поэтому мы обрезаем так что бы в первой строке было не больше 50 символов. Не обрезая слова, не используя переносы.

Код: GetShortLine = function (sString, nMaxLettersInLine)
nMaxLettersInLine = nMaxLettersInLine or 50;
sString = String.Left(sString, nMaxLettersInLine);
local nPos = String.ReverseFind(sString, " ", false);
if nPos == -1 then return '';
else
return String.Mid(sString, 1, nPos - 1);
end
end
Dialog.Message("Notice", GetShortLine(IntToWords(124578.2, true), 20), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Помогите написать функцию. Которая содержит названия рисунков для показа в объектах imag. Для меня пока сложно понять синтаксис языка.
А имеенно обозначение и объявление строковых перемменных а также как сложить две строковые переменныи.


Код: function ImgScroll(Ico1, Ico2, Ico3, Slshow)
Image.Load("Image10", "AutoPlay\\Images\\" + Ico1);
Image.Load("Image13", "AutoPlay\\Images\\" + Ico2);
Image.Load("Image14", "AutoPlay\\Images\\" + Ico3);
Image.Load("Image15", "AutoPlay\\Images\\" + Slshow);
end

Stalkersof

Цитата:

посмотрите правильно или нет.

Так, то правильно. Но тебе не лень вбивать названия изображений ручками?
Может лучше так?

Код: ImgScroll = function (tImages)
if tImages and type(tImages) == "table" then
for i = 1, #tImages do
local nPos = String.ReverseFind(tImages[i], "_", false);
if nPos ~= -1 then
local nNumObj = String.Mid(tImages[i], nPos - 1, -1);
Image.Load("Image"..nNumObj, tImages[i]);
end
end
end
end

local tJPGs = File.Find("AutoPlay\\Images\\Dir", "*.jpg", false, false, nil, nil);
if tJPGs then
ImgScroll(tJPGs);
end

Zloy_Gelud

Лень но для меня пока трудно понять это высший пилотаж.
Понял что создается массив из рисунков. И надо попробывать. А если у меня три image и показывать рисунки в них надо последовательно. То придется делать это для трех image(создавать массивы) Значит и количество одинаковых рисунков папке Dir увеличится в трое. Так не объясниш. Вот рисунок того что я пытаюсь сделать. Наглядней будет.
http://i042.radikal.ru/1104/ee/b506c4e5f771t.jpg
http://s016.radikal.ru/i337/1104/c3/3f67bc797357t.jpg
http://s44.radikal.ru/i104/1104/68/3199c8c3dee7t.jpg

Это все работает кроме описания пока одно и тоже.
Вот хотел что-то типа функции написать чтоб легче было. Персонажей много.

Stalkersof
Если я тебя правильно понял, то тебе нужно при нажатии кнопки ">" выполненить движение изображений на одну позицию? Если так, то могу помочь..

UDD::: У тебя для каждого изображения 2 набора? Одно для активного, другое для неактивного?

Добавлено:
mezi --можно. Что-то здесь уже проходило. Заново писать лень...

Здравствуйте, подскажите как сделать вот так чтобы при нажатии на кнопку сверху выскакивало окошко с выбором компонентов.
http://s012.radikal.ru/i319/1104/e6/bbbdcfcf6805.jpg

Zloy_Gelud

Да именно так только я не смог сделать движение рисунков. Вышел из положения меняя изображения в трех image последовательно. Да и персонажей не всегда будет три может быть и десять а image всегда три.
Что то типа собственного контролла. Пока только так это все на что меня хватило. Буду рад любой помощи. Изучать надо.

Zloy_Gelud

Цитата:

mezi --можно. Что-то здесь уже проходило. Заново писать лень...

Искал, не нашол!

BIOSHOK01

Код: tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "Пятнашки";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "Обзор диска";
tblMenu[2].ID = 200;
tblMenu[2].IconID = 0;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
tblMenu[3] ={};
tblMenu[3].Text = "Выход";
tblMenu[3].ID = 300;
tblMenu[3].IconID = 0;
tblMenu[3].Checked = false;
tblMenu[3].Enabled = true;

local nX = System.GetMousePosition(true, nil).X;
local nY = System.GetMousePosition(true, nil).Y;

nRes = Application.ShowPopupMenu(nX, nY, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);

if(nRes == 0)then
Dialog.Message("Menu Result","Cancelled");
else
if nRes == 300 then
Application.Exit(0);
elseif nRes == 100 then
-- пятнашки
elseif nRes == 200 then
-- обзор диска
end
end

Zloy_Gelud


Цитата:

UDD::: У тебя для каждого изображения 2 набора? Одно для активного, другое для неактивного?

Нет рамка сама по себе отдельный объект image. Там я тоже сделал не большой эффект загрузки. При нажатии на кнопки << >> меняются последовательно изображения рамки(темная,светлая) три раза со sleep'пом типа стробоскопа

Zloy_Gelud
Может образец куда закинуть посмотриш?

Stalkersof

Цитата:

Может образец куда закинуть посмотриш?

Да. Залей куда-нить. Мне так даже проще будет.

пожалуйста если можно залейте образец.

BIOSHOK01

Зачем? Проско скопируй данный код в событие On Click кнопки.

Zloy_Gelud
Вот буду рад помощи. Может конечно не профессионально но вроде работает.
Interfeys.rar
Page2

вот образец авторана http://rghost.ru/5151188 но там ищё часы и установка удаление программ.

Можно ли в проект вставить это
И можна код на регулируванне громкости повзунком?

Stalkersof
Переделал твой КПК. Правда немного на свой вкус.
Interfeys_test.apz ~ 331kB

Zloy_Gelud
Спасибо за помощь. Там и цикл есть. И описания загружаются из текстовых файлов. Начну ковырять и изучать. Может допру как это работает.

Stalkersof

Цитата:

Может допру как это работает.

Если что не понятно будет - спрашивай. Я просто не люблю комменты приписывать.

Картинка в тексте, как сделать не разобрался, AutoPlay 8. Или я дурак, или лыжи не едут...

Edinolichnick -- скорей всего тебе поможет только размещение Web-объекта.

При увеличении окна на весь экран, не получается автоматически растягивать WEB объект на ширину дисплея, как сделать?

Edinolichnick -- в настройках объекта Auto-Resize выстави птички Right и Bottom.

Разобрался, теперь с кнопками ерунда, они фиксируются от верхней и левой стороны. При увеличении уползают под веб объект.

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

решение простое, кнопки оставить сверху))))
создавать веб объекты из ворда легко, достаточно сохранить как хтмл файл. Но кто станет его редактировать, взвоет как белуга, ибо чёрт ногу поломает после ворда.

Я с этой программой давно работал, сейчас пришлось вновь, рассчитывал что повзрослеет, ан нет, много чего не доделали. Вставка картинок в текст. Позиция кнопок при ресайзе. Для офисного контента не заточена.

Цитата:

-- Получаем значения этого загадочного node
tblTreeProps = Tree.GetNode("Tree1", e_NodeIndex)

-- Если юзер сделал двойной клик, то делаем следующее
if tblTreeProps then

-- Получаем значение поля Item data для выделенного node
ItemData = tblTreeProps.Data;

-- Открываем нужный файл
File.Open("AutoPlay\\Docs\\"..ItemData, "", SW_SHOWNORMAL);

end

Оригинал выше, моя редакция.

tblTreeProps = Tree.GetNode("Tree1", "1.1")
-- Если юзер сделал двойной клик, то делаем следующее
if tblTreeProps then
-- Получаем значение поля Item data для выделенного node
ItemData = tblTreeProps.Data;
Page.Jump("Page5");
elseif Tree.GetNode("Tree1", "1.2") then
Page.Jump("Page2");
elseif Tree.GetNode("Tree1", "1.3") then
Page.Jump("Page3");
end

При нажатии на оглавление, на главу 1 2... всё равно идём на одну страницу, где ошибка?
http://s005.radikal.ru/i210/1104/68/29cf6fb6a81e.jpg

Edinolichnick -- вообще затея с переходами по страницам с помощью объекта Tree уже обсуждалась. Результат обсуждения - не возможно использовать эту реализацию, ибо страницы проекта после такого переходаначинают безперерывно "дергаться", и помогает только завершение процесса проекта. Обсуждение же можешь найти в версии для печати.

Есть альтернатива AutoPlay?