Библиотека XP_Menu_Lib

SaYLOR · **Добавлено:** Чт мар 19, 2009 9:47 pm

Пётр писал(а):

Во первых друпия для её работы не нужна, а во вторых есть друпия и для 4.30, посмотри на предыдущих станицах этой темы.

незнаю...матерится у меня эта библия, как билл во сне увидев как кто-то узнал исходники винды...

Пётр · **Добавлено:** Чт мар 19, 2009 9:57 pm

Ладно.
Скомпилируй сначала эту строку

Код:

1
GetSystemDirectory()

а потом эту

Код:

1
XP_GetMenuStyle() 

и сообщи на какую из них пурик ругается.

SaYLOR · **Добавлено:** Чт мар 19, 2009 10:02 pm

Пётр писал(а):

Ладно.
Скомпилируй сначала эту строку

Код:

1
GetSystemDirectory()

а потом эту

Код:

1
XP_GetMenuStyle() 

и сообщи на какую из них пурик ругается.

на первую ругается, а на вторую нет

Пётр · **Добавлено:** Чт мар 19, 2009 10:10 pm

Значит поставь нормальную друпию, расчитаную на 4.30
вот ссылка

SaYLOR · **Добавлено:** Чт мар 19, 2009 10:12 pm

Пётр писал(а):

Значит поставь нормальную друпию, расчитаную на 4.30
вот ссылка

а говорил друпи не надо

Пётр · **Добавлено:** Чт мар 19, 2009 10:22 pm

Работы библиотеки XP_Menu_Lib друпия не нужна
вот пример, который компилируется без друпии

Код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
StyleMenu.xp_menudata
Procedure GlavWindowCallback(WindowID, Message, wParam, lParam)
Protected Result=#PB_ProcessPureBasicEvents
 
XP_Menu_CB(WindowID, Message, wParam, lParam)
 
ProcedureReturn Result 
EndProcedure
 
OpenWindow(4,0,0,400,200,"Работа XP_Menu_Lib",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
    If CreateMenu(2,WindowID(4))
      MenuTitle("Файл")
    MenuItem(1,"Новый"+Chr(9)+"Ctrl+N")
    MenuItem(2,"Открыть..."+Chr(9)+"Ctrl+N") : DisableMenuItem(2,2,1)
    MenuItem(47,"Открыть заново"+Chr(9)+"Ctrl+N") : SetMenuItemState(2,47,1)
    MenuItem(3,"Сохранить"+Chr(9)+"Ctrl+N")
    MenuItem(4,"Сохранить как..."+Chr(9)+"Ctrl+N") : DisableMenuItem(2,4,1) : SetMenuItemState(2,4,1)
    MenuItem(46,"Сохранить всё"+Chr(9)+"Ctrl+N")
    MenuItem(15,"Закрыть закладку"+Chr(9)+"Ctrl+N")
    MenuItem(41,"Индивидуальные настройки"+Chr(9)+"Ctrl+N")
    EndIf
    
    SetWindowCallback(@GlavWindowCallback()) 
    
    XP_MenuRegister(MenuID(2), #XP_RegMenu, #XP_RegGeneralMenu,WindowID(4)) ; Регистрация главного меню]
    
    Repeat
    Event=WaitWindowEvent()
    Until Event=#PB_Event_CloseWindow

Пётр · **Добавлено:** Вт дек 08, 2009 8:59 pm

Вот версия для PB 4.40

Пётр · **Добавлено:** Ср дек 09, 2009 3:51 pm

Были глюки с поддержкой юникода и либа "пожирала" рисунок с идентификаторм 0.
Исправил.

Dmitrix · **Добавлено:** Чт сен 23, 2010 1:05 pm

В версии 4.5 что-то ваша библиотечка не хочет работать или я что-то неправильно поставил?

Пётр · **Добавлено:** Чт сен 23, 2010 1:45 pm

Вот для версии 4.50

Dmitrix · **Добавлено:** Пт сен 24, 2010 6:41 am

Спасибо! Всё работает!

mirashic · **Добавлено:** Чт май 26, 2011 10:50 am

ProGUI - при обходе лицензии перестало работать CreateMenuEx (не вызывается)...

pablov · **Добавлено:** Чт май 26, 2011 3:45 pm

mirashic писал(а):

при обходе лицензии

Каким образом обходишь лицензию? Как Виталий предлагал? У них защита поменялась. Вариант Виталия не катит. НО варианты есть

mirashic · **Добавлено:** Пт май 27, 2011 6:55 am

Да так:

Код:

1
2
3
4
5
6
7
8
If  ProtectionKill=0 
    If FindWindow_(#Null,"ProGUI Trial timeout") 
      ShowWindow_(FindWindow_(#Null,"ProGUI Trial timeout"),#SW_HIDE) 
      EnableWindow_(WindowID(#Window_0),#True) 
      Debug "Защита убита!" 
      ProtectionKill=1 
   EndIf 
  EndIf

Варианты есть ?

pablov · **Добавлено:** Пт май 27, 2011 7:38 am

mirashic писал(а):

Варианты есть ?

Пиши в личку

purebasic.info

Библиотека XP_Menu_Lib

Кто сейчас на форуме