Re: Slow resizing

Return to index

Author

Message

Rob

Posted: 10/20/2004 14:13:58

I should mention I use RV1.8.

A lot of performance is lost with TFontInfo.Apply when formatting the

document.

Every WM_SIZE results in a full Format which may be a bit overdone.

About 10 percent can be gained by changing the TFontInfo.Apply method on the

following lines:

      Canvas.Font.Style := Style;

into

    if Canvas.Font.Style <> Style then

      Canvas.Font.Style := Style;

Same here:

    if Canvas.Font.Name <> FontName then

      Canvas.Font.Name  := FontName;

    {$IFDEF RICHVIEWCBDEF3}

    if Canvas.Font.CharSet <> CharSet then

      Canvas.Font.CharSet  := CharSet;

    {$ENDIF}

Every TFont change results in a lock with a resource hog... I suppose

caching these fonts would help, but I cannot change this myself.

Rob