Codejock Developer Community : Progress bar in a cell

Progress bar in a cell : Thanks, i will try to implement...

Tue, 10 Apr 2007 03:46:54 +0000

Author: Franco Prudente
Subject: 6748
Posted: 10 April 2007 at 3:46am

Thanks, i will try to implement this in C# code...

Progress bar in a cell : In VB6 1º Put this in column...

Tue, 03 Apr 2007 13:36:28 +0000

Author: pcmaker
Subject: 6748
Posted: 03 April 2007 at 1:36pm

In VB6
1� Put this in column declare:
wnd_rpc.SetCustomDraw xtpCustomBeforeDrawRow + xtpCustomDrawItem

2� In wnd_rpc_DrawItem event, this:
Private Sub wndAct_DrawItem(ByVal Row AsXtremeReportControl.IReportRow, ByVal Column AsXtremeReportControl.IReportColumn, ByVal Item AsXtremeReportControl.IReportRecordItem, ByVal hdc As stdole.OLE_HANDLE,ByVal left As Long, ByVal top As Long, ByVal right As Long, ByValbottom As Long, DoDefault As Boolean)
If Column.Index = X Then
    drawProgressCell Item, hdc, left, top, right, bottom, Row.Record.Index
End If
End Sub
Where Column.Index = X is the column where you want use the progress bar.

3� The implement of drawProgressCell sub:
Sub drawProgressCell(Item As ReportRecordItem, hdc As stdole.OLE_HANDLE, _
    left As Long, top As Long, right As Long, bottom As Long, row_index As Long)
Dim rec_porct As Long
Select Case Item.Value
    Case Is < 10
        FillBrush = CreateSolidBrush(vbRed)
    Case Is = 100
        FillBrush = CreateSolidBrush(vbGreen)
    Case Else
        FillBrush = CreateSolidBrush(Me.BackColor)
End Select
DeleteObject SelectObject(hdc, FillBrush)
rec_porct = (Item.Value * (right - left)) / 100
RectangleX hdc, left, top + 1, left + rec_porct, bottom - 1
End Sub

4� In add_records sub, fill value of the progress cell with this:
Record.AddItem Format(va_porct, "###,##0.00")
        Record.Item(5).Format = "%s%%"
        Record.Item(5).ToolTip = va_porct & "%"
        Record.Item(5).ForeColor = vbBlack
This format the number, in order to keep the original value(double) in the value of cell.

I take a vacation until april 9.

I hope that this reply help you in your problems.

Bye, Juan Quintero - Venezuela.

PD: my englhis is bad, excuseme.

Progress bar in a cell : Any chance you can post a sample...

Tue, 03 Apr 2007 09:33:20 +0000

Author: BagLady
Subject: 6748
Posted: 03 April 2007 at 9:33am

Any chance you can post a sample on how to do this, I have been following this thread for a while and am finally adding something as I see no response This is very important to us.

Progress bar in a cell : Gan we get an answer to this please?...

Tue, 03 Apr 2007 09:31:29 +0000

Author: fantama
Subject: 6748
Posted: 03 April 2007 at 9:31am

Gan we get an answer to this please?

Progress bar in a cell : QUE TAL GENTE. LES PUEDO ESCRIBIR...

Thu, 29 Mar 2007 15:00:29 +0000

Author: pcmaker
Subject: 6748
Posted: 29 March 2007 at 3:00pm

QUE TAL GENTE.

LES PUEDO ESCRIBIR EN ESPA�OL PARA ENTENDERNOS MEJOR.

YO SE LA MANERA PARA HACER LO QUE NECESITAN!

Progress bar in a cell : I would like to know too. Please...

Wed, 28 Mar 2007 09:09:10 +0000

Author: fantama
Subject: 6748
Posted: 28 March 2007 at 9:09am

I would like to know too. Please post some code actually doing this instead of saying use DrawItem event etc...... Would be nice if it did not take up entire cell and had a nice border around it.

Thanks

Progress bar in a cell : Hi, i would add a progress bar...

Wed, 28 Mar 2007 08:29:48 +0000

Author: Franco Prudente
Subject: 6748
Posted: 28 March 2007 at 8:29am

Hi, i would add a progress bar in a cell.

How can i do?

Thanks