[lazarus] some things wrong with LM_PAINT

[Darek Mazur]

HI

I have big problems with paintings
I investigate hole road of messages,and this is my notice:

Procedure TWinControl.Repaint;

//  CNSendMessage(LM_PAINT, Self, nil); --> not call WMpaint
  // Invalidate;  --> why remove

I change to:
  Invalidate;
  perform(LM_PAINT,0,0);

and all works better


Function TWin32Object.IntSendMessage3(LM_Message: Integer; Sender: TObject;
Data: Pointer): Integer;
section for LM_PAINT is absent


And one ask:
why are two function if tWinControl:
  Repaint and Redraw

redraw is absent in Delphi


Darek