Soccer prediction editor application.

gaslouk
New Member

Hi from beautiful Greece .

Posts: 15

Soccer prediction editor application. Dec 15, 2023 6:59:33 GMT

Quote

Post by gaslouk on Dec 15, 2023 6:59:33 GMT

This application processes one of the games of chance of the Greek OPAP. The years 1960-1990 were the most popular game of Greek football. You still play today, but its popularity has fallen very low compared to the rest of OPAP's games of chance. It is under development even if anyone knows about this lucky game, they can help in its development.





GLOBAL TabHndl
Global False : False = 0
Global True : True = 1
Global enabled : enabled = True
global a$
global b$
    dim a$(13)
    dim b$(13, 2)
    DIM Combo1$(4)
    DIM Combo2$(4)
    DIM Combo3$(4)
    DIM Combo4$(4)
    DIM Combo5$(4)
    DIM Combo6$(4)
    DIM Combo7$(4)
    DIM Combo8$(4)
    DIM Combo9$(4)
    DIM Combo10$(4)
    DIM Combo11$(4)
    DIM Combo12$(4)
    DIM Combo13$(4)
    DIM Combo14$(4)

    DIM Combo15$(11)
    DIM Combo16$(11)
    DIM Combo17$(11)
    DIM Combo18$(11)
    DIM Combo19$(11)
    DIM Combo20$(11)
    DIM Combo21$(11)
    DIM Combo22$(11)
    DIM Combo23$(11)
    DIM Combo24$(11)
    DIM Combo25$(11)
    DIM Combo26$(11)
    DIM Combo27$(11)
    DIM Combo28$(11)

    Combo1$(0) = " "
    Combo1$(1) = "1"
    Combo1$(2) = "X"
    Combo1$(3) = "2"

    Combo2$(0) = " "
    Combo2$(1) = "1"
    Combo2$(2) = "X"
    Combo2$(3) = "2"

    Combo3$(0) = " "
    Combo3$(1) = "1"
    Combo3$(2) = "X"
    Combo3$(3) = "2"

    Combo4$(0) = " "
    Combo4$(1) = "1"
    Combo4$(2) = "X"
    Combo4$(3) = "2"

    Combo5$(0) = " "
    Combo5$(1) = "1"
    Combo5$(2) = "X"
    Combo5$(3) = "2"

    Combo6$(0) = " "
    Combo6$(1) = "1"
    Combo6$(2) = "X"
    Combo6$(3) = "2"

    Combo7$(0) = " "
    Combo7$(1) = "1"
    Combo7$(2) = "X"
    Combo7$(3) = "2"

    Combo8$(0) = " "
    Combo8$(1) = "1"
    Combo8$(2) = "X"
    Combo8$(3) = "2"

    Combo9$(0) = " "
    Combo9$(1) = "1"
    Combo9$(2) = "X"
    Combo9$(3) = "2"

    Combo10$(0) = " "
    Combo10$(1) = "1"
    Combo10$(2) = "X"
    Combo10$(3) = "2"

    Combo11$(0) = " "
    Combo11$(1) = "1"
    Combo11$(2) = "X"
    Combo11$(3) = "2"

    Combo12$(0) = " "
    Combo12$(1) = "1"
    Combo12$(2) = "X"
    Combo12$(3) = "2"

    Combo13$(0) = " "
    Combo13$(1) = "1"
    Combo13$(2) = "X"
    Combo13$(3) = "2"

    Combo14$(0) = " "
    Combo14$(1) = "1"
    Combo14$(2) = "X"
    Combo14$(3) = "2"

    Combo15$(1) = "1"
    Combo15$(2) = "X"
    Combo15$(3) = "2"
    Combo15$(4) = "1X"
    Combo15$(5) = "12"
    Combo15$(6) = "X1"
    Combo15$(7) = "X2"
    Combo15$(8) = "2X"
    Combo15$(9) = "21"
    Combo15$(10) = "1X2"

    NOMAINWIN

'<----------------------- STATIC TEXT STYLES ---------------->
SS.CENTER           = HEXDEC("&H00000001")
SS.CENTERIMAGE      = HEXDEC("&H00000200")
SS.SUNKEN           = HEXDEC("&H00001000")

'<---------------------- TAB STYLES SUPPORTED ---------------->
WS.CHILD                = HEXDEC("&H40000000")
WS.VISIBLE              = HEXDEC("&H10000000")
WS.TABSTOP              = HEXDEC("&H00010000")
TCS.TABS                = 0
TCS.SINGLELINE          = 0
TCS.RAGGEDRIGHT         = HEXDEC("00000800")
TCS.FOCUSONBUTTONDOWN   = HEXDEC("00001000")

STRUCT tRect, _
  X     AS LONG, _
  Y     AS LONG, _
  X1    AS LONG, _
  Y1    AS LONG

STRUCT tTab, _
  TabStyle    AS ULONG, _
         X    AS LONG, _
         Y    AS LONG, _
         X1   AS LONG, _
         Y1   AS LONG
tTab.TabStyle.struct = 0
tTab.X.struct = 20
tTab.Y.struct = 50
tTab.X1.struct = -20
tTab.Y1.struct = -60

UpperLeftX = 200
UpperRightX = 200
WindowWidth = 600
WindowHdight = 1000

STYLEBITS #TB1.STAT, SS.CENTER OR SS.CENTERIMAGE OR SS.SUNKEN, 0, WS.EX.TRANSPARENT, 0

Menu        #WIN, "Exit", "Exit", [STOPIT]

statictext  #TB1.st1, "Insert selection column", 20, 5, 245, 25
statictext  #TB1.st2, "Game 1ος", 15, 55, 130, 20
statictext  #TB1.st2, "Game 2ος", 15, 80, 130, 20
statictext  #TB1.st4, "Game 3ος", 15, 105, 130, 20
statictext  #TB1.st5, "Game 4ος", 15, 130, 130, 20
statictext  #TB1.st6, "Game 5ος", 15, 155, 130, 20
statictext  #TB1.st7, "Game 6ος", 15, 180, 130, 20
statictext  #TB1.st8, "Game 7ος", 15, 205, 130, 20
statictext  #TB1.st9, "Game 8ος", 15, 230, 130, 20
statictext  #TB1.st10, "Game 9ος", 15, 255, 130, 20
statictext  #TB1.st11, "Game 10ος", 11, 279, 130, 20
statictext  #TB1.st12, "Game 11ος", 15, 305, 130, 20
statictext  #TB1.st13, "Game 12ος", 15, 330, 130, 20
statictext  #TB1.st14, "Game 13ος", 15, 355, 130, 20
statictext  #TB1.st15, "Game 14ος", 15, 380, 130, 20
button      #WIN.bt1, "Exit", STOPIT, UR, 160, 550, 100, 25
            ComboboxColor$ = "White"

