Code: Select all
struct TextAttr DejaVuSansMono14={ (STRPTR)"DejaVu Sans Mono.font",14,0,FPF_DISKFONT };
Code: Select all
LAYOUT_AddChild, Objects[GAD_PREVIEW_TEXT]=IIntuition->NewObject(ListBrowserClass,NULL,
GA_ID, GAD_PREVIEW_TEXT,
GA_ReadOnly, TRUE,
GA_TextAttr, &DejaVuSansMono14,
LISTBROWSER_Borderless, TRUE,
LISTBROWSER_Labels, PreviewTextList,
LISTBROWSER_VerticalProp, TRUE,
LISTBROWSER_HorizontalProp, TRUE,
LISTBROWSER_AutoVirtualWidth,TRUE,
TAG_DONE),
If I comment out the GA_TextAttr line and use the system proportional font, the horizontal scroller allows for scrolling like it should.
When I change text I use this
Code: Select all
ILayout->SetPageGadgetAttrs((struct Gadget *)Objects[GAD_PREVIEW_TEXT],Objects[PAGE_PREVIEW_TEXT],MainWindow,NULL,
LISTBROWSER_Labels, PreviewTextList,
LISTBROWSER_Top, 0,
LISTBROWSER_AutoVirtualWidth,TRUE,
TAG_DONE);
OS4.1FE