[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