Изменять размер шрифта в Memo

Комментарии

• OlegK

  January 2010 отредактировано January 2010

  Вам это нужно сделать из скрипта или из кода Delphi?
  
  Из скрипта это можно сделать примерно так:

  var
    strs: TStringList;
    str: string;                             
    i: integer;                               
  begin
    strs := TStringList.Create();
    for i := 0 to 7 do
    begin
      str := 'String ' + IntToStr(i);
      strs.Add(str);                                  
    end;
    for i := 0 to 7 do      
      Memo1.Lines.Add(strs.Strings[i]);
    if Memo1.Lines.Count >= 5 then
      Memo1.Font.Size := 15
    else
      Memo1.Font.Size := 10;
  end.
  

  Посмотрите в прикрепленном отчете.

  procedure TForm1.Button1Click(Sender: TObject);
  var
    strs: TStringList;
    str: string;
    i: integer;
    count: integer;
    memo: TfrxMemoView;
  begin
    frxReport1.ShowReport(true);
    strs := TStringList.Create();
    count := 7;
    for i := 0 to count do
    begin
      str := 'string ' + IntToStr(i);
      strs.Add(str);
    end;
    memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
    for i := 0 to count do
    begin
      memo.Lines.Add(strs.Strings[i]);
    end;
    if memo.Lines.Count >= 5 then
      memo.Font.Size := 15
    else
      memo.Font.Size := 10;
    frxReport1.ShowReport(true);
  end;
  
• Lowlander

  January 2010 отредактировано January 2010

  Спасибо огромное!! Вроде бы получилось!!
  Я наверное неправильно выразился. Я делал все операции из кода, но когда появилась необходимость динамически изменять шрифты начал делать это скриптом.
  Все получилось, еще раз спасибо!! Мне не хватало вот этой строчки для счастья))
  memo := frxReport1.FindObject('Memo1') as TfrxMemoView;