Junior
2006-12-28 18:46:44
Ok, in my air crafter theres always this one stupid ass problem I keep getting. The uptext changes randomly. It has 2 forms, a thick dark text, and the other, a thinner lighter text. The only way IsUpTextMulti will work is if the text is dark and thick, and now I made a bitmap of the uptext that is thinner and lighter. I made this procedure that works for me, but doesnt work on anyone elses computer, and I cant find a way to fix it. And ideas?
function checktext:boolean;
var
esstext: integer;
begin
esstext := BitmapFromString(61, 12, 'z78DAED954B0E80200C44A' +
'F4457B8558CF73F9246360821E9874262E62DBA00DAC284811000' +
'0000FC81AB832EAB972B5D2FDDDBAAFA3A9DF308453A42E4F7957' +
'6C9F5DBC8EFC2192F67A575EC3BF1A8E3778BEC6A8FD5CA436D8B' +
'47A4DD69A32471500BED747E1D3147EDB12FC9A8F7DFBEBED5B68' +
'C7E5E98A992C77F64B91BFC5C9DAA734E01743CCE4AAFBFAA0865' +
'D67203E9428950');
begin
if(IsUpTextMulti('draw 1','une','esse'))then
begin
Result:=true;
end else
if not(IsUpTextMulti('draw 1','une','esse'))then
begin
If(findBitmapToleranceIn(esstext,x,y,msx1,msy1,235,24,25))Then
Begin
Result:=true;
end else
if not(IsUpTextMulti('draw 1','une','esse'))and
not(findBitmapToleranceIn(esstext,x,y,msx1,msy1,235,24,25))then
Begin
Result:=false;
end;
end;
end;
end;