Andromo - Start Making Apps - Free Signup

Announcement

Collapse

New Forum Software

If you're here, you've found the new home for our forums. There will be some bugs to iron out, so thanks for your patience...
See more
See less

QuickLaunchToolBar for Kids - Could anyone help me?

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • 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!

  • #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