Interface wanted for SetDCPenColor

[anthonyrichards]

I want to use windows API function SetDCPenColor.

Can anyone supply an Interface block for it?

It is not in GDI32.F90, where I expected it to be.

thanks in advance

[Jugoslav_Dujic]

interface
integer(ULONG) function SetDCPenColor(hDC, crColor)
!DEC$ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:
'SetDCPenColor':: SetDCPenColor
use DFWINTY
integer(HANDLE):: hDC
integer(ULONG):: crColor
end function
end interface

Be aware -- Win2000 or newer only.

Jugoslav

[anthonyrichards]

Thanks, Jugoslav. I'll let you know how it goes after the holiday.

[anthonyrichards]

It worked fine, Jugoslav, thanks again.

DC_PEN and DC_BRUSH are defined in DFWINTY, with vales 19 and 18.

Regards