"Michael Vilhelmsen" <smom22@hotmail.com> wrote:
>Hej
>
>Findes der et kombonent, som kan gøres lidt som TMemo, men hvori man kan
>sætte fonte, farve m.m. for hver enkelt linie ?
>
Kan du ikke fortælle lidt mere om hvad du skal bruge det til.
F.eks. en ListBox kan man gøre følgende med OnDrawItem hændelsen:
procedure TTest.ListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
With ( Control As TListBox ).Canvas Do
Begin
Case Index Of
0:
Begin
Font.Color := clBlue;
Brush.Color := clYellow;
End;
1:
Begin
Font.Color := clRed;
Brush.Color := clLime;
End;
2:
Begin
Font.Color := clGreen;
Brush.Color := clFuchsia;
End;
End;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, ( Control As TListBox ).Items[Index]);
End;
end;
Proceduren sætter tekst- og baggrundsfarven alt efter linienummeret.
Og husk at sætte ListBox1.Style property til lbOwnerDrawFixed.
Noget lignende kan gøres med alle componenter med en OnDraw hændelse.
--
Med venlig hilsen, Ove Kjeldgaard
Natur og Friluftsliv: <
http://hiker.dk>