Продвинутый грид

[SONce]

Встречал в инетрнете платные аналоги, вобщем что нужно, нужно в одной из ячеек грида выводить прогрес бар, кто что подскажет?

проще говоря както так

[Ntlegend]

ручками рисовать пробовал?? создаешь новый прогресбар, и дильше тока следи за прокруткой и перемещай его соотвественно..

[Stilet]

По-моему автор просит что-то наподобие такого:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   timer1.Tag:=timer1.Tag+1;
   if timer1.Tag=StringGrid1.DefaultColWidth then Timer1.Tag:=0;
   StringGrid1.Repaint;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if acol=arow then begin
  with TStringGrid(sender).Canvas do begin
   Brush.Color:=clred;
   rect.Right:=Rect.Left+timer1.Tag;
   FillRect(rect);
  end;
  end;
end;

end.

[SONce]

Хотелось бы всетаки отдельный компонент иметь, кстати в предыдушем примере приветиде пример вызова вашей процедуры.

[Ulagay700]

А насколько важно делать это именно в гриде?

[SONce]

Сообщение от Ulagay700

А насколько важно делать это именно в гриде?

важно именно в гриде, должен быть уровень загрузки, например как в опере или DM, тоесть в гриде там отрисовываеться прогрес бар сразу

[CahekG]

Можно на основе TStringGrid свой компонент накидать.
Я примерно такой сделал.
В свойство ProgressCol указать колонку, в которой будут progressBar
И тогда значение ячеек содержащих числовое представление , будут интерпретироваться как %

unit MyStringGrid;

interface

uses
  Windows,SysUtils, Classes, QControls, Grids,Graphics;

type
  TMyStringGrid = class(TStringGrid)
  private
    { Private declarations }
    AProgressCol:integer;
    AProgressColor:Tcolor;
    AProgressPecentColor:Tcolor;
    aShowPecent:boolean;

  protected
    { Protected declarations }
  procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
      AState: TGridDrawState); override;
  public
    { Public declarations }
   property ProgressCol:integer read AProgressCol write    AProgressCol;
   property ProgressColor:Tcolor read AProgressColor write    AProgressColor;
   property ProgressPecentColor:Tcolor read AProgressPecentColor write    AProgressPecentColor;
   property ShowPecent:boolean read aShowPecent write    aShowPecent;
    constructor Create(AOwner: TComponent); override;

  published

    { Published declarations }
  end;

procedure Register;

implementation

uses Controls;

procedure Register;
begin
  RegisterComponents('Standart', [TMyStringGrid]);
end;

constructor TMyStringGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  AProgressCol:=-1;// колонка содержащая прогремм бар
  AProgressColor:=clBlue;// цвет отрисовки прогресса
  AProgressPecentColor:=Font.Color;//цвет шрифта %
  aShowPecent:=true;// нужно - ли показывать %
end;

procedure TMyStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;
  AState: TGridDrawState);
var s:string;Pcent,withCell,withtxt,j,i:integer;
OldDefaultDrawing:boolean;
OldPen:TPenMode;
begin
if   (AProgressCol=ACol) and (ARow>0) then 
  begin
   s:=cells[ACol,Arow];
   val(s,Pcent,j);
   if j>0 then exit;
   if Pcent<0 then Pcent:=0;
   if Pcent>100 then Pcent:=100;
   withCell:=ARect.Right-ARect.Left-4;
   j:=(withCell*Pcent) div 100;
   i:=ARect.Left+2;

    withtxt:=Canvas.TextWidth(inttostr(Pcent)+'%');
    Canvas.Font.Color:=AProgressPecentColor;
    if withtxt>=withCell then
    Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2,inttostr(Pcent)+'%')
    else
    Canvas.TextRect(ARect, ARect.Left+2+((withCell-withtxt) div 2), ARect.Top+2,inttostr(Pcent)+'%');

   Canvas.Pen.Color:=AProgressColor;
   OldPen:=Canvas.Pen.Mode;
   Canvas.Pen.Mode:=pmNotXor;
   while (i<=(ARect.Right-2)) and (j>0) do
    begin
     Canvas.MoveTo(i,ARect.Top+2);
     Canvas.LineTo(i,ARect.Bottom-2);
     dec(j);inc(i);
    end;
    Canvas.Pen.Mode:=OldPen;
    OldDefaultDrawing:=DefaultDrawing;
    DefaultDrawing:=false;
    inherited DrawCell(ACol, ARow, ARect, AState);
    DefaultDrawing:=OldDefaultDrawing;
   exit;
  end;
  inherited DrawCell(ACol, ARow, ARect, AState);
end;

end.

[rurnit]

ПИПЕЦ!!!
во проблема...
создал прогерсс руками ... :=TProgressBar.create(nil)

присвоил родителя ... Parent:=<grid>

разместил его в ячейке ... Top:=... Left:=...

навел красоту:
PostMessage(Handle,PBM_SETBARCOLOR, 0,$007BFBBB);
SetWindowRgn(Handle,CreateRectRgn(1 ,1,Width - 1,Height - 1 ),true);

про скролл можешь забыть - грид все сделает сам!

ну и когда надо удалить его - freeandnil(<progressbar>)

пихай их в TList и обращайся по индексу выделенной строки в гриде...

[W0LF]

NextGrid имеет возможность добовлять прогрессеры, иконки и другое... Для Delphi6-7 компонент бесплатный.

[xexxex]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TProgressBar.Create(nil) do try
    BoundsRect := Rect;
    Left := - Width;
    Parent := Self;
    Position := 30;
    PaintTo(TStringGrid(Sender).Canvas, Rect.Left, Rect.Top);
  finally
    Free;
  end;
end;