[lazarus] patch for LM_PAINT

[Darek Mazur]

in win32object.inc
I've added section for LM_PAINT

Function TWin32Object.IntSendMessage3(LM_Message: Integer; Sender: TObject;
Data: Pointer): Integer;

before LM_REDRAW and after  LM_TB_BUTTONCOUNT:


LM_TB_BUTTONCOUNT:
        Begin
          If Sender Is TToolbar Then
            Result := SendMessage(Handle, TB_BUTTONCOUNT, 0, 0)
          Else
            Result := -1;
        End;
   // start new

        LM_PAINT :
        begin
          if sender is tControl then
          tControl(sender).perform(LM_PAINT,0,0);
        end;

//<---------stop new


   LM_REDRAW:
        Begin
          Assert(False, Format('Trace:[TWin32Object.IntSendMessage3] %S -->
Redraw', [Sender.ClassName]));


and now Repaint works the same like in Delphi

Darek