subject:"RE\: FW\: \[delphi\-br\] Largura de colunas de DBGrid"

RE: FW: [delphi-br] Largura de colunas de DBGrid

2009-12-01 Por tôpico Wilson, Stephen

Of CRM Desenvolvimentos Sent: 01 December 2009 10:35 To: delphi-br@yahoogrupos.com.br Subject: Re: FW: [delphi-br] Largura de colunas de DBGrid procedure TfrmForm.AjustaColunas(DBGrid: TDBGrid); var i, j: integer; TotWidth : integer; VarWidth : integer; begin TotWidth := 0; VarWidt

Re: FW: [delphi-br] Largura de colunas de DBGrid

2009-12-01 Por tôpico CRM Desenvolvimentos

procedure TfrmForm.AjustaColunas(DBGrid: TDBGrid); var i, j: integer; TotWidth : integer; VarWidth : integer; begin TotWidth := 0; VarWidth := 0; dados.TABELA.DisableControls; for i := 0 to -1 + DBGrid.Columns.Count do begin dados.TABELA.First; for j := 0 to dados.TABELA.Recor