Показать сообщение отдельно
Старый 30.09.2009, 17:27   #64
GRAY_WOLF
Разработчик
 
Аватар для GRAY_WOLF
 
Регистрация: 15.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений
(для 93 пользователей)
Ответ: Lib_menu32 - Графическое меню без головной боли

Вот примерно так
Uses menu32font32;
Var    
wihikeyinteger;
        
fon,mimage;
begin
wi
:=GetWidthhi:=GetHeight;
    
fon:=LoadImage('/fon.png'); // Загружаем фон
    
m:=CreateCursor(wi-101921259339775);// Создаем дополнительный фон
// ------------------------ Установка шрифтов --------------------------------
    
font32.init(2); // Всего 2 шрифта
    
Font(0); LoadFont('Verdana_10'); // Основной шрифт
    
Font(1); LoadFont('Verdana_10b'); // Такой же шрифт, но утолщенный и белый (для выделенного пункта)
// ------------------------ Установка меню --------------------------------
  
menu32.init// инициализация меню
    
DrawImage(fonwi/120hi/160);DrawImage(m,5,5);//рисуем фон
  
LoadCursor(CreateCursor(GetWidth-10164278190250)); // Создаем курсор
    
SetMenuWindow(55wi-5197); // Задаем окно, в котором будет отображаться меню
    
MenuFonts(01); // Основной и курсорный шрифты
    // добавляем пункты меню
    
AddItem(LoadImage('/i2.png'), '1 пункт'); 
  
AddItem(LoadImage('/i5.png'), '2 пункт');
    
AddItem(LoadImage('/i1.png'), '3 пункт');
  
AddItem(LoadImage('/exit.png'), 'Выход');
    
     
DrawMenuRepaint;
     
repeat        
         key
:=KeyToAction(GetKeyPressed); Delay(30);        
          if 
key GA_UP then begin CursorUpDrawMenuRepaintDelay(250); end;//курсор в верх
         
if key GA_DOWN then begin CursorDownDrawMenuRepaintDelay(250); end;//курсор в низ
         
if key GA_FIRE then
     until false
;    
    
end
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
vad74 (01.10.2009)