Element Font

Vars
  Self#.hfont dd ?
  Self#.color dd ?

Create
  mov [Self#.hfont],0

Destroy
  mov eax,[Self#.hfont]
  or eax,eax
  je @f
  invoke CloseHandle,eax
@@:

PointWork doFont
  mov eax,[Self#.hfont]
  or eax,eax
  je @f
  invoke CloseHandle,eax
@@:
  mov eax,Self#.prop.Font.size
  mul [ScreenDPIy]
  add eax,36 ; FontDPI/2
  idiv [FontDPI]
  invoke CreateFont,eax,0,0,0,400+(Self#.prop.Font.style and 1)*300,Self#.prop.Font.style and 2,Self#.prop.Font.style and 4,Self#.prop.Font.style and 8,Self#.prop.Font.charset,0,0,0,0,Self#.prop.Font.name
  mov [Self#.hfont],eax
  mov [Self#.color],Self#.prop.Font.color
  lea eax,[Self#.hfont]
  Self#.onFont eax,data_int
EndPoint

EndElement