converte somente uma coluna do grid para minuscula

08/12/2005

1

caros amigos como faço para converter somente uma coluna do grid para minuscula,

se alguem tiver uma ideia, favor avisar

blz


valeu


Responder

Posts

08/12/2005

Edilcimar

a coluna do dbgrid reflete dados em uma tabela, portanto para fazer isto basta colocar a mesma em edit e ir dando um upper em cada um dos registros


Responder

08/12/2005

Adriano Santos

No evento onDrawColumnCell insira:


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  S: string;
  R: TRect;
begin
  with DBGrid1.Canvas do
  begin
    FillRect(Rect);
    S := Column.Field.AsString;
    R := Rect;
    if Column.Field = Table1NAME then
      S := LowerCase(S);
    DrawText(Handle, PChar(S), Length(S), R, DT_NOCLIP);
  end;
end;


Observe a linha:

[color=red:5bf141169d][b:5bf141169d]if Column.Field = Table1NAME then[/b:5bf141169d][/color:5bf141169d]

Aqui fiz uma checagem simples para saber qual é a coluna que quero deixar minúscula vinculando ao nome do campo, ou seja, se seu usuário puder, em seu sistema, mover a coluna de lugar o seu código fonte vai converter o texto em qualquer que seja a posição da coluna. Agora se for uma coluna específica que não muda de posição vc pode usar o index da coluna, +/- assim:

[color=red:5bf141169d][b:5bf141169d]if Column.Index = 3 then[/b:5bf141169d][/color:5bf141169d]


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira