[求教]在ExpressBars的菜单中放置一图片(类似QQ的主菜单)(100分)

  • 主题发起人 主题发起人 UniVAN
  • 开始时间 开始时间
U

UniVAN

Unregistered / Unconfirmed
GUEST, unregistred user!
EBars4Demo有这样一个例子 但是小弟愚笨 实在看不明白 请教大侠们 怎么把那张图片置入到File菜单的?
 
各位高人。。。。
 
使用dxBarManager1创建一个TdxBarSubItem类型的用于菜单,这个会吧.然后
设置TdxBarSubItem的BarSize属性,这个属性是要显示图像的宽度.然后在TdxBarSubItem
的OnPaintBar事件中写入以下代码(我是从Demo)中Copy的.根据你的图像大小可以
更改.

procedure TForm1.dxBarSubItemFilePaintBar(Sender: TObject; Canvas: TCanvas;
const R: TRect);
var
SR, BR: TRect;
begin
DrawVerticalGradient(Canvas, R, 0, 0, 0, 0, 0, 255);
SR := R;
with iBars4.Picture.Bitmap do
begin
TransparentColor := clBlack;
BR := Rect(0, 0, Width, Height);
end;
with SR do
begin
Left := (Left + Right - BR.Right) div 2;
Right := Left + BR.Right;
Top := Bottom - BR.Bottom;
end;
if SR.Top > 0 then
with Canvas do
begin
Brush.Style := bsClear;
BrushCopy(SR, iBars4.Picture.Bitmap, BR, clBlack);
Brush.Style := bsSolid;
end;
end;
 
谢谢 搞出来了~ 原来得先设置BarSize :) 感谢 我在PaintBar时设置BarSize没有用 :( 谢谢~
 
后退
顶部