Hmm... why did this take 2hrs to arrive?!?
Also, maybe I went overboard with the custom drawing stuff 8-)
Chris
> -----Original Message-----
> From: Chris Milham
> Sent: Monday, 23 September 2002 8:31 a.m.
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Highlighting text in a ListBox
>
>
> Hi Kevin,
>
> I just had a play. Try this....
>
> Set 'style' prop to 'lbOwnerDrawFixed'.
> Add some items (I used 3).
> Add this code to the 'OnDrawItem' event handler:
>
> procedure TForm1.ListBox1DrawItem(Control: TWinControl;
> Index: Integer; Rect: TRect; State: TOwnerDrawState);
> begin
> with listbox1.Canvas do begin
> if State = [] then begin
> if Index = 1 then begin {The second item is a special
> case so make it look different}
> Brush.Color := clRed;
> Font.Color := clWhite;
> end else begin {std item}
> Brush.Color := clWindow;
> Font.Color := clWindowText;
> end;
> end else if odSelected in State then begin {draw selected
> item differently}
> Brush.Color := clLime;
> Font.Color := clWhite;
> end;
> Brush.Style := bsSolid;
> FillRect(Rect);
> TextRect(Rect, Rect.Left+2, rect.Top+2, ListBox1.Items[Index]);
> end;
> end;
>
> HTH
>
> Chris
>
> > -----Original Message-----
> > From: Kevin Parker [mailto:[EMAIL PROTECTED]]
> > Sent: Monday, 23 September 2002 12:20 a.m.
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: Highlighting text in a ListBox
> >
> >
> > OK I give up. How do you HighLight a line of text in a ListBox?
> >
> > Kevin
> >
> > --------------------------------------------------------------
> > -------------
> > New Zealand Delphi Users group - Delphi List -
> > [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> >
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
