[Lazarus] TLMMouseEvent now lacks "state"

Luiz Americo Pereira Camara luizmed at oi.com.br
Thu Oct 27 18:06:47 CEST 2011


On 27/10/2011 10:55, Max Vlasov wrote:
> On Thu, Oct 27, 2011 at 5:43 PM, Felipe Monteiro de Carvalho 
> <felipemonteiro.carvalho at gmail.com 
> <mailto:felipemonteiro.carvalho at gmail.com>> wrote:
>
>
>
>     TLMMouseEvent does not exist in Delphi AFAIK
>
>
>
> Just looked, the original had
> TBaseVirtualTree.CMMouseWheel(var Message: TCMMouseWheel);message 
> CM_MOUSEWHEEL;
>
> TCMMouseWheel of Delphi has ...ShiftState: TShiftState;
>
> looking at TLMMouseEvent, shift is last (ShiftState in delphi is not) 
> so probably the one who ported it, also added the field to the lazarus 
> record just for this case. If so, I agree this is a good change to 
> remove field added previously just for one particular component. Maybe 
> Luiz later will add some details.

As far as i remember, i did not change the LCL.

I adapted the Delphi code from what LCL provided. I will investigate 
further the reasons i choose.

Luiz




More information about the Lazarus mailing list