BorlandTalk.com

Ralph Gamble · Guest

I have an OwnerDraw ListBox On the left side of the ListBbox I have a
series of bitmaps.
Depending a condition I want to output a Text On top of the Bit map. I
have inserted
The code to output the Text in the bit map in OnDrawItem. It seems to
work correctly
except when I scroll. When I scroll and a bit map that needs Text is
at the bottom
it draws correctly, but as soon as I move down one more position it
disappears.
What am I missing and how do I fix this.

Thanks in advance

Ralph

Remy Lebeau (TeamB) · Guest

"Ralph Gamble" <ralphgamble (AT) rogers (DOT) com> wrote in message
news:464b0785$1 (AT) newsgroups (DOT) borland.com...

Ralph Gamble · Guest

Here is code

//---------------------------------------------------------------------------
void __fastcall TMainForm::ListBoxDrawItem(TWinControl *Control, int
Index,
TRect &Rect, TOwnerDrawState State)
{
TBitBtn *Btn = ((TBitBtn*)(ListBox->Items->Objects[Index]));
Btn->Left = Rect.Left;
Btn->Top = Rect.Top;
Btn->Visible = true;

TBitBtn *BtnAhead = BAH[Index];
BtnAhead->Top = Rect.Top;

if( !Btn->Visible ) Btn->Visible = true;
else Btn->Repaint(); // to remove some color shift when button
looses
focus

TRect rect = Rect;
rect.Left += Btn->Width;
TCanvas *Cvs = ((TListBox*)Control)->Canvas;
Cvs->FillRect(rect);
if( State.Contains(odFocused) ) Cvs->DrawFocusRect(rect);
if( State.Contains(odSelected) ) {
Cvs->Brush->Color = clHighlight;
Cvs->Pen->Color = clHighlightText;
} else {
Cvs->Brush->Color = clWindow;
Cvs->Pen->Color = clWindowText;
}
if (ListBox->Items->Strings[Index]!=""){
OutPutTextString(Cvs,ListBox->Items->Strings[Index],rect.Left+5,
rect.Top+6);
}

Cvs->Brush->Color = clWindow;
TCData* APtr=GetDataPtr(Btn->Tag);
if (APtr!=NULL){
if ((Index==0)&&(AuctionOver())) BtnAhead->Visible = false;
else BtnAhead->Visible = true;

// This is the text that dissapears

if (APtr->TotalMeaning>1) Astrix(Cvs,rect.left,rect.top);
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Astrix(TCanvas* Cvs, int x1, int y1)
{
// save old
//TColor old=Cvs->Font->Color;
//TColor oldBrush=Cvs->Brush->Color;
//int oldSize=Cvs->Font->Size;
// draw Blue astrix
Cvs->Brush->Color=clBtnFace;
Cvs->Font->Color=clBlue;
Cvs->Font->Size=14;
Cvs->TextOut(x1-10,y1,"*");
// restore old
//Cvs->Brush->Color=oldBrush;
//Cvs->Font->Color=old;
//Cvs->Font->Size=oldSize;
}

The Second line from bottom od drawitem is the line of code that draws
the
disaperaring test

Ralph

Remy Lebeau (TeamB) · Guest

"Ralph Gamble" <ralphgamble (AT) rogers (DOT) com> wrote in message
news:464b3ee5$1 (AT) newsgroups (DOT) borland.com...

Ralph Gamble · Guest

Thanks Remy I can see what I was doing cannot work.
During scrolling the button is redrawn on top of the text (astrix)
that I just output. I guess my brain was out of gear when I wrote
this.
I wanted the appearance of a real button with a glyph in it so the
reason for TBitBtn. When I Looked at DrawFrameControl()
I cannot see how to Draw a bit Button with a glyph.

I can also see how I could change the Glyph to get the desired effect
but am now concerned with your comment

Remy Lebeau (TeamB) · Guest

"Ralph Gamble" <ralphgamble (AT) rogers (DOT) com> wrote in message
news:464c6473$1 (AT) newsgroups (DOT) borland.com...

Ralph Gamble · Guest

Thank you for all your help. I tried the DrawFrameControl() route
and intercepting the vertical scroll message. The DrawframeControl()
did not perform exacly what I wanted for appearance. So I
rewrote the button synchronization method moving all the code
outside the OnDrawItem event and everything works perfectly now.
I had the wrong idea on draw item events. thanks for point me in right
direction.
Thanks again

Ralph