首页 > 代码库 > 自定义popupmenu菜单背景色
自定义popupmenu菜单背景色
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;
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。