Awkwardsaw
2012-03-17 18:30:55
I never used masks before, so I was hoping I could just use them like bitmaps, but I keep getting an "Error: Exception: Mask is invalid. Width/Height: (6,9). WhiteHi/BlackHi: (-1,53) at line 79"
Couldn't find a tutorial, and to lazy to browse through the include :p
Thanks :)
Function GetPointMask(num : integer) : TMask;
var
Btms : TIntegerArray;
i : integer;
begin
SetLength(btms, 10);
Btms[0] := BitmapFromString(6, 9, 'meJxraWttaWtlSDvTAma0IHHhglAuAwOyFIQLZxMjgmYysiwyFyoI4wIA3Ns/fw==');
Btms[1] := BitmapFromString(4, 9, 'meJxrbm1mSDvT3NrcDGaAEAMDgksWG2oO3FgYAAC2tCXX');
Btms[2] := BitmapFromString(6, 9, 'meJxraWtlSDsDQS1trS1gLoiEALggAwNcFs5GVkwGtwXJahQHoAIA6Y46dQ==');
Btms[3] := BitmapFromString(5, 9, 'meJxraWtlSDsDRC1trS1gNogEArgIAwNEHMGAqYErgCuGG4JiAn69YDYAxd0x1Q==');
Btms[4] := BitmapFromString(5, 9, 'meJxdidsNACAIAzst+ykxPlAncCjB14fk0vQKaLgSH6ABwEv6dLNV81MNrtnKhWsJTd5XT9WWpdb7wbTLBEZTPvI=');
Btms[5] := BitmapFromString(5, 9, 'meJxjSDvDAEPNrc0gBjIAc4HiEISsEioCUwYXQRgCE4QbgrAFZiZEN5ABAOxBLbU=');
Btms[6] := BitmapFromString(6, 9, 'meJxramluamlmSDsDRE1gNoQLIoEAwoBxobJgcSgJ0wVnI+tiAAMEG0wi1MOlkPQirIDpBQAMyjdL');
Btms[7] := BitmapFromString(6, 9, 'meJxrbm1mSDsDR82tzRDEAAFAQQYGhCBYAZoIlRWA2cgiAMv1Poc=');
Btms[8] := BitmapFromString(6, 9, 'meJxramlmSDsDQU0tzU1gLoiEAAgbKMvAAJeFsJF1IVTi1UWMOVBZGACyAezhNWs=');
Btms[9] := BitmapFromString(6, 9, 'meJxrbm1mSDsDQc2tzc0QLgMDMhtTBMLArh6C4CIQgCSCqQshiE0EAPOIO/E=');
result := CreateMaskFromBitmap(Btms[num]);
for i := 0 to 9 do
FreeBitmap(Btms[i]);
end;
Function GetPizzazPoints : TIntegerArray;
var
TempMask : TMask;
i, NumDigits, x, y : integer;
begin
setlength(result, 5);
For NumDigits := 0 to 3 do //loops through digits(up to 4 places - 0000)
For i := 0 to 9 do //loops through numbers
begin
TempMask := GetPointMask(i);
if FindMaskTolerance(TempMask, x, y, 458 + (NumDigits * 6), 47 , 464 + (NumDigits * 6), 57, 5, 10) then
begin
result[NumDigits] := i; //so if I have 2500 points, result would be [2, 5, 0, 0]
//FreeBitmap(TempMask);
break;
end;
end;
end;Couldn't find a tutorial, and to lazy to browse through the include :p
Thanks :)