"SpookiePower" <boxjunk2600@hotmail.com> wrote in
news:a4rsco$26n2$1@news.cybercity.dk:
>
> "Claus Christiansen" <kruc@bigfoot.com> wrote in message
> news:Xns91B9D73841B2Ckrucsid@192.168.1.2...
>
>>
>> Du skal blot selv lave en OnDrawItem metode, så kan du få alle de
>> farver og andre sjove ting som du måtte ønske.
>> Jeg har en erindring om at jeg for ikke så længe siden har lavet et
>> udførligt eksempel her i gruppen så det bør være til at finde.
>> Ellers kan jeg da godt lave et igen...
>>
>> Claus
>
>
> Jeg har prøvet at søge på dit navn i gruppen, men kan ikke finde
> noget af det du beskriver. Jeg kender heller ikke til OnDrawItem
> metoden, så hvis det ikke er til for meget besvær, vil jeg meget
> gerne se hvad du har af forslag.
Hmm, det kan jeg heller ikke, måske min biologiske computer alligevel
ikke er så god...
Følgende eksempel skifter mellem at skrive linierne i rød og grøn -
derudover skal du huske af sætte propertien Style til noget der ligner
xxOwnerDrawFixed eller noget lige deromkring (hvis du vælger den der ikke
er fixed skal du lave en OnMeasureItem, der fortæller hvor stort et felt
hver enkelt item skal have (højde))
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
S:tr string;
begin
// De data der skal skrives
Str := ListBox1.Items[Index];
// Skriv...
with ListBox1.Canvas do
begin
FillRect(Rect);
if (Index mod 2) = 0 then
Font.Color := clRed
else
Font.Color := clGreen;
TextOut(Rect.Left + 2, Rect.Top + 1, Str);
end;
end;
/Claus
--
Claus Christiansen, <mailto:cch@unipeople.dk>
personal:
http://www.bigfoot.com/~kruc/; pythia:
http://www.pythia.dk
============================================--------------------------
"Computers are useless. They can only give you answers."
- Pablo Picasso (1881-1973)