Busca incremental na StringGrid
06/12/2003
0
valeu
Michel
Posts
07/12/2003
Spider
08/12/2003
Michel
Outra coisa se vc puder me ajudar, nao estou conseguindo alinhar uma coluna da StringGrid a Direita..
Muito Obrigado
08/12/2003
Spider
procedure...
var i: integer;
begin
for i:=1 to StringGrid1.RowCount-1 do
begin
if Pos(StringGrid1.Cells[1,i])<>0 then
begin
StringGrid1.row:=i;
break;
end;
end;
end;
para alinhar a Direita:
no Evento OnDrawCell:
var
strTemp: string;
Format: integer; {pode ser DT_CENTER, DT_LEFT OU DT_RIGHT}
begin
strTemp := StringGrid1.Cells[ACol,ARow];
StringGrid1.Canvas.FillRect(Rect);
if (ARow = 0) then
Format := DT_CENTER
else
Format := DT_LEFT;
// para alinhar apenas uma determinada coluna à direita
if (ACol=2) and (Arow<>0) then
Format := DT_RIGHT;
DrawText(StringGrid1.Canvas.Handle,PChar(strTemp),-1,Rect,Format);
end;
Clique aqui para fazer login e interagir na Comunidade :)