combobox    #TB1.combo1,Combo1$(), combo1Click, 160, 55, 30, 300
combobox    #TB1.combo2,Combo2$(), combo2Click, 160, 80, 30, 300
combobox    #TB1.combo3,Combo3$(), combo3Click, 160, 105, 30, 300
combobox    #TB1.combo4,Combo4$(), combo4Click, 160, 130, 30, 300
combobox    #TB1.combo5,Combo5$(), combo5Click, 160, 155, 30, 300
combobox    #TB1.combo6,Combo6$(), combo6Click, 160, 180, 30, 300
combobox    #TB1.combo7,Combo7$(), combo7Click, 160, 205, 30, 300
combobox    #TB1.combo8,Combo8$(), combo8Click, 160, 230, 30, 300
combobox    #TB1.combo9,Combo9$(), combo9Click, 160, 255, 30, 300
combobox    #TB1.combo10,Combo10$(), combo10Click, 160, 280, 30, 300
combobox    #TB1.combo11,Combo11$(), combo11Click, 160, 305, 30, 300
combobox    #TB1.combo12,Combo12$(), combo12Click, 160, 330, 30, 300
combobox    #TB1.combo13,Combo13$(), combo13Click, 160, 355, 30, 300
combobox    #TB1.combo14,Combo14$(), combo14Click, 160, 380, 30, 300

statictext  #TB2.st1, "System Introduction", 35, 0, 245, 25
statictext  #TB2.st2, "Game 1ος", 15, 55, 80, 20
statictext  #TB2.st2, "Game 2ος", 15, 80, 80, 20
statictext  #TB2.st4, "Game 3ος", 15, 105, 80, 20
statictext  #TB2.st5, "Game 4ος", 15, 130, 80, 20
statictext  #TB2.st6, "Game 5ος", 15, 155, 80, 20
statictext  #TB2.st7, "Game 6ος", 15, 180, 80, 20
statictext  #TB2.st8, "Game 7ος", 15, 205, 80, 20
statictext  #TB2.st9, "Game 8ος", 15, 230, 80, 20
statictext  #TB2.st10, "Game 9ος", 15, 255, 80, 20
statictext  #TB2.st11, "Game 10ος", 15, 279, 80, 20
statictext  #TB2.st12, "Game 11ος", 15, 305, 80, 20
statictext  #TB2.st13, "Game 12ος", 15, 330, 80, 20
statictext  #TB2.st14, "Game 13ος", 15, 355, 80, 20
statictext  #TB2.st15, "Game 14ος", 15, 380, 80, 20

combobox    #TB2.combo1,Combo1$(), combo15Click, 120, 55, 30, 300
combobox    #TB2.combo2,Combo2$(), combo16Click, 120, 80, 30, 300
combobox    #TB2.combo3,Combo3$(), combo17Click, 120, 105, 30, 300
combobox    #TB2.combo4,Combo4$(), combo18Click, 120, 130, 30, 300
combobox    #TB2.combo5,Combo5$(), combo19Click, 120, 155, 30, 300
combobox    #TB2.combo6,Combo6$(), combo20Click, 120, 180, 30, 300
combobox    #TB2.combo7,Combo7$(), combo21Click, 120, 205, 30, 300
combobox    #TB2.combo8,Combo8$(), combo22Click, 120, 230, 30, 300
combobox    #TB2.combo9,Combo9$(), combo23Click, 120, 255, 30, 300
combobox    #TB2.combo10,Combo10$(), combo24Click, 120, 280, 30, 300
combobox    #TB2.combo11,Combo11$(), combo25Click, 120, 305, 30, 300
combobox    #TB2.combo12,Combo12$(), combo26Click, 120, 330, 30, 300
combobox    #TB2.combo13,Combo13$(), combo27Click, 120, 355, 30, 300
combobox    #TB2.combo14,Combo14$(), combo28Click, 120, 380, 30, 300

combobox    #TB2.combo15,Combo1$(), combo29Click, 155, 55, 30, 300
combobox    #TB2.combo16,Combo2$(), combo30Click, 155, 80, 30, 300
combobox    #TB2.combo17,Combo3$(), combo31Click, 155, 105, 30, 300
combobox    #TB2.combo18,Combo4$(), combo32Click, 155, 130, 30, 300
combobox    #TB2.combo19,Combo5$(), combo33Click, 155, 155, 30, 300
combobox    #TB2.combo20,Combo6$(), combo34Click, 155, 180, 30, 300
combobox    #TB2.combo21,Combo7$(), combo35Click, 155, 205, 30, 300
combobox    #TB2.combo22,Combo8$(), combo36Click, 155, 230, 30, 300
combobox    #TB2.combo23,Combo9$(), combo37Click, 155, 255, 30, 300
combobox    #TB2.combo24,Combo10$(), combo38Click, 155, 280, 30, 300
combobox    #TB2.combo25,Combo11$(), combo39Click, 155, 305, 30, 300
combobox    #TB2.combo26,Combo12$(), combo40Click, 155, 330, 30, 300
combobox    #TB2.combo27,Combo13$(), combo41Click, 155, 355, 30, 300
combobox    #TB2.combo28,Combo14$(), combo42Click, 155, 380, 30, 300

combobox    #TB2.combo29,Combo1$(), combo43Click, 190, 55, 30, 300
combobox    #TB2.combo30,Combo2$(), combo44Click, 190, 80, 30, 300
combobox    #TB2.combo31,Combo3$(), combo45Click, 190, 105, 30, 300
combobox    #TB2.combo32,Combo4$(), combo46Click, 190, 130, 30, 300
combobox    #TB2.combo33,Combo5$(), combo47Click, 190, 155, 30, 300
combobox    #TB2.combo34,Combo6$(), combo48Click, 190, 180, 30, 300
combobox    #TB2.combo35,Combo7$(), combo49Click, 190, 205, 30, 300
combobox    #TB2.combo36,Combo8$(), combo50Click, 190, 230, 30, 300
combobox    #TB2.combo37,Combo9$(), combo51Click, 190, 255, 30, 300
combobox    #TB2.combo38,Combo10$(), combo52Click, 190, 280, 30, 300
combobox    #TB2.combo39,Combo11$(), combo53Click, 190, 305, 30, 300
combobox    #TB2.combo40,Combo12$(), combo54Click, 190, 330, 30, 300
combobox    #TB2.combo41,Combo13$(), combo55Click, 190, 355, 30, 300
combobox    #TB2.combo42,Combo14$(), combo56Click, 190, 380, 30, 300

