/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Listbox og text farver ?
Fra : SpookiePower


Dato : 18-02-02 15:56

Er det muligt i en listbox, at give de forskellige
linier, forskellige farver ? Jeg kan kun få dem alle
til at blive samme farve.



 
 
Claus Christiansen (18-02-2002)
Kommentar
Fra : Claus Christiansen


Dato : 18-02-02 21:11

"SpookiePower" <boxjunk2600@hotmail.com> wrote in
news:a4r4mf$flp$1@news.cybercity.dk:

> Er det muligt i en listbox, at give de forskellige
> linier, forskellige farver ? Jeg kan kun få dem alle
> til at blive samme farve.

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


--
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)

SpookiePower (18-02-2002)
Kommentar
Fra : SpookiePower


Dato : 18-02-02 22:41


"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.



Claus Christiansen (20-02-2002)
Kommentar
Fra : Claus Christiansen


Dato : 20-02-02 10:40

"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)

SpookiePower (20-02-2002)
Kommentar
Fra : SpookiePower


Dato : 20-02-02 18:07

Mange tak for hjælpen.



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste