防止 RTL TListView 镜像复选框和/或图形

2023-12-15

我试图使 ListView 的列从右到左显示。这已经是问并回答。但问题在于图标和复选框。当我使用 ListView RTL 时SetWindowLong,它也镜像图形和复选框,这是不需要的。我可以使用编辑工具镜像图形,虽然麻烦但可行,但我不知道如何处理复选框。

enter image description here

我认为他们都有相同的原因,所以我搜索了一下,发现了一篇关于RTL布局的整篇文章微软文档. In 激活每个设备上下文的镜像部分它指出了图形问题。建议更改 DC 的布局风格LAYOUT_RTL and LAYOUT_BITMAPORIENTATIONPRESERVED flags.

这是我结合文章中建议的方法和上面提到的答案实现的功能:

const
  LAYOUT_RTL = 1;
  LAYOUT_BITMAPORIENTATIONPRESERVED = 8;

function GetLayout(DC: HDC): DWORD; stdcall; external 'gdi32.dll';
function SetLayout(DC: HDC; dwLayout: DWORD): DWORD; stdcall; external 'gdi32.dll';

procedure MakeRTL(const Handle: HWND);
var
  DC: HDC;
begin
  SetWindowLong(Handle, GWL_EXSTYLE,
    GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYOUTRTL);

  DC := GetWindowDC(Handle);
  if DC <> 0 then
    SetLayout(DC, GetLayout(DC) or LAYOUT_RTL or LAYOUT_ORIENTATIONMASK);

  InvalidateRect(Handle, nil, True);
end;

但这并没有改变任何事情。我尝试阻止它们中的任何一个,更改它们的顺序并更改不同的位置来调用它,但没有成功。

现在的问题是,如何使 ListView 的列从右向左显示,而不镜像图形或复选框?

我使用的是 Win10 x64 和 Delphi 2010。

如果你想重现这个问题,这是我的delphi代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, StdCtrls, CommCtrl, ShellAPI;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    ListView2: TListView;
    Button1: TButton;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  LAYOUT_RTL = 1;
  LAYOUT_BTT = 2;
  LAYOUT_VBH = 4;
  LAYOUT_ORIENTATIONMASK = LAYOUT_RTL or LAYOUT_BTT or LAYOUT_VBH;
  LAYOUT_BITMAPORIENTATIONPRESERVED = 8;

function GetLayout(DC: HDC): DWORD; stdcall; external 'gdi32.dll';
function SetLayout(DC: HDC; dwLayout: DWORD): DWORD; stdcall; external 'gdi32.dll';

procedure MakeRTL(const Handle: HWND);
var
  DC: HDC;
begin
  SetWindowLong(Handle, GWL_EXSTYLE,
    GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYOUTRTL);

  DC := GetWindowDC(Handle);
  if DC <> 0 then
    SetLayout(DC, GetLayout(DC) or LAYOUT_RTL or LAYOUT_ORIENTATIONMASK);

  InvalidateRect(Handle, nil, True);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MakeRTL(ListView_GetHeader(ListView1.Handle));
  MakeRTL(ListView1.Handle);
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListView1.Items.Count - 1 do
  begin
    ListView1.Items[I].Checked := True;
    ListView2.Items[I].Checked := True;
  end;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'https://icons8.com/icons/set/check', '', '', SW_SHOWNORMAL);
end;

end.

dfm:

