告别瞎眼白！ExifToolGui深色主题文件列表高亮颜色优化全指南

告别瞎眼白！ExifToolGui深色主题文件列表高亮颜色优化全指南

【免费下载链接】ExifToolGui A GUI for ExifTool 项目地址: https://gitcode.com/gh_mirrors/ex/ExifToolGui

你是否在深夜处理照片元数据时，被ExifToolGui默认高亮的刺眼白色晃得睁不开眼？深色主题下文件列表选中项与背景融为一体导致操作效率暴跌？本文将通过3种技术方案，从源码级深度优化文件列表高亮显示效果，让你的深夜修图工作流从此清爽护眼。

问题诊断：深色主题下的视觉痛点

ExifToolGui作为功能强大的ExifTool图形界面（Graphical User Interface，图形用户界面）工具，其文件列表（ShellList）在深色主题环境中存在严重的视觉对比度问题：

通过分析Source/Main.pas中TFMain类的实现，发现文件列表控件采用系统默认绘制逻辑，未针对深色主题进行适配：

// 原始实现中缺乏主题感知的绘制逻辑
procedure TFMain.ShellListCustomDrawItem(Sender: TCustomListView; Item: TListItem; 
  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  DefaultDraw := True; // 完全依赖系统绘制
end;

方案一：主题感知颜色映射（推荐）

通过修改Source/UFrmStyle.pas中的样式设置逻辑，建立深色主题到高亮色的映射关系：

procedure TFrmStyle.SetNewStyle(Style: string);
var
  IsDarkTheme: Boolean;
begin
  GUIsettings.GuiStyle := Style;
  IsDarkTheme := StyleContainsDarkKeyword(Style); // 新增辅助函数
  
  // 根据主题类型设置全局高亮色
  if IsDarkTheme then
  begin
    GUIsettings.HighlightColor := $004A6984; // 深蓝色
    GUIsettings.HighlightTextColor := clWhite;
  end
  else
  begin
    GUIsettings.HighlightColor := clHighlight; // 系统默认
    GUIsettings.HighlightTextColor := clHighlightText;
  end;
  
  TStyleManager.TrySetStyle(GUIsettings.GuiStyle, false);
  FMain.GetColorsFromStyle;
end;

同步修改Source/Main.pas中的自定义绘制事件：

procedure TFMain.ShellListCustomDrawItem(Sender: TCustomListView; Item: TListItem; 
  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  DefaultDraw := False;
  with Sender.Canvas do
  begin
    // 背景色设置
    if odSelected in State then
      Brush.Color := GUIsettings.HighlightColor
    else if Item.Index mod 2 = 1 then
      Brush.Color := $002A2A2A // 深色交替行
    else
      Brush.Color := $001E1E1E; // 深色背景
    
    // 文本色设置
    if odSelected in State then
      Font.Color := GUIsettings.HighlightTextColor
    else
      Font.Color := clSilver;
      
    // 绘制项目
    FillRect(Item.DisplayRect(drBounds));
    TextOut(Item.DisplayRect(drLabel).Left, Item.DisplayRect(drLabel).Top, Item.Caption);
  end;
end;

方案二：自定义绘制增强

在Source/Main.pas的TFMain类中重写列表控件绘制逻辑，实现完全自定义渲染：

procedure TFMain.ShellListCustomDrawItem(Sender: TCustomListView; Item: TListItem; 
  State: TCustomDrawState; var DefaultDraw: Boolean);
const
  // 定义颜色常量
  DARK_BACKGROUND = $001E1E1E;
  DARK_ALTERNATE = $002A2A2A;
  DARK_HIGHLIGHT = $003D5A80;
  DARK_FOCUSED = $005C7FA3;
begin
  DefaultDraw := False;
  Sender.Canvas.Brush.Style := bsSolid;
  
  // 根据状态选择背景色
  if odSelected in State then
  begin
    if GetKeyState(VK_SHIFT) < 0 then
      Sender.Canvas.Brush.Color := DARK_FOCUSED
    else
      Sender.Canvas.Brush.Color := DARK_HIGHLIGHT;
    Sender.Canvas.Font.Color := clWhite;
  end
  else
  begin
    if Item.Index mod 2 = 1 then
      Sender.Canvas.Brush.Color := DARK_ALTERNATE
    else
      Sender.Canvas.Brush.Color := DARK_BACKGROUND;
    Sender.Canvas.Font.Color := clSilver;
  end;
  
  // 绘制项目区域
  Sender.Canvas.FillRect(Item.DisplayRect(drBounds));
  
  // 绘制子项文本
  DrawSubItems(Sender as TListView, Item, State);
end;

方案三：配置文件扩展

通过修改Docs/Workspace/default_enu.ini添加颜色配置节：

[HighlightColors]
DarkTheme_Highlight=$004A6984
DarkTheme_HighlightText=clWhite
DarkTheme_Background=$001E1E1E
DarkTheme_Alternate=$002A2A2A
LightTheme_Highlight=clHighlight
LightTheme_HighlightText=clHighlightText

在Source/MainDef.pas中扩展配置结构：

type
  TGUIsettings = record
    // ... 现有字段 ...
    HighlightColor: TColor;
    HighlightTextColor: TColor;
    BackgroundColor: TColor;
    AlternateColor: TColor;
    LoadFromIni: procedure(Ini: TIniFile);
    SaveToIni: procedure(Ini: TIniFile);
  end;

实现效果对比

模式	原始效果	优化后效果
浅色主题	![原始浅色]	系统默认
深色主题	![原始深色]	![优化深色]

实施步骤

1. 备份原文件：

   cp Source/Main.pas Source/Main.pas.bak
   cp Source/UFrmStyle.pas Source/UFrmStyle.pas.bak
   

2. 应用上述代码修改

3. 重新编译项目：

   cd /data/web/disk1/git_repo/gh_mirrors/ex/ExifToolGui/Source
   dcc32 ExifToolGUI.dpr
   

4. 验证效果：

   • 启动程序后打开【设置】→【界面样式】
   • 选择任何深色主题（如"Carbon"或"Obsidian"）
   • 导航到包含多张照片的目录验证高亮效果

进阶扩展

可进一步扩展Source/UnitScaleForm.pas中的缩放逻辑，为4K显示器优化行高：

procedure TScaleForm.AdjustListviewScaling(ListView: TListView);
begin
  if Assigned(ListView) then
  begin
    ListView.ItemHeight := Round(ListView.ItemHeight * ScaleFactor);
    // 为深色主题增加额外行高
    if GUIsettings.GuiStyle <> cSystemStyleName then
      ListView.ItemHeight := ListView.ItemHeight + 2;
  end;
end;

【免费下载链接】ExifToolGui A GUI for ExifTool 项目地址: https://gitcode.com/gh_mirrors/ex/ExifToolGui