Извините, ничего не найдено.

psih1 · 19.08.2010, 11:33

Помогите объединить


			
program Load;

Var

n,wi,hi:integer;

begin

wi:=GetWidth; hi:=GetHeight;

while ( getKeyClicked<> KE_NONE) do

delay(100);

repeat



n:= n+1; 

DrawImage(LoadImage('/pidgin.png'), (GetWidth/2-64), (GetHeight/2-64));

//Фон

SetColor(237,142,186);

FillRect(1,hi-7,wi-3,6);

//Полоса

SetColor(122,74,133);

FillRect(3,hi-5,(wi-5)*n/100,2);

//Рамка

DrawRect(1,hi-7,wi-3,5);

repaint; 

if n>99 then

begin

SetColor(0,0,0);

FillRect(0,0,wi,hi);

end;



until false;

end.

и менюшку


			
Uses    font32, sensor, menu32;



Var        key: integer;







Begin



    // ------------------------ Установка шрифтов --------------------------------



    font32.init(2); // Всего 2 шрифта



    Font(0); LoadFont('Verdana_7'); // Основной шрифт



    Font(1); LoadFont('Verdana_7b'); // Такой же шрифт, но утолщенный и белый (для выделенного пункта)



    



    // ------------------------ Установка меню --------------------------------



    menu32.init; // инициализация меню



    LoadCursor(CreateCursor(GetWidth, 24, 4278190250)); // Создаем курсор



    SetMenuWindow(0, 0, GetWidth, GetHeight); // Задаем окно, в котором будет отображаться меню



    MenuFonts(0, 1); // Основной и курсорный шрифты



    



    AddItem2(LoadImage('/cube.png'), 'Старт', 'start'); // Добавляем элементы меню



    AddItem2(LoadImage('/star.png'), 'Настройки', 'settings');



    AddItem2(None, 'Помощь', 'help'); // Пример пункта где иконка не нужна



    AddItem2(LoadImage('/spe2.png'), 'Звук включен', 'off');



    AddItem2(LoadImage('/about.png'), 'Тут рассказывается об этой замечательной программе подробно', 'about');



    AddItem2(LoadImage('/error.png'), 'Выхат', 'exit');



    



    SetCursor(4); // Пример явного перемещения курсора на нужный пункт



    ChangeString('Выход', 5); // Пример переименования пункта меню



    



    // ------------------------ Подготовка сенсорного экрана --------------------------------



    sensor.init;



    



    // ------------------------ Основной цикл --------------------------------



    DrawMenu; Repaint;



    repeat



        key:=KeyToAction(GetKeyPressed); Delay(50);



        if key=GA_DOWN then begin CursorDown; DrawMenu; Repaint; Delay(100); end; // Вниз



        if key=GA_UP then begin CursorUp; DrawMenu; Repaint; Delay(100); end; // Вверх



        if (key=GA_FIRE) or (SensorState = 1) then // Нажали огонь джойстика или двойной клик по сенсорному экрану



            begin



                



                if Selected = 3 then



                begin



                    if SelectedItem = 'Звук включен' then begin ChangeString('Звук выключен', 3); ChangeImage(LoadImage('/spe1.png'), 3); end;



                    else begin ChangeString('Звук включен', 3); ChangeImage(LoadImage('/spe2.png'), 3); end;



                    DrawMenu; Repaint; Delay(100);



                end;



                



                if Selected = 5 then Halt; // Если выбрали ВЫХОД - то выход



                if SelectedItem = 'Выход' then Halt; // Можно и так проверять. Чтоб не ломать мозги: какой же там номер пункта?



                



            end



        



        if (pointer_state = 1) then // Если нажали на сенсорный экран



            begin



                SensorClick(pointer_pressed_x, pointer_pressed_y); // Передаем координаты в меню



                DrawMenu; Repaint;



            end;



        Delay(2); Scroll;



    until false;

Сам все варианты пробовал не получается наверно опыта не хватает

Айнур · 19.08.2010, 18:08

load сделай в виде проседуры и вставь в менюшку и вызови где надо.

psih1 · 19.08.2010, 18:32

блинн во я лузер спасибо

psih1 · 19.08.2010, 19:10

Чет не получается


			
Program MenuDemo;
Uses    font32,menu32;
Var        key,n,wi,hi: integer;

procedure OnLoad(n: integer);
begin
wi:=GetWidth; hi:=GetHeight;
while ( getKeyClicked<> KE_NONE) do
delay(100);
repeat

n:= n+1; 
DrawImage(LoadImage('/logo.png'), (GetWidth/2-64), (GetHeight/2-64));
//Фон
SetColor(237,142,186);
FillRect(1,hi-7,wi-3,6);
//Полоса
SetColor(122,74,133);
FillRect(3,hi-5,(wi-5)*n/100,2);
//Рамка
DrawRect(1,hi-7,wi-3,5);
repaint; 
if n>99 then n:=98;


until false;
end;

