Опять проблема с SE750i
Проблема в том что на всех телефонах работает а на сабже нет
нашел саму проблему пот эта процедура:
Procedure FontInit(fnm:string; fWidth, fHeight : integer);
Var
x, y : integer;
fn: image;
//----------------
begin
fn:= LoadImage('/' + fnm);
for y:= 0 to 13 do
for x:= 0 to 15 do
fnt[y * 16 + x + 32]:= ImageFromImage(fn, x*fwidth, y*fheight, fwidth, fheight);
end;
вызываю процедуру:
FontInit('6x7.png',6,7);
массив определен глобально.
fnt: array[32..258] of image;
Что этому блин долбаному телефону не нравится?
Может есть какая то хитрость?
|