|
procedure TForm1.lsbRightClick(Sender: TObject);
begin
StaticText1.Caption := '''' '''' + lsbRight.Items.Strings[lsbRight.ItemIndex];
end;
procedure TForm1.FormShow(Sender: TObject);
begin
lsbRight.ItemIndex := 0;
lsbRight.Repaint();
lsbLeft.ItemIndex := 0;
lsbLeft.Repaint();
end;
procedure TForm1.lsbLeftDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
r: TRect;
begin
with lsbLeft.Canvas do begin
//设置填充的背景颜色并填充背景
Brush.Color := clWhite;
FillRect (Rect);
//绘制圆角矩形
if (odSelected in State) then //选中项的圆角矩形颜色
Pen.Color := $FFB2B5
else //未选中项的圆角矩形颜色
Pen.Color := clSilver;
Brush.Style := bsClear;
SetRect(r, Rect.Left+3, Rect.Top+3, Rect.Right-3, Rect.Bottom-3);
RoundRect(r.Left, r.Top, r.Right, r.Bottom, 10, 10);
//画出图标
if (odSelected in State) then //选中项的图像
Draw(r.Left + (r.Right - r.Left - imgHouse.Width) shr 1,
r.Top + 2, imgHouse.Picture.Graphic)
else //未选中项的图像
Draw(r.Left + (r.Right - r.Left - imgHouseGray.Width) shr 1,
r.Top + 2, imgHouseGray.Picture.Graphic);
//填充文字区背景
r.Top := r.Bottom - Abs(Font.Height) - 4;
Brush.Style := bsSolid;
if (odSelected in State) then //选中项的背景颜色
Brush.Color := $FFB2B5
else //未选中项的背景颜色
Brush.Color := clSilver;
FillRect(r);
//输出文字，仅支持单行
Font.Color := clBlack;
r.Top := r.Top + 2; //计算文字顶点位置，(水平居中,DT_CENTER不可用)
DrawText(Handle, PChar(TListBox(Control).Items.Strings[Index]), -1, r
, DT_CENTER or DT_END_ELLIPSIS{ or DT_WORDBREAK});
//画焦点虚框，当系统再绘制时，变成XOR运算，从而达到擦除焦点虚框的目的
if(odFocused in State) then DrawFocusRect(Rect);
end;
end;
end.
上一页 [1] [2]
没有相关教程
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
