QuickLaunchToolBar for Kids - Could anyone help me?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts
  • PamelaDesign
    No longer a forum member
    • Feb 2012
    • 6

    QuickLaunchToolBar for Kids - Could anyone help me?

    Hi, I'm new and I would create a simple free utility for kids.
    I'm using AMS 8 Personal

    I discovered QuickLaunchToolBar.apz by thachsn1 and it's simply perfect for me. Only a problem, I need it 800 pixels widht and always centered, indipendently from screen resolution.

    Please help me to insert the necessary code to center this toolbar.

    Thank you people!
  • Intrigued
    Indigo Rose Customer
    • Dec 2003
    • 6138

    #2
    Not sure this will help, but seems like something I did (mine centers, has that same way of working like this but centers).

    On Preload:
    function funSetBar()

    tblDisplay = System.GetDisplayInfo()
    DW = tblDisplay.Width

    Window.SetSize(Application.GetWndHandle(), DW/2, 30)
    Window.SetPos(Application.GetWndHandle(), DW*.25,0)

    Input.SetPos("Input1", Window.GetSize(Application.GetWndHandle()).Width-130, 1)
    Input.SetText("Input1", System.GetDate(DATE_FMT_US).."\r\n"..System.GetTim e(TIME_FMT_AMPM))


    Paragraph.SetPos("Paragraph1", Window.GetSize(Application.GetWndHandle()).Width-40, 4)
    Button.SetPos("Button3", Window.GetSize(Application.GetWndHandle()).Width-40, 3)

    end


    funSetBar()


    On Mouse Move:

    if e_Y < 2 then
    Window.SetSize(Application.GetWndHandle(), DW/2, 30)
    Window.SetPos(Application.GetWndHandle(), DW*.25,0)
    strChecked4 = false
    elseif e_Y > 25 then
    Window.SetSize(Application.GetWndHandle(), DW/2, 1)
    Window.SetPos(Application.GetWndHandle(), DW*.25,0)
    strChecked4 = true
    end

    if e_X > (Window.GetSize(Application.GetWndHandle()).Width - 3) then
    Window.SetSize(Application.GetWndHandle(), DW/2, 1)
    Window.SetPos(Application.GetWndHandle(), DW*.25,0)

    elseif e_X < 3 then
    Window.SetSize(Application.GetWndHandle(), DW/2, 1)
    Window.SetPos(Application.GetWndHandle(), DW*.25,0)

    end

    This is real old code, may be a better way to do it now. You will have to figure the rest out. But I hope these snippets point you in the right direction. Some smaller pieces may be missing, but this is the lions share from my own private project.

    Regards,
    Intrigued

    Comment

    Working...
    X