怎么改变菜单栏TMainMeun的颜色?(100分)

  • 主题发起人 主题发起人 小小小小大
  • 开始时间 开始时间

小小小小大

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么改变菜单栏TMainMeun的颜色?
 
我有一Delphi 6作的菜单,超级COOL,目前在网上从未有过,小弟刚刚完成,
xsxdelphi@sohu.com索取全部源代码,记得,一性感美女图片交换!
基本原理:
MainMenu1.OwnerDraw:=true;
AdvancedDrawItem(..)
用到的API函数
WindowFromDC()
GetDC()
GetWindowDC()
 
to:NeutronDelphi
能不能發一份給我看看﹗
 
呵呵,记得有个控件xpmenu非常好用,简单!需要的话我可以发给你。
 
謝謝﹐那個我有了﹗
 
cxz@gsta.com
 
procedure TForm1.SetCanvasFont(ACanvas: TCanvas;
sFontName: String;
iFontSize, iFontColor: Integer;
fsStyle: TFontStyles);
begin
with ACanvas.Font do
begin
Name := sFontName;
Size := iFontSize;
Color := iFontColor;
Style := fsStyle;
end;
end;
//菜单自画
procedure TForm1.gsdagf1DrawItem(Sender: TObject;
ACanvas: TCanvas;
ARect: TRect;
Selected: Boolean);
begin
SetCanvasFont(ACanvas, '宋体', 11, clRed, [fsBold]);
ACanvas.TextOut(ARect.Left, ARect.Top, (Sender as TMenuItem).Caption);
end;
 
小小小小大=hgood ?
 
后退
顶部