- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我使用以下代码在“CustomDrawSubItem”事件中的 PNG ImageList 的 ListView 子项上绘制图标。当我从“CustomDrawItem”中选择一行或更改行的画笔颜色时,此选择颜色会从子项的单元格中删除。我该如何解决这个问题,以便“背景”颜色填充透明区域?
DPR文件
program Project1;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1},
Vcl.Themes,
Vcl.Styles;
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
TStyleManager.TrySetStyle('Glow');
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
单元1
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
Vcl.ComCtrls, Winapi.CommCtrl, PngImageList;
type
TForm1 = class(TForm)
ListView1: TListView;
PngImageList1: TPngImageList;
procedure ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure DrawPicOnListViewSubItem(LV: TListView; Item: TListItem; SubItem: LongInt; ImgListHandle: THandle; IconIndex,ImgListWidth: Word); inline;
Var R: TRect;
x: LongInt;
begin
R := Item.DisplayRect(drBounds);
for x := 0 To SubItem - 1 Do
R.Left := R.Left + LV.Columns[x].Width;
R.Top := R.Top + 3;
If Item <> nil then begin
R.Left := R.Left + (LV.Columns[SubItem].Width - ImgListWidth) div 2;
R.Right := R.Left + ImgListWidth;
// Ensure that the items are drawn transparently
SetBkMode(LV.Canvas.Handle, TRANSPARENT);
ListView_SetTextBkColor(LV.Handle, CLR_NONE);
ListView_SetBKColor(LV.Handle, CLR_NONE);
ImageList_Draw(ImgListHandle, IconIndex, LV.Canvas.Handle, R.Left - 2, R.Top, ILD_NORMAL);
end;
end;
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if SubItem = 1 then begin
DrawPicOnListViewSubItem(ListView1, Item, SubItem, PngImageList1.Handle, 0, 16);
DefaultDraw := False;
end;
end;
end.
Form1 DFM 文件
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 565
ClientWidth = 954
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ListView1: TListView
Left = 0
Top = 0
Width = 954
Height = 565
Align = alClient
Columns = <
item
Width = 200
end
item
end
item
Width = 200
end
item
end
item
Width = 200
end>
Items.ItemData = {
052F0000000100000000000000FFFFFFFFFFFFFFFF03000000FFFFFFFF000000
0000001890633600B8351F3D0000391F3DFFFFFFFFFFFF}
RowSelect = True
SmallImages = PngImageList1
TabOrder = 0
ViewStyle = vsReport
OnCustomDrawSubItem = ListView1CustomDrawSubItem
end
object PngImageList1: TPngImageList
PngImages = <
item
Background = clWindow
Name = 'cross'
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000001CB4944415478DAAD933F4842411CC7BF8719D890363455
342946E349D1D09F2DA7245C8AA2A1A11A1A9C8CA0A684701197201A45A8A6A0
E951434343448A43E8524BA20922096543F6ECF5BB7BA73CCCCD1E1CC7BDDFF7
FBB97BBFEF3B661806BA79D8BF004E1903A3850DF0D314A1B1D700345D897A3A
D4C4B6CBE4B502A4606967879F45A369212480A600B2B6180AF18B785CD608A0
B5004926F6476A251CE6B95C0E1E8F07E7B19814AA4344E6D7D779B95C86CBE5
C24D32296ABED526206102FC448D04363779269381D7EBC555222184980C0478
A95482D3E9C4E3F5759A99606DCD0A10DFA42BC85C30C89F9F9EA4A156ABA158
28C0E170E0239F9766FA244D6CF907F04DA3A120236E377FAB54E4F96D361BDE
2B1569A6666A76D17D2BE050A5D0AB1AC6046070903774BD15D76BB59A365463
EBB4161BEEB603ECCA3C3E30C03B659E55906F15633B4046356D31DF9241CC1D
DEC9185B800315E38245784942D56D71DC487B4DC4B8DF048C12608A4E3044C2
0D129E90A048E67BF5234D76A8DD51EDA509608C0D93AECF07CC8C035B39E0E8
814E4BEFBE68FC88FE4E00B363C07616384E99B54FF2169A807EB38732089869
8ADF42CE867915E495E8517591789DBCEF5DDFC65FB962FBE11CAE7AA4000000
0049454E44AE426082}
end>
Left = 248
Top = 112
Bitmap = {}
end
end
PNGImageList:
https://github.com/TurboPack/PNGComponents
最佳答案
您的代码中的主要错误是您没有为所选行和带有图像的子项绘制背景( clHighLight
color )。
另外我删除了整个DrawPicOnListViewSubItem()
程序,因为我能够将其减少到几行。我认为有一些试用代码。ListView1CustomDrawSubItem()
现程序如下:
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
R: TRect;
C: TCanvas;
begin
ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @R);
C := Sender.Canvas;
if cdsSelected in State then
begin
C.Brush.Color := clHighLight;
C.FillRect(R);
end;
if SubItem = 1 then
begin
ImageList_Draw(PngImageList1.Handle, 0, C.Handle, R.Left+(R.Width-PngImageList1.Width) div 2, R.Top, ILD_TRANSPARENT);
DefaultDraw := False;
end;
end;
关于使用 VCL 样式时,ListView 行选择在 Icon 周围被切断,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/63334913/
我喜欢调整 目录的样式(例如背景颜色、字体)预订 , Gitbook 风格 HTML 文档。 这可能吗?如果是这样,有人可以善意地指出我可以开始这样做的地方吗? 谢谢你。 最佳答案 两个步骤: 1)
是否可以使用纯 CSS 选择器根据子节点的兄弟节点数量为节点子节点(在我的例子中为 UL)提供不同的属性,特别是高度? 例如,如果一个节点有 1 个子节点,则 UL 的高度是自动的,但是如果该节点有
我正在与 Vala 一起工作,它首先编译为 C,然后正常从 C 编译。 valac 的一项功能(Vala 编译器)是为 .vala 生成“fast-vapi”文件。 fast-vapi 本质上是为 .
我有两个具有 .body 类的 div,但是,一个位于另一个具有 .box 类的 div 中 - 如下所示: 我只想为 .box 内部的 .body 设置样式...但我在下面所
**注意所有 <> 标签已被删除以允许代码显示**我已经玩了好几个小时了,如果不在设计结束时使用解决方法(即 Corel 绘图),我就无法真正让它工作 *在我继续之前, 首先,网站 URL 是 Adv
我从一个服务中接收到一个字符串,该字符串显然使用 UTF-32 编码对其 unicode 字符进行编码,例如:\U0001B000(C 风格的 unicode 编码)。但是,为了在 JSON 中序列化
我在应用程序资源中有一种样式,我想将其应用于许多不同的饼图。样式如下所示: 为了简单起见,我排除了更多的属性。这一切都很好。现在,我的一些馅饼需要有一个不同的“模型
想象一下,我有一个名为“MyCheckBoxStyle”的 CheckBox 自定义样式。 如何制作基于 MyCheckBoxStyle 嵌入自定义 DataGridCheckBoxColumn 样式
我有一个 Button我在 WPF 中开发的样式,如 this question 中所述.我想用这种风格做的另一件事是拥有 Button缩小一点点,使其看起来像被点击一样被点击。现在,转换代码如下所示
我为超链接控件创建了一个样式:
不知道为什么,但我的 typeahead.js 远程自动完成停止工作。我没有更改任何关于 typeahead.js 的代码,但既然它坏了,我一定是错的。你能看看我的site here吗? ?我会创建
有没有办法创建扩展当前样式的样式,即不是特定样式? 我有一个 WPF 应用程序,我在其中创建样式来设置一些属性,例如边框或验证。 现在我想尝试一些主题,看看哪
我正在为一个网站提出问题,并希望 var reltext 中的正确/再试消息具有不同的颜色,即绿色表示正确,红色表示错误,并且每个旁边可能有一个小 png。 有什么想法吗? A local co
我想到达列表的父节点(使用 id 选择器)并使用纯 JavaScript 添加背景颜色来设置其样式。这是我的代码,但不起作用。 var listParentNode; listPare
关闭。此题需要details or clarity 。目前不接受答案。 想要改进这个问题吗?通过 editing this post 添加详细信息并澄清问题. 已关闭 4 年前。 Improve th
过去几天我一直在与这段代码作斗争,我真的不知道该如何处理它。 基本上,当用户将鼠标滚动到主导航菜单中的某个 LI 元素上时,就会运行一个 Javascript 函数,并根据触发该函数的元素将链接放入下
使用这个可爱的 html 和 css 作为指南,我能够在我的照片上显示我的姓名首字母。 这很好,但是,如果图像不存在,我只想显示首字母;如果图像存在,则不应渲染 peron 首字母。 换句话说,当该图
使用这个可爱的 html 和 css 作为指南,我能够在我的照片上显示我的姓名首字母。 这很好,但是,如果图像不存在,我只想显示首字母;如果图像存在,则不应渲染 peron 首字母。 换句话说,当该图
是否有人尝试过将 JButton 设计为看起来像 NetBeans 工具栏按钮?这将只显示一张图片,当您将鼠标悬停在它上面时,会显示 1px 圆形角灰色边框,并且按钮顶部和底部的背景不同......似
在 Ax2012 中使用图表,它们工作正常。但我想更改它在启动时显示的图表类型,例如“样条”图表,而不是默认的“柱状图”图表。 这是我现在拥有的: http://i.stack.imgur.com/R
我是一名优秀的程序员,十分优秀!