إعـــــــلان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 18-08-2014, 06:19 PM

السلام عليكم ورحمة الله وبركاته

في global functions:

كود PHP:


MainPageEvents = 0;
VirtualPageHeight =600;
VirtualPageWidth = 1600;
LastVPosition = 0;
LastHPosition = 0;

--###################################################################################################
-- callback functions

function PageScroller.OnVScroll(pos) -- called when vertical scrollbar was scrolled

 LastVPosition = pos;
   if (pos > 0 ) then
     PageScroller.MoveY(Application.GetCurrentPage(),-pos);
   end 
end

function PageScroller.OnHScroll(pos) -- called when horizontal scrollbar was scrolled

 LastHPosition = pos;
   if (pos > 0 ) then
     PageScroller.MoveX(Application.GetCurrentPage(),-pos);
   end
end

--  eof callback functions
--###################################################################################################

local tbObjectType = {}
tbObjectType[OBJECT_BUTTON] = Button;
tbObjectType[OBJECT_LABEL] = Label;
tbObjectType[OBJECT_PARAGRAPH] = Paragraph;
tbObjectType[OBJECT_IMAGE] = Image;
tbObjectType[OBJECT_FLASH] = Flash;
tbObjectType[OBJECT_VIDEO] = Video;
tbObjectType[OBJECT_WEB] = Web;
tbObjectType[OBJECT_INPUT] = Input;
tbObjectType[OBJECT_HOTSPOT] = Hotspot;
tbObjectType[OBJECT_LISTBOX] = ListBox;
tbObjectType[OBJECT_COMBOBOX] = ComboBox;
tbObjectType[OBJECT_PROGRESS] = Progress;
tbObjectType[OBJECT_TREE] = Tree;
tbObjectType[OBJECT_RADIOBUTTON] = RadioButton;
tbObjectType[OBJECT_RICHTEXT] = RichText;
tbObjectType[OBJECT_CHECKBOX] = CheckBox;
tbObjectType[OBJECT_SLIDESHOW] = SlideShow;
tbObjectType[OBJECT_GRID] = Grid;
tbObjectType[OBJECT_PLUGIN] = Plugin;
tbObjectType[OBJECT_PDF] = PDF;
tbObjectType[OBJECT_QUICKTIME] = QuickTime;
tbObjectType[OBJECT_XBUTTON] = xButton;
local m_tblGroup = {};

--###################################################################################################

PageScroller.AddItem = function (sObjectName,sGroupName)
    local nIndex = Table.Count(m_tblGroup) + 1;
    Table.Insert(m_tblGroup, nIndex, {})
    m_tblGroup[nIndex].Group = sGroupName;
    m_tblGroup[nIndex].Object = sObjectName;
    m_tblGroup[nIndex].ObjectType = Page.GetObjectType(sObjectName);
    m_tblGroup[nIndex].InitialY = tbObjectType[Page.GetObjectType(sObjectName)].GetPos(sObjectName).Y;
    m_tblGroup[nIndex].InitialX = tbObjectType[Page.GetObjectType(sObjectName)].GetPos(sObjectName).X;
    
end

--###################################################################################################

PageScroller.RemoveAll = function (sGroupName)
    m_tblGroup[sGroupName] = {};
end

--###################################################################################################

PageScroller.MoveX = function (sGroupName,xDiff)
    Application.SetRedraw(false)
    for i in pairs(m_tblGroup) do
        if m_tblGroup[i].Group == sGroupName then
            local Object = tbObjectType[m_tblGroup[i].ObjectType];
            local Name = m_tblGroup[i].Object
            if Object.SetPos then
                Object.SetPos(Name,xDiff+m_tblGroup[i].InitialX, Object.GetPos(Name).Y)
                
            end
        end
    end
    Application.SetRedraw(true)
end

--###################################################################################################

PageScroller.MoveY = function (sGroupName,yDiff)
    Application.SetRedraw(false)
    for i in pairs(m_tblGroup) do
        if m_tblGroup[i].Group == sGroupName then
            local Object = tbObjectType[m_tblGroup[i].ObjectType];
            local Name = m_tblGroup[i].Object
            if Object.SetPos then
                Object.SetPos(Name, Object.GetPos(Name).X, yDiff+m_tblGroup[i].InitialY)    
            end
        end
    end
    Application.SetRedraw(true)
end

--###################################################################################################

PageScroller.RollBack = function (sGroupName)    
    Application.SetRedraw(false)
    for i in pairs(m_tblGroup) do
        if m_tblGroup[i].Group == sGroupName then
            local Object = tbObjectType[m_tblGroup[i].ObjectType];
            local Name = m_tblGroup[i].Object
            if Object.SetPos then
                Object.SetPos(Name, m_tblGroup[i].InitialX, m_tblGroup[i].InitialY)    
            end
        end
    end
    
    local CurrentPage = Application.GetCurrentPage();
    PageScroller.RemoveAll(CurrentPage);
    Application.SetRedraw(true)
end

--###################################################################################################

function PageScroller.SetupObjects()


local tblObjects = Page.EnumerateObjects();
local CurrentPage = Application.GetCurrentPage();

if (tblObjects ~= nil) then
   
   for j, obj_name in pairs(tblObjects) do
      
         PageScroller.AddItem(obj_name,CurrentPage);
    
   end
   
end
end

في on show

كود PHP:


Window.SetSize(Application.GetWndHandle(), 800, 600);

PageScroller.SetRange(SB_VERT, 0, VirtualPageHeight, Page.GetSize().Height, Application.GetWndHandle());
PageScroller.SetRange(SB_HORZ, 0, VirtualPageWidth , Page.GetSize().Width, Application.GetWndHandle());
MainPageEvents = PageScroller.InitEvents(Application.GetWndHandle());
PageScroller.SetupObjects();

في on close

كود PHP:


PageScroller.UninitEvents(Application.GetWndHandle(), MainPageEvents);
PageScroller.RollBack(Application.GetCurrentPage());

وطبعا يوجد إضافة لهذا الكلام تفعل

فقط اضبط المطلوب حسب مشروعك
موفق

**ياسرهتهت ياسرهتهت** · 18-08-2014, 10:17 PM

شكر وتقدير

وعليكم السلام ورحمة الله وبركاته
شكراً لك استاذي الكريم
وجازك الله الف خير
علي هذا العطاء الذي ليس له حدود

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

إعـــــــلان

هــل يمكن وضــع شريط تمرير للصفحات؟

هــل يمكن وضــع شريط تمرير للصفحات؟

تعليق

تعليق

مواضيع تهمك