TDBGridEH 1.01

Tested under Delphi 3,4.

TDBGridEH is a TDBGrid like component.
Include all propertis of TDBGrid +
 Allow to create title on several columns (multititle mode) or on the whole
  grid.
 Allow to show a fotter row(s). Opportune to use in combination
  with TDBSumList.
 Allow automatically fit columns width to set grid width equal client width
 Allow change row height and title height
 Allow automatically broken a long lines between words in title and data rows
 Title can act as buttons and show sort marker
 Allow truncate long text by ellipsis
 Lookup list can show several fields
 Frozen columns


 New propertys and events in TDBGridEH
 property TitleHeight: Integer;
     // For simple title mode the height of title in pixels
 property TitleLines : Integer;
     // For simple title mode the hieght of title in text lines
     // Full title height = height in pixels of TitleLines + TitleHeight
 property UseMultiTitle: Boolean;
     // Set UseMultiTitle in True to create title(s) on several columns
 property VTitleMargin: Boolean;
     // Margin between text and bottom of title; and margin between
     // text and top of title
 propery FooterRowCount: Integer;
     // Count Rows of Footer
 property AutoFitColWidths: Boolean;
     // Automatically fit columns width to set grid width equal client width
 property MinAutoFitWidth: Integer;
     // Minimum width for which recalculate columns width.
     // Work if AutoFitColWidths = True.
 property RowsHeight: Integer;
     // Height of data row in pixels
 property RowLines: Integer;
     // Height of data row in text lines
     // Full row height = height in pixels of RowLines + RowsHeight
 property RowSizingAllowed: Boolean;
    // Allow to sizing row at design and ran time
 property DrawMemoText:Boolean;
    // Draw text in memo fields as string
 property FrozenCols: Integer;
    // Count of nonscrolling columns (but no sizing and no take focus too)

 event OnDrawFotterCell: TDrawFooterCellEvent;
 TDrawFooterCellEvent = procedure (Sender: TObject; DataCol, Row: Longint;
   Column: TColumnEH; Rect: TRect; State: TGridDrawState) of object;
      // Customized drawing for footer cell
 event OnCheckButton: TCheckTitleEHBtnEvent;
 TCheckTitleEHBtnEvent = procedure (Sender: TObject; ACol: Longint;
     Field: TField; var Enabled: Boolean) of object;
      // Enable or disable use title as button
 event OnGetBtnParams: TGetBtnEHParamsEvent;
 TGetBtnEHParamsEvent = procedure (Sender:TObject; Field:TField; AFont:TFont;
      var Background: TColor; IsDown: Boolean) of object;
      // If title button pressed you can change drawing Font and Background
 event OnTitleBtnClick: TTitleEHClickEvent;
 TTitleEHClickEvent = procedure (Sender:TObject; ACol:Longint; Field: TField)
    of object;
      // Event occurs when clicking on title button
 event OnGetCellParams: TGetCellEHParamsEvent;
 TGetCellEHParamsEvent = procedure (Sender: TObject; Column: TColumnEH;
   AFont: TFont; var Background: TColor; State: TGridDrawState) of object;
      // Event occurs before draw data cell. You can change draw font and
      // background color

 event OnMouseDown;
 event OnMouseMove;
 event OnMouseUp;

 procedure SaveColumnsLayout(ARegIni: TRegIniFIle);
     // Save Columns Order, Width, SortMarker in registry
 procedure RestoreColumnsLayout(ARegIni: TRegIniFIle;
                RestoreParams:TColumnEhRestoreParams);
 TColumnEhRestoreParam = (crpColIndexEh,crpColWidthsEh,crpSortMarkerEh);
 TColumnEhRestoreParams = set of TColumnEhRestoreParam;
     // Restore Columns Order , Width , SortMarker from registry
     // RestoreParams defines parameters of column it is necessary to restore


 New propertys in TColumnEH
 property  AutoFitColWidth: Boolean ;
      // Automatically fit column width to set grid width equal client width
 property  WordWrap: Boolean ;
      // Wrap words in data cells if row height > one text line
 property EndEllipsis: Boolean;
      // Truncate long text by ellipsis
 property  DropDownWidth: Integer;
       // Width of DropDown List
       //  > 0  - Width = DropDownWidth
       //   0   - Width = ColumnWidth
       //  -1   - Widht is calculated automatically as sum of
                 fields.DisplayWidth in LookupDisplayFields * TextWidth('0')
 property  LookupDisplayFields: String;
       // Fields is displayed in lookup list
 property  AutoDropDown: Boolean;
       //  Automatically DropDown List on key press
 property  AlwaysShowEditButton: Boolean;
        // Always Show Edit Button


 New propertys in TColumnTitleEH
 property TitleButton: Boolean;
     // If true, the title will act as a button.
 property SortMarker: TSortMarkerEH;
 TSortMarkerEH = (smNoneEh, smDownEh, smUpEh);
    //  Type of sorting marker that will show in right part of title
 property EndEllipsis: Boolean;
    // Truncate long text by ellipsis


Restrictions and particularities of functioning.

To create title on several columns, DisplayLabel of field must
consist of several parts divided by sign "|", where every part
is common part for several columns. Other field must   contain
same text in corresponding parts.
For instance:
   Field1.DisplayLabel := 'Title1|SubTitle1';
   Field2.DisplayLabel := 'Title1|SubTitle2';

In row select mode the button left and right force to next and
prev column
In row multiselect mode the right mouse button over selected row don't
delete selection
Next properties moved in public section
   property Canvas;
   property Col;
   property InplaceEditor;
   property LeftCol;
   property Row;
   property VisibleRowCount;
   property VisibleColCount;
   property IndicatorOffset: Byte read FIndicatorOffset;
   property TitleOffset: Byte read FTitleOffset;
Don't create title on several columns if master title lay in frozen and
nonfrozen zone simultaneously
If AlwaysShowEditButton = True or dgAlwaysShowEditor in Options then
edit button will be pressed on first mouse click
Inplace editor Color and Font take from cell. Cell Color and Font
form from Column Color and Font, and OnGetCellParams event.
In lookup inplace editor you can clear Lookupkeyfield. You need
select text and press Del.


INSTALLATION
Open menu "Component\Install Component...". In "Unit file name" browse
GridEhRe.pas. In "Package file name" browse LIB\dclusr30.dpk
(LIB\dclusr40.dpk � Delphi 4). Click Ok


Contact me if you have any questions, comments or suggestions:
Programmer: Dmitry V. Bolshakov
(4232)41-19-82 (voice in Russia)
E-mail: [email protected]
Home page http://tax25.marine.su/dmitryb
FidoNet 2:5045/41.63
QCI # 10785451

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.