Re: extra bug in chat demo

Return to index

Author

Message

totya

Posted: 11/05/2002 23:53:45

"Sergey Tkachenko" <[email protected]> wrote:

>There is actually a bug in the last beta versions (which is not present

in

>the trial version on the site) - in some cases, up to 10 pixels can be

>subtracted from the bottom margin, not added to it.

>There is a thread in the private newsgroup about it, subject

>"UpdateScrollBars"

Hi!

You don't understand.

I see version : 1.6.10

flash red (if run) : unregistered

See my simple demo (D5e)

(Put Timer, RichView, RvStyle)

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

   StdCtrls, ExtCtrls, RVStyle, RVScroll, RichView;

type

  TForm1 = class(TForm)

    RV: TRichView;

    RVStyle1: TRVStyle;

    Timer1: TTimer;

    procedure FormActivate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);

var i:integer;

begin

     for i:=1 to 10

      do RV.AddNL('haho', 0, 0);

     RV.Format;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

     RV.AddNL('haho', 0, 0);

     RV.FormatTail;

end;

end.

---

if Font Size(0=normal text) <>12 or Style <> fsBold,

the words in the window bound (visible! bottom margins random).

The Chat demo use this parameter (12, sfBold) Why?

Only this combination works correctly?

totya