home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / D12 / MRO.ZIP / MROUNIT2.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-06  |  3KB  |  100 lines
  1. {$I TADBMRO.INC}
  2.  
  3. {*********************************************************}
  4. {*            MROUNIT2.PAS 2.00             *}
  5. {*     Copyright (c) Tamarack Associates 1995, 1996.     *}
  6. {*           All rights reserved.          *}
  7. {*********************************************************}
  8.  
  9. unit MROUnit2;
  10.  
  11. interface
  12.  
  13. uses
  14.   {$IFDEF WIN32}
  15.   Windows,
  16.   {$ELSE}
  17.   WinTypes, WinProcs,
  18.   {$ENDIF}
  19.   SysUtils, Messages, Classes, Graphics, Controls, Forms, DBCtrls,
  20.   StdCtrls, Grids, Mask, ExtCtrls, DBGrids, DB, DBTables,
  21.   {$IFDEF UseInfoPower}
  22.   Wwtable, Wwdatsrc, Wwdbigrd, Wwdbgrid,
  23.   {$ENDIF}
  24.   taDBMRO;
  25.  
  26. type
  27.   TForm1 = class(TForm)
  28.     DataSource1: TDataSource;
  29.     Table1: TTable;
  30.     taDBMRO1: TtaDBMRO;
  31.     Panel1: TPanel;
  32.     DBEdit1: TDBEdit;
  33.     DBNavigator1: TDBNavigator;
  34.     Table1Company: TStringField;
  35.     Table1Contact: TStringField;
  36.     Table1State: TStringField;
  37.     DBComboBox1: TDBComboBox;
  38.     procedure taDBMRO1DrawControl(Sender: TObject; Control: TControl;
  39.       const CellRect: TRect);
  40.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  41.       Shift: TShiftState);
  42.     procedure FormCreate(Sender: TObject);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  48.  
  49. var
  50.   Form1: TForm1;
  51.  
  52. implementation
  53.  
  54. {$R *.DFM}
  55.  
  56. procedure TForm1.taDBMRO1DrawControl(Sender: TObject;
  57.   Control: TControl; const CellRect: TRect);
  58. var  S : string;
  59.      Rect : TRect;
  60.      DrawFont : TFont;
  61.      Offset : INTEGER;
  62. begin
  63.  if Control is TDBComboBox then
  64.   with TDBComboBox(Control) do
  65.    begin
  66.     if not Visible then exit;
  67.     S := '';
  68.     if DataSource <> nil then
  69.      try
  70.       S := DataSource.DataSet.FieldByName(DataField).DisplayText;
  71.      except
  72.       on EDatabaseError do
  73.       else raise
  74.      end;
  75.     Rect     := CalcRect(Control,CellRect);
  76.     {$IFDEF WIN32}
  77.     IF NewStyleControls THEN InflateRect(Rect,-1,-1);
  78.     {$ENDIF}
  79.     DrawFont := taDBMRO1.FetchFont(Font);
  80.     Offset   := taDBMRO1.GetFontOffset(DrawFont);
  81.     taDBMRO1.DrawString(taLeftJustify,taDBMRO1.FetchColor(Color),Enabled,DrawFont,
  82.               Offset,Offset,Rect,S);
  83.     taDBMRO1.DrawBorder(bsSingle,Ctl3D,TRUE,Rect)
  84.    end
  85.  else taDBMRO1.DrawControl(Control,CellRect)
  86. end;
  87.  
  88. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  89.   Shift: TShiftState);
  90. begin
  91.  taDBMRO1.FormKeyDown(ActiveControl,Key,Shift)
  92. end;
  93.  
  94. procedure TForm1.FormCreate(Sender: TObject);
  95. begin
  96.  Application.OnIdle := taDBMRO1.ApplicationIdle
  97. end;
  98.  
  99. end.
  100.