object Form1: TForm1
  Left = 0
  Top = 0
  BiDiMode = bdLeftToRight
  Caption = 'Form1'
  ClientHeight = 169
  ClientWidth = 353
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 277
    Top = 128
    Width = 47
    Height = 26
    Cursor = crHandPoint
    Alignment = taCenter
    Caption = 'graphics by Icons8'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsUnderline]
    ParentFont = False
    WordWrap = True
    OnClick = Label1Click
  end
  object ListView1: TListView
    Left = 8
    Top = 8
    Width = 250
    Height = 73
    Checkboxes = True
    Columns = <
      item
        Caption = 'Cap'
        Width = 100
      end
      item
        Caption = 'Sub1'
        Width = 100
      end>
    Items.ItemData = {
      03620000000200000000000000FFFFFFFFFFFFFFFF01000000FFFFFFFF000000
      00054900740065006D00310005500072006F007000310001000000FFFFFFFFFF
      FFFFFF01000000FFFFFFFF00000000054900740065006D00320005500072006F
      0070003200FFFFFFFF}
    LargeImages = ImageList1
    SmallImages = ImageList1
    TabOrder = 0
    ViewStyle = vsReport
  end
  object ListView2: TListView
    Left = 8
    Top = 87
    Width = 250
    Height = 73
    Checkboxes = True
    Columns = <
      item
        Caption = 'Cap'
        Width = 100
      end
      item
        Caption = 'Sub1'
        Width = 100
      end>
    Items.ItemData = {
      03620000000200000000000000FFFFFFFFFFFFFFFF01000000FFFFFFFF000000
      00054900740065006D00310005500072006F007000310001000000FFFFFFFFFF
      FFFFFF01000000FFFFFFFF00000000054900740065006D00320005500072006F
      0070003200FFFFFFFF}
    SmallImages = ImageList1
    TabOrder = 1
    ViewStyle = vsReport
  end
  object Button1: TButton
    Left = 264
    Top = 8
    Width = 75
    Height = 25
    Caption = 'RTL'
    TabOrder = 2
    OnClick = Button1Click
  end
  object ImageList1: TImageList
    ColorDepth = cd32Bit
    DrawingStyle = dsTransparent
    Left = 272
    Top = 40
    Bitmap = {
      494C0101020008003C0010001000FFFFFFFF2110FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000618062C0E3E0E741557159F1557159F0E3F0E730617062B0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000001456149E218A
      21FE218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B
      21FF218A21FE1455149C00000000000000000000000000000000000000000107
      010D145814A1218A21FE218B21FF218B21FF218B21FF218B21FF218A21FE1557
      159F0207020C0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218A21FD218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B
      21FF218B21FF218921FC000000000000000000000000000000000107010D1B71
      1BCF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B
      21FF1A701ACE0207020C00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF218B
      21FF218B21FF218B21FF155915A4208520F4218B21FF218B21FF218B21FF218B
      21FF218B21FF218B21FF00000000000000000000000000000000165816A2218B
      21FF218B21FF218B21FF155915A4208520F4218B21FF218B21FF218B21FF218B
      21FF218B21FF1456149E00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF218B
      21FF218B21FF124E128F000100010929094B208720F8218B21FF218B21FF218B
      21FF218B21FF218B21FF00000000000000000000000005160528218A21FD218B
      21FF218B21FF114A1187000000000722073E208520F4218B21FF218B21FF218B
      21FF218B21FF218A21FD05150526000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF218B
      21FF114A1187000000000D3B0D6C010901110722073E208520F4218B21FF218B
      21FF218B21FF218B21FF0000000000000000000000000F430F7B218B21FF218B
      21FF114A1187000000000D3B0D6C010901110722073E208520F4218B21FF218B
      21FF218B21FF218B21FF0F410F78000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF1A6B
      1AC400000000114A1187218B21FF1B6F1BCC010901110722073E208420F3218B
      21FF218B21FF218B21FF0000000000000000000000001557159F218B21FF1A6B
      1AC400000000114A1187218B21FF1B6F1BCC010901110722073E208420F3218B
      21FF218B21FF218B21FF1456149E000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF218B
      21FF196919C1218B21FF218B21FF218B21FF1B6F1BCC010901110722073E2084
      20F3218B21FF218B21FF0000000000000000000000001456149E218B21FF218B
      21FF196919C1218B21FF218B21FF218B21FF1B6F1BCC010901110722073E2084
      20F3218B21FF218B21FF1456149D000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF1A691AC00006000B0925
      0944208620F6218B21FF0000000000000000000000001044107C218B21FF218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF1A6F1ACB010901110722
      073E208420F3218B21FF10421079000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF1A6F1ACB0310
      031E1B711BD0218B21FF0000000000000000000000000519052D218A21FE218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF1A6F1ACB0310
      031E1B711BD0218A21FE0617062B000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218B21FF218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF2087
      20F8218B21FF218B21FF00000000000000000000000000000000165E16AC218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF2087
      20F8218B21FF155C15A800000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000218A21FD218B
      21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B
      21FF218B21FF218921FC00000000000000000000000000000000020902101B72
      1BD1218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B
      21FF1B711BD00108010F00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000001456149E2188
      21F9218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B21FF218B
      21FF218821F91455149C00000000000000000000000000000000000000000209
      0210165E16AD218B21FF218B21FF218B21FF218B21FF218B21FF218A21FE165D
      16AB0108010F0000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000061A062F10471082155915A4155915A4114611810519052E0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000}
  end
