  Quick Report Editor

  Copyright (c) 1997  ३ (andre@lion.tu-chel.ac.ru)
                V1.0

   FREEWARE      FREEWARE
     ᫥    (  த  ⤥쭮,
       ⠢ ⥪ )
  ᫨  -  ( ࠡ  ﬨ    ..)
      㤮⢮७ ᢮ ࠡ⮩, 諨 ᢮  
     ᮣᮢ  ᥭ  騥 ᨨ.

  : ᯮ TColorComboBox  RX library!
   {$DEFINE QR20}  QREPEDIT.PAS, ᫨  ᯮ QR1.0
   䠩  ⠫ RUS  ᭮ 

    讥 ⢮ , ⮫쪮 ,   ᯮ
   ᢮ ஥.

冷 ᯮ짮:
    TQRLabel, TQRMemo, TQRShape, TQRBand 
    TAQRLabel, TAQRMemo, TAQRShape, TAQRBand  .frm  .pas
      । (⮫쪮   ࠯⮢)

   TAQReditor  ࠯

   QR1.0:
      AQRBand  BandType=rbPageHeader  , ᫨ ⠪  
      室  㯠 ᢥ
     ४ ᢮⢮ Ruler  qrrCmHV  㤮⢠  ।஢

   ।஢ ࠯  ६ 믮 맮
     Form.AQREditor1.EditReport

   ଠ  ࠯⮬  
                        ࠢ
      ⠭              ࠧ
      ࠭               ⢠
      ன ਭ      
                         ⪠
      ࠬ ࠭         
                          
                              

  ࠢ   ᢥ稢 
       ࠧ
     ⢠
     
     
     ।

  "  ࠧ" ࠧ蠥 । ⮢.
    ࠧ஢ 㦭   ࠢ  㣮 
      ।   ࠢ ஭.
   䠩  㧪  ࠭ ⠭  AQREditor
  짮⥫   롨  䠩 ⮡  ᯮ
  -  䠩


:

  TAQRLabel - 䨪 TQRLabel
     ᢮⢠:
      FieldName:string[32] -    뢮 祭
      FieldFormat:string[32] - ଠ  뢮 祭
      AutoResize:TAutoResizeType - ⢨   ࠧ
                   த⥫᪮ 
            arNoChange - 祣
            arChangeSize -  ࠧ
            arChangePos -  

  TAQRMemo - 䨪 TQRMemo
     ᢮⢠:
      FieldName:string[32] -    뢮 祭
      FieldFormat:string[32] - ଠ  뢮 祭
      AutoResize:TAutoResizeType - ⢨   ࠧ
                   த⥫᪮ 
            arNoChange - 祣
            arChangeSize -  ࠧ
            arChangePos -  
     ⮤:
      function GetTextHeight:integer;
         ⥪  ,   ࠧ  ⠪, ⮡
                              ᯥ  ⥪

  TAQRShape - 䨪 TQRMemo
     ᢮⢠:
      AutoResize:TAutoResizeType - ⢨   ࠧ
                   த⥫᪮ 
            arNoChange - 祣
            arChangeSize -  ࠧ
            arChangePos -  

  TAQRBand - 䨪 TQRBand
     ᢮⢠:
      HeightAutoResize:integer   ࠧ  
          ୨ 

  TAQREditor     ଥ
    ⮤:
      procedure EditReport;
         । ࠯
      procedure LoadReport;
        㧨 ࠯  䠩 ( 믮  OnCreate )
      procedure SetFieldInteger(const FieldName:string; Value:longint);
      procedure SetFieldFloat(const FieldName:string; Value:extended);
      procedure SetFieldString(const FieldName:string; const Value:string);
      procedure SetFieldDateTime(const FieldName:string; Value:TDateTime);
        뢥 祭     ⨬ 
      procedure SetFieldValue(const FieldName:string;
           ValueType:TFormatValueType; ValuePtr:Pointer);
       騩 砩
          ValueType - fvInteger  fvFloat  fvDateTime  fvString
          ValuePtr - 㪠⥫  祭
      procedure DefaultFormatValue(const FormatStr:string;
         ValueType:TFormatValueType; ValuePtr:Pointer; var ResultStr:string);
            virtual;
        楤  㬮砭  ଠ஢ 祭

    ᢮⢠:
      FileName:string -  䠩  ࠯⮬

    ᮡ:
      OnPrintPreview:TNotifyEvent 뢠 । QickReport.Preview
         㭪  
        㦭 뢥 祭   AQREditor.SetField...
      OnCreateMenu:TNotifyEvent 뢠 ᫥ ᮧ 
          ᢮ 

      OnGetFieldNames:TGetFieldNamesEvent
         TGetFieldNamesEvent = procedure(Sender:TObject; FieldNames:TStrings)
                               of object;
        㦭   ,    
           ࠯
      OnGetFieldFormats:TGetFieldFormatsEvent
          TGetFieldFormatsEvent = procedure(Sender:TObject;
              const FieldName:string; FieldFormats:TStrings) of object;
        㦭  ଠ,   ᯮ짮  뢮
             ⨬ .
      OnFormatValue:TFormatValueEvent
          TFormatValueEvent = procedure(Sender:TObject; const FormatStr:string;
                     ValueType:TFormatValueType; ValuePtr:Pointer;
                     var ResultStr:string) of object;
        ଠ 祭  㪠 ଠ.
         ⠭ ଠ⮢  ᯮ짮 DefaultFormatValue.

