Scroll bars not showing

ColinRule

I am getting a few instances where the scroll bars are not showing, with the default Auto setting... ie no specific scroll bar setting in the code. Easily resolved by adding the "AL" option.

Maybe something has changed recently causing this.

KevinFournier

Sometimes this has to do with timing, especially during the CREATE event. I'll look into it and see if I can narrow down the issue.

ColinRule

Any news on this.
We are finding scroll bars missing in various locations that were previously showing.

KevinFournier

I can't recreate this in my environment. Perhaps it involves the order in which the table is setup and loaded. Can you email me code that mimics one of your problem tables?

ColinRule

Code is as follows, sorry I cant provide the column info, its parameterised.



Ctrl=FORMULA_RESULTS
MaxColumns=18
Qualifier=1:@FM:"2*ICEMATE*OLE*":Ctrl
Call Send_Message(Ctrl,"QUALIFY_EVENT","ALL_OLES",Qualifier)
Call Set_Property(Ctrl,"OLE.FunctionKey[F2]","EDIT")
Call Set_Property(Ctrl,"OLE.SuppressMouseMoveEvent",1)
Call Set_Property(Ctrl,"OLE.HeaderAlignment[All;All]","C":@FM:"C")
Call Set_Property(Ctrl,"OLE.HeaderColumn[1]",0:@fm:0)
Call Set_Property(Ctrl,"OLE.AutoNumbers","I":@VM:1:@FM:"N")
Call Set_Property(Ctrl,"OLE.DblClickToEdit",0)
Call Send_Message(Ctrl,"OLE.InsertColumns",-1,MaxColumns)

FOR I=1 TO MaxColumns
POS=FormulaPositions(I)
IF POS THEN
ColCode =SYS_PARAMS<141,POS>
Heading =SYS_PARAMS<142,POS>
Width =SYS_PARAMS<143,POS>
Align =SYS_PARAMS<144,POS>
Heading1=FIELD(HEADING,"|",1)
Heading2=FIELD(HEADING,"|",2)
If Width=0 then Visible=0 else Visible=1
Call Set_Property(Ctrl,"OLE.DataColumn[":Pos:"]",Width:@FM:Visible:@FM:1:@FM:0:@FM:Width)
Call Set_Property(Ctrl,"OLE.HeaderText[":Pos+1:";1]",Heading1)
Call Set_Property(Ctrl,"OLE.HeaderText[":Pos+1:";2]",Heading2)
Call Set_Property(Ctrl,"OLE.CellAlignment[":Pos:";All]","C":@FM:Align:@FM:"L")
END
NEXT I

Call Set_Property(Ctrl,"OLE.CellProtection[ALL;All]","SEL")
Call Set_Property(Ctrl,"OLE.CellProtection[":FTCol_Perc :";All]","NONE")
Call Set_Property(Ctrl,"OLE.CellProtection[":FTCol_Yardstick+1:";All]","FUL")
Call Set_Property(Ctrl,"OLE.FreezePos",FScrollLock:@fm:0)
Call Set_Property(Ctrl,"OLE.FreezePos",1:@fm:0)
Call Set_Property(Ctrl,"OLE.AllowDeletions",0)
Call Set_Property(Ctrl,"OLE.AllowInserts",0)
Call Set_Property(Ctrl,"OLE.NewRowCount",0)
Call Set_Property(Ctrl,"OLE.ResetSelPos",0)
Call Set_Property(Ctrl,"OLE.ScrollStep",1:@fm:1)
SelectionStyle=""
SelectionStyle<2,2>=HighLightColour
SelectionStyle<7>="Record"
SelectionStyle<8>=1
Call Set_Property(Ctrl,"OLE.SelectionStyle",SelectionStyle)

KevinFournier

4.1.2 RC11 will fix this. I was focusing on vertical scroll bars, but the issue was horizontal.

ColinRule

It was horizontal, I probably should have said.
This latest RC has fixed the issue.
Thanks