Code: Select all
Program New;
var gi : TGumpInfo;
i : Integer;
begin
GetGumpInfo(0, gi);
AddToSystemJournal('Gump has ' + IntToStr(Length(gi.XmfHTMLGumpColor)) + ' XmfHTMLGumpColors');
if Length(gi.XmfHTMLGumpColor) > 0 then
for i := 0 to Length(gi.XmfHTMLGumpColor) - 1 do
AddToSystemJournal('XmfHTMLGumpColor #' + IntToStr(i) + ' ClilocText: ' + GetCliloc(gi.XmfHTMLGumpColor[i].Cliloc_id));
end.
in your GumpLines you can see that in Text Lines only crossbow bolts count written