Work with StyleSheets

Return to index

Author

Message

George

Posted: 02/23/2003 15:58:25

Dear Sergey!

In my program StyleSheets should be formed separately and be stored in a

database for further use.

The program keeps and reads the Component RVStyleCSS (TRVStyle) through WriteComponent

and ReadComponent.

During initialization of the form in different components LBParaStyle and

LBTextStyle (TListView) names of styles are read.

(For test styles entered in time Design-Time are used)

During the further work of the program styles for some reason disappear.

Whether you can understand why it occurs.

In addition I inform that component RVStyleCSS is not connected to any other

component from family RV.

procedure TFrCSS.fillParaStyles;

  var i: Integer;

begin

  LBParaStyle. Clear;

  for i: = 0 to RVStyleCSS.ParaStyles. Count - 1 do

  begin

    LBParaStyle. AddItem (RVStyleCSS.ParaStyles. Items [i] .StyleName, nil);

  end;

end;

procedure TFrCSS.fillTextStyles;

  var i: Integer;

begin

  LBTextStyle. Clear;

  for i: = 0 to RVStyleCSS.TextStyles.Count - 1 do

  begin

    LBTextStyle. AddItem (RVStyleCSS.TextStyles. Items [i] .StyleName, nil);

  end;

end;

Thanks.

George

P.S. I for a long time searched for similar components for my program.

Yours - out of competition.