Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Помогите, люди! Глюк в мей проге!   Найти похожие ветки 

 
LaResistance   (2002-10-12 00:46) [0]

Создал я свой собственный класс:
type
TBaseSprite = class
PosX, PosY : Integer;
SpriteWidth : Integer;
SpriteHeight : Integer;
procedure Show(var FDDSurfBack, FDDSurfImages : IDirectDrawSurface7); virtual; abstract;
private
rcRect : TRect;
end;
TCollideInfo = record
X, Y : Integer;
end;

TSprite = class(TBaseSprite)
Delay : DWORD;
.............// Здесь ещё куча переменных
constructor Create (const SprDelay : DWord; FrmCount, SprWidth, SprHeight : integer);
function GetCenterX : Integer;
function GetCenterY : Integer;
.............// И здесь
procedure Show (var FDDSurfBack, FDDSurfImages : IDirectDrawSurface7); override;
private
Xinc : Integer;
Yinc : Integer;
CollideInfo : TCollideInfo;
ThisTickCount : DWORD;
LastTickCount : DWORD;
end;

...........

var
Spr : TSprite;

Это я работаю с DirectDraw. Но дело не в нём.
Короче, процедура доходит до определённой строчки, где я присваиваю значение (допустим Spr.PosX := 10;) или сравниваю
(if Spr.Delay > 100 then beep;) и дальше - процедура невтемно заканчивается!!! Строчка beep; уже не выполняется! Почему?
Если вы заинтересовались этим вопросом, то лучше оставьте мыло и я скину вам исходник (Без EXE и тупых приколов). Если у вас нету библиотек DirectDraw - то скажите, тоже скину. Единственное - DirectDraw под D6 вроде бы не пашет. Хотя наверное глюк в моей проге далеко не от DirectDraw (работаю под D5). Руки такие :) !!!!
Спасибо.


 
Юрий Зотов ©   (2002-10-12 01:04) [1]

Прежде, чем работать с объектом, создать его не забыли?


 
LaResistance   (2002-10-12 19:22) [2]

В том то и дело, создаёшь его (Spr.Create(.....);) - тоже дальше ничерта не пашет!!!


 
ZrenBy ©   (2002-10-12 19:26) [3]

Spr := TSprite.Create(...)


 
Anatoly Podgoretsky ©   (2002-10-12 19:43) [4]

Приведи больше кода с ошибкой, обязательно создание


 
Юрий Зотов ©   (2002-10-12 22:59) [5]

Spr.Create(.....) - это где же Вы видели такое "создание"?

См.: ZrenBy © (12.10.02 19:26)



Страницы: 1 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
3-78240
Veronika
2002-10-01 09:30
2002.10.24
В IB 5.6 был wisql32, куда он подевался в IB 6 ??


14-78662
Nox
2002-10-04 18:24
2002.10.24
Дельфи - это сила


3-78259
Kurt
2002-10-02 15:25
2002.10.24
Вопрос о курсоре мыши при выполнении запроса. Как поменять его


3-78219
Андрусь
2002-10-03 19:29
2002.10.24
Помогите разобраться с форматной маской


4-78719
R_F$29{n}xp
2002-09-07 11:03
2002.10.24
Как сделать свой TaskBar???