Если появляется такое сообщение, то это значит что одна или несколько библиотек не подходят для данной версии компилятора.я так понял опять какойто библиотеки
Это значит что все нужные библиотеки установлены, но некоторые не расчитаны на текущую версию компилятора.
Если бы была обнаружена неизвестная функция, то было бы сообщение is not a function, array, macro or linked list.
Правда такое-же сообщение выводится если не обнаружена вызываемая процедура, массив, макрос или динамический список.
Определить какая библиотека выдаёт такую ошибку можно методом исключения - просто вызываем по отдельности функции из библиотек.
Вот несколько простых примеров.
Запустите их и напишите при компиляции какого кода было сообщение
The following PureLibrary is missing: LibraryExtension
Droopy
Код: Выделить всё
Debug GetSystemDirectory() ; Узнаём путь к системной папкеXP_Menu_Lib
Код: Выделить всё
Procedure GlavWindowCallback(WindowID, Message, wParam, lParam)
XP_Menu_CB(WindowID, Message, wParam, lParam)
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
OpenWindow(0, 0, 0,200, 100, "", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
If CreateMenu(0, WindowID(0))
MenuTitle("Файл")
MenuItem(4,"Новый")
MenuItem(1,"Открыть")
MenuItem(2,"Сохранить")
EndIf
SetWindowCallback(@GlavWindowCallback() ,0)
XP_MenuRegister(MenuID(0), #XP_RegMenu, #XP_RegGeneralMenu,WindowID(0)) ; Регистрация главного меню
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindowIO_DLL_WRAPPER (код измеряет текущую температуру процессора)
Код: Выделить всё
#ADR_REG = $295
#DATA_REG = $296
Procedure Termo()
IO_PortOut(#ADR_REG, $2B)
x=IO_PortIn(#DATA_REG)
SetGadgetItemText(0,0,StrU(x, #Byte)+" °C",1)
IO_PortOut(#ADR_REG, $29)
x=IO_PortIn(#DATA_REG)
SetGadgetItemText(0,1,StrU(x, #Byte)+" °C",1)
EndProcedure
OpenWindow(0,0,0,300,74,"Измерялка температур",#PB_Window_MinimizeGadget|#PB_Window_Invisible|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ListIconGadget(0,2,2,296,70,"Имя",120,#PB_ListIcon_GridLines) : SetGadgetFont(0,LoadFont(0,"MS Sans Serif",12) )
AddGadgetColumn(0, 1, "Температура", 140)
AddGadgetItem(0, 0, "Процессор")
AddGadgetItem(0, 1, "Aux")
Termo()
HideWindow(0,0)
SetTimer_(WindowID(0),1,1000, @Termo() )
Repeat
Event=WaitWindowEvent()
Until Event=#PB_Event_CloseWindowLibEditorPlus
Код: Выделить всё
OpenWindow(0, 0, 0,200, 100, "", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
EditorGadget(1,10,10,180,80)
Editor_Select(1,0,1,-1,-1)
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
