图片菜单.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 64 行

procedure TForm1.ccc1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  height:=18;
  width:=60;
  acanvas.brush.Color:=clblue;
  acanvas.TextOut(1,1,TMenuitem(sender).caption);
end;  //这段代码使菜单文字的下方出现背景颜色

procedure TForm1.bbb1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  acanvas.Draw(0,2,image1.picture.bitmap);
  acanvas.TextOut(arect.left+image1.picture.bitmap.width+2,arect.top,tmenuitem(sender).caption);
end;  //这段代码使菜单左边有一个图片


procedure TForm1.Coloritem11DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
   Acanvas.brush.Color:=$00EBC596;
//   Acanvas.FillRect(acanvas.cliprect);

   Acanvas.Font.Color:=clblack;
   if Selected then begin
      Acanvas.brush.Color:=$00A00000;
      Acanvas.Font.Color:=clwhite;
   end;
   Acanvas.TextOut(arect.left+5,arect.top,tmenuitem(sender).caption);
end;

procedure TForm1.Coloritem11MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  Height:=20;

end;

procedure TForm1.hhh31DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
var i:integer;
begin
   Acanvas.brush.Color:=$00EBC596;
   Acanvas.FillRect(acanvas.cliprect);
   for i:=0 to HHHH2.Count-1 do begin
       Acanvas.Font.Color:=clred;
       Acanvas.TextOut(5,20*i,hhhh2.Items[i].caption);
   end;

   if Selected then begin
      Acanvas.brush.Color:=$00A00000;
      Acanvas.Font.Color:=clwhite;
   end;
   Acanvas.TextOut(arect.left+5,arect.top,tmenuitem(sender).caption);

end;

procedure TForm1.hhh34MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  height:=20;
end;