помогите с мемо полем

Комментарии

• coder-igor

  April 2006 отредактировано 21:12

  че не ужели никто незнает так же как и я
• gpi

  April 2006 отредактировано 21:12

  Length(Trim(Memo.Text))
  Trim убирает перевод строки
• coder-igor

  April 2006 отредактировано 21:12

  подскажите пожалуйста, проблема следующая:
  
  необходимо сделать так, есть отчет на нем MasterData->Memo
  
  но в зависимости от увеличения количества строк неодходимо уменьшать размер шрифта, (это Мемо должно располагаться на одном листе).
  
  если строк мало, то и соответственно размер шрифта больше.
  
  
  вот не знаю как сделать
• gpi

  April 2006 отредактировано 21:12

  Если нужно проверить число строк, разделённых символами перевода строки, то Memo.Lines.Count
• coder-igor

  April 2006 отредактировано 21:12

  огромное спасибо, что мне помогаете, но
  
  
  помогите с моим примером выше (где изменяется размер шрифта, взависимости от размера Мемо)
• gpi

  April 2006 отредактировано 21:12

  procedure Memo1OnBeforePrint(Sender: TfrxComponent);
  begin
  if Memo1.Lines.Count>20 then
  Memo1.Font.Size:=10
  else
  Memo1.Font.Size:=20;
  end;
• coder-igor

  April 2006 отредактировано 21:12

  спасибо
  с этим все понятно.
  
  НО с этим примером чета не выходит как нада
• coder-igor

  April 2006 отредактировано 21:12

  может быть я чегота упустил
  
  для чего нужны компоненты FastScript?
• coder-igor

  April 2006 отредактировано 21:12

  при выполнении этого кода:
  
  if Memo1.Lines.Count>20 then
  Memo1.Font.Size:=10
  else
  Memo1.Font.Size:=20;
  end;
  
  если в Мемо count>10
  to 10
  
  если <20 to тоже самое "10" (ничего не пойму)
  
  вся надежда только на тебя: gpi
• gpi

  April 2006 отредактировано 21:12

  Вот пример

  unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, frxClass;
  
  type
    TForm1 = class(TForm)
      frxReport1: TfrxReport;
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
       frxReport1.ShowReport;
  end;
  
  end.
  ======dfm======
  object Form1: TForm1
    Left = 362
    Top = 255
    Width = 696
    Height = 480
    Caption = 'Form1'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OldCreateOrder = False
    PixelsPerInch = 96
    TextHeight = 13
    object Button1: TButton
      Left = 98
      Top = 136
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
      OnClick = Button1Click
    end
    object frxReport1: TfrxReport
      Version = '3.20'
      DotMatrixReport = False
      IniFile = '\Software\Fast Reports'
      PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
      PreviewOptions.Zoom = 1.000000000000000000
      PrintOptions.Printer = 'По умолчанию'
      ReportOptions.CreateDate = 38811.562907152800000000
      ReportOptions.LastChange = 38811.562907152800000000
      ScriptLanguage = 'PascalScript'
      ScriptText.Strings = (
        'procedure Memo1OnBeforePrint(Sender: TfrxComponent);'
        'begin'
        'if Memo1.Lines.Count>20 then'
        'Memo1.Font.Size:=10'
        'else'
        'Memo1.Font.Size:=20;'
        'end;'
        ''
        'procedure MasterData1OnAfterPrint(Sender: TfrxComponent);'
        'begin'
        '     Memo1.Lines.Clear;'
        '     Memo1.Text:=''Просто строка'';'
        'end;'
        ''
        'begin'
        ''
        'end.')
      Left = 94
      Top = 64
      Datasets = <>
      Variables = <>
      Style = <>
      object Page1: TfrxReportPage
        PaperWidth = 210.000000000000000000
        PaperHeight = 297.000000000000000000
        PaperSize = 9
        LeftMargin = 10.000000000000000000
        RightMargin = 10.000000000000000000
        TopMargin = 10.000000000000000000
        BottomMargin = 10.000000000000000000
        object MasterData1: TfrxMasterData
          Height = 16.000000000000000000
          Top = 20.000000000000000000
          Width = 718.110700000000000000
          OnAfterPrint = 'MasterData1OnAfterPrint'
          RowCount = 2
          Stretched = True
          object Memo1: TfrxMemoView
            Width = 722.000000000000000000
            Height = 16.000000000000000000
            OnAfterPrint = 'Memo1OnAfterPrint'
            OnBeforePrint = 'Memo1OnBeforePrint'
            StretchMode = smActualHeight
            Memo.UTF8 = (
              'Строка1'
              'Строка2'
              'Строка3'
              'Строка4'
              'Строка5'
              'Строка6'
              'Строка7'
              'Строка8'
              'Строка9'
              'Строка10'
              'Строка11'
              'Строка12'
              'Строка13'
              'Строка14'
              'Строка15'
              'Строка16'
              'Строка17'
              'Строка18'
              'Строка19'
              'Строка20'
              'Строка21')
          end
        end
      end
    end
  end