用MainMenu 怎样实现无3D效果,就是像DELPHI的菜单效果一样
解决方案 »
- Delphi处理大数据量的增删查改
- WEB Service客户端并发运行时出现的难题!!!百思不得其解,请高手指教。
- [请教]delphi中异或运算的相关使用?
- 请教OOP高手指点。。sorry,没分了
- 问个关于EOF的问题
- 我仅仅写了个小的windows服务,可在任务管理器中,它所占的内存和PID都很高,如何改善?谢谢!
- 请教:adoquery1.parameters.ParamByName('p1').Value :=Ename.Text ;是什么意思(在线给分)
- 如何异步调用一个非窗口函数
- 关于DBGRID的查询统计(对某个值出现的次数统计)█
- 三层数据库结构
- 新手请教-如何防止运行的时候出错
- 如何在菜单左边显示一张图片?
Xp Menu菜单核心代码
========================
//此过程为菜单项的高级自画列表事件代码procedure TForm1.menuFileNewAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
var
MenuHeight,BmpPos:Integer;//菜单项的高度;菜单中所画图标的边距
TempMenuItem:TMenuItem; //调用此过程的菜单项
DrawIco:TIcon; //图标对象,用以画出菜单项的图标
TempRect:TRect; //临时的矩形区域,程序中多次使用
ShowCaption:String; //菜单项的标题
ImageList:TCustomImageList; //菜单项所使用的图标列表控件
begin
TempMenuItem:=(Sender as TMenuItem);//获取调用此过程的菜单项
ShowCaption:=TempMenuItem.Caption; //获取菜单标题
DrawIco:=TIcon.Create; //创建图标对象
with ACanvas,ARect do
begin
MenuHeight:=25; //此数值与在 OnMeasureItem 事件中设置的Height属性值相同
BmpPos:=(MenuHeight-16) div 2;{
计算所画的图标边距,所显示的图标尺寸一般为16,所以此处取值也为16,可根据实际更改此数值。}
Brush.Color :=RGB(255,251,247);//设置菜单的背景色,此处设为奶白色,可根据需要更改
FillRect(Arect); //填充背景
Brush.Color:=RGB(223,215,207);//设置菜单项图标区域的背景色,可根据需要更改
TempRect:=Rect(Left,Top,MenuHeight,Bottom);//设置图标背景的矩形区域
FillRect(TempRect);//填充图标背景
if TempMenuItem.Caption='-' then
begin
Pen.Color:=RGB(175,183,207);
MoveTo(Left+MenuHeight+5,Top+((Bottom-Top) div 2)-1);
LineTo(Right,Top+((Bottom-Top) div 2)-1);
Pen.Color:=clWhite;//RGB(175,183,207);
MoveTo(Left+MenuHeight+5,Top+((Bottom-Top) div 2));
LineTo(Right,Top+((Bottom-Top) div 2));
Exit;
end;{以上程序判断该菜单项是否为分隔线,如果是,则画出分隔线样式后退出此过程。可根据需要更改其效果}
ImageList:=TempMenuItem.GetImageList;//获取所使用的图标列表控件if ImageList<>nil then //如果主菜单关联了图标列表控件if (TempMenuItem.Imageindex<>-1) then //如果该菜单项指定了图标beginImageList.GetIcon(TempMenuItem.ImageIndex,DrawIco);//从图标列表控件中获取图标if TempMenuItem.Checked then //如果该菜单项有复选标记则画出一个蓝色框beginbrush.Color:=RGB(175,183,207);Pen.Color :=clBlack;RoundRect(Left+1,Top+2,MenuHeight-2,Bottom-2,0,0);end;endelse //如果该菜单项没有指定图标if TempMenuItem.Checked then Imagelist.GetIcon(11,DrawIco);{如果菜单项有复选标记,则从图标列表控件中获取一个表示复选的图标数字11是该图标的索引号,可根据实际更改;如没有该图标,可将这两句删除}if (odSelected in State) {and (Not (odDisabled in State))} then{如果该菜单项处于被选择状态,则画出以下选择样式注释的一句加上的话表示如果菜单项处于无效状态则光标指向时无任何效果}begin //以下程序画出一个蓝色框以表示该菜单项处于被选择状态Inc(Left,2);Inc(Top,2);Brush.Style:=bsSolid;brush.Color:=clGray;//RGB(110,120,180);Pen.Color:=clMenu;RoundRect(Left,Top,Right,Bottom,5,5);{以上四句画出蓝色框的阴影}brush.Color:=RGB(175,183,207);Dec(Left,2);Dec(Top,2);Dec(Right,2);Dec(Bottom,2);Pen.Color :=clBlack;RoundRect(Left,Top,Right,Bottom,3,3);{以上四句画出蓝色框}Draw(BmpPos,Top+BmpPos,DrawIco);//画出图标阴影(我不知道怎样把图标颜色变成灰度,只好原样画上)Dec(BmpPos,1);end;Draw (BmpPos,Top+BmpPos,DrawIco);//画出图标DrawIco.Free; //图标已画出,可以释放图标对象TempRect:=Rect(Left+MenuHeight+10,Top,Right,Bottom);//设置菜单标题的矩形区域Brush.Style:=bsClear;//设置画刷的填充样式为透明,这样画出的菜单标题就为透明底色with Font do //根据菜单项的状态设置字体样式beginif (odDisabled in State) then Color :=clgray else Color :=clblack;{设置菜单项在有效或无效状态时的字体颜色,具体的颜色可根据实际更改}if TempMenuItem.Default then Style:= Style+[fsBold];{如果菜单项为默认,则设置字体为粗体}end;DrawText(Handle,PChar(ShowCaption),-1,TempRect,DT_LEFT or DT_SINGLELINE or DT_VCENTER);{最后画出菜单项的标题}end;end; //此过程为菜单项的尺寸设置列表事件procedure TForm1.menuFileNewMeasureItem(Sender: TObject; ACanvas: TCanvas;var Width, Height: Integer);beginif TMenuItem(Sender).Caption<>'-' then Height:=25;//如果菜单项不是分隔线则设置其高度,可根据需要更改,更改后注意将高级自画事件中的 MenuHeight 变量设置为相同数值end; //此过程为主菜单项的高级自画事件,主要是画出一个带阴影的矩形框procedure TForm1.menuFileAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;ARect: TRect; State: TOwnerDrawState);varTempMenuItem:TMenuItem;TempRect:TRect;ShowCaption:String;beginTempMenuItem:=(Sender as TMenuItem);ShowCaption:=TempMenuItem.Caption;with acanvas,arect dobeginFillRect(ARect);Inc(Left,1); if (odSelected in State) then //如果该菜单项处于被选择状态beginBrush.Color:=RGB(189,190,189);TempRect:=Rect(Left,Top+3,Right,Bottom);FillRect(TempRect);Brush.Color:=RGB(181,182,181);TempRect:=Rect(Left,Top+2,Right-1,Bottom);FillRect(TempRect);Brush.Color:=RGB(165,162,165);TempRect:=Rect(Left,Top+1,Right-2,Bottom);FillRect(TempRect);//以上三段分别画出阴影Inc(Bottom,5);Pen.Color:=RGB(99,97,99);Brush.Color:=clMenu;RoundRect(Left,Top,Right-3,Bottom,5,5);Dec(Bottom,5);TempRect:=Rect(Left,Bottom,Right,Bottom+5);FillRect(TempRect);//画出边框颜色为灰色的矩形框end;DrawText(Handle,pchar(ShowCaption),-1,ARect,DT_CENTER or DT_SINGLELINE or DT_VCENTER);//最后画出菜单标题end;end;
能不能通过改变xpmenu来实现呢?