end

您的调用没有效果的原因是您检索到的设备上下文根本没有以任何方式使用。您应该怀疑这一点,因为在您当前的设计中,您甚至无法调用ReleaseDC和直流泄漏。

当系统通过发送绘画消息触发它时,所有绘画都在一个绘画周期中完成。您可以拦截该消息以修改要使用的设备上下文的布局 - VCL 设计允许您首先检索上下文。

下面是经过相应修改的完整示例代码,使用插入器类来修改 listview 的消息处理。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, StdCtrls, CommCtrl, ShellAPI;

type
  TListView = class(comctrls.TListView)
  protected
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;

  end;

  TForm1 = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    ListView2: TListView;
    Button1: TButton;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetLayout(DC: HDC): DWORD; stdcall; external 'gdi32.dll';
function SetLayout(DC: HDC; dwLayout: DWORD): DWORD; stdcall; external 'gdi32.dll';

procedure MakeRTL(const Handle: HWND);
begin
  SetWindowLong(Handle, GWL_EXSTYLE,
    GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYOUTRTL);
  InvalidateRect(Handle, nil, True);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MakeRTL(ListView_GetHeader(ListView1.Handle));
  MakeRTL(ListView1.Handle);
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListView1.Items.Count - 1 do
  begin
    ListView1.Items[I].Checked := True;
    ListView2.Items[I].Checked := True;
  end;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'https://icons8.com/icons/set/check', '', '', SW_SHOWNORMAL);
end;

{ TListView }

const
  LAYOUT_RTL = 1;
  LAYOUT_BITMAPORIENTATIONPRESERVED = 8;

procedure TListView.WMPaint(var Message: TWMPaint);
var
  Layout: DWORD;
  PS: TPaintStruct;
begin
  Message.DC := BeginPaint(Handle, PS);
  Layout := GetLayout(Message.DC);
  if (Layout and LAYOUT_RTL) <> 0 then
    SetLayout(Message.DC, Layout or LAYOUT_BITMAPORIENTATIONPRESERVED);
  inherited;
  EndPaint(Handle, PS);
end;

end.
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