statictext  #TB3.st1, "'1' Από", 30, 45, 60, 25
statictext  #TB3.st2, "'1' Έως", 215, 45, 60, 25
statictext  #TB3.st3, "'X' Από", 30, 95, 60, 25
statictext  #TB3.st4, "'Χ' Έως", 215, 95, 60, 25
statictext  #TB3.st5, "'2' Από", 30, 145, 60, 25
statictext  #TB3.st6, "'2' Έως", 215, 145, 60, 25

textbox     #TB3.teb1, 100, 45, 60, 25
textbox     #TB3.teb2, 280, 45, 60, 25
textbox     #TB3.teb3, 100, 95, 60, 25
textbox     #TB3.teb4, 280, 95, 60, 25
textbox     #TB3.teb5, 100, 145, 60, 25
textbox     #TB3.teb6, 280, 145, 60, 25

stylebits   #TB3.bt2, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt2, "ok", [text1], UL, 170, 45, 35, 25
stylebits   #TB3.bt3, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt3, "ok", [text2], UL, 350, 45, 35, 25
stylebits   #TB3.bt4, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt4, "ok", [text3], UL, 170, 95, 35, 25
stylebits   #TB3.bt5, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt5, "ok", [text4], UL, 350, 95, 35, 25
stylebits   #TB3.bt6, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt6, "ok", [text5], UL, 170, 145, 35, 25
stylebits   #TB3.bt7, _BS_MULTILINE, 0, 0, 0
button      #TB3.bt7, "ok", [text6], UL, 350, 145, 35, 25

groupbox    #TB3.grp1, "", 15, 25, 380, 50
groupbox    #TB3.grp2, "", 15, 75, 380, 50
groupbox    #TB3.grp3, "", 15, 125, 380, 50

stylebits   #TB4.bt1, _BS_MULTILINE, 0, 0, 0
button      #TB4.bt1, "Select Columns", dialogh, UR, 60, 385, 140, 25

