[lazarus] error in win32callback.inc

DMo2 madarzoo at o2.pl
Mon Oct 6 13:57:18 EDT 2003


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}
  
Regards

Darek






More information about the Lazarus mailing list