converte somente uma coluna do grid para minuscula
caros amigos como faço para converter somente uma coluna do grid para minuscula,
se alguem tiver uma ideia, favor avisar
blz
valeu
se alguem tiver uma ideia, favor avisar
blz
valeu
Fernando
Curtidas 0
Respostas
Edilcimar
08/12/2005
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
GOSTEI 0
Adriano Santos
08/12/2005
No evento onDrawColumnCell insira:
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]
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]
GOSTEI 0