Модуль "Мое меню" (часть 12) - ConvertMyMenuStructureToBuffer

Рубрика: Исходники
Среда, 21 апреля 2010 г.
Просмотров: 218
последняя версия: 3.0.9 build 961 beta
от 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;
Rambler's Top100