HYHO!
Nehmen wir mal an, Du willst einen total mit Graffity besprühten Brückenpfeiler neu bemalen. Was machst Du dann vorher?
Delphi-Quellcode:
procedure TForm1.LBDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if (odFocused in State) Or (odSelected in State) then Begin
LB.Canvas.Brush.Color := clHighlight;
LB.Canvas.Font.Color := clHighlightText
End else Begin
LB.Canvas.Brush.Color := clWindow;
LB.Canvas.Font.Color := clWindowText;
End;
LB.Canvas.FillRect(Rect);
LB.Canvas.TextOut(Rect.Left, Rect.Top,LB.Items[Index]);
end;
Viele Grüsse
OLLI