(Resolvido) Gauge em DBGrid

[Douglas Soares]

Boa tarde, estou fazer um sistema de ftp e preciso colocar um gauge em cada campo PROGRESSO que está no DBGrid, nesse campo vou atualizar o valor do progresso de 0 a 100 e o gauge vai pegar esse valor pra si, no entanto gostaria de saber como adicionar os Gauges em tempo de execução nesse dbgrid e como atribuir valor a eles! P.S: se o nome de cada gauge criado fosse "Progresso" + Campo ID do meu CDS (o campo ID é do tipo AutoInc), dai ficava facil pra eu colocar o progress dele!

Obrigado!

[Douglas Soares]

Obs: eu posso ter até 2 IdFTP's no form, e queria que a gauge aparece no registro que estão sendo enviados :)

Abraços

[Jhonas]

Já leu esse post ?

http://scriptbrasil.com.br/forum/index.php...st&p=615207

abraço

[Douglas Soares]

Sim eu li, estou + ou - isso, eu crio um panel em tempo de execução e adiciono um gauge nele em execução também, até aí beleza to conseguindo adicionar até 2 linhas no dbgrid q ele cria gauge... na terceira ele já começa dar acess violation :(

Olha o código:

procedure TfrmPrincipal.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  DrawState: Integer;
  DrawRect: TRect;
  mypanel : TPanel;
  myprogress : TGauge;
  i : integer;
  jaexiste : boolean;
begin
  jaexiste := false;
  if not cdsUpload.IsEmpty then
  begin
  if cdsUpload.FieldByName('PROGRESSO').Value >= 0 then
  begin
     if Column.FieldName = 'PROGRESSO' then
     begin

     for i := 0 to frmPrincipal.ComponentCount - 1 do
     begin
     if TPanel(frmPrincipal.Components[i]).Name = 'mypanel' + cdsUpload.FieldByName('ID').AsString then
     begin
     jaexiste := true;
     Break;
     end;
     end;

     if jaexiste = false then
     begin
     ShowMessage('aff');
     mypanel := TPanel.Create(frmPrincipal);
     mypanel.Parent := TabSheet4;
     mypanel.Name := 'mypanel' + cdsUpload.FieldByName('ID').AsString;
     mypanel.Left := Rect.Left + DBGrid2.Left + 2;
     mypanel.Top := Rect.Top + DBGrid2.top + 2;
     mypanel.Width := Rect.Right - Rect.Left;
     mypanel.Height := Rect.Bottom - Rect.Top;
     mypanel.Visible := True;

     myprogress := TGauge.Create(frmPrincipal);
     myprogress.Parent := mypanel;
     myprogress.Name := 'myprogress' + cdsUpload.FieldByName('ID').AsString;
     myprogress.Align := alClient;
     end;
     TGauge('myprogress' + cdsUpload.FieldByName('ID').AsString).Progress := cdsUpload.FieldByName('PROGRESSO').Value;

     end;
  end;
  end;
end;

Abraços

[Jhonas]

Douglas ... o evento OnDrawColumnCell por si só já é um loop infinito, então não é uma boa pratica usar um ( For ) dentro dele

tente usar como coloquei naquele exemplo

abraço

[Douglas Soares]

Seu exemplo não funciona comigo pois tenho 2 opções no DbGrid que optei em ativa-las: dgRowSelect e dgAlwaysShowSelection, e essas 2 desativam a opção dgEditing.... daí não acontece nada, o gauge não aparece nem o panel, ehehhe

[Douglas Soares]

Consegui fazer minhas gambis ^^, agora seguinte, tá travando tudo mesmo com IDAntiFreeze fica dando uns laags, to com preguiça de fazer thread para o IDFtp, tem algum jeito de eu colocar o IDFTPOnWork em um JvThread do JediVcl???

[Douglas Soares]

Besteira minha :P , o IdFTP.Put que eu coloco na thread! ehehe deu certinho o que eu queria, Vlw pela atenção Jhonas

Abraços