Модуль "Мое меню" (часть 12) - ConvertMyMenuStructureToBuffer
последняя версия: 3.0.9 build 961 beta
от 07 декабря 2007 г.
от 07 декабря 2007 г.
procedure TfrmP2K_MyMenu.ConvertMyMenuStructureToBuffer(AMyMenu: TMyMenu; var ABuffer: pbytearray); var i, j: integer; pos: integer; tmp: string; begin pos:= 0; Fillmemory(ABuffer, sizeof(ABuffer), 0);
//** ABuffer[pos]:= AMyMenu.Index; inc(pos); //** ABuffer[pos]:= AMyMenu.MenuType; inc(pos); //** ABuffer[pos]:= AMyMenu.Button; inc(pos); //** ABuffer[pos]:= AMyMenu.VoiceRecord; inc(pos); //** ABuffer[pos]:= AMyMenu.JavaItem div 256; //** ABuffer[pos+1]:= AMyMenu.JavaItem mod 256; //** inc(pos, 2); //** ABuffer[pos]:= AMyMenu.CommandID div 256; //** ABuffer[pos+1]:= AMyMenu.CommandID mod 256; //** inc(pos, 2); //** for i:= 0 to 2 do ABuffer[pos + i]:= AMyMenu.Trash_02_1_1[i]; //inc(pos, 3); //** ABuffer[pos + 3]:= AMyMenu.MidletNum; //inc(pos, 1); //** for i:= 0 to 2 do ABuffer[pos + i + 4]:= AMyMenu.Trash_02_1_2[i]; //inc(pos, 3); //** inc(pos, 7); //** ABuffer[pos]:= AMyMenu.LinkLength; //** inc(pos); //** for i:= 0 to 7 do ABuffer[pos + i]:= AMyMenu.Trash_02_2[i]; //** inc(pos, 8); //** for i:= 0 to 2 do ABuffer[pos + i]:= AMyMenu.Vazhno_01[i]; //** inc(pos, 3); //** ABuffer[pos]:= AMyMenu.SeemLinkNum; //** inc(pos); //** for i:= 0 to 1 do ABuffer[pos + i]:= AMyMenu.Vazhno_02[i]; //** inc(pos, 2); //** ABuffer[pos]:= AMyMenu.StringID[0]; inc(pos); //** ABuffer[pos]:= AMyMenu.StringID[1]; inc(pos); //** tmp:= ''; //** tmp:= ASCI2UCS(AMyMenu.Name, true); //** j:= 1; //** for i:= 1 to 32 do begin //** ABuffer[pos+i-1]:= Hex2Int(Copy(tmp, j, 2)); //** inc(j, 2); //** end; //** inc(pos, 32); //** ABuffer[pos]:= AMyMenu.Trash_03; inc(pos); //** ABuffer[pos]:= AMyMenu.Trash_04; inc(pos); //** ABuffer[pos]:= AMyMenu.Trash_05; inc(pos); //** ABuffer[pos]:= AMyMenu.Trash_06; inc(pos); end;
Еще записи по теме
- Модуль "АТ-команды" (часть 7) - DisconnectingAT
- Модуль "Пункты меню" (часть 47) - GetMma_SKLABEL_LINKRES
- Модуль "Терминал" (часть 1) - определение переменных и типов данных
- Модуль "Flash_Patching" (часть 7) - FillPatchData
- Модуль "Справочник" (часть 21) - EditContactEx
- Языковой Модуль (часть 2)
- Модуль "Flash_SHX" (часть 16) - FirmwareAddCG