Begin
  wi:=GetWidth; hi:=GetHeight;
    // ------------------------ Установка шрифтов --------------------------------
    font32.init(2); // Всего 2 шрифта
    Font(0); LoadFont('Verdana_7'); // Основной шрифт
    Font(1); LoadFont('Verdana_7b'); // Такой же шрифт, но утолщенный и белый (для выделенного пункта)
    
    // ------------------------ Установка меню --------------------------------
    menu32.init; // инициализация меню
    LoadCursor(CreateCursor(GetWidth, 20, 6000255255)); // Создаем курсор
    SetMenuWindow(0, 0, GetWidth, GetHeight); // Задаем окно, в котором будет отображаться меню
    MenuFonts(0, 1); // Основной и курсорный шрифты
    
    AddItem2(LoadImage('/cube.png'), 'Старт теста', 'start'); // Добавляем элементы меню
    AddItem2(LoadImage('/spe2.png'), 'Звук включен', 'off');
    AddItem2(LoadImage('/about.png'), 'Информация', 'about');
    AddItem2(LoadImage('/error.png'), 'Выхат', 'exit');
    
    SetCursor(3); // Пример явного перемещения курсора на нужный пункт
    ChangeString('Выход', 3); // Пример переименования пункта меню
    
    
    // ------------------------ Основной цикл --------------------------------
    DrawMenu;Repaint;OnLoad(10);
    repeat
        key:=KeyToAction(GetKeyPressed); Delay(50);
        if key=GA_DOWN then begin CursorDown; DrawMenu; Repaint; Delay(100); end; // Вниз
        if key=GA_UP then begin CursorUp; DrawMenu; Repaint; Delay(100); end; // Вверх
        if (key=GA_FIRE) or (SensorState = 1) then // Нажали огонь джойстика или двойной клик по сенсорному экрану
            begin
                
                if Selected = 1 then
                begin
                    
                end;
                
                if Selected = 3 then Halt; // Если выбрали ВЫХОД - то выход
            
                
            end;
        Delay(2); Scroll;
    until false;
End.

Айнур · 20.08.2010, 12:07

Вот приблизительно так.


			
Program MenuDemo;

Uses    font32,menu32;

Var        key,n,wi,hi: integer;



procedure OnLoad(n: integer);

begin

wi:=GetWidth; hi:=GetHeight;

while ( getKeyClicked<> KE_NONE) do

delay(100);

DrawImage(LoadImage('/logo.png'), (GetWidth/2-64), (GetHeight/2-64));

repeat

n:= n+1; 



//Фон

SetColor(237,142,186);

FillRect(1,hi-7,wi-3,6);

//Полоса

SetColor(122,74,133);

FillRect(3,hi-5,(wi-5)*n/100,2);

//Рамка

DrawRect(1,hi-7,wi-3,5);

repaint;

until n>99;

SetColor(255,255,255);

FillRect(1,hi-7,wi,7);

repaint;

end;



Begin

  wi:=GetWidth; hi:=GetHeight;

    // ------------------------ Установка шрифтов --------------------------------

    font32.init(2); // Всего 2 шрифта

    Font(0); LoadFont('Arial_7'); // Основной шрифт

    Font(1); LoadFont('Arial_7'); // Такой же шрифт, но утолщенный и белый (для выделенного пункта)

    

    // ------------------------ Установка меню --------------------------------

    menu32.init; // инициализация меню

    LoadCursor(CreateCursor(GetWidth, 20, 6000255255)); // Создаем курсор

    SetMenuWindow(0, 0, GetWidth, GetHeight); // Задаем окно, в котором будет отображаться меню

    MenuFonts(0, 1); // Основной и курсорный шрифты

    

    AddItem2(LoadImage('/cube.png'), 'Старт теста', 'start'); // Добавляем элементы меню

    AddItem2(LoadImage('/spe2.png'), 'Звук включен', 'off');

    AddItem2(LoadImage('/about.png'), 'Информация', 'about');

    AddItem2(LoadImage('/error.png'), 'Выхат', 'exit');

    

    SetCursor(3); // Пример явного перемещения курсора на нужный пункт

    ChangeString('Выход', 3); // Пример переименования пункта меню

    

    

    // ------------------------ Основной цикл --------------------------------

    OnLoad(10);

    DrawMenu;Repaint;

    repeat

        key:=KeyToAction(GetKeyPressed); Delay(50);

        if key=GA_DOWN then begin CursorDown; DrawMenu; Repaint; Delay(100); end; // Вниз

        if key=GA_UP then begin CursorUp; DrawMenu; Repaint; Delay(100); end; // Вверх

        if (key=GA_FIRE) or (SensorState = 1) then // Нажали огонь джойстика или двойной клик по сенсорному экрану

            begin

                

                if Selected = 1 then

                begin

                    

                end;

                

                if Selected = 3 then Halt; // Если выбрали ВЫХОД - то выход

            

                

            end;

        Delay(2); Scroll;

    until false;

End.