[Axler]

Народ, Help! Пишу в директриксе 9 и дельфи.

Есть процеДура подготовки фонтов

Код:

function TADXFontLabel.PrepareText: HResult;
var
  DC:  HDC;
  FontName  : PAnsiChar;
  FontItalic: LongBool;
  FontBold  : Cardinal;
  FontPitch : Cardinal;
  sd: HFont;
begin
  FontName := PAnsiChar(Font.Name);
  if (fsItalic in Font.Style) then FontItalic := TRUE    else FontItalic := FALSE;
  if (fsBold   in Font.Style) then FontBold   := FW_BOLD else FontBold   := FW_NORMAL;

  if (Font.Pitch = fpDefault)  then FontPitch  := DEFAULT_PITCH;
  if (Font.Pitch = fpFixed)    then FontPitch  := FIXED_PITCH;
  if (Font.Pitch = fpVariable) then FontPitch  := VARIABLE_PITCH;

  Result := D3DXCreateFont(FADirectXDrawSourse.FD3DDevice, Font.Height, 0,
                 FontBold, 0, FontItalic, Font.Charset, OUT_DEFAULT_PRECIS, DEFAULT_QUALITY,
                 FontPitch , FontName, FD3DText);

end;

И вывод - Все работает,есть только одна проблема,не могу придумать как сделать подчеркивание и зачеркивание, помогите плиз!