防止 RTL TListView 镜像复选框和/或图形 的相关文章

  • C# 的 user32 和内核方法列表 [关闭]

    Closed 这个问题不符合堆栈溢出指南 help closed questions 目前不接受答案 有没有一个很好的清单来说明我们可以从中进口什么user32 dll and kernel dll并在 C 中使用 我是 Windows A
  • 发送/捕获 SIGTERM 的 Win32 API 模拟

    在 POSIX OS 下 有信号 API 允许向进程发送信号以将其关闭 使用kill 您可以使用sigaction捕获它并执行您需要的操作 然而 Win32不是POSIX系统 所以 如何处理可能出现的关闭事件 例如来自 任务管理器 中的 结
  • Soap Delphi 客户端因 1MB 调用超时而结束

    我们正在开发 SOAP Web 服务 Apache PHP 所有小规模调用都运行良好 但对于 1Mb 的 Soap 调用 HTTPS 调用大小为 1MB 我们的 Delphi Soap 客户端在除一台 PC 之外的所有 PC 上都因超时而停
  • 关于 ColorMatrix 转换如何工作的说明

    我正在图像处理应用程序上做一些工作 为了好玩 并且正在努力完全理解 ColorMatrix 转换的工作原理 我了解了线性 仿射变换的基础知识 并且可以通过在线复制示例来很好地理解 但我想完全掌握why有些东西有效 而不是仅仅满足于它有效 例
  • 如何计算 WPF 中的非客户端窗口大小?

    WPF 有SystemParameters class http msdn microsoft com en us library system windows systemparameters aspx公开了大量的系统指标 在我的计算机上
  • Delphi 是否在构造对象之前分配变量?

    Delphi 是否在对象完全构造之前分配实例变量 换句话说 给定一个变量 var customer TCustomer nil 然后我们构造一个客户并将其分配给变量 customer TCustomer Create 有没有可能custom
  • 什么是代码页 0?

    我正在使用Delphi函数 StringCodePage 我在 COM 函数 Acrobat Annotation getContents 请参阅我的其他帖子 返回的字符串上调用它 它返回 0 0是什么 安西 代码页 0 是 CP ACP
  • 如何使用 IdTCPClient 等待来自服务器的字符串?

    我的 IdTelnet indy 10 1 有问题 我无法以 Unicode 模式从服务器读取数据 现在我想用 IdTCPClient 编写 telnet 终端 服务器有时发送一行 有时发送越来越多的行 但发送之间没有固定的时间 现在我的问
  • Delphi XE5 FireDAC 错误:无法加载供应商库 [libmysql.dll 或 libmysqld.dll]

    我在 Windows 7 64 位上使用 Delphi XE5 只是尝试 FireDAC 组件 我正在使用一个 TFDConnection 组件连接到本地 MySQL 数据库 v5 6 15 我已经将 libmysql dll 32位 v5
  • 使用 WinAPI 连接禁用的显示设备

    我的问题是启用禁用的监视器ChangeDisplaySettingsEx 我想这不是火箭科学 但经过一番挖掘后 它看起来仍然是不可能的 我找到了一种根据找到的 Microsoft 代码示例禁用所有辅助显示器的方法here https msd
  • 多个原始输入窗口接收器

    我有一个仅消息窗口 ATL CWindowImpl 它使用 RIDEV INPUTSINK 标志将自身注册为原始输入 这意味着无论该窗口是否是前台窗口 它都会获取所有输入 当该窗口只有一个实例时 这非常有效 但是 当我创建超过 1 个窗口实
  • 计算 Windows 10 上第 3 方窗口的标题栏按钮的总宽度

    我最初的方法是使用GetSystemMetrics with SystemMetric SM CXSIZE以及一些基于可用按钮的简单数学计算 乘以 3 或乘以 1 通过WindowStyle DllImport user32 dll pri
  • 有关 CredEnumerate 的帮助

    作为后续this https stackoverflow com questions 199518 how to programatically add mapped network passwords winxp我希望有人可以帮助解决这个
  • 按扩展名过滤搜索文件返回太多结果

    我正在开发一个 C 控制台应用程序 它必须管理 Windows 操作系统上的文件 我需要获取具有特定扩展名的文件名 列表 我找到了很多解决方案 最建议的是以下一种 HANDLE hFind WIN32 FIND DATA data hFin
  • 如何向 ListView 添加粘性标题?

    我有一个 listView 所以我想添加一个粘性标头 以便它粘在 listView 的顶部 当 listView 中开始不同的类别时 不同的标头会取代它 就像联系人一样 其中 a 为粘性标头位于顶部 直到 b 出现 有没有图书馆可以做 我正
  • Delphi中AsInteger和Value有什么区别?

    我想知道以下两个与delphi中的数据集相关的语句之间的区别 dsMyDataSet ParamByName ID AsInteger 1122 If ID is integer dsMyDataSet ParamByName ID AsS
  • 我的 Delphi 11.1 调试器在 x64 项目上突然变得非常缓慢;大约一周前还可以。有什么想法吗?

    更新 拔掉网络 电缆和wifi 会导致 几乎 恢复正常的调试速度 已尝试禁用防火墙没有任何变化 但没有网络恢复正常服务 更新 2 所有 Windows x64 版本都存在缓慢问题 而不仅仅是单个大型项目 如果我构建并调试 32 位 Wind
  • 更改图像颜色与透明背景

    我需要使用 c System Drawings 将透明背景上带有绿色圆圈的图像加载到位图图像中 这是最简单的部分 但是 我需要在将其添加到更大的图像之前更改圆圈的颜色 而不影响周围的透明度 就我而言 我需要将圆圈颜色更改为黄色并将其添加为太
  • Delphi:如何检查是否按下了任何鼠标按钮 - 在鼠标事件之外?

    我有一个 TDrawGrid 想要处理单击单元格并使用鼠标滚轮滚动单元格的方式略有不同 使用鼠标滚轮滚动时 视图应以选定的单元格为中心 而仅单击单元格时 视图不应居中移动 因为这会令人困惑 用鼠标滚轮滚动会触发OnSelectCell事件
  • 在 Xamarin Android 中将图像从 URL 异步加载到 ImageView 中

    我有一个包含多个项目的 ListView 列表中的每个项目都应该有一个与之关联的图像 我创建了一个数组适配器来保存每个列表项并具有我希望加载的图像的 url 我正在尝试使用 Web 请求异步加载图像 并设置图像并在加载后在视图中更新它 但视

