[fpc-pascal] Sets & FPC

[Michael Van Canneyt]

On Sat, 20 Feb 2010, Jonas Maebe wrote:

>
> On 20 Feb 2010, at 13:15, Michael Van Canneyt wrote:
>
>> On Sat, 20 Feb 2010, Justin Smyth wrote:
>>
>>> procedure TJvCustomListBox.CNDrawItem(var Msg: TWMDrawItem);
>>> var
>>> State: TOwnerDrawState;
>>
>> Try
>>
>>  State : Set of TOwnerDrawState;
>
> It is already a set:
>
> lcltype.pp:  TOwnerDrawState = set of TOwnerDrawStateType;

Indeed.

Well, the code as posted compiles fine here if I define

TWMDrawItem = TLMDrawItems;

Michael.