Welcome to the SRP Forum! Please refer to the SRP Forum FAQ post if you have any questions regarding how the forum works.

Scroll bars not showing

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.

Comments

  • 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.
  • edited November 2018
    Any news on this.
    We are finding scroll bars missing in various locations that were previously showing.
  • 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?
  • 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)
  • 4.1.2 RC11 will fix this. I was focusing on vertical scroll bars, but the issue was horizontal.
  • It was horizontal, I probably should have said.
    This latest RC has fixed the issue.
    Thanks
Sign In or Register to comment.