How to Search for an existing FontInfo?

Return to index

Author

Message

Tavo

Posted: 08/28/2002 21:42:59

Hello and sorry for my english

I'm working on an editor wich have not more than one FontInfo (Editor.Style.TextStyles.Count=0).

When I need to add a new TextStyle with a Specified Font, How to Search for

an existing FontInfo? I've try this:

font := TFont.Create ;

Try

  font.Color := clBlue ;

  font.Size  := 8 ;

  font.Name  := 'Courier' ;

  font.Style := [fsBold,fsUnderLine] ;

  NewStyleNo := editor.Style.TextStyles.FindStyleWithFont(0, font);

  if NewStyleNo=-1 then begin

    editor.Style.TextStyles.Add ;

    NewStyleNo := editor.Style.TextStyles.Count-1;

    editor.Style.TextStyles[NewStyleNo].Assign(

                              editor.Style.TextStyles[0] ) ;

    editor.Style.TextStyles[NewStyleNo].Assign(font);

    end;

Finally

   font.Free ;

End ;

This work at first time (I can add a TextStyle) but in a second time ¡not

find the TextStyle already inserted! and insert another one.

¿Wich is my error?

Thanks and a salute from Argentina.

Tavo