随机推荐

  • 画布上的绘画随着时间的流逝而褪色|奇怪的 alpha 分层行为

    我正在一块未被清除的画布上绘画 并使其随着时间的推移画布逐渐褪色为纯色 或者逐渐褪色以显示后面的图层 我的第一直觉是简单地在每帧中用低 Alpha 值填充绘图上的一个矩形 以便填充颜色逐渐累积 使绘图逐渐淡出 但我发现了一些奇怪的行为 至少
  • 如何将时间戳字符串转换为纪元时间?

    我有格式的时间戳2017 18 08 11 45 30 345 我想将其转换为纪元时间 所以我正在执行以下操作 String timeDateStr 2017 18 08 11 45 30 345 DateTimeFormatter dtf
  • Kotlin 链接来自不同输入流的多个序列?

    假设我想解析这样的大文件 val iStream MyFile class java getResourceAsStream largeFile txt iStream bufferedReader Charsets UTF 8 useLi
  • 在 VB .NET 中生成所有真实组合

    我需要在 VB NET 中生成所有组合 不是排列 我一直在搜索 发现的只是排列 有人说是组合 但当我尝试时 所有都是排列 我需要的是从字符串数组生成组合 Dim data array As String one two three four
  • pyspark数据框过滤或包含基于列表

    我正在尝试使用列表过滤 pyspark 中的数据帧 我想根据列表进行过滤或仅包含列表中具有值的记录 我的下面的代码不起作用 define a dataframe rdd sc parallelize 0 1 0 1 0 2 1 2 1 10
  • 在 JavaScript 中将连字符的名称大写

    我需要在 javascript 中将名称大写 到目前为止我已经找到了这些方法 doesn t capitalize first letter after hyphen gt gives Bj rn martin str replace w
  • 获取大量应用程序图标会导致内存不足

    我创建了一个应用程序来加载所有已安装的应用程序 现在运行良好 但对于一些拥有大量应用程序的手机 平板电脑 我的应用程序会因内存不足而崩溃 以下是获取应用程序信息的源代码 String appName p applicationInfo lo
  • 如何根据cq5中的路径创建目录?

    我有一个字符串 例如页面的路径 content xperia public events eventeditor 我正在生成此页面的 XML 并将其保存到 DAM 但我想将其保存在类似的树结构中 content 我尝试了以下代码 Strin
  • 从集合中随机返回项目

    我有一个从数据库返回通用列表集合 List 的方法 该集合包含订单详细信息 即订单 ID 订单名称 产品详细信息等 此外 该方法返回一个集合 其中仅包含按订单日期降序排序的前 5 个订单 我的要求是 每次客户端调用此方法时 我需要返回有 5
  • 我的变量值与传输时prepareForSegue 取的值不同?

    本质上 我的变量 playerErrors 是通过按下按钮来更新的 然后视图控制器通过数据传输转移到下一个 然而 变量的值 例如 应该从 0 增加 1 传输为 0 就好像按钮没有被按下一样 我的代码中有 16 个变量 我试图传输这些变量 但
  • 模拟框架中的模拟与间谍活动

    在模拟框架中 您可以mock一个物体或spy在上面 两者之间有什么区别 我什么时候会 应该使用其中一种 看着Mockito 例如 我看到类似的事情正在使用spies and mocks 但我不确定两者之间的区别 模拟对象完全替换模拟类 返回
  • 如何在 Ruby 中解析邮箱文件?

    红宝石rmail有方法解析本地磁盘上的邮箱文件 不幸的是这个 gem 已经损坏了 在 Ruby 2 0 0 中 它可能无法修复 因为人们正在迁移到 gemmail Gem mail有方法Mail read filename txt 但这仅解
  • 如何使用正则表达式匹配任意重复字符?

    我需要匹配任何重复两次的字符 例如 abccdeff 应匹配 cc 和 ff 在任何其他正则表达式语法中 让我们使用 Javascript 作为一个快速示例 我可以这样做 var str abccdeff var r a z 1 1 g c
  • 防止 jQuery 缓存破坏在使用“html(...)”函数的 AJAX 回调期间加载的资源

    使用 jQuery 1 7 1 我通过 AJAX 加载一些 HTML 片段 这些片段通过html 方法 HTML内容本身无法被缓存 但它可能会加载一些可以缓存的JavaScript资源 我发现当我禁用缓存时 ajax当 HTML 被注入到
  • 在div的角上画三角形

    我想在 div 的角上画某种三角形 因为我不想使用 px 所以我想用百分比值也获得相同的结果 它应该是这样的 container position absolute top 5 left 5 width 60 height 30 backg
  • 具有多个回调的 Javascript 全局计时器

    我想在 JavaScript 中创建一个全局计时器对象 然后能够动态添加回调 这样我就可以在脚本中使用一个全局计时器以一定的时间间隔执行所有操作 而不是使用多个全局计时器来浪费资源 这就是我希望能够将事情拼凑在一起的方式 var timer
  • 为什么调用 printf 时 EDX 的值会被覆盖?

    我写了一个简单的汇编程序 section data str out db d 10 0 section text extern printf extern exit global main main MOV EDX ESP MOV EAX
  • Websocket - InvalidStateError:连接尚未建立

    我无法将 Angular2 前端与 Spring 的 websocket 后端连接起来 Spring配置xml文件
  • 在python中保存文件时添加BOM(unicode签名)

    如何在 python 中保存文件时添加 BOM unicode 签名 file old open old txt mode r encoding utf 8 file new open new txt mode w encoding utf
  • 防止 RTL TListView 镜像复选框和/或图形

    我试图使 ListView 的列从右到左显示 这已经是问并回答 但问题在于图标和复选框 当我使用 ListView RTL 时SetWindowLong 它也镜像图形和复选框 这是不需要的 我可以使用编辑工具镜像图形 虽然麻烦但可行 但我不