Travar coluna do DBgrid

[robinhocne]

Pessoal......tava querendo travar a primeira coluna do DbGrid, tipo assim.......em tenho N colunas e quando clicar na barra de rolagem para ver as outras colunas ai ficar travada a primeira para eu saber de qual registro é aquela linha....

tem como ?

[Jhonas]

tem sim... mas para fazer isso, a primeira coluna (0) terá que mudar de lugar para se manter visivel, durante a rolagem da barra

então por exemplo:

col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7)

então quando voce rolar a barra sera:

col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7), col(8) // movendo a barra

col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7),col(8), col(9) // movendo a barra

col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7),col(8), col(9), col(10) // movendo a barra

ou seja o valor da sua coluna(0) deverá mudar de lugar com a coluna(1), coluna(2), coluna(3) e assim por diante ate chegar ao final da barra

o processo inverso tambem deverá ocorrer

pense a respeito... se não conseguir passo um exemplo depois

abraço

[Jhonas]

vamos as possiveis soluções:

Em Options do DBGrid, deixe a propriedade dgIndicator = true

procedure TFAdm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
   DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   // fixar a primeira coluna do dbgrid

   TDrawGrid( DBGrid1 ).FixedCols := 2;  // fixa a primeira coluna
   TDrawGrid( DBGrid1 ).Canvas.Font.Size := 9; // tamanho da fonte do titulo
   TDrawGrid( DBGrid1 ).Canvas.TextOut(0,0,'    COD'); // nome do titulo da coluna
end;

outra solução

http://www.planetadelphi.com.br/downloading/127

abraço