delphi Код:
var
text : string;
begin
id:=ReadD(2);
text := 'Type=1 ID='+inttostr(id)+' Color=0 Underline=0 Title='
buf := #$49; // [49] //id
writed($90008); //[49] [08 00 09 00
writes(text); //[49] [08 00 09 00+uText+00 00
writec($1B, length(buf)-1); //[49] [08 00 09 00+uText+1B 00
writes('ItemName'); //[49] [08 00 09 00+uText+1B 00+uItemName+00 00
writec($1B, length(buf)-1); //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00
writed($90008); //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00
writeh(0); //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] //text
writed(0); //[49] [08 00 09 00+uText+1B 00+uItemName+1B 00 + 08 00 09 00 + 00 00] [00 00 00 00] //type
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 11.07.2010 в 15:02.
|