[lazarus] error in win32callback.inc

Mattias Gaertner nc-gaertnma at netcologne.de
Thu Oct 16 16:30:19 EDT 2003


On Mon, 6 Oct 2003 20:07:14 +0200
"DMo2" <madarzoo at o2.pl> wrote:

> in module win32callback.inc
> in procedure MAINWIN for code:
> forgot declarations of LIST and C
> 
> 
> {$IFDEF VER1_1} 
>     List := TMsgArray(GetProp(Window, 'MsgList'));
>     If Pointer(List) <> Nil Then
>       For C := 0 To Length(List) Do
>         If List[C] = PLMsg^.Msg Then
>         Begin
>           DeliverMessage(OwnerObject, PLMsg^);
>           Exit;
>         End;
>   {$ELSE VER1_1}

Added. Untested. I have no 1.1.


Mattias






More information about the Lazarus mailing list