Error: Incompatible types

[Lincor]

нужна помощь с фри паскалем.
при попытке установить функцию для изменения размеров (glut) вылазит еррор.
как обьявляю функцию:

Код: Выделить всё

procedure ReSizeGLScene(Width, Height: smallint); cdecl;

назначаю:

Код: Выделить всё

glutReshapeFunc(@ReSizeGLScene); 

компилятор говорит:

Код: Выделить всё

Error: Incompatible types: got "<address of procedure(SmallInt,SmallInt);CDecl>" expected "<procedure variable type of procedure(LongInt,LongInt);CDecl>"

[Vadim]

Ну так сделайте, что Вам говорит компилятор: "ожидается процедурная переменная".

[bormant]

У вас
procedure(smallint, smallint); cdecl;
а ожидается
procedure(longint, longint); cdecl;

[Lincor]

ой, я думал, наоборот. пойду учить английский
спасибо!