BorlandTalk.com

Curtis Richards · Guest

Can someone tell me what I need to do to make the selected
area of a customdraw cell on the listview to act the same way
as the other cells when you select the row.

For example, when you select a row the entire row turns to
blue, and the text appears white. Now on the customdraw
cell it stays white, there is no border or coloring.

I took this from a vcl component set that I am trying to figure
out that part on.

void __fastcall TDownLoaderTest::ListViewAdvancedCustomDrawSubItem(
TCustomListView *Sender, TListItem *Item, int SubItem,
TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw)
{
TclInternetItem *InternetItem = static_cast<TclInternetItem*>(Item->Data);
if ((!InternetItem) || (SubItem != 4)) return;
TRect R;
TclResourceStateList *ResourceState = InternetItem->ResourceState;
ListView_GetSubItemRect(Item->Handle, Item->Index, SubItem, LVIR_BOUNDS,
&R);

TControlCanvas *canvas = new TControlCanvas();
__try
{
canvas->Control = Sender;
clProgressBar->Draw(ResourceState, canvas, R);
}
__finally
{
delete canvas;
}
DefaultDraw = false;
}

Can someone help me out here.

Thanks.

Remy Lebeau (TeamB) · Guest

"Curtis Richards" <cj_richards (AT) mpquest (DOT) com> wrote in message
news:44ff62e9 (AT) newsgroups (DOT) borland.com...

Curtis Richards · Guest

So if I set the parameter to DefaultDraw=true; will that handle the
selection of the entire row for me?

I just want the entire row to be highlighted with the default colors
that you seee when you select a row, nothing more.

"Remy Lebeau (TeamB)" <no.spam (AT) no (DOT) spam.com> wrote in message
news:44ff6a77$1 (AT) newsgroups (DOT) borland.com...

Remy Lebeau (TeamB) · Guest

"Curtis Richards" <cj_richards (AT) mpquest (DOT) com> wrote in message
news:450412ba (AT) newsgroups (DOT) borland.com...

Curtis Richards · Guest

You are confusing me here.

This is the code the author has put in his demo to show
his vcl component. The code is displaying a progress
bar in the column of the listview. What other way is
there to display the progressbar without drawing it in
there?

void __fastcall TDownLoaderTest::ListViewAdvancedCustomDrawSubItem(
TCustomListView *Sender, TListItem *Item, int SubItem,
TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw)
{
TclInternetItem *InternetItem = static_cast<TclInternetItem*>(Item->Data);
if ((!InternetItem) || (SubItem != 4)) return;
TRect R;
TclResourceStateList *ResourceState = InternetItem->ResourceState;
ListView_GetSubItemRect(Item->Handle, Item->Index, SubItem, LVIR_BOUNDS, &R);

TControlCanvas *canvas = new TControlCanvas();
__try
{
canvas->Control = Sender;
clProgressBar->Draw(ResourceState, canvas, R);
}
__finally
{
delete canvas;
}

DefaultDraw = true;
}

Can you please show me what you are talking about?

Thanks.

Remy Lebeau (TeamB) · Guest

"Curtis Richards" <cj_richards (AT) mpquest (DOT) com> wrote in message
news:4506e5f9$1 (AT) newsgroups (DOT) borland.com...

Curtis Richards · Guest

Hi Gambit,

Just when I thought it was safe to go back in the water :)

First I would like to say thank you for helping me out in
trying to understand this better.

If you don't mind I uploaded an attachment in the attachments
group with two pics.

The first pic has the original code.

TclInternetItem *InternetItem =
static_cast<TclInternetItem*>(Item->Data);
if ((!InternetItem) || (SubItem != 4)) return;
TRect R;
TclResourceStateList *ResourceState = InternetItem->ResourceState;
ListView_GetSubItemRect(Item->Handle, Item->Index, SubItem,
LVIR_BOUNDS, &R);

TControlCanvas *canvas = new TControlCanvas();
__try
{
canvas->Control = Sender;
clProgressBar->Draw(ResourceState, canvas, R);
}
__finally
{
delete canvas;
}

DefaultDraw = true;

The second Pic has this code.