ListBox 自定义画的过程问题 ( 积分: 50 )

主要是画了之后有背景线，不知道是什么原因，如果不指定颜色的话就没有问题。不知道是什么原因，希望大家帮帮忙！这就是下面的代码
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
vStr: string;
vR: Integer;
begin
vR := SetBkMode(self.ListBox1.Canvas.Handle, TRANSPARENT);
if odSelected in State then
begin
ListBox1.Canvas.Brush.Color := clBlack;
ListBox1.Canvas.Pen.Color := clWhite;
end
else
begin
ListBox1.Canvas.Brush.Color := clRed;
ListBox1.Canvas.Pen.Color := clWhite;
end;
vStr := ListBox1.Items[Index];
Rect.Left := Rect.Left + 2 ;
Rect.Top := Rect.Top + 1;
Rect.Right := Rect.Right - 2;
Rect.Bottom := Rect.Bottom - 1;
ListBox1.Canvas.FillRect(Rect);
Windows.DrawText(ListBox1.Canvas.Handle, PChar(vStr), Length(vStr), Rect, DT_SINGLELINE or DT_LEFT or DT_VCENTER);
SetBkMode(Self.ListBox1.Canvas.Handle, vR);
end;

主要是画了之后有背景线，不知道是什么原因，如果不指定颜色的话就没有问题。不知道是什么原因，希望大家帮帮忙！这就是下面的代码
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
vStr: string;
vR: Integer;
begin
vR := SetBkMode(self.ListBox1.Canvas.Handle, TRANSPARENT);
if odSelected in State then
begin
ListBox1.Canvas.Brush.Color := clBlack;
ListBox1.Canvas.Pen.Color := clWhite;
end
else
begin
ListBox1.Canvas.Brush.Color := clRed;
ListBox1.Canvas.Pen.Color := clWhite;
end;
vStr := ListBox1.Items[Index];
Rect.Left := Rect.Left + 2 ;
Rect.Top := Rect.Top + 1;
Rect.Right := Rect.Right - 2;
Rect.Bottom := Rect.Bottom - 1;
ListBox1.Canvas.FillRect(Rect);
Windows.DrawText(ListBox1.Canvas.Handle, PChar(vStr), Length(vStr), Rect, DT_SINGLELINE or DT_LEFT or DT_VCENTER);
SetBkMode(Self.ListBox1.Canvas.Handle, vR);
end;

加上
if not (odSelected in State) then
begin
ListBox1.Canvas.Brush.Color := clWhite;
ListBox1.Canvas.FrameRect(vR1);
end;
应该就可以了

在FillRect前 畫一個白色的四邊形
Listbox1.Canvas.Pen.Color:=clwhite;
ListBox1.Canvas.Rectangle(Rect.Left,rect.Top,rect.Right,rect.Bottom);