自定义popupmenu菜单背景色

标签：ext   color   c   line   for   har   

procedure TForm1.N11DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;

  Selected: Boolean);

begin

 If (Selected) Then

 begin

 ACanvas.Font.Color := clWhite  ;

  ACanvas.Brush.Color := clWebDodgerBlue;

      ACanvas.FillRect(ARect);

         DrawText(ACanvas.Handle, PChar(‘   取消开机启动‘), -1, ARect, DT_LEFT Or DT_LEFT Or DT_SINGLELINE Or DT_NOCLIP);

 end

  Else

  begin

  ACanvas.Font.Color := clblack;

    ACanvas.Brush.Color := clWebSnow;

    ACanvas.FillRect(ARect);

    DrawText(ACanvas.Handle, PChar(‘   取消开机启动‘), -1, ARect, DT_LEFT Or DT_LEFT  Or DT_SINGLELINE Or DT_NOCLIP);

  end;

end;

自定义popupmenu菜单背景色,布布扣,bubuko.com

自定义popupmenu菜单背景色

标签：ext   color   c   line   for   har   

原文地址：http://www.cnblogs.com/onionhacker/p/3712967.html