Указан он у меня. Но не помогает.
Если у шрифта ToolTip вообще есть какая-то реакция на настройки, то StatusBar - нет вообще.
Я даже не знаю вообще каким шрифтом StatusBar выводится - похоже это где-то прошито в RTL.
Модератор: Дед Пахом
Указан он у меня. Но не помогает.
Код: Выделить всё
Loc:Mess CSTRING(131),DIM(24,3)
...
Code
...
SELF.Errors &= GlobalErrors ! Set this windows ErrorManager to the global ErrorManager
SELF.AutoToolbar = 0
! [Priority 5300]
BIND('Loc:Mess_1_1',Loc:Mess[1,1]) ! Added by: BrowseBox(ABC)
BIND('Loc:Mess_1_2',Loc:Mess[1,2]) ! Added by: BrowseBox(ABC)
BIND('Loc:Mess_1_3',Loc:Mess[1,3]) ! Added by: BrowseBox(ABC)
BIND('Loc:Mess_2_1',Loc:Mess[2,1]) ! Added by: BrowseBox(ABC)
BIND('Loc:Mess_2_2',Loc:Mess[2,2]) ! Added by: BrowseBox(ABC)
...
BIND('Loc:Mess_24_1',Loc:Mess[24,1]) ! Added by: BrowseBox(ABC)
BIND('Loc:Mess_24_2',Loc:Mess[24,2]) ! Added by: BrowseBox(ABC)
BIND('Loc:Mess_24_3',Loc:Mess[24,3]) ! Added by: BrowseBox(ABC)
! [Priority 5800]
! Initialize the procedure
CLEAR(GlobalRequest) ! Clear GlobalRequest after storing locally
...
1. The GPF begins with v13622.
2. It involves use of a locally declared array with multiple elements used on the list of an ABC browse.
3. Including more array elements in the list, gives a GPF sooner.
4. A single list is the only control necessary on the window.
5. Array values do NOT need to be assigned.
6. No embed code is necessary.
Стабильно работающий билд - это где все известные проблемы вроде бы закрыты костылями.
Я так понимаю, что рука-попные изменения в RTL как раз таки напрямую связаны с подвязкой AnyScreen.
Код: Выделить всё
If ColorDialog('Выберите цвет',MyField.FontColor,1)
...
end
Проверил - всё прекрасно работает, проблем нет ...
Код: Выделить всё
PROGRAM
MAP
END
Window WINDOW('Updown control demo'),AT(,,191,69),CENTER,GRAY,FONT('Segoe UI',12)
PROMPT('Selection color:'),AT(16,18),USE(?lblSelColor),FONT(,9)
BUTTON('...'),AT(76,15,14),USE(?bSelColor),FONT(,9)
BUTTON('Close'),AT(118,39,46),USE(?bCloe),STD(STD:Close)
END
clrSelectedText SIGNED, AUTO
CODE
OPEN(Window)
ACCEPT
CASE ACCEPTED()
OF ?bSelColor
IF COLORDIALOG('Selected text', clrSelectedText)
! MESSAGE(clrSelectedText)
END
END
END
Код: Выделить всё
ColorNow LONG
CODE
IF NOT COLORDIALOG('Choose Box Color',ColorNow)
ColorNow = 000000FFh !Default to Red if user pressed Cancel
END