OPEN "TABCTL" FOR DLL AS #TAB
OPEN "ΠΡΟ-ΠΟ 1Χ2" FOR WINDOW AS #WIN

    hStatus = MakeStatusBar(HWND(#WIN), "StatusBar")
    Call SetText hStatus,0,"StatusBar"
    Call SetText hStatus,4,time$()
    Call SetText hStatus,5,date$()
    timer 1000, [changeTime]


OPEN "Introduction of Fixed Column" FOR WINDOW_popup AS #TB1
    #TB1 "trapclose STOPIT"
    #TB1.combo1 "selectindex 1"
    #TB1.combo2 "selectindex 1"
    #TB1.combo3 "selectindex 1"
    #TB1.combo4 "selectindex 1"
    #TB1.combo5 "selectindex 1"
    #TB1.combo6 "selectindex 1"
    #TB1.combo7 "selectindex 1"
    #TB1.combo8 "selectindex 1"
    #TB1.combo9 "selectindex 1"
    #TB1.combo10 "selectindex 1"
    #TB1.combo11 "selectindex 1"
    #TB1.combo12 "selectindex 1"
    #TB1.combo13 "selectindex 1"
    #TB1.combo14 "selectindex 1"
    #TB1 "font consolas 10"

OPEN "System Introduction" FOR WINDOW_popup AS #TB2

    #TB2 "trapclose STOPIT"
    #TB2.combo1 "selectindex 1"
    #TB2.combo2 "selectindex 1"
    #TB2.combo3 "selectindex 1"
    #TB2.combo4 "selectindex 1"
    #TB2.combo5 "selectindex 1"
    #TB2.combo6 "selectindex 1"
    #TB2.combo7 "selectindex 1"
    #TB2.combo8 "selectindex 1"
    #TB2.combo9 "selectindex 1"
    #TB2.combo10 "selectindex 1"
    #TB2.combo11 "selectindex 1"
    #TB2.combo12 "selectindex 1"
    #TB2.combo13 "selectindex 1"
    #TB2.combo14 "selectindex 1"

    #TB2.combo15 "selectindex 1"
    #TB2.combo16 "selectindex 1"
    #TB2.combo17 "selectindex 1"
    #TB2.combo18 "selectindex 1"
    #TB2.combo19 "selectindex 1"
    #TB2.combo20 "selectindex 1"
    #TB2.combo21 "selectindex 1"
    #TB2.combo22 "selectindex 1"
    #TB2.combo23 "selectindex 1"
    #TB2.combo24 "selectindex 1"
    #TB2.combo25 "selectindex 1"
    #TB2.combo26 "selectindex 1"
    #TB2.combo27 "selectindex 1"
    #TB2.combo28 "selectindex 1"

    #TB2.combo29 "selectindex 1"
    #TB2.combo30 "selectindex 1"
    #TB2.combo31 "selectindex 1"
    #TB2.combo32 "selectindex 1"
    #TB2.combo33 "selectindex 1"
    #TB2.combo34 "selectindex 1"
    #TB2.combo35 "selectindex 1"
    #TB2.combo36 "selectindex 1"
    #TB2.combo37 "selectindex 1"
    #TB2.combo38 "selectindex 1"
    #TB2.combo39 "selectindex 1"
    #TB2.combo40 "selectindex 1"
    #TB2.combo41 "selectindex 1"
    #TB2.combo42 "selectindex 1"

    #TB2 "font consolas 10"

OPEN "Select Columns" FOR WINDOW_popup AS #TB3

    #TB3 "trapclose STOPIT"
    #TB3 "font consolas 10"
    Call MakeTooltips HWND(#TB3)

OPEN "TAB4" FOR WINDOW_popup AS #TB4

    #TB4 "trapclose STOPIT"
    #TB4 "font consolas 10"
    Call MakeTooltips HWND(#TB4)

OPEN "TAB5" FOR WINDOW_popup AS #TB5

PRINT #WIN, "TRAPCLOSE STOPIT"
PRINT #WIN, "RESIZEHANDLER [ResizeStatus]"

WinHndl = HWND(#WIN)
Tab1Hndl = HWND(#TB1)
Tab2Hndl = HWND(#TB2)
Tab3Hndl = HWND(#TB3)
Tab4Hndl = HWND(#TB4)
Tab5Hndl = HWND(#TB5)

Ttl1$ = "Introduction of Sorting Column"
Ttl2$ = "System Introduction"
Ttl3$ = "Restrictions"
Ttl4$ = "Select Columns"
Ttl5$ = "TAB5"
CALLDLL #TAB, "FN_InitTab", WinHndl AS ULONG, tTab AS STRUCT, TabHndl AS ULONG
print TabHndl

CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab1Hndl AS ULONG, _
              0 AS ULONG, Ttl1$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab2Hndl AS ULONG, _
              0 AS ULONG, Ttl2$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab3Hndl AS ULONG, _
              0 AS ULONG, Ttl3$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab4Hndl AS ULONG, _
              0 AS ULONG, Ttl4$ AS STRUCT, Idx AS LONG
CALLDLL #TAB, "FN_AddTab", TabHndl AS ULONG, Tab5Hndl AS ULONG, _
              0 AS ULONG, Ttl5$ AS STRUCT, Idx AS LONG

PRINT Idx
WAIT

'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
[text1]
    timer 0
    #TB3.teb1, "!contents? txt1$"
    a(1) = val(txt1$)
    if a(1) < 0 or a(1) > 14 then
        notice "Entry Prices From 0 To 14"
    end if
    timer 3000, [checkForTab]
wait

[text2]
    timer 0
    #TB3.teb2, "!contents? txt2$"
    a(2) = val(txt2$)
    if a(2) < 0 or a(2) > 14 then
        notice "Entry Prices From 0 To 14"
    end if
    if a(2) < a(1) then
        notice txt2$ + " Smaller than " + txt1$ + " Enter Again"
    end if
    timer 3000, [checkForTab]
wait

[text3]
     timer 0
   #TB3.teb3, "!contents? txt3$"
    a(3) = val(txt3$)
    if a(3) < 0 or a(3) > 14 then
        notice "Entry Prices From 0 To 14"
    end if
    timer 3000, [checkForTab]
wait

[text4]
    timer 0
    #TB3.teb4, "!contents? txt4$"
    a(4) = val(txt4$)
    if a(4) < 0 or a(4) > 14 then
        notice "Entry Prices From 0 To 14"
    end if
    if a(4) < a(3) then
        notice txt4$ + " Smaller than " + txt3$ + " Enter Again"
    end if
    timer 3000, [checkForTab]
wait

[text5]
    timer 0
    #TB3.teb5, "!contents? txt5$"
    a(5) = val(txt5$)
    if a(5) < 0 or a(5) > 14 then
        notice "Entry Prices From 0 To 14"
    end if
    timer 3000, [checkForTab]
wait

[text6]
    timer 0
    #TB3.teb6, "!contents? txt6$"
    a(6) = val(txt6$)
    if a(6) < 0 or a(6) > 14 then
        notice "Entry Prices From 0 To 14"
    end if
    if a(6) < a(5) then
        notice txt6$ + " Smaller than " + txt5$ + " Enter Again"
    end if
    timer 3000, [checkForTab]
WAIT

[size]
    calldll #user32, "SendMessageA",_
    hStatus as ulong,_WM_SIZE as long,_
    0 as long, WindowWidth as long,_
    re as long
    wait

[checkForTab]   'see if selected tab is the same
                'as previously selected tab and
                'change controls if tab has changed
    timer 0     'turn off timer

    'get the current tab ID
    calldll #user32, "SendMessageA",_
        hwndTab as ulong,_      'tab control handle
        TCM.GETCURSEL as long,_ 'message to get current selection
        0 as long, 0 as long,_  'always 0's
        tabID as long           'returns selected tab ID

    if tabID <> oldTab then     'change page displayed
        oldTab = tabID          'for next check of selected tab
        gosub [clear]
        call MoveWindow winTab(tabID), 20,40,600,1000
    end if

    print #TB3, "refresh"
    timer 3000, [checkForTab]    'reactivate timer
    wait

[clear] 'hide all windows
    for i = 0 to 3
        call MoveWindow winTab(i), 3000,3000,600,1000
    next
    return

[changeTime]
    Call SetText hStatus,4,time$()
    Call SetText hStatus,5,date$()
    insert = GetKeyState(_VK_INSERT)
    if insert = 0 then
        call SetText hStatus, 1, "INS OFF"
    else
        call SetText hStatus, 1, "INS ON"
    end if

    cupsLock=GetToggle(_VK_CAPITAL)
    if cupsLock=0 then
        call SetText hStatus, 2, "CUPS OFF"
    else
        call SetText hStatus, 2, "CUPS ON"
    end if

    numLock=GetToggle(_VK_NUMLOCK)
    if numLock=0 then
        call SetText hStatus, 3, "NUM OFF"
    else
        call SetText hStatus, 3, "NUM ON"
    end if
    WAIT

FUNCTION GetToggle(Key)
    Toggle = 0
    CallDLL #user32, "GetKeyState",Key As long, Toggle As long
    GetToggle = Toggle
END FUNCTION

'Function GetKeyState(key)
'    Mask = HEXDEC("&H8001") '<--- value for masking the pressed bit
'    Press = 0
'    CALLDLL #user32, "GetKeyState", key AS LONG, Press AS SHORT, GetKeyState as long
'    IF (Press AND Mask) THEN
'      GetKeyState = 0
'      EXIT FUNCTION
'    END IF
'end function

Sub combo1Click handle$
    #handle$ "selection? Selected$"
    a$(0) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo2Click handle$
    #handle$ "selection? Selected$"
    a$(1) = Selected$
'    notice "It's your choice:  "; a$(1)
    'Selected$ contains text of item selected
    End Sub

Sub combo3Click handle$
    #handle$ "selection? Selected$"
    a$(2) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo4Click handle$
    #handle$ "selection? Selected$"
    a$(3) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo5Click handle$
    #handle$ "selection? Selected$"
    a$(4) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo6Click handle$
    #handle$ "selection? Selected$"
    a$(5) = Selected$    'Selected$ contains text of item selected
    End Sub

Sub combo7Click handle$
    #handle$ "selection? Selected$"
    a$(6) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo8Click handle$
    #handle$ "selection? Selected$"
    a$(7) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo9Click handle$
    #handle$ "selection? Selected$"
    a$(8) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo10Click handle$
    #handle$ "selection? Selected$"
    a$(9) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo11Click handle$
    #handle$ "selection? Selected$"
    a$(10) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo12Click handle$
    #handle$ "selection? Selected$"
    a$(11) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo13Click handle$
    #handle$ "selection? Selected$"
    a$(12) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo14Click handle$
    #handle$ "selection? Selected$"
    a$(13) = Selected$
    'Selected$ contains text of item selected
    End Sub

Sub combo15Click handle$
    #handle$ "selection? Selected$"
    b$(0, 0) = Selected$
    if b$(0, 0) = b$(0, 1) or b$(0, 0) = b$(0, 2) then
        notice "It's your choice:  "; b$(0, 0)
        b$(0, 0) = " "
        notice "Select Again:"
    end if
End Sub

Sub combo16Click handle$
    #handle$ "selection? Selected$"
    b$(1, 0) = Selected$
    if b$(1, 0) = b$(1, 1) or b$(1, 0) = b$(1, 2) then
        notice "It's your choice:  "; b$(1, 0)
        b$(1, 0) = " "
        notice "Select Again:"
    end if
End Sub

Sub combo17Click handle$
    #handle$ "selection? Selected$"
    b$(2, 0) = Selected$
    if b$(2, 0) = b$(2, 1) or b$(2, 0) = b$(2, 2) then
        notice "It's your choice:  "; b$(2, 0)
        b$(2, 0) = " "
        notice "Select Again:"
    end if
    'Selected$ contains text of item selected
    End Sub

Sub combo18Click handle$
    #handle$ "selection? Selected$"
    b$(3, 0) = Selected$
    if b$(3, 0) = b$(3, 1) or b$(3, 0) = b$(3, 2) then
        notice "It's your choice:  "; b$(3, 0)
        b$(3, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo19Click handle$
    #handle$ "selection? Selected$"
    b$(4, 0) = Selected$
    if b$(4, 0) = b$(4, 1) or b$(4, 0) = b$(4, 2) then
        notice "It's your choice:  "; b$(4, 0)
        b$(4, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo20Click handle$
    #handle$ "selection? Selected$"
    b$(5, 0) = Selected$
    if b$(5, 0) = b$(5, 1) or b$(5, 0) = b$(5, 2) then
        notice "It's your choice:  "; b$(5, 0)
        b$(5, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo21Click handle$
    #handle$ "selection? Selected$"
    b$(6, 0) = Selected$
    if b$(6, 0) = b$(6, 1) or b$(6, 0) = b$(6, 2) then
        notice "It's your choice:  "; b$(6, 0)
        b$(6, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo22Click handle$
    #handle$ "selection? Selected$"
    b$(7, 0) = Selected$
    if b$(7, 0) = b$(7, 1) or b$(7, 0) = b$(7, 2) then
        notice "It's your choice:  "; b$(7, 0)
        b$(7, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo23Click handle$
    #handle$ "selection? Selected$"
    b$(8, 0) = Selected$
    if b$(8, 0) = b$(8, 1) or b$(8, 0) = b$(8, 2) then
        notice "It's your choice:  "; b$(8, 0)
        b$(8, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo24Click handle$
    #handle$ "selection? Selected$"
    b$(9, 0) = Selected$
    if b$(9, 0) = b$(9, 1) or b$(9, 0) = b$(9, 2) then
        notice "It's your choice:  "; b$(9, 0)
        b$(9, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo25Click handle$
    #handle$ "selection? Selected$"
    b$(10, 0) = Selected$
    if b$(10, 0) = b$(10, 1) or b$(10, 0) = b$(10, 2) then
        notice "It's your choice:  "; b$(10, 0)
        b$(10, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo26Click handle$
    #handle$ "selection? Selected$"
    b$(11, 0) = Selected$
    if b$(11, 0) = b$(11, 1) or b$(11, 0) = b$(11, 2) then
        notice "It's your choice:  "; b$(11, 0)
        b$(11, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo27Click handle$
    #handle$ "selection? Selected$"
    b$(12, 0) = Selected$
    if b$(12, 0) = b$(12, 1) or b$(12, 0) = b$(12, 2) then
        notice "It's your choice:  "; b$(12, 0)
        b$(12, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo28Click handle$
    #handle$ "selection? Selected$"
    b$(13, 0) = Selected$
    if b$(13, 0) = b$(13, 1) or b$(13, 0) = b$(13, 2) then
        notice "It's your choice:  "; b$(13, 0)
        b$(13, 0) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo29Click handle$
    #handle$ "selection? Selected$"
    b$(0, 1) = Selected$
    if b$(0, 1) = b$(0, 0) or b$(0, 1) = b$(0, 2) then
        notice "It's your choice:  "; b$(0, 1)
        b$(0, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo30Click handle$
    #handle$ "selection? Selected$"
    b$(1, 1) = Selected$
    if b$(1, 1) = b$(1, 0) or b$(1, 1) = b$(1, 2) then
        notice "It's your choice:  "; b$(1, 0)
        b$(1, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo31Click handle$
    #handle$ "selection? Selected$"
    b$(2, 1) = Selected$
    if b$(2, 1) = b$(2, 0) or b$(2, 1) = b$(2, 2) then
        notice "It's your choice:  "; b$(2, 0)
        b$(2, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo32Click handle$
    #handle$ "selection? Selected$"
    b$(3, 1) = Selected$
    if b$(3, 1) = b$(3, 0) or b$(3, 1) = b$(3, 2) then
        notice "It's your choice:  "; b$(3, 0)
        b$(3, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo33Click handle$
    #handle$ "selection? Selected$"
    b$(4, 1) = Selected$
    if b$(4, 1) = b$(4, 0) or b$(4, 1) = b$(4, 2) then
        notice "It's your choice:  "; b$(4, 0)
        b$(4, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo34Click handle$
    #handle$ "selection? Selected$"
    b$(5, 1) = Selected$
    if b$(5, 1) = b$(5, 0) or b$(5, 1) = b$(5, 2) then
        notice "It's your choice:  "; b$(5, 0)
        b$(5, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo35Click handle$
    #handle$ "selection? Selected$"
    b$(6, 1) = Selected$
    if b$(6, 1) = b$(6, 0) or b$(6, 1) = b$(6, 2) then
        notice "It's your choice:  "; b$(6, 0)
        b$(6, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo36Click handle$
    #handle$ "selection? Selected$"
    b$(7, 1) = Selected$
    if b$(7, 1) = b$(7, 0) or b$(7, 1) = b$(7, 2) then
        notice "It's your choice:  "; b$(7, 0)
        b$(7, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo37Click handle$
    #handle$ "selection? Selected$"
    b$(8, 1) = Selected$
    if b$(8, 1) = b$(8, 0) or b$(8, 1) = b$(8, 2) then
        notice "It's your choice:  "; b$(8, 0)
        b$(8, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo38Click handle$
    #handle$ "selection? Selected$"
    b$(9, 1) = Selected$
    if b$(9, 1) = b$(9, 0) or b$(9, 1) = b$(9, 2) then
        notice "It's your choice:  "; b$(9, 0)
        b$(9, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo39Click handle$
    #handle$ "selection? Selected$"
    b$(10, 1) = Selected$
    if b$(10, 1) = b$(10, 0) or b$(10, 1) = b$(10, 2) then
        notice "It's your choice:  "; b$(10, 0)
        b$(10, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo40Click handle$
    #handle$ "selection? Selected$"
    b$(11, 1) = Selected$
    if b$(11, 1) = b$(11, 0) or b$(11, 1) = b$(11, 2) then
        notice "It's your choice:  "; b$(11, 0)
        b$(11, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo41Click handle$
    #handle$ "selection? Selected$"
    b$(12, 1) = Selected$
    if b$(12, 1) = b$(12, 0) or b$(12, 1) = b$(12, 2) then
        notice "It's your choice:  "; b$(12, 0)
        b$(12, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo42Click handle$
    #handle$ "selection? Selected$"
    b$(13, 1) = Selected$
    if b$(13, 1) = b$(13, 0) or b$(13, 1) = b$(13, 2) then
        notice "It's your choice:  "; b$(13, 0)
        b$(13, 1) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo43Click handle$
    #handle$ "selection? Selected$"
    b$(0, 2) = Selected$
    if b$(0, 2) = b$(0, 0) or b$(0, 2) = b$(0, 1) then
        notice "It's your choice:  "; b$(0, 2)
        b$(0, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo44Click handle$
    #handle$ "selection? Selected$"
    b$(1, 2) = Selected$
    if b$(1, 2) = b$(1, 0) or b$(1, 2) = b$(1, 1) then
        notice "It's your choice:  "; b$(1, 2)
        b$(1, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo45Click handle$
    #handle$ "selection? Selected$"
    b$(2, 2) = Selected$
    if b$(2, 2) = b$(2, 0) or b$(2, 2) = b$(2, 1) then
        notice "It's your choice:  "; b$(2, 2)
        b$(2, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo46Click handle$
    #handle$ "selection? Selected$"
    b$(3, 2) = Selected$
    if b$(3, 2) = b$(3, 0) or b$(3, 2) = b$(3, 1) then
        notice "It's your choice:  "; b$(3, 2)
        b$(3, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo47Click handle$
    #handle$ "selection? Selected$"
    b$(4, 2) = Selected$
    if b$(4, 2) = b$(4, 0) or b$(4, 2) = b$(4, 1) then
        notice "It's your choice:  "; b$(4, 2)
        b$(4, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo48Click handle$
    #handle$ "selection? Selected$"
    b$(5, 2) = Selected$
    if b$(5, 2) = b$(5, 0) or b$(5, 2) = b$(5, 1) then
        notice "It's your choice:  "; b$(5, 2)
        b$(5, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo49Click handle$
    #handle$ "selection? Selected$"
    b$(6, 2) = Selected$
    if b$(6, 2) = b$(6, 0) or b$(6, 2) = b$(6, 1) then
        notice "It's your choice:  "; b$(6, 2)
        b$(6, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo50Click handle$
    #handle$ "selection? Selected$"
    b$(7, 2) = Selected$
    if b$(7, 2) = b$(7, 0) or b$(7, 2) = b$(7, 1) then
        notice "It's your choice:  "; b$(7, 2)
        b$(7, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo51Click handle$
    #handle$ "selection? Selected$"
    b$(8, 2) = Selected$
    if b$(8, 2) = b$(8, 0) or b$(8, 2) = b$(8, 1) then
        notice "It's your choice:  "; b$(8, 2)
        b$(8, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo52Click handle$
    #handle$ "selection? Selected$"
    b$(9, 2) = Selected$
    if b$(9, 2) = b$(9, 0) or b$(9, 2) = b$(9, 1) then
        notice "It's your choice:  "; b$(9, 2)
        b$(9, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo53Click handle$
    #handle$ "selection? Selected$"
    b$(10, 2) = Selected$
    if b$(10, 2) = b$(10, 0) or b$(10, 2) = b$(10, 1) then
        notice "It's your choice:  "; b$(10, 2)
        b$(10, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo54Click handle$
    #handle$ "selection? Selected$"
    b$(11, 2) = Selected$
    if b$(11, 2) = b$(11, 0) or b$(11, 2) = b$(11, 1) then
        notice "It's your choice:  "; b$(11, 2)
        b$(11, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo55Click handle$
    #handle$ "selection? Selected$"
    b$(12, 2) = Selected$
    if b$(12, 2) = b$(12, 0) or b$(12, 2) = b$(12, 1) then
        notice "It's your choice:  "; b$(12, 2)
        b$(12, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub combo56Click handle$
    #handle$ "selection? Selected$"
    b$(13, 2) = Selected$
    if b$(13, 2) = b$(13, 0) or b$(13, 2) = b$(13, 1) then
        notice "It's your choice: "; b$(13, 2)
        b$(13, 2) = " "
        notice "Select Again:"
    end if
    End Sub

Sub dialogh handle$

    notice "Please wait for the selection process to finish"
o=0:p=0:q=0:r=0:s=0
    for a=0 to 2
    for b=0 to 2
    for c=0 to 2
    for d=0 to 2
    for e=0 to 2
    for f=0 to 2
    for g=0 to 2
    for h=0 to 2
    for i=0 to 2
    for j=0 to 2
    for k=0 to 2
    for l=0 to 2
    for m=0 to 2
    for n=0 to 2
        if b$(0, a) = a$(0) then
            o=o+1
        ELSE
            if b$(0, a) = a$(0) then
                p=p+1
        ELSE
            if b$(0, a) = a$(0) then
                q=q+1
            end if
            end if
        end if
        if b$(1, b) = a$(1) then
            o=o+1
        else
            if b$(1, b) = a$(1) then
                p=p+1
        else
            if b$(1, b) = a$(1) then
                q=q+1
            end if
            end if
        end if
        if b$(2, c) = a$(2) then
            o=o+1
        end if
        if b$(2, c) = a$(2) then
            p=p+1
        end if
        if b$(2, c) = a$(2) then
            q=q+1
        end if
        if b$(3, d) = a$(3) then
            o=o+1
        end if
        if b$(3, d) = a$(3) then
            p=p+1
        end if
        if b$(3, d) = a$(3) then
            q=q+1
        end if
        if b$(4, e) = a$(4) then
            o=o+1
        end if
        if b$(4, e) = a$(4) then
            p=p+1
        end if
        if b$(4, e) = a$(4) then
            q=q+1
        end if
        if b$(5, f) = a$(5) then
            o=o+1
        end if
        if b$(5, f) = a$(5) then
            p=p+1
        end if
        if b$(5, f) = a$(5) then
            q=q+1
        end if
        if b$(6, g) = a$(6) then
            o=o+1
        end if
        if b$(6, g) = a$(6) then
            p=p+1
        end if
        if b$(6, g) = a$(6) then
            q=q+1
        end if
        if b$(7, h) = a$(7) then
            o=o+1
        end if
        if b$(7, h) = a$(7) then
            p=p+1
        end if
        if b$(7, h) = a$(7) then
            q=q+1
        end if
        if b$(8, i) = a$(8) then
            o=o+1
        end if
        if b$(8, i) = a$(8) then
            p=p+1
        end if
        if b$(8, i) = a$(8) then
            q=q+1
        end if
        if b$(9, j) = a$(9) then
            o=o+1
        end if
        if b$(9, j) = a$(9) then
            p=p+1
        end if
        if b$(9, j) = a$(9) then
            q=q+1
        end if
        if b$(10, k) = a$(10) then
            o=o+1
        end if
        if b$(10, k) = a$(10) then
            p=p+1
        end if
        if b$(10, k) = a$(10) then
            q=q+1
        end if
        if b$(11, l) = a$(11) then
            o=o+1
        end if
        if b$(11, l) = a$(11) then
            p=p+1
        end if
        if b$(11, l) = a$(11) then
            q=q+1
        end if
        if b$(12, m) = a$(12) then
            o=o+1
        end if
        if b$(12, m) = a$(12) then
            p=p+1
        end if
        if b$(12, m) = a$(12) then
            q=q+1
        end if
        if b$(13, n) = a$(13) then
            o=o+1
        end if
        if b$(13, n) = a$(13) then
            p=p+1
        end if
        if b$(13, n) = a$(13) then
            q=q+1
        end if
next:next:next:next:next:next:next:next:next:next:next:next:next:next
    notice "The selection process is over"; o
    notice "The selection process is over"; p
    notice "The selection process is over"; q
end sub

SUB MakeTooltips hWin
    TTS.ALWAYSTIP = 1 : TTS.NOPREFIX = 2 : TTF.IDISHWND = 1
    TTF.CENTERTIP = 2 : TTF.SUBCLASS = 16: TTM.ADDTOOL = 1028
    style = _WS_POPUP or TTS.NOPREFIX or TTS.ALWAYSTIP
    calldll #comctl32,"InitCommonControls", re as void
    calldll #user32, "GetWindowLongA", hWin as long, _GWL_HINSTANCE as long, hInstance as long
    calldll #user32, "CreateWindowExA", _WS_EX_TOPMOST as long,"tooltips_class32" as ptr, " " as ptr,_
        style as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long, _CW_USEDEFAULT as long,_
        hWin as long, 0 as long, hInstance as long, "" as ptr, hwndTT as long
    flags=_SWP_NOMOVE or _SWP_NOSIZE or _SWP_NOACTIVATE
    calldll #user32, "SetWindowPos", hwndTT as long,_HWND_TOPMOST as long, 0 as long, 0 as long,_
    0 as long, 0 as long, flags as long, r as long

    'create a struct for the tooltips:
    struct toolinfo, cbSize as long, uFlags as long, hWindow as long, uId as long, x as long, y as long,_
    w as long, h as long, hInst as long, lpstrText$ as ptr
    toolinfo.cbSize.struct = len(toolinfo.struct)
    toolinfo.uFlags.struct = TTF.IDISHWND Or TTF.SUBCLASS
    toolinfo.hWindow.struct = hWin

   'Button TB4.bt1 Tooltip:
    toolinfo.uId.struct = hwnd(#TB4.bt1)
    toolinfo.lpstrText$.struct = "Εselect columns from system."  '*** CHANGE TOOLTIP TEXT HERE!
    calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

   'Textbox TB3.tb1 Tooltip:
    toolinfo.uId.struct = hwnd(#TB3.teb1)
    toolinfo.lpstrText$.struct = "How Many Aces (Minimum)"  '*** CHANGE TOOLTIP TEXT HERE!
    calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

   'Textbox TB3.tb2 Tooltip:
    toolinfo.uId.struct = hwnd(#TB3.teb2)
    toolinfo.lpstrText$.struct = "How Many Aces (Maximum)"  '*** CHANGE TOOLTIP TEXT HERE!
    calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

   'Textbox TB3.tb3 Tooltip:
    toolinfo.uId.struct = hwnd(#TB3.teb3)
    toolinfo.lpstrText$.struct = "How many 'X' (Minimum)"  '*** CHANGE TOOLTIP TEXT HERE!
    calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

   'Textbox TB3.tb4 Tooltip:
    toolinfo.uId.struct = hwnd(#TB3.teb4)
    toolinfo.lpstrText$.struct = "How many 'X' (Maximum)"  '*** CHANGE TOOLTIP TEXT HERE!
    calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

   'Textbox TB3.tb5 Tooltip:
    toolinfo.uId.struct = hwnd(#TB3.teb5)
    toolinfo.lpstrText$.struct = "How many '2' (Minimum)"  '*** CHANGE TOOLTIP TEXT HERE!
    calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

   'Textbox TB3.tb6 Tooltip:
    toolinfo.uId.struct = hwnd(#TB3.teb6)
    toolinfo.lpstrText$.struct = "How many '2' (Maximum)"  '*** CHANGE TOOLTIP TEXT HERE!
    calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

END SUB

Sub SetText hWnd,segID,txt$
    SB.SETTEXT  = 1025
    calldll #user32,  "SendMessageA",_
    hWnd as ulong,SB.SETTEXT as long,_
    segID as long,txt$ as ptr,r as long
End Sub

Function GetKeyState(key)

    CallDLL #user32, "GetKeyState", key As long, GetKeyState As long

End Function


FUNCTION MakeStatusBar(hWin, caption$)
    style = _WS_VISIBLE or _WS_CHILD
    CALLDLL #comctl32,"InitCommonControls", re as void
    CALLDLL #comctl32,"CreateStatusWindow", style as long, caption$ as ptr, hWin as long, 22 as long, hBar as long
    SB.SETPARTS = 1028
    STRUCT prt,edge1 as long,edge2 as long,edge3 as long,edge4 as long,edge5 as long,edge6 as long
    'change measurements below as needed:
    sizePanel = Int(WindowWidth / 30) 'divide WindowWidth by number of panels
    prt.edge1.struct = sizePanel * 12
    prt.edge2.struct = sizePanel * 15
    prt.edge3.struct = sizePanel * 18
    prt.edge4.struct = sizePanel * 22
    prt.edge5.struct = sizePanel * 25
    prt.edge6.struct = -1
    numParts = 6
    CALLDLL #user32,  "SendMessageA", hBar as long, SB.SETPARTS as long, numParts As Long, prt As struct, r As Long
    MakeStatusBar = hBar
END FUNCTION

'----------------------------------------------------------------------------------

SUB STOPIT Hndl$
  CLOSE #WIN
  CLOSE #TAB
  CLOSE #TB1
  CLOSE #TB2
  CLOSE #TB3
  CLOSE #TB4
  CLOSE #TB5
  END
END SUB

[STOPIT]
  CLOSE #WIN
  CLOSE #TAB
  CLOSE #TB1
  CLOSE #TB2
  CLOSE #TB3
  CLOSE #TB4
  CLOSE #TB5
  END
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------

Sub MoveWindow hWnd,x,y,w,h
    CallDLL #user32, "MoveWindow",hWnd As uLong,_
         x As Long, y As Long,w As Long, h As Long,_
         1 As Boolean, r As Boolean
End Sub

[ResizeStatus]

    RetVal = 0
    WinHndl = HWND(#WIN)
    CALLDLL #TAB, "UpdateTab", TabHndl AS ULONG, RetVal AS VOID
    SB.SETPARTS = 1028
    STRUCT prt, edge1 as long, edge2 as long, edge3 as long, edge4 as long, edge5 as long, edge6 as long
    sizePanel = Int(WindowWidth / 30) 'divide WindowWidth by number of panels
    prt.edge1.struct = sizePanel * 12
    prt.edge2.struct = sizePanel * 15
    prt.edge3.struct = sizePanel * 18
    prt.edge4.struct = sizePanel * 22
    prt.edge5.struct = sizePanel * 25
    prt.edge6.struct = -1
    numParts = 6
    CALLDLL #user32,  "SendMessageA", hStatus as long, SB.SETPARTS as long, numParts As Long, prt As struct, r As Long
    CALLDLL #user32, "SendMessageA", hStatus as long, _WM_SIZE as long, 0 as long, WindowWidth as long, re as long
    WAIT

Marco Kurvers Administrator Posts: 92	Soccer prediction editor application. Dec 15, 2023 13:50:11 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Marco Kurvers on Dec 15, 2023 13:50:11 GMT The code looks nice. I get a module error message when I run it.

gaslouk New Member Hi from beautiful Greece . Posts: 15	Soccer prediction editor application. Dec 15, 2023 18:02:16 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by gaslouk on Dec 15, 2023 18:02:16 GMT Hi What error? i can't find it TABCTL.DLL?

Marco Kurvers Administrator Posts: 92	Soccer prediction editor application. Dec 15, 2023 21:55:56 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Marco Kurvers on Dec 15, 2023 21:55:56 GMT See here the error that I get.
	Last Edit: Dec 15, 2023 21:58:56 GMT by Marco Kurvers

gaslouk
New Member

Hi from beautiful Greece .

Posts: 15

Soccer prediction editor application. Dec 16, 2023 3:53:28 GMT

Quote

Post by gaslouk on Dec 16, 2023 3:53:28 GMT

Hi from Greece.

delete this lines from SUB MakeTooltips hWin

'Button TB4.bt1 Tooltip:
toolinfo.uId.struct = hwnd(#TB4.bt1)
toolinfo.lpstrText$.struct = "Select columns from system." '*** CHANGE TOOLTIP TEXT HERE!
calldll #user32, "SendMessageA", hwndTT as long, TTM.ADDTOOL as long, 0 as long, toolinfo as struct, re as long

And is ok.

Last Edit: Dec 16, 2023 3:54:01 GMT by gaslouk

Marco Kurvers
Administrator

Posts: 92

Soccer prediction editor application. Dec 18, 2023 10:39:56 GMT

Quote

Post by Marco Kurvers on Dec 18, 2023 10:39:56 GMT

Do you mean the sub MakeTooltips hWin?
If I comment this what you say, but I get still the same error.
The tooltip and the tabstrip are from Windows, I think.

So I'm wondering where the error comes from and what is meant by the module that cannot be found.

gaslouk New Member Hi from beautiful Greece . Posts: 15	Soccer prediction editor application. Dec 18, 2023 12:56:31 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by gaslouk on Dec 18, 2023 12:56:31 GMT It's the explanation of what this button does. There is an error, so if you comment on it, there is no error.

willembever
New Member

Posts: 7

Soccer prediction editor application. Dec 19, 2023 21:18:25 GMT

Quote

Post by willembever on Dec 19, 2023 21:18:25 GMT

Gaslouk,
we've met at the Wednesday evening HCC sessions where Marco also participate.
I've tried your program end a similar program. The first problem is that we don't have the tabctl.dll. Marco and I tried to run with the tabctl32.dll .
The second problem is that then we get a failure with a line as CALLDLL #TAB, "FN_InitTab", WinHndl AS ULONG, tTab AS STRUCT, TabHndl AS ULONG . This gives a Dynamic Link Library call Error. I think that there is a difference between the two dll's concerning the way of calling them. I have searched the internet voor the tabctl.dll en couldn't find it.
Greetings from The Netherlands, Wim

gaslouk
New Member

Hi from beautiful Greece .

Posts: 15

Soccer prediction editor application. Dec 20, 2023 5:06:36 GMT

Quote

Post by gaslouk on Dec 20, 2023 5:06:36 GMT

Hi Wim and Marcos.

The tabctl.dll you found in forum Liberty Basic.
Now with the error of calldll #tab is because there is not tabctl.dll.

libertybasiccom.proboards.com/attachment/download/434

Here is Tabctl.dll.

Gaslouk

Last Edit: Dec 20, 2023 9:10:44 GMT by gaslouk

willembever New Member Posts: 7	Soccer prediction editor application. Dec 20, 2023 21:16:40 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by willembever on Dec 20, 2023 21:16:40 GMT Hi Gaslouk, Thanks, it's now working! Greetings, Wim

Marco Kurvers Administrator Posts: 92	Soccer prediction editor application. Dec 20, 2023 21:50:22 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Marco Kurvers on Dec 20, 2023 21:50:22 GMT Hi Gaslouk, The program works for me now, too. It looks good. Thanks. Greetings, Marco

Makurvers

Soccer prediction editor application.

Post by gaslouk on Dec 15, 2023 6:59:33 GMT

Post by Marco Kurvers on Dec 15, 2023 13:50:11 GMT

Post by gaslouk on Dec 15, 2023 18:02:16 GMT

Post by Marco Kurvers on Dec 15, 2023 21:55:56 GMT

Post by gaslouk on Dec 16, 2023 3:53:28 GMT

Post by Marco Kurvers on Dec 18, 2023 10:39:56 GMT

Post by gaslouk on Dec 18, 2023 12:56:31 GMT

Post by willembever on Dec 19, 2023 21:18:25 GMT

Post by gaslouk on Dec 20, 2023 5:06:36 GMT

Post by willembever on Dec 20, 2023 21:16:40 GMT

Post by Marco Kurvers on Dec 20, 2023 21:50:22 GMT

Quick Reply