Post by b03a8b on Sept 28, 2021 12:06:13 GMT -5
I time races. I have 2 big windows to display # of times recorded and # of finishers. Hit <ENTER> for times and click bibs for finishers. Displaying the times and finishers leaves lots of valuable real estate at top. I want to be able to see those two numbers from 10' away. How do I get rid of top margin?
This is most of pertinent code. BigF and BigT are problem boxes.
' Adjust for Personalized Display Setting here
'Adjustment = 100 / DisplaySetting
DW = DisplayWidth
DH = DisplayHeight
WindowWidth = DW
WindowHeight = DH
UpperLeftx = 1 : ULX = UpperLeftx
UpperLefty = 1 : ULY = UpperLefty
' Width of 1st column
L25W = int(.40 * DW)
' Width of right 3 columns
Right3 = Int(.20 * DW)
' X location of upper left corner of the right 3 listboxes
R3X1 = L25W : R3X2 = L25W + Right3 : R3X3 = L25W + 2 * Right3
' Height of right 3 listboxes
R3YHi = DH * .8 : R3YLo = DH - R3YHi : R3Lo = DH * .8
' Y location of right 3 listboxes
ULYR3 = ULY + DH * .06
print DW, DH, ULX, ULY
print L25W, Right3, R3X1, R3X2, R3X3
print R3YHi, R3YLo, R3Lo
'end
'Locations ' upper X Y box width box height
listbox #1.pick25, L25$(),[get25], ULX, ULY, L25W, DH
listbox #1.pickac, AC$(), [getac], R3X1, DH * .21, Right3, DH * .735
listbox #1.pickdj, DJ$(), [getdj], R3X2, DH * .21, Right3, DH * .735
listbox #1.pickko, KO$(), [getko], R3X3, DH * .21, Right3, DH * .735
listbox #1.pickxx, XX$(), [getxx], R3X3, ULYR3 , Right3, DH * .15
listbox #1.BigF , BF$(), [getbf], R3X1, ULYR3 , Right3, DH * .15
listbox #1.BigT , BT$(), [getbt], R3X2, ULYR3 , Right3, DH * .15
' was .026 high
textbox #1.time, R3X3 * .97, DH * .0018, Right3 * 1.05, DH * .030
textbox #1.regcross, R3X3 * .97, DH * .032, Right3 * 1.05, DH * .030
topline$ = "OVERALL ORDER REGISTERED " + str$(prereg) + " RACE START TIME WAS " + Start$ + " MINUS " + tdel$ + " MINUTES "
button #1.default, " ", [firstn], LR, 170, 10
'Locations ' start upper X Y box width box height
textbox #1.txt, R3X1 * 1.001, DH * .0018, DW * .23, DH * .03
statictext #1, " Bib First Last Age Sex (Place)", R3X1 * 1.001, DH * .0320, DW * .23, DH * .03
button #1.help, "Awards",[sofar], UL, R3X2 * 1.065, DH * .0018, DW * .045, DH * .03
button #1.force, "Update",[PLACETOP], UL, R3X2 * 1.065, DH * .0320, DW * .045, DH * .03
button #1.bib, "Edit Times",[TimEdit], UL, R3X2 * 1.150, DH * .0018, DW * .065, DH * .03
open topline$ for dialog_nf as #1
fontchoice = 14
fontbig = 1 + int(fontchoice * DisplayWidth / 1680)
print #1, "font arial bold "; fontbig
fontchoice = 15
fontbig = 1 + int(fontchoice * DisplayWidth / 1680)
print #1.pick25, "font courier_new bold "; fontbig
fontchoice = 116
fontbig = 1 + int(fontchoice * DisplayWidth / 1680)
print #1.BigF, "font arial bold "; fontbig
print #1.BigT, "font arial bold "; fontbig
print #1.txt, "!setfocus"
#1.pick25 "singleclickselect [get25]"
#1.pickac "singleclickselect [getac]"
#1.pickdj "singleclickselect [getdj]"
#1.pickko "singleclickselect [getko]"
#1.pickxx "singleclickselect [getxx]"
print #1.pickac, "reload" : print #1.pickdj, "reload" : print #1.pickko, "reload" : print #1.pick25, "reload"
print #1.pickxx, "reload"
This is most of pertinent code. BigF and BigT are problem boxes.
' Adjust for Personalized Display Setting here
'Adjustment = 100 / DisplaySetting
DW = DisplayWidth
DH = DisplayHeight
WindowWidth = DW
WindowHeight = DH
UpperLeftx = 1 : ULX = UpperLeftx
UpperLefty = 1 : ULY = UpperLefty
' Width of 1st column
L25W = int(.40 * DW)
' Width of right 3 columns
Right3 = Int(.20 * DW)
' X location of upper left corner of the right 3 listboxes
R3X1 = L25W : R3X2 = L25W + Right3 : R3X3 = L25W + 2 * Right3
' Height of right 3 listboxes
R3YHi = DH * .8 : R3YLo = DH - R3YHi : R3Lo = DH * .8
' Y location of right 3 listboxes
ULYR3 = ULY + DH * .06
print DW, DH, ULX, ULY
print L25W, Right3, R3X1, R3X2, R3X3
print R3YHi, R3YLo, R3Lo
'end
'Locations ' upper X Y box width box height
listbox #1.pick25, L25$(),[get25], ULX, ULY, L25W, DH
listbox #1.pickac, AC$(), [getac], R3X1, DH * .21, Right3, DH * .735
listbox #1.pickdj, DJ$(), [getdj], R3X2, DH * .21, Right3, DH * .735
listbox #1.pickko, KO$(), [getko], R3X3, DH * .21, Right3, DH * .735
listbox #1.pickxx, XX$(), [getxx], R3X3, ULYR3 , Right3, DH * .15
listbox #1.BigF , BF$(), [getbf], R3X1, ULYR3 , Right3, DH * .15
listbox #1.BigT , BT$(), [getbt], R3X2, ULYR3 , Right3, DH * .15
' was .026 high
textbox #1.time, R3X3 * .97, DH * .0018, Right3 * 1.05, DH * .030
textbox #1.regcross, R3X3 * .97, DH * .032, Right3 * 1.05, DH * .030
topline$ = "OVERALL ORDER REGISTERED " + str$(prereg) + " RACE START TIME WAS " + Start$ + " MINUS " + tdel$ + " MINUTES "
button #1.default, " ", [firstn], LR, 170, 10
'Locations ' start upper X Y box width box height
textbox #1.txt, R3X1 * 1.001, DH * .0018, DW * .23, DH * .03
statictext #1, " Bib First Last Age Sex (Place)", R3X1 * 1.001, DH * .0320, DW * .23, DH * .03
button #1.help, "Awards",[sofar], UL, R3X2 * 1.065, DH * .0018, DW * .045, DH * .03
button #1.force, "Update",[PLACETOP], UL, R3X2 * 1.065, DH * .0320, DW * .045, DH * .03
button #1.bib, "Edit Times",[TimEdit], UL, R3X2 * 1.150, DH * .0018, DW * .065, DH * .03
open topline$ for dialog_nf as #1
fontchoice = 14
fontbig = 1 + int(fontchoice * DisplayWidth / 1680)
print #1, "font arial bold "; fontbig
fontchoice = 15
fontbig = 1 + int(fontchoice * DisplayWidth / 1680)
print #1.pick25, "font courier_new bold "; fontbig
fontchoice = 116
fontbig = 1 + int(fontchoice * DisplayWidth / 1680)
print #1.BigF, "font arial bold "; fontbig
print #1.BigT, "font arial bold "; fontbig
print #1.txt, "!setfocus"
#1.pick25 "singleclickselect [get25]"
#1.pickac "singleclickselect [getac]"
#1.pickdj "singleclickselect [getdj]"
#1.pickko "singleclickselect [getko]"
#1.pickxx "singleclickselect [getxx]"
print #1.pickac, "reload" : print #1.pickdj, "reload" : print #1.pickko, "reload" : print #1.pick25, "reload"
print #1.pickxx, "reload"