childgridfrm.pas

来自「考勤管理是企业内部管理的重要环节和基础」· PAS 代码 · 共 73 行

unit ChildGridFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Childfrm, Grids, DBGrids, ExtCtrls;

type
  TChildGridform = class(TChildform)
    DBGrid1: TDBGrid;
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Myarray=array [0..20] of integer;
var
  ChildGridform: TChildGridform;
  ParentClientHeight:integer;
  ParentClientWidth:integer;
  LxDBGrid1Height:integer;
  LxDBGrid1Width:integer;
  OldColumnWidth:Myarray;
  NewColumn1Width:Myarray;

implementation

{$R *.DFM}

procedure TChildGridform.FormResize(Sender: TObject);
begin
  inherited;
{var
  i:integer;
   if ParentClientWidth=0 then Abort;
   DBGrid1.Width:=ClientWidth;
   DBGrid1.Height:=ClientHeight;
   for i:=0 to DBGrid1.FieldCount-1 do begin
    DBGrid1.columns[i].Width:=round((ClientWidth-34)/ParentClientWidth
            *(OldColumnWidth[i]+34/dbgrid1.Columns.count));
   end;
}
end;

procedure TChildGridform.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
   ParentClientHeight:=ClientHeight;
   ParentClientWidth:=ClientWidth;
   LxDBGrid1Height:=DBGrid1.Height;
   LxDBGrid1Width:=DBGrid1.Width;
   for i:=0 to DBGrid1.FieldCount-1 do begin
     OldColumnWidth[i]:=DBGrid1.columns[i].Width;
     NewColumn1Width[i]:=DBGrid1.columns[i].Width;
   end;
  top:=10;
  left:=(Screen.Width-Width) div 2;
  for i:=0 to DBGrid1.FieldCount-1 do begin
    DBGrid1.columns[i].Title.Alignment:=taCenter;
    DBGrid1.columns[i].Title.Color:=clTeal;
    DBGrid1.columns[i].Title.Font.Color:=clWhite;
  end;
end;

end.