Вверх ↑
Разработчик
Ответов: 4698
Рейтинг: 426
#1: 2009-08-07 14:09:53 ЛС | профиль | цитата
Dilma, сделал по вашему, но все равно остается одна ошибка, вторая.
#pas
_prop_Text:string;
public
...
_prop_Interval:integer;
...
_data_Text:THI_Event;
_data_Interval:integer;
...
procedure _var_Fragment(var _Data:TData; Index:word);
procedure _var_TextWidth(var _Data:TData; Index:word);
procedure _var_TextHeigh(var _Data:TData; Index:word);
implementation
...
var dt,dt1: TData;
hOldFont: HFONT;
OldFontSize,tFrg,eFrg: Integer;
s:string;
begin
dt := _Data;
Frg := Frg-1;
if Frg<0 then
begin
tFrg := Frg*(-1);
_var_TextWidth(dt1,0);
eFrg := ToInteger(dt1) + ReadInteger(_Data,_data_Interval,_prop_Interval);
if tFrg = eFrg then _work_doReset(_Data,0);
end
else begin
tFrg := Frg;
end;
eFrg := ReadInteger(_Data,_data_Y,_prop_Y) shl 16 + Frg;
dtInteger(_Data,eFrg);
карма: 10
0