Unit1.pas

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils,System.Classes, Vcl.Graphics,VirtualTrees.Types, Clipbrd,System.IOUtils,
  IniFiles,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus,System.ImageList, System.UITypes, Vcl.ComCtrls, Vcl.ExtCtrls,
  System.Win.Registry , Vcl.StdCtrls, VirtualTrees.BaseAncestorVCL, VirtualTrees.BaseTree, VirtualTrees.AncestorVCL, VirtualTrees,
   Vcl.BaseImageCollection, Vcl.ImageCollection,Vcl.VirtualImageList,ShellAPI, uResourceProtector, Vcl.ImgList, Types,
    System.StrUtils, Themes, Vcl.Styles,

  //My Units
  uColorConverter, uAssignKey, uHistoryItemX, uStringCollections, uCustomColorDlg,
  Vcl.ButtonStylesAttributes, Vcl.StyledButton , CPLibrary,
  Vcl.Buttons, Vcl.Imaging.pngimage

  ;



type
  TImportMode = (imCancel, imMerge, imReplace);

type
  TQCPUI = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Options1: TMenuItem;
    ZoomLevel1: TMenuItem;
    ZoomLvl3: TMenuItem;
    ZoomLvl6: TMenuItem;
    ZoomLvl9: TMenuItem;
    AutoCopy1: TMenuItem;
    StayonTop1: TMenuItem;
    IncludeColorCodeSyntax1: TMenuItem;
    ColorList1: TMenuItem;
    ImportColorList1: TMenuItem;
    ExportColorList1: TMenuItem;
    ClearList1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    Hotkeys1: TMenuItem;
    N4: TMenuItem;
    pbCurrentColor: TPaintBox;
    pbMagnifier: TPaintBox;
    LiveRGBCode: TLabel;
    LiveHEXCode: TLabel;
    LiveDelphiCode: TLabel;
    Bevel1: TBevel;
    cmbFormat: TComboBox;
    edtColorCode: TEdit;
    tmrColor: TTimer;
    PickedColorView: TPaintBox;
    SaveColorLists: TSaveDialog;
    LoadColorLists: TOpenDialog;
    MagnifyPanel: TPanel;
    CurrentColorPanel: TPanel;
    Panel1: TPanel;
    ColorListMenu: TPopupMenu;
    Removethiscolor1: TMenuItem;
    ools1: TMenuItem;
    ColorCombinationPreview1: TMenuItem;
    CopytoClipboard1: TMenuItem;
    CommenttoColor1: TMenuItem;
    N1: TMenuItem;
    VirtualImageList1: TVirtualImageList;
    ImageCollection1: TImageCollection;
    edtSearchColor: TEdit;
    ExportAsHTML1: TMenuItem;
    N2: TMenuItem;
    HideSelectionBar1: TMenuItem;
    ColorCombineManager1: TMenuItem;
    RemoveDuplicateColors1: TMenuItem;
    ShowHint1: TMenuItem;
    N3: TMenuItem;
    LowercaseColorCode1: TMenuItem;
    N5: TMenuItem;
    AddtoFavourites1: TMenuItem;
    N6: TMenuItem;
    ShowFavouritesColorsOnly1: TMenuItem;
    N7: TMenuItem;
    ClearListExceptFavourites1: TMenuItem;
    Documentation1: TMenuItem;
    N8: TMenuItem;
    vstHistory: TVirtualStringTree;
    ShowCommentedColorsOnly1: TMenuItem;
    Themes1: TMenuItem;
    SystemDefault1: TMenuItem;
    Light1: TMenuItem;
    Dark1: TMenuItem;
    AdjustColors1: TMenuItem;
    btnPickColor: TStyledSpeedButton;
    btnCopy: TStyledSpeedButton;
    procedure SetDefaultWhiteColor;
    procedure tmrColorTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ZoomLvl3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmbFormatChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure AddHistory(AColor: TColor; ASave: Boolean = True);
    procedure lvHistoryAdvancedCustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
      var DefaultDraw: Boolean);
    procedure lvHistoryDblClick(Sender: TObject);
    procedure lvHistorySelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure vstHistoryGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
    procedure vstHistoryBeforeCellPaint(Sender: TBaseVirtualTree;
      TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
      CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
    procedure vstHistoryPaintText(Sender: TBaseVirtualTree;
      const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
      TextType: TVSTTextType);
    procedure vstHistoryFocusChanged(Sender: TBaseVirtualTree;
      Node: PVirtualNode; Column: TColumnIndex);
    procedure FormShow(Sender: TObject);
    procedure PickedColorViewPaint(Sender: TObject);
    procedure IncludeColorCodeSyntax1Click(Sender: TObject);


    procedure ExportColorList1Click(Sender: TObject);
    procedure ImportColorList1Click(Sender: TObject);
    procedure ClearList1Click(Sender: TObject);
    PROCEDURE UpdateZoomLevelUI(RegCaption:string);
    procedure Hotkeys1Click(Sender: TObject);
    procedure ApplyHotKey(const AHotkey: TShortCut);
    procedure AutoCopy1Click(Sender: TObject);
    procedure StayonTop1Click(Sender: TObject);
    procedure Removethiscolor1Click(Sender: TObject);
    procedure vstHistoryMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure vstHistoryDblClick(Sender: TObject);
    procedure MagnifyPanelDblClick(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure edtColorCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ColorCombinationPreview1Click(Sender: TObject);
    procedure CopytoClipboard1Click(Sender: TObject);
    procedure CommenttoColor1Click(Sender: TObject);
    procedure vstHistoryFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
    procedure edtSearchColorChange(Sender: TObject);
    procedure edtSearchColorMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure edtSearchColorExit(Sender: TObject);
    procedure vstHistoryExit(Sender: TObject);
    procedure ExportAsHTML1Click(Sender: TObject);
    procedure HideSelectionBar1Click(Sender: TObject);
    procedure ColorCombineManager1Click(Sender: TObject);
    procedure RemoveDuplicateColors1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure ShowHint1Click(Sender: TObject);
    procedure PickedColorViewDblClick(Sender: TObject);
    procedure LowercaseColorCode1Click(Sender: TObject);
    procedure AddtoFavourites1Click(Sender: TObject);
    procedure ClearListExceptFavourites1Click(Sender: TObject);
    procedure ShowFavouritesColorsOnly1Click(Sender: TObject);
    procedure ColorListMenuPopup(Sender: TObject);
    procedure btnPickColorClick(Sender: TObject);
    procedure btnCopyClick(Sender: TObject);
    procedure Documentation1Click(Sender: TObject);
    procedure edtColorCodeKeyPress(Sender: TObject; var Key: Char);
    procedure edtColorCodeExit(Sender: TObject);
    procedure ShowCommentedColorsOnly1Click(Sender: TObject);
    procedure SystemDefault1Click(Sender: TObject);
    procedure Light1Click(Sender: TObject);
    procedure Dark1Click(Sender: TObject);
    procedure edtColorCodeMouseEnter(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);




  private
  //  FLoadingHistory: Boolean;
    FPopupNode: PVirtualNode;   //Removing Current color From List
    FHotkeyID: Integer;         //Default Hot Key
    FCurrentHotkey: TShortCut;  //Current Hot Key

    FZoomLevel: Integer;
    FLiveColor: TColor;      // Mouse-এর নিচের বর্তমান Color
    FPickedColor: TColor;    // শেষবার Alt+C দিয়ে Pick করা Color
    FHistoryIni: string;
    FShowFavouritesOnly: Boolean;  //  favourites-only filter
    FShowCommentedOnly: Boolean;   //  commented-only filter

    //Color Pick Button
    FPickingMode: Boolean;  // পিকিং মোড চলছে কিনা
    FScreenCapture: TBitmap;
    FCaptureOrigin: TPoint;
    FFullScreenForm: TForm; // স্ক্রিন কভার করার জন্য ফর্ম

    FMagnifierBuffer: TBitmap;      //Maginfiere Full Screen


    FThemeMode: Integer;
   // function
    function FindFirstVisibleNode: PVirtualNode;
    function FindNextVisibleNode(CurrentNode: PVirtualNode): PVirtualNode;
    procedure UpdateTitleBar(ColorCode: string);

    //Save History as a Default File in App Data Folder
    procedure SaveHistoryToDefaultIni;
    //Load Default History  File in App Data Folder
    procedure LoadHistoryFromDefaultIni;


    //Load Color List as a External Ini for User
    procedure ImportSavedColorList(const AFileName: string);
    //Save Color List as a External Ini for User
    procedure ExportPickedColorList(const AFileName: string);


    //Procedures
    procedure LoadSettings;
    procedure UpdateMagnifier;
    procedure UpdateCurrentColor;
    procedure CaptureCurrentColor;
    procedure RefreshHistory;


    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;


   procedure ClearSearchFilter;
   procedure FilterHistory;
   procedure DeleteFilteredItem;
   procedure RemoveDuplicateColors;
   procedure DeleteNormalItem(Node: PVirtualNode);
   procedure ExportToHTML(const FileName: string);
   procedure SetColorCodeText(const AColorCode: string);
   function GetDisplayCasedColorCode(const AColorCode: string): string;
  //Color Pick Buttons Procedure

  procedure FullScreenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  procedure FullScreenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  procedure FullScreenMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  procedure CancelPickingMode;
  procedure FullScreenKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 function CreateFullScreenOverlay: TForm;
 procedure CaptureScreenSnapshot;
  function GetSnapshotPixel(const Pt: TPoint): TColor;
  function ShowImportColorDialog(const AFileName: string): TImportMode;

    function IsSystemAppsLightTheme: Boolean;
    procedure UpdateThemeMenuUI(AMode: Integer);
    procedure ApplyTheme(AMode: Integer);

  protected
    procedure CreateWnd; override;


  end;





var
  QCPUI: TQCPUI; LastSearchedColor, GetSelfPath:string;



implementation
uses uColorPreview, uAbout;
{$R *.dfm}


{NEXT VERSION FEATURES LIST
1. More Color Support

}





function TQCPUI.IsSystemAppsLightTheme: Boolean;
var
  Reg: TRegistry;
begin
  Result := True; // Windows-এর default হচ্ছে Light theme
  Reg := TRegistry.Create(KEY_READ);
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Themes\Personalize') then
    begin
      if Reg.ValueExists('AppsUseLightTheme') then
        Result := Reg.ReadInteger('AppsUseLightTheme') <> 0;
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

function TQCPUI.GetDisplayCasedColorCode(const AColorCode: string): string;
var
  IsNamedDelphiColor: Boolean;
begin
  Result := AColorCode;

  IsNamedDelphiColor :=
    (ComboToColorFormat(cmbFormat.ItemIndex) = cfDelphi) and
    (Length(Result) >= 2) and
    (UpperCase(Copy(Result, 1, 2)) = 'CL');

  if IsNamedDelphiColor then
  begin
    // Named color হলে case বদলানো হবে না, শুধু override table দিয়ে
    // কিছু নির্দিষ্ট VCL-এর ভুল-cased identifier ঠিক করে দেওয়া হবে
    Result := GetProperCasedColorIdent(Result);
  end
  else
  begin
    if LowercaseColorCode1.Checked then
      Result := LowerCase(Result)
    else
      Result := UpperCase(Result);
  end;
end;

procedure TQCPUI.SetColorCodeText(const AColorCode: string);
begin
  edtColorCode.CharCase := TEditCharCase.ecNormal;
  edtColorCode.Text := GetDisplayCasedColorCode(AColorCode);
end;


procedure TQCPUI.UpdateThemeMenuUI(AMode: Integer);
begin
  SystemDefault1.Checked := (AMode = TM_SYSTEM);
  Light1.Checked         := (AMode = TM_LIGHT);
  Dark1.Checked           := (AMode = TM_DARK);
end;

procedure TQCPUI.ApplyTheme(AMode: Integer);
var
  NeedDarkSkin: Boolean;
  Applied: Boolean;
begin
  case AMode of
    TM_LIGHT: NeedDarkSkin := False;
    TM_DARK:  NeedDarkSkin := True;
  else
    NeedDarkSkin := not IsSystemAppsLightTheme;
  end;

  if not NeedDarkSkin then
  begin
    TStyleManager.TrySetStyle(DEFAULT_LIGHT_THEME, False);
    FThemeMode := AMode;
    UpdateThemeMenuUI(FThemeMode);
     if FCurrentHotkey <> 0 then ApplyHotKey(FCurrentHotkey); // ← যোগ করা
    Exit;
  end;
  Applied := TStyleManager.TrySetStyle(DEFAULT_DARK_THEME, False);
  if not Applied then
  begin
    Application.MessageBox(
      PChar('Unable to load the Dark theme.' + sLineBreak +
            'The required skin resource is missing or corrupted.' + sLineBreak +
            'The application will continue with the default theme.'), 'Theme Load Error', MB_OK or MB_ICONWARNING);

    TStyleManager.TrySetStyle(DEFAULT_LIGHT_THEME, False); // safe fallback, always available
    AMode := TM_SYSTEM; // load fail করলে menu-তে System Default দেখানো হবে
  end;

  FThemeMode := AMode;
  UpdateThemeMenuUI(FThemeMode);

end;

procedure TQCPUI.UpdateTitleBar(ColorCode: string);
var
  Node: PVirtualNode;
  Data: PHistoryItem;
  FoundComment: string;
  UseDirectMode: Boolean;
begin
  UseDirectMode := (MagnifyPanel.Align = alClient);
  if not UseDirectMode and FShowFavouritesOnly then
  begin
    Node := vstHistory.FocusedNode;
    if (not Assigned(Node)) or (not vstHistory.IsVisible[Node]) then
      UseDirectMode := True;
  end;

  if UseDirectMode then
  begin
    FoundComment := '';
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) and (Data^.Color = FPickedColor) and (Trim(Data^.Comment) <> '') then
      begin
        FoundComment := Data^.Comment;
        Break;
      end;
      Node := Node.NextSibling;
    end;
    if FoundComment <> '' then
      Caption := MY_APP_NAME + ' - ' + FoundComment
    else
      Caption := MY_APP_NAME + ' - ' + ColorCode;
  end
  else
  begin
    Node := vstHistory.FocusedNode;
    if Assigned(Node) then
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) then
      begin
        if Trim(Data^.Comment) <> '' then
          Caption := MY_APP_NAME + ' - ' + Data^.Comment
        else
          Caption := MY_APP_NAME;
      end
      else
        Caption := MY_APP_NAME;
    end
    else
      Caption := MY_APP_NAME;
  end;
end;

procedure TQCPUI.About1Click(Sender: TObject);
begin
About:=TAbout.Create(self);
About.ShowInTaskBar:=False;
About.Label1.Caption:=MY_APP_NAME;
About.Label2.Caption:='Version: ' + MY_APP_VER + ' - Elite Edition';
LoadFromResources('APPLOGO', 'PNG', About.AppLogo);
About.ShowModal;
end;



procedure TQCPUI.AddHistory(AColor: TColor; ASave: Boolean = True);
var
  Node: PVirtualNode;
  Data: PHistoryItem;
  ExistingNode: PVirtualNode;
  ExistingData: PHistoryItem;
  S: string;
begin
  ClearSearchFilter;

  // নতুন picked color সবসময় list-এর উপরে যোগ হবে
  if vstHistory.RootNodeCount = 0 then
    Node := vstHistory.AddChild(nil)
  else
    Node := vstHistory.InsertNode(
      vstHistory.GetFirst,
      TVTNodeAttachMode.amInsertBefore);

  if Node = nil then
    Exit;

  Data := vstHistory.GetNodeData(Node);
  if Data = nil then
    Exit;

  // Color assign
  Data^.Color := AColor;
  Data^.Comment := '';
  Data^.Favourite := False;

  // একই color আগে থেকে থাকলে তার comment ও favourite copy করো
  ExistingNode := vstHistory.GetFirst;
  while Assigned(ExistingNode) do
  begin
    if ExistingNode <> Node then
    begin
      ExistingData := vstHistory.GetNodeData(ExistingNode);
      if Assigned(ExistingData) and (ExistingData^.Color = AColor) then
      begin
        if Trim(ExistingData^.Comment) <> '' then
          Data^.Comment := ExistingData^.Comment;
        Data^.Favourite := ExistingData^.Favourite;
        Break;
      end;
    end;
    ExistingNode := ExistingNode.NextSibling;
  end;

  vstHistory.InvalidateNode(Node);

  // নতুন color add হলে focus উপরে যাবে
  vstHistory.FocusedNode := Node;
  vstHistory.Selected[Node] := True;
  vstHistory.TopNode := Node;

  if FShowFavouritesOnly then
    vstHistory.IsVisible[Node] := Data^.Favourite;

  if ASave then
    SaveHistoryToDefaultIni;

  // টাইটেল বার আপডেট
  S := ConvertColor(AColor, ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked);
  UpdateTitleBar(S);
end;

procedure TQCPUI.AddtoFavourites1Click(Sender: TObject);
var
  Data, D: PHistoryItem;
  Node: PVirtualNode;
  NewState: Boolean;
  FavouriteCount: Integer;
begin
  if not Assigned(FPopupNode) then   Exit;
  Data := vstHistory.GetNodeData(FPopupNode);
  if not Assigned(Data) then  Exit;

  NewState := not Data^.Favourite;

  Node := vstHistory.GetFirst;
  while Assigned(Node) do
  begin
    D := vstHistory.GetNodeData(Node);
    if Assigned(D) and (D^.Color = Data^.Color) then
    begin
      D^.Favourite := NewState;
      vstHistory.InvalidateNode(Node);
    end;
    Node := Node.NextSibling;
  end;

  SaveHistoryToDefaultIni;

  if FShowFavouritesOnly then
  begin
    // ← নতুন: Toggle-এর পর বাকি favourite আছে কিনা চেক করি
    FavouriteCount := 0;
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      D := vstHistory.GetNodeData(Node);
      if Assigned(D) and D^.Favourite then
        Inc(FavouriteCount);
      Node := Node.NextSibling;
    end;

    if FavouriteCount = 0 then
    begin

      ShowFavouritesColorsOnly1.Checked := False;
      FShowFavouritesOnly := False;
    end;

    FilterHistory;
  end
  else
    vstHistory.Repaint;
end;




procedure TQCPUI.ApplyHotKey(const AHotkey: TShortCut);
var
  Key: Word;
  Shift: TShiftState;
  Modifiers: UINT;
begin
  FCurrentHotkey := AHotkey;

  UnregisterHotKey(Handle, FHotkeyID);

  ShortCutToKey(AHotkey, Key, Shift);

  Modifiers := 0;

  if ssCtrl in Shift then
    Modifiers := Modifiers or MOD_CONTROL;

  if ssAlt in Shift then
    Modifiers := Modifiers or MOD_ALT;

  if ssShift in Shift then
    Modifiers := Modifiers or MOD_SHIFT;
   if not RegisterHotKey(Handle, FHotkeyID, Modifiers, Key) then
  begin
    Application.MessageBox(
      PChar('This hotkey (' + ShortCutToText(AHotkey) + ') could not be registered.' + sLineBreak +
            'It might already be in use by another application.' + sLineBreak +
            'Please choose a different hotkey from Options > Hotkeys.'),
      'Hotkey Registration Failed', MB_OK or MB_ICONWARNING);
  end;
end;


procedure TQCPUI.AutoCopy1Click(Sender: TObject);
begin
  AutoCopy1.Checked := not AutoCopy1.Checked;
end;

procedure TQCPUI.btnCopyClick(Sender: TObject);
begin
Clipboard.AsText := edtColorCode.Text;
ShowCopyMessage(btnCopy, COPIED_BUTTON_CAPTION);
end;

procedure TQCPUI.btnPickColorClick(Sender: TObject);
begin
 if FPickingMode then Exit;

  FPickingMode := True;
  Screen.Cursor := crCross;

  btnPickColor.Down := True;
  btnPickColor.Caption := 'Picking... (ESC to cancel)';

  CaptureScreenSnapshot;

  FFullScreenForm := CreateFullScreenOverlay;
  FFullScreenForm.OnMouseDown := FullScreenMouseDown;
  FFullScreenForm.OnKeyDown := FullScreenKeyDown;
  FFullScreenForm.OnKeyUp := FullScreenKeyUp;
  FFullScreenForm.OnMouseMove := FullScreenMouseMove;
  FFullScreenForm.SetFocus;
end;

procedure TQCPUI.CancelPickingMode;
begin
  if not FPickingMode then Exit;
  FPickingMode := False;
  Screen.Cursor := crDefault;
  btnPickColor.Down := False;
  btnPickColor.Caption := 'Pick Color (' + ShortCutToText(FCurrentHotkey) + ')';  // ← caption ফিরিয়ে আনা

  if Assigned(FFullScreenForm) then
  begin
    FFullScreenForm.Close;
    FreeAndNil(FFullScreenForm);
  end;
  FreeAndNil(FScreenCapture);   // ← এটা free/nil হলেই UpdateCurrentColor আবার normal (live) mode-এ ফিরে যাবে
  Self.SetFocus;
  Self.BringToFront;
end;

procedure TQCPUI.FormDestroy(Sender: TObject);
begin
   if FPickingMode then CancelPickingMode;   // ← এটাই ভেতরে FreeAndNil(FScreenCapture) করে ফেলে
   FreeAndNil(FScreenCapture);               // ← তাই এই লাইনটা সবসময় no-op
    FreeAndNil(FMagnifierBuffer);   // ← নতুন
    UnregisterHotKey(Handle, FHotkeyID);
end;



procedure TQCPUI.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 // শুধু Ctrl+F এ trigger হবে, Alt/Shift সহ কোনো combination-এ না
  if (Key = Ord('F')) and (Shift = [ssCtrl]) then
  begin
    Key := 0;
    if FPickingMode then Exit;
    vstHistoryDblClick(vstHistory);
  if vstHistory.Align = alClient then
  begin
       edtSearchColor.SetFocus;
     edtSearchColorMouseDown(edtSearchColor, mbLeft, [], 0, 0);
  end;
  end;
end;

procedure TQCPUI.CaptureCurrentColor;
var
  S: string;
begin
  ClearSearchFilter;

  if  not HideSelectionBar1.Checked then
  begin
    vstHistory.TreeOptions.PaintOptions :=[toAlwaysHideSelection,toHideFocusRect,toThemeAware,toUseBlendedSelection,toUseExplorerTheme];
    vstHistory.ClearSelection;
    vstHistory.FocusedNode := nil;
    FPopupNode := nil;
  end;

  FPickedColor := FLiveColor;

 S := ConvertColor(FPickedColor, ComboToColorFormat(cmbFormat.ItemIndex),
                  IncludeColorCodeSyntax1.Checked, False);
  SetColorCodeText(S);

  AddHistory(FPickedColor);

  if AutoCopy1.Checked then
    Clipboard.AsText := GetDisplayCasedColorCode(S);

  UpdateTitleBar(S);

  if  not HideSelectionBar1.Checked then
  begin
    vstHistory.TreeOptions.PaintOptions :=[toHideFocusRect,toThemeAware,toUseBlendedSelection,toUseExplorerTheme];
    vstHistory.ClearSelection;
    vstHistory.FocusedNode := nil;
    FPopupNode := nil;
  end;

  vstHistory.Invalidate;
end;


procedure TQCPUI.CaptureScreenSnapshot;
var
  DC: HDC;
  VLeft, VTop, VWidth, VHeight: Integer;
begin
  VLeft   := GetSystemMetrics(SM_XVIRTUALSCREEN);
  VTop    := GetSystemMetrics(SM_YVIRTUALSCREEN);
  VWidth  := GetSystemMetrics(SM_CXVIRTUALSCREEN);
  VHeight := GetSystemMetrics(SM_CYVIRTUALSCREEN);

  FCaptureOrigin := Point(VLeft, VTop);

  if not Assigned(FScreenCapture) then
    FScreenCapture := TBitmap.Create;

  FScreenCapture.PixelFormat := pf32bit;
  FScreenCapture.SetSize(VWidth, VHeight);

  DC := GetDC(0);
  try
    // overlay তৈরি হওয়ার আগে নেওয়া, তাই ১০০% genuine value
    BitBlt(FScreenCapture.Canvas.Handle, 0, 0, VWidth, VHeight,
      DC, VLeft, VTop, SRCCOPY);
  finally
    ReleaseDC(0, DC);
  end;
end;

function TQCPUI.GetSnapshotPixel(const Pt: TPoint): TColor;
var
  X, Y: Integer;
begin
  Result := clWhite;
  if not Assigned(FScreenCapture) then Exit;

  X := Pt.X - FCaptureOrigin.X;
  Y := Pt.Y - FCaptureOrigin.Y;

  if (X >= 0) and (X < FScreenCapture.Width) and
     (Y >= 0) and (Y < FScreenCapture.Height) then
    Result := FScreenCapture.Canvas.Pixels[X, Y];
end;





procedure TQCPUI.ClearList1Click(Sender: TObject);
begin
  if vstHistory.RootNodeCount = 0 then
  begin
    Application.MessageBox(LIST_ALREADY_EMPTY, CAPTION_INFROMATION, MB_OK or MB_ICONINFORMATION);
    Exit;
  end;

  if MessageDlg(REMOVE_ALL_COLORS_CONFIRMATION, mtWarning, [mbYes, mbNo], 0) = mrNo then
    Exit;

  ClearSearchFilter;
  vstHistory.Clear;
  FPickedColor := clWhite;
  SetColorCodeText(ConvertColor(clWhite, ComboToColorFormat(cmbFormat.ItemIndex),
                              IncludeColorCodeSyntax1.Checked, False));
  PickedColorView.Invalidate;
  Caption := MY_APP_NAME;
  SaveHistoryToDefaultIni;
end;


procedure TQCPUI.ClearListExceptFavourites1Click(Sender: TObject);
var
  Node, NextNode: PVirtualNode;
  Data: PHistoryItem;
  HasFavourites: Boolean;
begin
  if vstHistory.RootNodeCount = 0 then
  begin
    Application.MessageBox(LIST_ALREADY_EMPTY, CAPTION_INFROMATION, MB_OK or MB_ICONINFORMATION);
    Exit;
  end;

  HasFavourites := False;
  Node := vstHistory.GetFirst;
  while Assigned(Node) do
  begin
    Data := vstHistory.GetNodeData(Node);
    if Assigned(Data) and Data^.Favourite then
    begin
      HasFavourites := True;
      Break;
    end;
    Node := Node.NextSibling;
  end;

  ClearSearchFilter;

  if not HasFavourites then
  begin
    if MessageDlg(NO_FAVOURITE_COLORS_FOUND, mtWarning, [mbYes, mbNo], 0) = mrNo then
      Exit;
     vstHistory.Clear;
  end
  else
  begin
    vstHistory.BeginUpdate;
    try
      Node := vstHistory.GetFirst;
      while Assigned(Node) do
      begin
        Data := vstHistory.GetNodeData(Node);
        NextNode := Node.NextSibling;

        if Assigned(Data) and (not Data^.Favourite) then
          vstHistory.DeleteNode(Node);

        Node := NextNode;
      end;
    finally
      vstHistory.EndUpdate;
    end;
  end;

  SaveHistoryToDefaultIni;

  Node := vstHistory.GetFirst;
  if Assigned(Node) then
  begin
    Data := vstHistory.GetNodeData(Node);
    if Assigned(Data) then
    begin
      FPickedColor := Data^.Color;
      SetColorCodeText(ConvertColor(FPickedColor,
        ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked, False));
      PickedColorView.Invalidate;
      vstHistory.ClearSelection;
      vstHistory.FocusedNode := Node;
      vstHistory.Selected[Node] := True;
    end;
  end
  else
  begin
    FPickedColor := clWhite;
    SetColorCodeText(ConvertColor(clWhite,
      ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked, False));
    PickedColorView.Invalidate;
    Caption := MY_APP_NAME;
  end;

  vstHistory.Invalidate;
end;





procedure TQCPUI.ClearSearchFilter;
begin

   if vstHistory.Align=alClient then
   begin
        if Trim(edtSearchColor.Text) <> '' then
        begin

          edtSearchColor.Text := SEARCH_EDITBOX_PLACEHOLDER;
          edtSearchColor.Font.Color:=CLGRAY;
          vstHistory.SetFocus;
          FilterHistory;
        end;
   end;

end;

procedure TQCPUI.cmbFormatChange(Sender: TObject);
begin
  ClearSearchFilter;
  if edtColorCode.Text<>'' then
  SetColorCodeText(ConvertColor(FPickedColor, ComboToColorFormat(cmbFormat.ItemIndex),
                              IncludeColorCodeSyntax1.Checked, False));
  vstHistory.SetFocus;
  RefreshHistory;

end;




procedure TQCPUI.ColorCombinationPreview1Click(Sender: TObject);
begin
 if not Assigned(frmColorPreview) then
    frmColorPreview := TfrmColorPreview.Create(Application);

  frmColorPreview.Show;
  Hide;
  frmColorPreview.BringToFront;


end;

procedure TQCPUI.ColorCombineManager1Click(Sender: TObject);
VAR ColorHarmonyTool:string;
begin
ColorHarmonyTool:=GetSelfPath+'QCHarmony.exe';
if not FileExists(ColorHarmonyTool) then
  exit;
 ShellExecute( Handle,'open',Pchar(ColorHarmonyTool), nil,nil, SW_SHOWNORMAL);

end;

procedure TQCPUI.ColorListMenuPopup(Sender: TObject);
var
  Data: PHistoryItem;
  Node: PVirtualNode;
  MenuEnabled: Boolean;
begin
  // PickedColorView থেকে popup ট্রিগার হলে (list focus-এ নেই),
  // FPickedColor list-এ আছে কিনা খুঁজে বের করি
  if ColorListMenu.PopupComponent = PickedColorView then
  begin
    FPopupNode := nil;
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) and (Data^.Color = FPickedColor) then
      begin
        FPopupNode := Node;
        Break;
      end;
      Node := Node.NextSibling;
    end;
  end;

  MenuEnabled := Assigned(FPopupNode);

  Removethiscolor1.Enabled := MenuEnabled;
  CopytoClipboard1.Enabled := MenuEnabled;
  CommenttoColor1.Enabled := MenuEnabled;

  if not MenuEnabled then
  begin
    AddtoFavourites1.Enabled := False;
    Exit;
  end;

  Data := vstHistory.GetNodeData(FPopupNode);
  if not Assigned(Data) then
  begin
    AddtoFavourites1.Enabled := False;
    Exit;
  end;

  AddtoFavourites1.Enabled := True;
  if Data^.Favourite then
  begin
    AddtoFavourites1.Caption := CAPTION_REMOVE_FROM_FAVOURITES;
    AddtoFavourites1.ImageIndex := 18;
  end
  else
  begin
    AddtoFavourites1.Caption := CAPTION_ADD_TO_FAVOURITES;
    AddtoFavourites1.ImageIndex := 16;
  end;
end;

procedure TQCPUI.CommenttoColor1Click(Sender: TObject);
var
  Data, D: PHistoryItem;
  Node: PVirtualNode;
  S: string;
  ColorCode: string;
begin
  if not Assigned(FPopupNode) then    // ← FPopupNode := vstHistory.FocusedNode; লাইনটা মুছে দিন
    Exit;

  Data := vstHistory.GetNodeData(FPopupNode);

  if not Assigned(Data) then
    Exit;

  S := CenteredInputBox('Add Color Comment.', Format( 'Add a Comment for: %s',[ConvertColor( Data^.Color,
        ComboToColorFormat(cmbFormat.ItemIndex),IncludeColorCodeSyntax1.Checked)]), Data^.Comment, Self);
  S := Trim(S);
  if S = Data^.Comment then
    Exit;
  Node := vstHistory.GetFirst;

  while Assigned(Node) do
  begin
    D := vstHistory.GetNodeData(Node);
    if Assigned(D) and (D^.Color = Data^.Color) then
    begin
      D^.Comment := S;
      vstHistory.InvalidateNode(Node);
    end;
    Node := Node.NextSibling;
  end;
  SaveHistoryToDefaultIni;
  ColorCode := ConvertColor(Data^.Color, ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked);
  UpdateTitleBar(ColorCode);

  vstHistory.Repaint;
end;


procedure TQCPUI.CopytoClipboard1Click(Sender: TObject);
var
  Data: PHistoryItem;
begin
  if not Assigned(FPopupNode) then
    Exit;

  Data := vstHistory.GetNodeData(FPopupNode);

  if not Assigned(Data) then
    Exit;

  Clipboard.AsText :=
    GetDisplayCasedColorCode(
      ConvertColor(
        Data^.Color,
        ComboToColorFormat(cmbFormat.ItemIndex),
        IncludeColorCodeSyntax1.Checked));
  ShowCopyMessage(btnCopy, COPIED_BUTTON_CAPTION);
end;



function TQCPUI.CreateFullScreenOverlay: TForm;
begin
 Result := TForm.Create(nil);
  with Result do
  begin
    BorderStyle := bsNone;
    Color := clBlack;
    AlphaBlend := True;
    AlphaBlendValue := 1;
    Cursor := crCross;
    PopupMode := pmAuto;
    FormStyle := fsStayOnTop;
    Position := poDesigned;
    SetBounds(GetSystemMetrics(SM_XVIRTUALSCREEN), GetSystemMetrics(SM_YVIRTUALSCREEN),
    GetSystemMetrics(SM_CXVIRTUALSCREEN), GetSystemMetrics(SM_CYVIRTUALSCREEN));
    SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
    Show;
    SetCapture(Handle);
  end;
end;



procedure TQCPUI.CreateWnd;
begin
  inherited;
 // hotkey আবার নতুন Handle-এর সাথে register করে দাও
  if (FHotkeyID <> 0) and (FCurrentHotkey <> 0) then
    ApplyHotKey(FCurrentHotkey);
end;

procedure TQCPUI.IncludeColorCodeSyntax1Click(Sender: TObject);
begin
  IncludeColorCodeSyntax1.Checked := not IncludeColorCodeSyntax1.Checked;
  SetColorCodeText(ConvertColor(FPickedColor, ComboToColorFormat(cmbFormat.ItemIndex),
                              IncludeColorCodeSyntax1.Checked, False));
  RefreshHistory;
end;



procedure TQCPUI.Dark1Click(Sender: TObject);
begin
  ApplyTheme(TM_DARK);
  RegistryWriteInteger(REG_PATH_COLORPICKER, THEME_MODE_REG_NAME, FThemeMode);
  //Load VCL Theme   "Windows11 Modern Dark"
end;



procedure TQCPUI.DeleteFilteredItem;
var
  Node: PVirtualNode;
  NextNode: PVirtualNode;
  Data: PHistoryItem;
begin
  Node := vstHistory.FocusedNode;
  if not Assigned(Node) then
  begin
    MessageDlg(SELECT_ITEM_TO_DELETE_MSG, mtInformation, [mbOK], 0);
    Exit;
  end;
  if not vstHistory.IsVisible[Node] then
  begin
    Node := FindFirstVisibleNode;
    if not Assigned(Node) then
    begin
      MessageDlg(NO_ITEMS_FOUND_TO_DELETE_MSG,mtWarning, [mbOK], 0);
      Exit;
    end;
    vstHistory.ClearSelection;
    vstHistory.FocusedNode := Node;
    vstHistory.Selected[Node] := True;
  end;
  NextNode := FindNextVisibleNode(Node);
  Data := vstHistory.GetNodeData(Node);
  if not Assigned(Data) then
    Exit;
  vstHistory.DeleteNode(Node);

  if Assigned(NextNode) then
  begin
    vstHistory.ClearSelection;
    vstHistory.FocusedNode := NextNode;
    vstHistory.Selected[NextNode] := True;
    vstHistoryFocusChanged(vstHistory, NextNode, 0);
  end
  else
  begin
    NextNode := FindFirstVisibleNode;
    if Assigned(NextNode) then
    begin
      vstHistory.ClearSelection;
      vstHistory.FocusedNode := NextNode;
      vstHistory.Selected[NextNode] := True;
      vstHistoryFocusChanged(vstHistory, NextNode, 0);
    end
    else
    begin
      Caption := MY_APP_NAME;
      FPickedColor := clWhite;
      SetColorCodeText(ConvertColor(clWhite,
        ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked, False));
      PickedColorView.Invalidate;
    end;
  end;
  SaveHistoryToDefaultIni;
end;



procedure TQCPUI.DeleteNormalItem(Node: PVirtualNode);
var
  NextNode: PVirtualNode;
begin
  if not Assigned(Node) then
    Exit;

  NextNode := vstHistory.GetNext(Node);
  if NextNode = nil then
    NextNode := vstHistory.GetPrevious(Node);

  vstHistory.DeleteNode(Node);

  if Assigned(NextNode) then
  begin
    vstHistory.BeginUpdate;
    try
      vstHistory.ClearSelection;
      vstHistory.FocusedNode := NextNode;
      vstHistory.Selected[NextNode] := True;
      vstHistory.SetFocus;
    finally
      vstHistory.EndUpdate;
    end;
    vstHistoryFocusChanged(vstHistory, NextNode, 0);
  end
  else
  begin
    FPickedColor := clWhite;
    SetColorCodeText(ConvertColor(clWhite,
      ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked));
    PickedColorView.Invalidate;
  end;

  SaveHistoryToDefaultIni;
end;



procedure TQCPUI.Documentation1Click(Sender: TObject);
VAR HTMLDocumentation:string;
begin
HTMLDocumentation:=GetSelfPath+'Documentation.html';
if not FileExists(HTMLDocumentation) then
  exit;
 ShellExecute( Handle,'open', PChar(HTMLDocumentation), nil,nil, SW_SHOWNORMAL);
end;

procedure TQCPUI.edtColorCodeExit(Sender: TObject);
begin
// if LowercaseColorCode1.Checked then edtColorCode.CharCase:=TEditCharCase.ecLowerCase else edtColorCode.CharCase:=TEditCharCase.ecUpperCase;
end;




procedure TQCPUI.edtColorCodeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  C: TColor;
begin
  if Key <> VK_RETURN then
    Exit;

  Key := 0;
  if ParseColorStringForFormat(Trim(edtColorCode.Text), ComboToColorFormat(cmbFormat.ItemIndex), C) then
  begin
    ClearSearchFilter;
    FPickedColor := C;
    PickedColorView.Invalidate;
    AddHistory(C);
    SetColorCodeText(ConvertColor(C, ComboToColorFormat(cmbFormat.ItemIndex),
                              IncludeColorCodeSyntax1.Checked, False));
    vstHistory.SetFocus;
  end
  else
  begin
    MessageDlg(INVALID_COLOR_CODE_MSG1+ UpperCase(cmbFormat.Text)+INVALID_COLOR_CODE_MSG2, mtWarning, [mbOK],  0  );
    edtColorCode.SetFocus;
  end;
end;




procedure TQCPUI.edtColorCodeKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Key := #0;
end;

procedure TQCPUI.edtColorCodeMouseEnter(Sender: TObject);
begin
// if edtColorCode.CharCase <> TEditCharCase.ecNormal then  edtColorCode.CharCase := TEditCharCase.ecNormal;
end;

procedure TQCPUI.edtSearchColorChange(Sender: TObject);
begin
    FilterHistory;
  if (Trim(edtSearchColor.Text) <> '') and
     (edtSearchColor.Font.Color <> clGray) and
     (edtSearchColor.Text <> SEARCH_EDITBOX_PLACEHOLDER) then
  begin
    if FindFirstVisibleNode = nil then
      Caption := MY_APP_NAME;
  end;


end;

procedure TQCPUI.edtSearchColorExit(Sender: TObject);
begin
if Trim(edtSearchColor.Text) = '' then
  begin
    edtSearchColor.Text := SEARCH_EDITBOX_PLACEHOLDER;
    edtSearchColor.Font.Color := clGray;
    FilterHistory;
  end;
end;

procedure TQCPUI.edtSearchColorMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

if edtSearchColor.Text=SEARCH_EDITBOX_PLACEHOLDER then
 begin
   edtSearchColor.Text:='';
   edtSearchColor.Font.Color:=clWindowText;
 end;




end;

procedure TQCPUI.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TQCPUI.ExportAsHTML1Click(Sender: TObject);
begin
  if vstHistory.RootNodeCount = 0 then
  begin
    MessageDlg(NO_COLORS_FOUND_MSG,mtWarning,[mbOK], 0 );
    Exit;
  end;

  // SaveColorLists কনফিগার
  SaveColorLists.Title := HTML_EXPORT_SAVE_DLG_TITLE;
  SaveColorLists.Filter := EXPORT_COLOR_LIST_DLG_FILE_TYPE_EXT;
  SaveColorLists.DefaultExt := 'html';
  SaveColorLists.FileName := 'Color_List_' + FormatDateTime('yyyy-mm-dd_hh-nn', Now) + '.html';
  if SaveColorLists.Execute then ExportToHTML(SaveColorLists.FileName);

end;

procedure TQCPUI.ExportColorList1Click(Sender: TObject);
begin
  if vstHistory.RootNodeCount = 0 then
  begin
    MessageDlg(NO_COLORS_FOUND_MSG,mtWarning,[mbOK], 0 );
    Exit;
  end;
  SaveColorLists.Filter :=SAVE_COLOR_LIST_DLG_FILE_TYPE_EXT; SaveColorLists.DefaultExt := 'ini';
  if SaveColorLists.Execute then ExportPickedColorList(SaveColorLists.FileName);


end;

procedure TQCPUI.ExportToHTML(const FileName: string);
var
  SL: TStringList;
  Node: PVirtualNode;
  Data: PHistoryItem;
  ColorCount: Integer;
  ColorHTML, CommentText, RGBText, DelphiText: string;
  R, G, B: Byte;
  ExportDate: string;
  UserName: string;
begin
  SL := TStringList.Create;
  try
    // ============= GET USER NAME =============
    UserName := GetEnvironmentVariable('USERNAME');
    if UserName = '' then
      UserName := GetEnvironmentVariable('USER');
    if UserName = '' then
      UserName := 'Unknown User';

    // ============= HTML HEADER =============
    SL.Add('<!DOCTYPE html>');
    SL.Add('<html lang="en">');
    SL.Add('<head>');
    SL.Add('<meta charset="UTF-8">');
    SL.Add('<meta name="viewport" content="width=device-width, initial-scale=1.0">');
    SL.Add('<title>Quick Color Picker - Exported Color Palette</title>');
    SL.Add('');
    SL.Add('<style>');
    SL.Add('*{');
    SL.Add('    margin:0;');
    SL.Add('    padding:0;');
    SL.Add('    box-sizing:border-box;');
    SL.Add('}');
    SL.Add('');
    SL.Add('body{');
    SL.Add('    font-family:-apple-system,BlinkMacSystemFont,''Segoe UI'',Roboto,sans-serif;');
    SL.Add('    background:#f0f2f5;');
    SL.Add('    padding:40px 20px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.container{');
    SL.Add('    max-width:1200px;');
    SL.Add('    margin:0 auto;');
    SL.Add('    background:white;');
    SL.Add('    border-radius:16px;');
    SL.Add('    box-shadow:0 4px 20px rgba(0,0,0,0.1);');
    SL.Add('    padding:30px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.header{');
    SL.Add('    display:flex;');
    SL.Add('    justify-content:space-between;');
    SL.Add('    align-items:center;');
    SL.Add('    margin-bottom:20px;');
    SL.Add('    padding-bottom:20px;');
    SL.Add('    border-bottom:2px solid #e4e7eb;');
    SL.Add('    flex-wrap:wrap;');
    SL.Add('    gap:15px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.header-left{');
    SL.Add('    display:flex;');
    SL.Add('    flex-direction:column;');
    SL.Add('    gap:4px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.header h1{');
    SL.Add('    font-size:30px;');
    SL.Add('    color:#1a1a2e;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.header .subtitle{');
    SL.Add('    font-size:13px;');
    SL.Add('    color:#6b7280;');
    SL.Add('    display:flex;');
    SL.Add('    align-items:center;');
    SL.Add('    gap:6px;');
    SL.Add('    flex-wrap:wrap;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.header .subtitle a{');
    SL.Add('    color:#6B7280;');
    SL.Add('    text-decoration:none;');
    SL.Add('    font-weight:600;');
    SL.Add('    transition:color .2s;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.header .subtitle a:hover{');
    SL.Add('    color:#7c3aed;');
    SL.Add('    text-decoration:underline;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.header-right{');
    SL.Add('    display:flex;');
    SL.Add('    align-items:center;');
    SL.Add('    gap:15px;');
    SL.Add('    flex-wrap:wrap;');
    SL.Add('}');
    SL.Add('');
    SL.Add('/* ===== SEARCH BOX ===== */');
    SL.Add('.search-box{');
    SL.Add('    position:relative;');
    SL.Add('    display:flex;');
    SL.Add('    align-items:center;');
    SL.Add('    background:#f3f4f6;');
    SL.Add('    border-radius:10px;');
    SL.Add('    padding:0 15px;');
    SL.Add('    transition:all .3s ease;');
    SL.Add('    border:2px solid transparent;');
    SL.Add('    min-width:200px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-box:focus-within{');
    SL.Add('    background:white;');
    SL.Add('    border-color:#4f46e5;');
    SL.Add('    box-shadow:0 0 0 4px rgba(79,70,229,0.1);');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-box .icon{');
    SL.Add('    color:#9ca3af;');
    SL.Add('    font-size:16px;');
    SL.Add('    margin-right:10px;');
    SL.Add('    user-select:none;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-box input{');
    SL.Add('    border:none;');
    SL.Add('    background:transparent;');
    SL.Add('    padding:10px 0;');
    SL.Add('    font-size:14px;');
    SL.Add('    outline:none;');
    SL.Add('    width:100%;');
    SL.Add('    color:#1a1a2e;');
    SL.Add('    font-family:inherit;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-box input::placeholder{');
    SL.Add('    color:#9ca3af;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-box .clear-btn{');
    SL.Add('    display:none;');
    SL.Add('    background:none;');
    SL.Add('    border:none;');
    SL.Add('    color:#9ca3af;');
    SL.Add('    cursor:pointer;');
    SL.Add('    font-size:18px;');
    SL.Add('    padding:0 5px;');
    SL.Add('    transition:color .2s;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-box .clear-btn:hover{');
    SL.Add('    color:#4b5563;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-box .clear-btn.show{');
    SL.Add('    display:block;');
    SL.Add('}');
    SL.Add('');
    SL.Add('/* ===== SEARCH RESULTS COUNT ===== */');
    SL.Add('.search-info{');
    SL.Add('    text-align:center;');
    SL.Add('    padding:10px 0 20px 0;');
    SL.Add('    color:#6b7280;');
    SL.Add('    font-size:14px;');
    SL.Add('    display:none;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-info.show{');
    SL.Add('    display:block;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.search-info .highlight{');
    SL.Add('    font-weight:600;');
    SL.Add('    color:#4f46e5;');
    SL.Add('}');
    SL.Add('');
    SL.Add('/* ===== COLOR GRID ===== */');
    SL.Add('.color-grid{');
    SL.Add('    display:grid;');
    SL.Add('    grid-template-columns:repeat(auto-fill,minmax(150px,1fr));');
    SL.Add('    gap:15px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.color-item{');
    SL.Add('    background:white;');
    SL.Add('    border-radius:12px;');
    SL.Add('    overflow:hidden;');
    SL.Add('    box-shadow:0 2px 8px rgba(0,0,0,0.06);');
    SL.Add('    transition:transform .2s, opacity .3s ease, transform .3s ease;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.color-item:hover{');
    SL.Add('    transform:translateY(-4px);');
    SL.Add('    box-shadow:0 4px 16px rgba(0,0,0,0.12);');
    SL.Add('}');
    SL.Add('');
    SL.Add('.color-item.hidden{');
    SL.Add('    display:none;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.color-preview{');
    SL.Add('    height:120px;');
    SL.Add('    position:relative;');
    SL.Add('    cursor:pointer;');
    SL.Add('    user-select:none;');
    SL.Add('    transition:transform .2s ease;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.color-preview .color-code{');
    SL.Add('    position:absolute;');
    SL.Add('    bottom:8px;');
    SL.Add('    right:8px;');
    SL.Add('    background:rgba(0,0,0,0.7);');
    SL.Add('    color:white;');
    SL.Add('    padding:4px 10px;');
    SL.Add('    border-radius:6px;');
    SL.Add('    font-size:12px;');
    SL.Add('    font-family:''Courier New'', monospace;');
    SL.Add('}');
    SL.Add('');
    //Fav-Badge
    SL.Add('.fav-badge{');
    SL.Add('    position:absolute;');
    SL.Add('    top:8px;');
    SL.Add('    left:8px;');
    SL.Add('    font-size:18px;');
    SL.Add('    filter:drop-shadow(0 1px 2px rgba(0,0,0,0.5));');
    SL.Add('}');

    SL.Add('.color-info{');
    SL.Add('    padding:12px;');
    SL.Add('    text-align:center;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.color-info .comment{');
    SL.Add('    font-weight:600;');
    SL.Add('    font-size:14px;');
    SL.Add('    color:#1a1a2e;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.color-info .rgb{');
    SL.Add('    font-size:12px;');
    SL.Add('    color:#6b7280;');
    SL.Add('    margin-top:4px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.badge{');
    SL.Add('    display:inline-block;');
    SL.Add('    background:#e4e7eb;');
    SL.Add('    padding:2px 10px;');
    SL.Add('    border-radius:12px;');
    SL.Add('    font-size:11px;');
    SL.Add('    color:#4b5563;');
    SL.Add('    margin-top:8px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('/* ===== FOOTER ===== */');
    SL.Add('.footer{');
    SL.Add('    margin-top:30px;');
    SL.Add('    padding-top:20px;');
    SL.Add('    border-top:1px solid #e4e7eb;');
    SL.Add('    text-align:center;');
    SL.Add('    color:#6b7280;');
    SL.Add('    font-size:13px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.footer .total-colors{');
   // SL.Add('    font-weight:600;');
    SL.Add('    color:#6B7280;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.footer .user-name{');
    SL.Add('    font-weight:500;');
    SL.Add('    color:#6B7280;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.footer .dot{');
    SL.Add('    color:#d1d5db;');
    SL.Add('    margin:0 8px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('/* ===== COPY ANIMATION ===== */');
    SL.Add('.copy-flash{');
    SL.Add('    animation:copyFlash .4s ease;');
    SL.Add('}');
    SL.Add('');
    SL.Add('@keyframes copyFlash{');
    SL.Add('    0%{ transform:scale(1); filter:brightness(1); }');
    SL.Add('    50%{ transform:scale(1.08); filter:brightness(1.2); }');
    SL.Add('    100%{ transform:scale(1); filter:brightness(1); }');
    SL.Add('}');
    SL.Add('');
    SL.Add('/* ===== TOAST ===== */');
    SL.Add('.copy-toast{');
    SL.Add('    position:fixed;');
    SL.Add('    left:50%;');
    SL.Add('    bottom:30px;');
    SL.Add('    transform:translateX(-50%) translateY(30px);');
    SL.Add('    background:#111827;');
    SL.Add('    color:#fff;');
    SL.Add('    padding:12px 22px;');
    SL.Add('    border-radius:999px;');
    SL.Add('    font-size:14px;');
    SL.Add('    box-shadow:0 10px 25px rgba(0,0,0,0.25);');
    SL.Add('    opacity:0;');
    SL.Add('    pointer-events:none;');
    SL.Add('    transition:all .35s ease;');
    SL.Add('    z-index:9999;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.copy-toast.show{');
    SL.Add('    opacity:1;');
    SL.Add('    transform:translateX(-50%) translateY(0);');
    SL.Add('}');
    SL.Add('');
    SL.Add('.empty-message{');
    SL.Add('    text-align:center;');
    SL.Add('    padding:60px 20px;');
    SL.Add('    color:#6b7280;');
    SL.Add('}');
    SL.Add('');
    SL.Add('.empty-message .icon{');
    SL.Add('    font-size:64px;');
    SL.Add('    display:block;');
    SL.Add('    margin-bottom:20px;');
    SL.Add('}');
    SL.Add('');
    SL.Add('@media (max-width:600px){');
    SL.Add('    .color-grid{');
    SL.Add('        grid-template-columns:repeat(auto-fill,minmax(120px,1fr));');
    SL.Add('    }');
    SL.Add('    .header{');
    SL.Add('        flex-direction:column;');
    SL.Add('        align-items:stretch;');
    SL.Add('    }');
    SL.Add('    .header-right{');
    SL.Add('        justify-content:flex-end;');
    SL.Add('        width:100%;');
    SL.Add('    }');
    SL.Add('    .search-box{');
    SL.Add('        width:100%;');
    SL.Add('    }');
    SL.Add('}');
    SL.Add('</style>');
    SL.Add('</head>');
    SL.Add('');
    SL.Add('<body>');
    SL.Add('');
    SL.Add('<div class="container">');

    // ============= HEADER SECTION =============
    SL.Add('    <div class="header">');
    SL.Add('        <div class="header-left">');
    SL.Add('            <h1>🎨 Color Palette</h1>');

    ExportDate := FormatDateTime('dddd, mmmm d, yyyy hh:nn:ss', Now);
    SL.Add('            <div class="subtitle">');
    SL.Add(Format('                Generated with <a href="%s" target="_blank">%s</a>', [MY_APP_URL, MY_APP_NAME]));
    SL.Add(Format('                <span>📅 %s</span>', [ExportDate]));
    SL.Add('            </div>');
    SL.Add('        </div>');
    SL.Add('');

    // ✅ Header এ শুধু Search Box থাকবে
    SL.Add('        <div class="header-right">');
    SL.Add('            <div class="search-box">');
    SL.Add('                <span class="icon">🔍</span>');
    SL.Add('                <input type="text" id="searchInput" placeholder="Search colors..." oninput="filterColors(this.value)">');
    SL.Add('                <button class="clear-btn" id="clearBtn" onclick="clearSearch()">✕</button>');
    SL.Add('            </div>');
    SL.Add('        </div>');
    SL.Add('    </div>');
    SL.Add('');

    // ============= SEARCH INFO =============
    SL.Add('    <div class="search-info" id="searchInfo">');
    SL.Add('        Found <span class="highlight" id="resultCount">0</span> matching colors');
    SL.Add('    </div>');
    SL.Add('');

    // ============= COUNT COLORS =============
    ColorCount := 0;
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      Inc(ColorCount);
      Node := Node.NextSibling;
    end;

    // ============= COLOR GRID =============
    if ColorCount > 0 then
    begin
      SL.Add('    <div class="color-grid" id="colorGrid">');
      SL.Add('');

       for var Pass := 0 to 1 do   // Pass 0 = Favourites, Pass 1 = বাকি সব
  begin
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);

      if Assigned(Data) and
         (((Pass = 0) and Data^.Favourite) or ((Pass = 1) and not Data^.Favourite)) then
      begin
        R := GetRValue(Data^.Color);
        G := GetGValue(Data^.Color);
        B := GetBValue(Data^.Color);

        ColorHTML := ConvertColor(Data^.Color, cfHEX);
        RGBText := Format('RGB: %d, %d, %d', [R, G, B]);
        DelphiText := ConvertColor(Data^.Color, cfDelphi);

        CommentText := GetColorEmoji(Data^.Color) + ' ' + Trim(Data^.Comment);
        CommentText := StringReplace(CommentText, '<', '&lt;', [rfReplaceAll]);
        CommentText := StringReplace(CommentText, '>', '&gt;', [rfReplaceAll]);

        SL.Add('        <div class="' + IfThen(Data^.Favourite, 'color-item favourite-item', 'color-item') + '"');
        SL.Add(Format('             data-color="%s"', [ColorHTML]));
        SL.Add(Format('             data-comment="%s"', [CommentText]));
        SL.Add(Format('             data-rgb="%d %d %d">', [R, G, B]));
        SL.Add('');
        SL.Add('            <div class="color-preview"');
        SL.Add(Format('                 style="background:%s;"', [ColorHTML]));
        SL.Add(Format('                 onclick="copyColor(''%s'', this)">', [ColorHTML]));
        if Data^.Favourite then
          SL.Add('                <span class="fav-badge">⭐</span>');
        SL.Add(Format('                <span class="color-code">%s</span>', [ColorHTML]));
        SL.Add('            </div>');
        SL.Add('            <div class="color-info">');
        SL.Add(Format('                <div class="comment">%s</div>', [CommentText]));
        SL.Add(Format('                <div class="rgb">%s</div>', [RGBText]));
        SL.Add(Format('                <span class="badge">Delphi: %s</span>', [DelphiText]));
        SL.Add('            </div>');
        SL.Add('        </div>');
        SL.Add('');
          end;

          Node := Node.NextSibling;
        end;
      end;

      SL.Add('    </div>');
    end
    else
    begin
      SL.Add('    <div class="empty-message">');
      SL.Add('        <span class="icon">🎨</span>');
      SL.Add('        <h2>No Colors to Display</h2>');
      SL.Add('        <p>Your color history is empty. Pick some colors first!</p>');
      SL.Add('    </div>');
    end;

    // ============= FOOTER =============
    SL.Add('');
    SL.Add('    <div class="footer">');
    SL.Add(Format('        Total Colors: <span class="total-colors">%d</span>', [ColorCount]));
    SL.Add('        <span class="dot">•</span>');
    SL.Add(Format('        Generated by <span class="user-name">%s</span>', [UserName]));
    SL.Add('    </div>');
    SL.Add('</div>');
    SL.Add('');

    // ============= TOAST =============
    SL.Add('<div id="copyToast" class="copy-toast">');
    SL.Add('  ✓ Color copied');
    SL.Add('</div>');
    SL.Add('');

    // ============= JAVASCRIPT =============
    SL.Add('<script>');
    SL.Add('function filterColors(searchText) {');
    SL.Add('    searchText = searchText.toLowerCase().trim();');
    SL.Add('    const items = document.querySelectorAll(".color-item");');
    SL.Add('    const clearBtn = document.getElementById("clearBtn");');
    SL.Add('    const searchInfo = document.getElementById("searchInfo");');
    SL.Add('    const resultCount = document.getElementById("resultCount");');
    SL.Add('    let visibleCount = 0;');
    SL.Add('');
    SL.Add('    if (searchText.length > 0) {');
    SL.Add('        clearBtn.classList.add("show");');
    SL.Add('    } else {');
    SL.Add('        clearBtn.classList.remove("show");');
    SL.Add('    }');
    SL.Add('');
    SL.Add('    items.forEach(function(item) {');
    SL.Add('        const color = item.getAttribute("data-color").toLowerCase();');
    SL.Add('        const comment = item.getAttribute("data-comment").toLowerCase();');
    SL.Add('        const rgb = item.getAttribute("data-rgb").toLowerCase();');
    SL.Add('');
    SL.Add('        if (searchText === "" || ');
    SL.Add('            color.includes(searchText) || ');
    SL.Add('            comment.includes(searchText) || ');
    SL.Add('            rgb.includes(searchText)) {');
    SL.Add('            item.classList.remove("hidden");');
    SL.Add('            visibleCount++;');
    SL.Add('        } else {');
    SL.Add('            item.classList.add("hidden");');
    SL.Add('        }');
    SL.Add('    });');
    SL.Add('');
    SL.Add('    if (searchText !== "") {');
    SL.Add('        resultCount.textContent = visibleCount;');
    SL.Add('        searchInfo.classList.add("show");');
    SL.Add('    } else {');
    SL.Add('        searchInfo.classList.remove("show");');
    SL.Add('    }');
    SL.Add('}');
    SL.Add('');
    SL.Add('function clearSearch() {');
    SL.Add('    document.getElementById("searchInput").value = "";');
    SL.Add('    filterColors("");');
    SL.Add('    document.getElementById("searchInput").focus();');
    SL.Add('}');
    SL.Add('');
    SL.Add('function copyColor(colorCode, element) {');
    SL.Add('    navigator.clipboard.writeText(colorCode);');
    SL.Add('');
    SL.Add('    element.classList.remove("copy-flash");');
    SL.Add('    void element.offsetWidth;');
    SL.Add('    element.classList.add("copy-flash");');
    SL.Add('');
    SL.Add('    const toast = document.getElementById("copyToast");');
    SL.Add('    toast.innerHTML = "✓ " + colorCode + " copied to clipboard";');
    SL.Add('    toast.classList.add("show");');
    SL.Add('');
    SL.Add('    clearTimeout(window.toastTimer);');
    SL.Add('    window.toastTimer = setTimeout(function() {');
    SL.Add('        toast.classList.remove("show");');
    SL.Add('    }, 1500);');
    SL.Add('}');
    SL.Add('');
    SL.Add('document.addEventListener("keydown", function(e) {');
    SL.Add('    if (e.key === "Escape") {');
    SL.Add('        const searchInput = document.getElementById("searchInput");');
    SL.Add('        if (document.activeElement === searchInput) {');
    SL.Add('            clearSearch();');
    SL.Add('            searchInput.blur();');
    SL.Add('        }');
    SL.Add('    }');
    SL.Add('});');
    SL.Add('');
    SL.Add('document.addEventListener("keydown", function(e) {');
    SL.Add('    if ((e.ctrlKey || e.metaKey) && e.key === "f") {');
    SL.Add('        e.preventDefault();');
    SL.Add('        document.getElementById("searchInput").focus();');
    SL.Add('        document.getElementById("searchInput").select();');
    SL.Add('    }');
    SL.Add('});');
    SL.Add('</script>');
    SL.Add('');
    SL.Add('</body>');
    SL.Add('</html>');

    // ============= SAVE FILE =============
    SL.SaveToFile(FileName, TEncoding.UTF8);

  finally
    SL.Free;
  end;
end;



procedure TQCPUI.FilterHistory;
var
  Node: PVirtualNode;
  Data: PHistoryItem;
  SearchText: string;
  S, ColorNameMatch: string;
  FoundVisibleNode: PVirtualNode;
  MatchesSearch, MatchesFavourite, MatchesCommented: Boolean;
begin
  if (edtSearchColor.Font.Color = clGray) or
     (Trim(edtSearchColor.Text) = SEARCH_EDITBOX_PLACEHOLDER) then
    SearchText := ''
  else
    SearchText := LowerCase(Trim(edtSearchColor.Text));

  // "grey" লিখলেও "gray" হিসেবে treat হবে
  SearchText := StringReplace(SearchText, 'grey', 'gray', [rfReplaceAll]);

  vstHistory.BeginUpdate;
  try
    FoundVisibleNode := nil;
    Node := vstHistory.GetFirst;

    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);

      if Assigned(Data) then
      begin
        S := LowerCase(ConvertColor(Data^.Color,
          ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked));

        if Trim(Data^.Comment) <> '' then
          S := S + ' ' + LowerCase(Data^.Comment);

        // নতুন: nearest color name (Red/Green/Blue/Gray ইত্যাদি) ও check হবে
        ColorNameMatch := LowerCase(GetNearestColorName(Data^.Color));

        MatchesSearch := (SearchText = '') or
                         (Pos(SearchText, S) > 0) or
                         (Pos(SearchText, ColorNameMatch) > 0);

          MatchesFavourite := (not FShowFavouritesOnly) or Data^.Favourite;
        MatchesCommented := (not FShowCommentedOnly) or (Trim(Data^.Comment) <> '');

        if MatchesSearch and MatchesFavourite and MatchesCommented then
        begin
          vstHistory.IsVisible[Node] := True;
          if FoundVisibleNode = nil then
            FoundVisibleNode := Node;
        end
        else
          vstHistory.IsVisible[Node] := False;
      end;

      Node := Node.NextSibling;
    end;

    if Assigned(FoundVisibleNode) then
    begin
      vstHistory.ClearSelection;
      vstHistory.FocusedNode := FoundVisibleNode;
      vstHistory.Selected[FoundVisibleNode] := True;
      vstHistoryFocusChanged(vstHistory, FoundVisibleNode, 0);
    end
    else
    begin
      vstHistory.ClearSelection;
      vstHistory.FocusedNode := nil;
      Caption := MY_APP_NAME;
    end;

  finally
    vstHistory.EndUpdate;
  end;
end;






function TQCPUI.FindFirstVisibleNode: PVirtualNode;
var
  Node: PVirtualNode;
begin
  Result := nil;
  Node := vstHistory.GetFirst;

  while Assigned(Node) do
  begin
    if vstHistory.IsVisible[Node] then
    begin
      Result := Node;
      Exit;
    end;
    Node := Node.NextSibling;
  end;
end;






function TQCPUI.FindNextVisibleNode(CurrentNode: PVirtualNode): PVirtualNode;
var
  Node: PVirtualNode;
begin
  Result := nil;
  if not Assigned(CurrentNode) then
    Exit;
  Node := CurrentNode.NextSibling;

  while Assigned(Node) do
  begin
    if vstHistory.IsVisible[Node] then
    begin
      Result := Node;
      Exit;
    end;
    Node := Node.NextSibling;
  end;
  Node := CurrentNode.PrevSibling;
  while Assigned(Node) do
  begin
    if vstHistory.IsVisible[Node] then
    begin
      Result := Node;
      Exit;
    end;
    Node := Node.PrevSibling;
  end;
end;



procedure TQCPUI.FormClose(Sender: TObject; var Action: TCloseAction);
begin

//Code Syntax Option
if IncludeColorCodeSyntax1.Checked then RegistryWriteInteger(REG_PATH_COLORPICKER, CODE_SYNTAX, 1) else RegistryWriteInteger(REG_PATH_COLORPICKER,CODE_SYNTAX, 0);
//Auto Copy to clipboard Option
if AutoCopy1.Checked then RegistryWriteInteger(REG_PATH_COLORPICKER, AUTO_CLIPBOARD, 1) else RegistryWriteInteger(REG_PATH_COLORPICKER,AUTO_CLIPBOARD, 0);
//Stay On Top
if StayonTop1.Checked then RegistryWriteInteger(REG_PATH_COLORPICKER, TOP_MOST, 1) else RegistryWriteInteger(REG_PATH_COLORPICKER,TOP_MOST, 0);
//Combobox Item Index
RegistryWriteInteger(REG_PATH_COLORPICKER, COLOR_FORMAT,cmbFormat.ItemIndex);
//Zoom Level
RegistryWriteInteger(REG_PATH_COLORPICKER, ZOOM_LEVEL, FZoomLevel);
//Selection Settings
if HideSelectionBar1.Checked then RegistryWriteInteger(REG_PATH_COLORPICKER,ISHIDE_SELECTION, 1) else RegistryWriteInteger(REG_PATH_COLORPICKER,ISHIDE_SELECTION, 0);
//Show Hint
if ShowHint1.Checked then RegistryWriteInteger(REG_PATH_COLORPICKER, ISSHOW_HINT, 1) else RegistryWriteInteger(REG_PATH_COLORPICKER,ISSHOW_HINT, 0);

//Color Code Char Case
if LowercaseColorCode1.Checked then RegistryWriteInteger(REG_PATH_COLORPICKER, USE_LOWERCASE, 1) else RegistryWriteInteger(REG_PATH_COLORPICKER,USE_LOWERCASE, 0);


end;

procedure TQCPUI.FormCreate(Sender: TObject);
begin
//   Clipboard.AsText:=CalculateUniversalResourceHash('TAbout', RT_RCDATA);



  GetSelfPath:=ExtractFilePath(ParamStr(0));
  FHistoryIni :=TPath.Combine(TPath.GetHomePath,HISTORY_FILE_PATH);
  ForceDirectories(ExtractFilePath(FHistoryIni));
  MakeReadyComboBox(cmbFormat);
  LoadSettings;
  vstHistory.NodeDataSize := SizeOf(THistoryItem);
  vstHistory.Header.Options := [];

   // ← নতুন
  FMagnifierBuffer := TBitmap.Create;
  FMagnifierBuffer.PixelFormat := pf32bit;
end;



procedure TQCPUI.FormShow(Sender: TObject);
begin
LoadHistoryFromDefaultIni;



end;

procedure TQCPUI.FullScreenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      if Key = VK_ESCAPE then
    CancelPickingMode;
end;

procedure TQCPUI.FullScreenKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_CONTROL then
    CancelPickingMode;
end;

procedure TQCPUI.FullScreenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Pt: TPoint;
begin
  if Button = mbLeft then
  begin
    Pt := Mouse.CursorPos;
    FLiveColor := GetSnapshotPixel(Pt);
    CaptureCurrentColor;
    if not (ssCtrl in Shift) then
      CancelPickingMode;
  end
  else if Button = mbRight then
    CancelPickingMode;
end;



procedure TQCPUI.FullScreenMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  UpdateCurrentColor;
  UpdateMagnifier;
end;



procedure TQCPUI.HideSelectionBar1Click(Sender: TObject);
begin
 if not HideSelectionBar1.Checked then
begin
  HideSelectionBar1.Checked := True;
  vstHistory.ClearSelection;
  vstHistory.FocusedNode := nil;
  FPopupNode := nil;
  vstHistory.TreeOptions.PaintOptions :=[toAlwaysHideSelection, toHideFocusRect,toThemeAware,toUseBlendedSelection,toUseExplorerTheme];
  end
else
begin
  HideSelectionBar1.Checked := False;
    vstHistory.ClearSelection;
    vstHistory.FocusedNode := nil;
    FPopupNode := nil;
   vstHistory.TreeOptions.PaintOptions :=[toHideFocusRect,toThemeAware,toUseBlendedSelection,toUseExplorerTheme];
end;

 vstHistory.Invalidate;
end;

procedure TQCPUI.Hotkeys1Click(Sender: TObject);
begin
  if StayonTop1.Checked then FormStyle := fsNormal;

 Form2 := TForm2.Create(Application);
  try
    if Form2.ShowModal = mrOk then
    begin
      FCurrentHotkey := Form2.CapturedHotkey;
      ApplyHotKey(FCurrentHotkey);
      RegistryWriteInteger(REG_PATH_COLORPICKER,COLOR_PICK_HOTKEY,FCurrentHotkey);
      Hint := 'Press ' +ShortCutToText(FCurrentHotkey) +' to pick a color';
      btnPickColor.Caption:='Pick Color (' +ShortCutToText(FCurrentHotkey) + ')';
    end;
  finally
   FreeAndNil(Form2);
  if StayonTop1.Checked then FormStyle := fsStayOnTop;
  end;
end;

procedure TQCPUI.ImportColorList1Click(Sender: TObject);
begin
  LoadColorLists.Filter := SAVE_COLOR_LIST_DLG_FILE_TYPE_EXT;
  if LoadColorLists.Execute then ImportSavedColorList(LoadColorLists.FileName);
end;


procedure TQCPUI.ZoomLvl3Click(Sender: TObject);
begin
 ZoomLvl3.Checked := False;
  ZoomLvl6.Checked := False;
  ZoomLvl9.Checked := False;

  (Sender as TMenuItem).Checked := True;

  if Sender = ZoomLvl3 then
    FZoomLevel := 3
  else if Sender = ZoomLvl6 then
    FZoomLevel := 6
  else if Sender = ZoomLvl9 then
    FZoomLevel := 9;
end;

procedure TQCPUI.Light1Click(Sender: TObject);
begin
  ApplyTheme(TM_LIGHT);
  RegistryWriteInteger(REG_PATH_COLORPICKER, THEME_MODE_REG_NAME, FThemeMode);
end;

procedure TQCPUI.LoadHistoryFromDefaultIni;
var
  Ini: TIniFile;
  Count, I: Integer;
  S, FavStr: string;
  C: TColor;
  Node: PVirtualNode;
  Data: PHistoryItem;
begin
  ClearSearchFilter;
  vstHistory.Clear;

  FPickedColor := clWhite;
  SetColorCodeText(ConvertColor(clWhite, ComboToColorFormat(cmbFormat.ItemIndex),IncludeColorCodeSyntax1.Checked, False));
  PickedColorView.Invalidate;
  if not FileExists(FHistoryIni) then
    Exit;

  Ini := TIniFile.Create(FHistoryIni);
  try
    Count := Ini.ReadInteger('Colors', 'Count', 0);

    for I := 0 to Count - 1 do
    begin
      S := Trim(Ini.ReadString('Colors','Color' + IntToStr(I),''));
      if ParseColorString(S, C) then
      begin
        Node := vstHistory.AddChild(nil);
        Data := vstHistory.GetNodeData(Node);
        if Assigned(Data) then
        begin
          Data^.Color := C;
          Data^.Comment := Ini.ReadString('Comments','Comment' + IntToStr(I),'');

         FavStr := Trim(Ini.ReadString('Favourites', 'Color' + IntToStr(I), ''));
          Data^.Favourite := (FavStr = FAVOURITE_MARK);
        end;
      end;
    end;
  finally
    Ini.Free;
  end;

  Node := vstHistory.GetFirst;

  if Assigned(Node) then
  begin
    Data := vstHistory.GetNodeData(Node);

    if Assigned(Data) then
    begin
      FPickedColor := Data^.Color;

      SetColorCodeText(
        ConvertColor(
          FPickedColor,
          ComboToColorFormat(cmbFormat.ItemIndex),
          IncludeColorCodeSyntax1.Checked, False));

      PickedColorView.Invalidate;

      vstHistory.ClearSelection;
      vstHistory.FocusedNode := Node;
      vstHistory.Selected[Node] := True;
      vstHistory.TopNode := Node;
    end;
  end;
end;






procedure TQCPUI.ImportSavedColorList(const AFileName: string);
var
  Ini: TMemIniFile;
  Count, I: Integer;
  Line, ColorPart, CommentPart, FavPart: string;
  Parts: TArray<string>;
  SepPos: Integer;
  C: TColor;
  LoadedCount: Integer;
  FavouriteCount: Integer;
  SavedFormat: string;
  Node, ExistingNode: PVirtualNode;
  Data, ExistingData: PHistoryItem;
  UserChoice: Integer;
  DoMerge: Boolean;
  AlreadyExists: Boolean;
begin
  if not FileExists(AFileName) then   Exit;
  ClearSearchFilter;
  DoMerge := True;
   if vstHistory.RootNodeCount > 0 then
  begin
    case ShowImportColorDialog(AFileName) of
      imMerge:
        DoMerge := True;
      imReplace:
        DoMerge := False;
      imCancel:
        Exit;
    end;
  end;

  Ini := TMemIniFile.Create(AFileName);
  try
    SavedFormat := Ini.ReadString('Colors', 'Format', 'HEX');
    if SameText(SavedFormat, 'HEX') then cmbFormat.ItemIndex := 0
    else if SameText(SavedFormat, 'RGB') then cmbFormat.ItemIndex := 1
    else if SameText(SavedFormat, 'HSL240') then cmbFormat.ItemIndex := 2   // ← NOTUN
    else if SameText(SavedFormat, 'Delphi') then cmbFormat.ItemIndex := 3
    else if SameText(SavedFormat, 'RGBA') then cmbFormat.ItemIndex := 0
    else if SameText(SavedFormat, 'HSL') then cmbFormat.ItemIndex := 4
    else if SameText(SavedFormat, 'HSV') then cmbFormat.ItemIndex := 5
    else if SameText(SavedFormat, 'CMYK') then cmbFormat.ItemIndex := 6
    else if SameText(SavedFormat, 'CMY') then cmbFormat.ItemIndex := 7;

    Count := Ini.ReadInteger('Colors', 'Count', 0);
    if Count <= 0 then
      Exit;

    // শুধু Replace মোডেই পুরনো list মুছে ফেলা হবে
    if not DoMerge then
      vstHistory.Clear;

    LoadedCount := 0;
    FavouriteCount := 0;

    vstHistory.BeginUpdate;
    try
      for I := 0 to Count - 1 do
      begin
        Line := Ini.ReadString('Colors', 'Color' + IntToStr(I), '');

        Parts := Line.Split([#9#9]);

        ColorPart := '';
        CommentPart := '';
        FavPart := '';

        if Length(Parts) >= 1 then
          ColorPart := Trim(Parts[0]);

        if Length(Parts) >= 2 then
        begin
          if (Trim(Parts[High(Parts)]) = FAVOURITE_MARK) then
          begin
            FavPart := Trim(Parts[High(Parts)]);
            if Length(Parts) >= 3 then
              CommentPart := Trim(Parts[1]);
          end
          else
            CommentPart := Trim(Parts[1]);
        end;

        if Length(Parts) = 1 then
        begin
          SepPos := Pos('  ', Line);
          if SepPos > 0 then
          begin
            ColorPart := Trim(Copy(Line, 1, SepPos - 1));
            CommentPart := Trim(Copy(Line, SepPos + 2, MaxInt));
          end
          else
            ColorPart := Trim(Line);
        end;

        if CommentPart = '' then
          CommentPart := Ini.ReadString('Comments', 'Comment' + IntToStr(I), '');

        if ParseColorString(ColorPart, C) then
        begin
          // ← নতুন: Merge মোডে থাকলে চেক করি এই color আগে থেকেই আছে কিনা
          AlreadyExists := False;

          if DoMerge then
          begin
            ExistingNode := vstHistory.GetFirst;
            while Assigned(ExistingNode) do
            begin
              ExistingData := vstHistory.GetNodeData(ExistingNode);
              if Assigned(ExistingData) and (ExistingData^.Color = C) then
              begin
                AlreadyExists := True;

                // পুরনো comment খালি থাকলে নতুন comment বসিয়ে দেওয়া হচ্ছে (কিন্তু existing favourite touch করা হচ্ছে না)
                if (Trim(ExistingData^.Comment) = '') and (CommentPart <> '') then
                  ExistingData^.Comment := CommentPart;

                Break;
              end;
              ExistingNode := ExistingNode.NextSibling;
            end;
          end;

          // Duplicate হলে নতুন node তৈরি করা হবে না — merge মোডে existing color-ই থাকবে
          if not AlreadyExists then
          begin
            Node := vstHistory.AddChild(nil);
            Data := vstHistory.GetNodeData(Node);
            if Assigned(Data) then
            begin
              Data^.Color := C;
              Data^.Comment := CommentPart;
              Data^.Favourite := (FavPart <> '');
              if Data^.Favourite then
                Inc(FavouriteCount);
            end;
            Inc(LoadedCount);
          end;
        end;
      end;
    finally
      vstHistory.EndUpdate;
    end;
  finally
    Ini.Free;
  end;

  // Merge মোডে থাকলে existing favourite-ও গণনায় যোগ করি (message-এর জন্য)
  if DoMerge then
  begin
    Node := vstHistory.GetFirst;
    FavouriteCount := 0;
    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) and Data^.Favourite then
        Inc(FavouriteCount);
      Node := Node.NextSibling;
    end;
  end;

  if (LoadedCount > 0) or DoMerge then
  begin
    SaveHistoryToDefaultIni;

    if FShowFavouritesOnly then
    begin
      if FavouriteCount = 0 then
      begin
        Application.MessageBox(IMPORT_AND_NO_FAVOURITE_COLORS_FOUND, CAPTION_INFROMATION, MB_OK or MB_ICONINFORMATION);
        ShowFavouritesColorsOnly1.Checked := False;
        FShowFavouritesOnly := False;
      end;

      FilterHistory;
    end;

    Node := vstHistory.GetFirst;

    if FShowFavouritesOnly and Assigned(Node) and (not vstHistory.IsVisible[Node]) then
      Node := FindFirstVisibleNode;

    if Assigned(Node) then
    begin
      Data := vstHistory.GetNodeData(Node);

      if Assigned(Data) then
      begin
        FPickedColor := Data^.Color;
        edtColorCode.Text := ConvertColor(FPickedColor, ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked, False);
        PickedColorView.Invalidate;
        vstHistory.ClearSelection;
        vstHistory.FocusedNode := Node;
        vstHistory.Selected[Node] := True;
        vstHistory.TopNode := Node;
      end;
    end;

    // ইউজারকে জানিয়ে দেওয়া কতগুলো নতুন color যোগ হলো (merge মোডে বিশেষভাবে উপকারী)
    if DoMerge and (LoadedCount > 0) then
      Application.MessageBox(
        PChar(Format('%d new color(s) added to your list. Your existing colors and favourites were kept.', [LoadedCount])),
        CAPTION_INFROMATION, MB_OK or MB_ICONINFORMATION)
    else if DoMerge and (LoadedCount = 0) then
      Application.MessageBox(
        'All imported colors already exist in your list. Nothing new was added.',
        CAPTION_INFROMATION, MB_OK or MB_ICONINFORMATION);
  end;
end;




PROCEDURE TQCPUI.UpdateZoomLevelUI(RegCaption:string);
BEGIN
    FZoomLevel := RegistryReadInteger(REG_PATH_COLORPICKER, RegCaption, 3);
  if (FZoomLevel <> 3) and (FZoomLevel <> 6) and (FZoomLevel <> 9) then
    FZoomLevel := 3;
  if FZoomLevel = 3 then
  begin
    ZoomLvl3.Checked := True;
    ZoomLvl6.Checked := False;
    ZoomLvl9.Checked := False;
  end
  else if FZoomLevel = 6 then
  begin
    ZoomLvl3.Checked := False;
    ZoomLvl6.Checked := True;
    ZoomLvl9.Checked := False;
  end
  else if FZoomLevel = 9 then
  begin
    ZoomLvl3.Checked := False;
    ZoomLvl6.Checked := False;
    ZoomLvl9.Checked := True;
  end;
END;

procedure TQCPUI.LoadSettings;
 var HK: TShortCut;
 FormatIndex: Integer;
begin
    FThemeMode := RegistryReadInteger(REG_PATH_COLORPICKER, THEME_MODE_REG_NAME, -1);
    if FThemeMode = -1 then
    begin
      // Registry-তে কোনো value নেই -> এটাই First Run
      ApplyTheme(TM_SYSTEM);
      RegistryWriteInteger(REG_PATH_COLORPICKER, THEME_MODE_REG_NAME, FThemeMode);
    end
    else
      ApplyTheme(FThemeMode);

    //Code Syntax
    if RegistryReadInteger(REG_PATH_COLORPICKER,CODE_SYNTAX, 1) = 1 then IncludeColorCodeSyntax1.Checked := True else IncludeColorCodeSyntax1.Checked := False;
    //Auto Copy to clipboard Option
    if RegistryReadInteger(REG_PATH_COLORPICKER,AUTO_CLIPBOARD, 1) = 1 then AutoCopy1.Checked := True else AutoCopy1.Checked := False;


      if RegistryReadInteger(REG_PATH_COLORPICKER,USE_LOWERCASE, 1) = 1 then
      begin

       LowercaseColorCode1.Checked := True;
     // edtColorCode.CharCase:=TEditCharCase.ecLowerCase;
     end else
     begin
        LowercaseColorCode1.Checked := False;
    //  edtColorCode.CharCase:=TEditCharCase.ecUpperCase;
      end;


    //Selection Settings
     if RegistryReadInteger(REG_PATH_COLORPICKER,ISHIDE_SELECTION, 1) = 1 then
     begin
     HideSelectionBar1.Checked := True;
     vstHistory.ClearSelection;
     vstHistory.FocusedNode := nil;
     FPopupNode := nil;
     vstHistory.TreeOptions.PaintOptions :=[toAlwaysHideSelection, toHideFocusRect,toThemeAware,toUseBlendedSelection,toUseExplorerTheme];
     end else
     begin
      HideSelectionBar1.Checked := False;
      vstHistory.ClearSelection;
      vstHistory.FocusedNode := nil;
      FPopupNode := nil;
      vstHistory.TreeOptions.PaintOptions :=[toHideFocusRect,toThemeAware,toUseBlendedSelection,toUseExplorerTheme];
     end;


         // SHow Hint
    if RegistryReadInteger(REG_PATH_COLORPICKER,ISSHOW_HINT, 1) = 1 then
    begin
                ShowHint1.Checked:=True;
                ShowHint:=True;
                vstHistory.ShowHint:=True;
                pbMagnifier.ShowHint:=True;
    end else
    begin
                ShowHint1.Checked:=false;
                ShowHint:=false;
                vstHistory.ShowHint:=false;
                pbMagnifier.ShowHint:=false;
    end;


     // Top Most Control
    if RegistryReadInteger(REG_PATH_COLORPICKER,TOP_MOST, 1) = 1 then
    begin
    StayonTop1.Checked := True ;
    FormStyle:=fsStayOnTop;
    end else
    begin
    StayonTop1.Checked := False;
    FormStyle:=fsNormal;
    end;

    // Color Format
      FormatIndex := RegistryReadInteger(REG_PATH_COLORPICKER, COLOR_FORMAT, 0);
      if (FormatIndex < 0) or (FormatIndex >= cmbFormat.Items.Count) then  FormatIndex := 0;
      cmbFormat.ItemIndex := FormatIndex;

    //Zoom Level
    UpdateZoomLevelUI(ZOOM_LEVEL);

      //Assign Hotkeyy
        FHotkeyID := 1;
        HK := RegistryReadInteger(REG_PATH_COLORPICKER,COLOR_PICK_HOTKEY, 0);
        if HK = 0 then
        begin
          HK := ShortCut(Ord('C'), [ssCtrl, ssShift]);
          RegistryWriteInteger(REG_PATH_COLORPICKER, COLOR_PICK_HOTKEY, HK);
        end;
        ApplyHotKey(HK); FCurrentHotkey := HK;



    //UI UPDATE
    Caption:=MY_APP_NAME;
    btnCopy.Caption:=COPY_BUTTON_CAPTION;
    btnPickColor.Caption:='Pick Color (' +ShortCutToText(FCurrentHotkey) + ')';
    LiveRGBCode.Caption:='';
    LiveHEXCode.Caption:='';
    LiveDelphiCode.Caption:='';
    pbMagnifier.Hint:=SWITCH_PREVIEW_HINT;
    with vstHistory do
    begin
     ScrollBarOptions.AlwaysVisible:=True;
     ScrollBarOptions.ScrollBars:=ssVertical;
    Hint:=SWITCH_PREVIEW_HINT;
    end;
   Hint:=  'Press ' +ShortCutToText(FCurrentHotkey) +' to pick a color';
end;

procedure TQCPUI.LowercaseColorCode1Click(Sender: TObject);
begin
  LowercaseColorCode1.Checked := not LowercaseColorCode1.Checked;

  // Toggle করার সাথে সাথে edit box-এও নতুন case reflect করা হচ্ছে
  if edtColorCode.Text <> '' then
  SetColorCodeText(ConvertColor(FPickedColor, ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked, False));
  vstHistory.Invalidate;
end;


procedure TQCPUI.lvHistoryAdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  P: PHistoryItem;
  R: TRect;
begin
  DefaultDraw := False;

  if Stage <> cdPrePaint then
    Exit;

  P := PHistoryItem(Item.Data);

  if not Assigned(P) then
    Exit;

  R := Item.DisplayRect(drBounds);

  with Sender.Canvas do
  begin
    Brush.Color := P^.Color;
    FillRect(R);
    Font.Style := [];
    Font.Color := clWhite;
    TextOut(R.Left + 8, R.Top + 4,Item.Caption);
  end;
end;


procedure TQCPUI.lvHistoryDblClick(Sender: TObject);
begin
  if edtColorCode.Text <> '' then   Clipboard.AsText := edtColorCode.Text;
end;

procedure TQCPUI.lvHistorySelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  P: PHistoryItem;
begin
  if not Selected then Exit;
  P := PHistoryItem(Item.Data);
  if not Assigned(P) then Exit;
  // এটাকেই Last Picked Color বানাও
  FPickedColor := P^.Color;
  // বর্তমান ComboBox অনুযায়ী EditBox Update
  edtColorCode.Text :=ConvertColor(FPickedColor,ComboToColorFormat(cmbFormat.ItemIndex),IncludeColorCodeSyntax1.Checked);
  // PaintBox-এ Color Preview
  pbCurrentColor.Canvas.Brush.Color := FPickedColor;
  pbCurrentColor.Canvas.FillRect(pbCurrentColor.ClientRect);
end;


procedure TQCPUI.MagnifyPanelDblClick(Sender: TObject);
var
  S: string;
begin
  if MagnifyPanel.Align = alNone then
  begin
  Themes1.Enabled:=False;
    MagnifyPanel.Align := alClient;
    MagnifyPanel.BringToFront;
    CurrentColorPanel.BringToFront;

    // ফুলস্ক্রিন মোডে টাইটেল বার আপডেট
    if FPickedColor <> clWhite then
    begin
      S := ConvertColor(FPickedColor, ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked);
      UpdateTitleBar(S);
    end
    else
      Caption := MY_APP_NAME;
  end
  else
  begin
    Caption := MY_APP_NAME;
    Themes1.Enabled:=True;
    MagnifyPanel.Align := alNone;
    MagnifyPanel.SendToBack;
   // MagnifyPanel.SetBounds(109, 5, 101, 100);
    CurrentColorPanel.SendToBack;


    // নরমাল মোডে ফিরে গেলে ফোকাসড নোড অনুযায়ী টাইটেল বার আপডেট
    if Assigned(vstHistory.FocusedNode) then
      vstHistoryFocusChanged(vstHistory, vstHistory.FocusedNode, 0)
    else
      Caption := MY_APP_NAME;
  end;
end;



procedure TQCPUI.PickedColorViewDblClick(Sender: TObject);
var
  NewColor: TColor;
  S: string;
begin
  NewColor := FPickedColor;
  if TfrmColorPicker.Execute('Select Color - '+MY_APP_NAME, 'OK', NewColor) then
  begin
    if NewColor <> FPickedColor then
    begin
      ClearSearchFilter;
      FPickedColor := NewColor;
      PickedColorView.Invalidate;
      S := ConvertColor(FPickedColor,
                        ComboToColorFormat(cmbFormat.ItemIndex),
                        IncludeColorCodeSyntax1.Checked,
                        False);          // ← edit-box e code value
      SetColorCodeText(S);

      AddHistory(FPickedColor);

      if AutoCopy1.Checked then
        Clipboard.AsText := GetDisplayCasedColorCode(S);

      UpdateTitleBar(S);
      vstHistory.Invalidate;
    end;
  end;
end;




procedure TQCPUI.PickedColorViewPaint(Sender: TObject);
begin
  PickedColorView.Canvas.Brush.Color := FPickedColor;
  PickedColorView.Canvas.FillRect(PickedColorView.ClientRect);
end;




procedure TQCPUI.RefreshHistory;
begin
  vstHistory.Invalidate;
end;

procedure TQCPUI.RemoveDuplicateColors;
var
  Node, NextNode: PVirtualNode;
  Data: PHistoryItem;
  ColorSet: TStringList;
  ColorKey: string;
begin
  if vstHistory.RootNodeCount = 0 then
    Exit;

  ClearSearchFilter;

  ColorSet := TStringList.Create;
  try
    ColorSet.Sorted := True;
    ColorSet.Duplicates := dupIgnore;

    vstHistory.BeginUpdate;
    try
      Node := vstHistory.GetFirst;
      while Assigned(Node) do
      begin
        Data := vstHistory.GetNodeData(Node);
        if Assigned(Data) then
        begin
          ColorKey := IntToStr(Data^.Color);
          if ColorSet.IndexOf(ColorKey) = -1 then
          begin
            ColorSet.Add(ColorKey);
            Node := Node.NextSibling;
          end
          else
          begin
            NextNode := Node.NextSibling;
            vstHistory.DeleteNode(Node);
            Node := NextNode;
          end;
        end
        else
          Node := Node.NextSibling;
      end;
    finally
      vstHistory.EndUpdate;
    end;

    SaveHistoryToDefaultIni;

    if vstHistory.RootNodeCount > 0 then
    begin
      Node := vstHistory.GetFirst;
      if Assigned(Node) then
      begin
        Data := vstHistory.GetNodeData(Node);
        if Assigned(Data) then
        begin
          FPickedColor := Data^.Color;
          SetColorCodeText(ConvertColor(FPickedColor,
            ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked, False));
          PickedColorView.Invalidate;
          vstHistory.FocusedNode := Node;
          vstHistory.Selected[Node] := True;
        end;
      end;
    end
    else
    begin
      FPickedColor := clWhite;
      SetColorCodeText(ConvertColor(clWhite,
        ComboToColorFormat(cmbFormat.ItemIndex), IncludeColorCodeSyntax1.Checked, False));
      PickedColorView.Invalidate;
      Caption := MY_APP_NAME;
    end;

    vstHistory.Invalidate;
  finally
    ColorSet.Free;
  end;
end;

procedure TQCPUI.RemoveDuplicateColors1Click(Sender: TObject);
begin
  if vstHistory.RootNodeCount = 0 then
  begin
  Application.MessageBox(LIST_ALREADY_EMPTY, CAPTION_INFROMATION, mb_ok or MB_ICONINFORMATION);
    Exit;
  end;
//  if MessageDlg(REMOVE_DUPLICATE_COLORS_CONFIRMATION,mtWarning, [mbYes, mbNo], 0) = mrNo then Exit;
  RemoveDuplicateColors;
end;



procedure TQCPUI.Removethiscolor1Click(Sender: TObject);
var
  Node: PVirtualNode;
  Data: PHistoryItem;
  IsFavourite: Boolean;
begin
  IsFavourite := False;

  if ((Trim(edtSearchColor.Text) <> '') and
      (edtSearchColor.Font.Color <> clGray) and
      (edtSearchColor.Text <> SEARCH_EDITBOX_PLACEHOLDER)) or FShowFavouritesOnly then
  begin
    Node := vstHistory.FocusedNode;
    if Assigned(Node) and (not vstHistory.IsVisible[Node]) then
      Node := FindFirstVisibleNode;

    if Assigned(Node) then
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) then
        IsFavourite := Data^.Favourite;
    end;

    // ← পরিবর্তন: FShowFavouritesOnly checked থাকলে confirmation স্কিপ করবে
    if IsFavourite and (not FShowFavouritesOnly) then
    begin
      if Application.MessageBox(REMOVE_FAVOURITE_COLORS_CONFIRMATION, CAPTION_CONFIRMATION, MB_YESNO or MB_ICONQUESTION) = IDNO then
        Exit;
    end;

    DeleteFilteredItem;
  end
  else
  begin
    if Assigned(FPopupNode) then
    begin
      Data := vstHistory.GetNodeData(FPopupNode);
      if Assigned(Data) and Data^.Favourite then
      begin
        if Application.MessageBox(REMOVE_FAVOURITE_COLORS_CONFIRMATION, CAPTION_CONFIRMATION, MB_YESNO or MB_ICONQUESTION) = IDNO then
          Exit;
      end;
      DeleteNormalItem(FPopupNode);
    end;
  end;
end;

procedure TQCPUI.SaveHistoryToDefaultIni;
var
  Ini: TIniFile;
  Node: PVirtualNode;
  Data: PHistoryItem;
  I: Integer;
begin
  try
    Ini := TIniFile.Create(FHistoryIni);
    try
      Ini.EraseSection('Colors');
      Ini.EraseSection('Comments');
      Ini.EraseSection('Favourites');

      I := 0;
      Node := vstHistory.GetFirst;

      while Assigned(Node) do
      begin
        Data := vstHistory.GetNodeData(Node);

        if Assigned(Data) then
        begin
          Ini.WriteString('Colors', 'Color' + IntToStr(I), ConvertColor(Data^.Color, cfHEX));
          Ini.WriteString('Comments', 'Comment' + IntToStr(I), Data^.Comment);
          if Data^.Favourite then
            Ini.WriteString('Favourites', 'Color' + IntToStr(I), FAVOURITE_MARK);
          Inc(I);
        end;

        Node := Node.NextSibling;
      end;

      Ini.WriteInteger('Colors', 'Count', I);
    finally
      Ini.Free;
    end;
  except
    on E: Exception do
    begin
      // Disk full, permission denied, antivirus lock ইত্যাদি হলে app crash না করে
      // user-কে জানিয়ে দেওয়া হচ্ছে যে history save হয়নি
      Application.MessageBox(
        PChar('Failed to save your color history.' + sLineBreak +
              'Reason: ' + E.Message + sLineBreak + sLineBreak +
              'Your colors in this session are still safe, but they may not persist ' +
              'after you close the application.'),
        'Save Error', MB_OK or MB_ICONWARNING);
    end;
  end;
end;


procedure TQCPUI.ExportPickedColorList(const AFileName: string);
var
  Ini: TIniFile;
  Node: PVirtualNode;
  Data: PHistoryItem;
  I: Integer;
  ColorFormat: TColorFormat;
  FormatName: string;
  LineValue: string;
begin
  Ini := TIniFile.Create(AFileName);
  try
    Ini.EraseSection('Colors');
    Ini.EraseSection('Comments');

    ColorFormat :=ComboToColorFormat(cmbFormat.ItemIndex);

    case ColorFormat of
      cfHEX:    FormatName := 'HEX';
      cfRGB:    FormatName := 'RGB';
      cfDelphi: FormatName := 'Delphi';
      cfHSL:    FormatName := 'HSL';
      cfHSL240: FormatName := 'HSL240';
      cfHSV:    FormatName := 'HSV';
      cfCMYK:   FormatName := 'CMYK';
      cfCMY:    FormatName := 'CMY';
    else
      FormatName := 'HEX';
    end;

    Ini.WriteString('Colors','Format',FormatName);
    I := 0;
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) then
      begin
        LineValue := ConvertColor(Data^.Color, ColorFormat, True);

        if Trim(Data^.Comment) <> '' then
          LineValue := LineValue + #9#9 + Data^.Comment;

        // ← নতুন: Favourite হলে শেষে ★ যোগ (Comment না থাকলেও সরাসরি Color-এর পর)
        if Data^.Favourite then
          LineValue := LineValue + #9#9 + FAVOURITE_MARK;

        Ini.WriteString('Colors', 'Color' + IntToStr(I), LineValue);
        Inc(I);
      end;

      Node := Node.NextSibling;
    end;
    Ini.WriteInteger('Colors','Count',I);
  finally
    Ini.Free;
  end;
end;



procedure TQCPUI.SetDefaultWhiteColor;
begin
  FPickedColor := clWhite;
  edtColorCode.Text :=ConvertColor(clWhite,ComboToColorFormat(cmbFormat.ItemIndex),
  IncludeColorCodeSyntax1.Checked, False);

  PickedColorView.Canvas.Brush.Color := clWhite;
  PickedColorView.Canvas.FillRect(
    PickedColorView.ClientRect);
end;





procedure TQCPUI.ShowCommentedColorsOnly1Click(Sender: TObject);
var
  Node: PVirtualNode;
  Data: PHistoryItem;
  CommentedCount: Integer;
begin
  if not ShowCommentedColorsOnly1.Checked then
  begin
    CommentedCount := 0;
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) and (Trim(Data^.Comment) <> '') then
        Inc(CommentedCount);
      Node := Node.NextSibling;
    end;

    if CommentedCount = 0 then
    begin
      Application.MessageBox('No commented colors found in your list.', CAPTION_INFROMATION, MB_OK OR MB_ICONINFORMATION);
      Exit;
    end;
  end;

  ShowCommentedColorsOnly1.Checked := not ShowCommentedColorsOnly1.Checked;
  FShowCommentedOnly := ShowCommentedColorsOnly1.Checked;
  FilterHistory;
end;

procedure TQCPUI.ShowFavouritesColorsOnly1Click(Sender: TObject);
var
  Node: PVirtualNode;
  Data: PHistoryItem;
  FavouriteCount: Integer;
begin
  if not ShowFavouritesColorsOnly1.Checked then
  begin
    FavouriteCount := 0;
    Node := vstHistory.GetFirst;
    while Assigned(Node) do
    begin
      Data := vstHistory.GetNodeData(Node);
      if Assigned(Data) and Data^.Favourite then
        Inc(FavouriteCount);
      Node := Node.NextSibling;
    end;

    if FavouriteCount = 0 then
    begin
    Application.MessageBox(FAVOURITE_COLOR_LIST_IS_EMPTY, CAPTION_INFROMATION, MB_OK OR MB_ICONINFORMATION);
      Exit;
    end;
  end;
  // Favourite থাকলে (বা আগে থেকেই ON থাকলে OFF করার ক্ষেত্রে) স্বাভাবিকভাবে টগল করি
  ShowFavouritesColorsOnly1.Checked := not ShowFavouritesColorsOnly1.Checked;
  FShowFavouritesOnly := ShowFavouritesColorsOnly1.Checked;
  FilterHistory;
end;

procedure TQCPUI.ShowHint1Click(Sender: TObject);
begin
        if not ShowHint1.Checked then
        begin
               ShowHint1.Checked:=True;
               ShowHint:=True;
                vstHistory.ShowHint:=True;
                pbMagnifier.ShowHint:=True;
        end else
        begin
                ShowHint1.Checked:=false;
               ShowHint:=false;
                vstHistory.ShowHint:=false;
                pbMagnifier.ShowHint:=false;
        end;




end;





function TQCPUI.ShowImportColorDialog(const AFileName: string): TImportMode;
var
  TD: TTaskDialog;
  FileName: string;
begin
  Result := imCancel;

  // ফাইলের নাম থেকে এক্সটেনশন বাদ দিয়ে শুধু নাম নেওয়া
  FileName := ExtractFileName(AFileName);

  TD := TTaskDialog.Create(nil);
  try
    TD.Caption := CAPTION_INFROMATION;
    TD.Title := Format('Import "%s"', [FileName]);   // ← ডায়নামিক টাইটেল
    TD.Text :=
      'Your current color list already contains colors, including favourites.' + sLineBreak +
      'Choose how you would like to import this color list.';

    TD.MainIcon := tdiInformation;
    TD.CommonButtons := [tcbCancel];

    with TD.Buttons.Add do
    begin
      Caption := 'Add to Existing List';
      ModalResult := mrYes;
    end;

    with TD.Buttons.Add do
    begin
      Caption := 'Clean Import';
      ModalResult := mrNo;
    end;

    TD.Execute;

    case TD.ModalResult of
      mrYes:
        Result := imMerge;

      mrNo:
        Result := imReplace;

      mrCancel:
        Result := imCancel;
    end;

  finally
    TD.Free;
  end;
end;

procedure TQCPUI.StayonTop1Click(Sender: TObject);
begin
if StayonTop1.Checked = false then
begin
      StayonTop1.Checked:= True;
      FormStyle:=fsStayOnTop;
end else
begin
        StayonTop1.Checked:= false;
      FormStyle:=fsNormal;
end;


end;

procedure TQCPUI.SystemDefault1Click(Sender: TObject);
begin
 ApplyTheme(TM_SYSTEM);  RegistryWriteInteger(REG_PATH_COLORPICKER, THEME_MODE_REG_NAME, FThemeMode);
  //System Default Theme
end;

procedure TQCPUI.tmrColorTimer(Sender: TObject);
begin
 UpdateCurrentColor;
 UpdateMagnifier;
end;



procedure TQCPUI.UpdateCurrentColor;
var
  DC: HDC;
  Pt: TPoint;
  PixelColor: COLORREF;
begin
  GetCursorPos(Pt);

  if Assigned(FScreenCapture) then
    PixelColor := GetSnapshotPixel(Pt)          // picking mode: snapshot থেকে
  else
  begin
    DC := GetDC(0);                             // normal mode: লাইভ ডেস্কটপ থেকে
    try
      PixelColor := GetPixel(DC, Pt.X, Pt.Y);
    finally
      ReleaseDC(0, DC);
    end;
  end;

  FLiveColor := TColor(PixelColor);

  LiveRGBCode.Caption := ConvertColor(FLiveColor, cfRGB);
  LiveHEXCode.Caption := 'HEX: ' + ConvertColor(FLiveColor, cfHEX);
  LiveDelphiCode.Caption := 'Delphi: ' + ConvertColor(FLiveColor, cfDelphi);

  pbCurrentColor.Canvas.Lock;
  try
    pbCurrentColor.Canvas.Brush.Color := FLiveColor;
    pbCurrentColor.Canvas.FillRect(pbCurrentColor.ClientRect);
  finally
    pbCurrentColor.Canvas.Unlock;
  end;
end;


procedure TQCPUI.UpdateMagnifier;
var
  DC: HDC;
  SrcRect, DstRect, ClientR: TRect;
  Pt: TPoint;
  ZoomSize, HalfW, HalfH: Integer;
begin
  GetCursorPos(Pt);

  case FZoomLevel of
    3: ZoomSize := 9;
    6: ZoomSize := 6;
    9: ZoomSize := 3;
  else
    ZoomSize := 6;
  end;

  ClientR := pbMagnifier.ClientRect;
  if (ClientR.Width <= 0) or (ClientR.Height <= 0) then
    Exit;

  FMagnifierBuffer.SetSize(ClientR.Width, ClientR.Height);

  // ===== মূল fix: DstRect = পুরো ClientRect (কোনো letterbox/ফাঁকা বার নেই) =====
  DstRect := ClientR;

  // Source rectangle-এর aspect ratio এখন DstRect-এর aspect ratio অনুযায়ী মেলানো হচ্ছে,
  // তাই zoom factor X ও Y দুই দিকেই সমান থাকবে (no flatten), আর box পুরো fill হবে।
  // Height-কে base ধরে (ZoomSize অনুযায়ী), Width-কে সেই অনুপাতে বাড়ানো হচ্ছে।
  HalfH := ZoomSize;
  HalfW := Round(ZoomSize * (ClientR.Width / ClientR.Height));
  if HalfW < 1 then HalfW := 1;

  // ===== সব drawing off-screen buffer-এ =====
  FMagnifierBuffer.Canvas.Brush.Color := clBtnFace;
  FMagnifierBuffer.Canvas.FillRect(ClientR);

  if Assigned(FScreenCapture) then
  begin
    Pt.X := Pt.X - FCaptureOrigin.X;
    Pt.Y := Pt.Y - FCaptureOrigin.Y;

    SrcRect := Rect(Pt.X - HalfW, Pt.Y - HalfH,
                     Pt.X + HalfW + 1, Pt.Y + HalfH + 1);

    StretchBlt(FMagnifierBuffer.Canvas.Handle, DstRect.Left, DstRect.Top,
      DstRect.Width, DstRect.Height,
      FScreenCapture.Canvas.Handle, SrcRect.Left, SrcRect.Top,
      SrcRect.Width, SrcRect.Height, SRCCOPY);
  end
  else
  begin
    DC := GetDC(0);
    try
      SrcRect := Rect(Pt.X - HalfW, Pt.Y - HalfH,
                       Pt.X + HalfW + 1, Pt.Y + HalfH + 1);

      StretchBlt(FMagnifierBuffer.Canvas.Handle, DstRect.Left, DstRect.Top,
        DstRect.Width, DstRect.Height,
        DC, SrcRect.Left, SrcRect.Top, SrcRect.Width, SrcRect.Height, SRCCOPY);
    finally
      ReleaseDC(0, DC);
    end;
  end;

  with FMagnifierBuffer.Canvas do
  begin
    Pen.Color := clRed;
    Pen.Width := 1;
    MoveTo(DstRect.Left + DstRect.Width div 2, DstRect.Top);
    LineTo(DstRect.Left + DstRect.Width div 2, DstRect.Bottom);
    MoveTo(DstRect.Left, DstRect.Top + DstRect.Height div 2);
    LineTo(DstRect.Right, DstRect.Top + DstRect.Height div 2);
  end;

  // ===== এক ধাক্কায় স্ক্রিনে বসানো (flicker-free) =====
  BitBlt(pbMagnifier.Canvas.Handle, 0, 0, ClientR.Width, ClientR.Height,
    FMagnifierBuffer.Canvas.Handle, 0, 0, SRCCOPY);
end;

{
procedure TQCPUI.UpdateMagnifier;
var
  DC: HDC;
  SrcRect, DstRect: TRect;
  Pt: TPoint;
  ZoomSize: Integer;
begin
  GetCursorPos(Pt);

  case FZoomLevel of
    3: ZoomSize := 9;
    6: ZoomSize := 6;
    9: ZoomSize := 3;
  else
    ZoomSize := 6;
  end;

  DstRect := pbMagnifier.ClientRect;

  if Assigned(FScreenCapture) then
  begin
    Pt.X := Pt.X - FCaptureOrigin.X;
    Pt.Y := Pt.Y - FCaptureOrigin.Y;

    SrcRect := Rect(Pt.X - ZoomSize, Pt.Y - ZoomSize,
                     Pt.X + ZoomSize + 1, Pt.Y + ZoomSize + 1);

    StretchBlt(pbMagnifier.Canvas.Handle, DstRect.Left, DstRect.Top,
      DstRect.Width, DstRect.Height,
      FScreenCapture.Canvas.Handle, SrcRect.Left, SrcRect.Top,
      SrcRect.Width, SrcRect.Height, SRCCOPY);
  end
  else
  begin
    DC := GetDC(0);
    try
      SrcRect := Rect(Pt.X - ZoomSize, Pt.Y - ZoomSize,
                       Pt.X + ZoomSize + 1, Pt.Y + ZoomSize + 1);

      StretchBlt(pbMagnifier.Canvas.Handle, DstRect.Left, DstRect.Top,
        DstRect.Width, DstRect.Height,
        DC, SrcRect.Left, SrcRect.Top, SrcRect.Width, SrcRect.Height, SRCCOPY);
    finally
      ReleaseDC(0, DC);
    end;
  end;

  with pbMagnifier.Canvas do
  begin
    Pen.Color := clRed;
    Pen.Width := 1;
    MoveTo(pbMagnifier.Width div 2, 0);
    LineTo(pbMagnifier.Width div 2, pbMagnifier.Height);
    MoveTo(0, pbMagnifier.Height div 2);
    LineTo(pbMagnifier.Width, pbMagnifier.Height div 2);
  end;
end;   }



procedure TQCPUI.vstHistoryBeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
var
  Data: PHistoryItem;
begin
  Data := Sender.GetNodeData(Node);

  if not Assigned(Data) then
    Exit;

  TargetCanvas.Brush.Color := Data^.Color;
  TargetCanvas.FillRect(CellRect);
end;

procedure TQCPUI.vstHistoryDblClick(Sender: TObject);
begin

 if vstHistory.Align = alNone then
 begin
     if LastSearchedColor<>'' then
     begin
        edtSearchColor.Font.Color:=clWindowText;
       edtSearchColor.Text:= LastSearchedColor;
     end else
     begin
        edtSearchColor.Font.Color:=clGray;
        edtSearchColor.Text:=SEARCH_EDITBOX_PLACEHOLDER;
     end;
      edtSearchColor.Visible:=True;
      Themes1.Enabled:=False;

      vstHistory.Align := alClient ;

 end
else
begin
   LastSearchedColor:=edtSearchColor.Text;
   edtSearchColor.Visible:=False;
   ClearSearchFilter;
   Themes1.Enabled:=True;
   vstHistory.Align := alNone;
  // vstHistory.SetBounds(213, 5, 175, 100);

end;



end;

procedure TQCPUI.vstHistoryExit(Sender: TObject);
var
  SearchText: string;
begin
  SearchText := Trim(edtSearchColor.Text);
  vstHistory.BeginUpdate;
  try
    vstHistory.ClearSelection;
    vstHistory.FocusedNode := nil;
    FPopupNode := nil;
    Removethiscolor1.Enabled := False;
    CopytoClipboard1.Enabled := False;
    CommenttoColor1.Enabled := False;
  finally
    vstHistory.EndUpdate;
  end;
  //if (SearchText <> '') and (SearchText <> SEARCH_EDITBOX_PLACEHOLDER) then  Caption := MY_APP_NAME + ' - Search: ' + SearchText  else  Caption := MY_APP_NAME;
end;




procedure TQCPUI.vstHistoryFocusChanged(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex);
var
  Data: PHistoryItem;
  S: string;
begin
  FPopupNode := Node;

  if Node = nil then
  begin
    Caption := MY_APP_NAME;
    Exit;
  end;
  if not vstHistory.IsVisible[Node] then
  begin
    Node := FindFirstVisibleNode;
    if Assigned(Node) then
    begin
      vstHistory.ClearSelection;
      vstHistory.FocusedNode := Node;
      vstHistory.Selected[Node] := True;
      Exit;
    end
    else
    begin
      Caption := MY_APP_NAME;
      Exit;
    end;
  end;

  Data := Sender.GetNodeData(Node);

  if not Assigned(Data) then
  begin
    Caption := MY_APP_NAME;
    Exit;
  end;

  FPickedColor := Data^.Color;
  S := ConvertColor(FPickedColor, ComboToColorFormat(cmbFormat.ItemIndex),
                    IncludeColorCodeSyntax1.Checked, False);
  SetColorCodeText(S);
  PickedColorView.Invalidate;
  UpdateTitleBar(S);
end;








procedure TQCPUI.vstHistoryFreeNode(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
  Data: PHistoryItem;
begin
  Data := Sender.GetNodeData(Node);
  if Assigned(Data) then
    Finalize(Data^);
end;


procedure TQCPUI.vstHistoryGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
  Data: PHistoryItem;
  ColorCode: string;
begin
  Data := Sender.GetNodeData(Node);
  if not Assigned(Data) then
    Exit;

  ColorCode := GetDisplayCasedColorCode(
    ConvertColor(
      Data^.Color,
      ComboToColorFormat(cmbFormat.ItemIndex),
      IncludeColorCodeSyntax1.Checked
    ));

  CellText := ColorCode;

  if Trim(Data^.Comment) <> '' then
    CellText := CellText + ' - ' + Data^.Comment;

  if Data^.Favourite then
    CellText := CellText + '  ★';
end;

procedure TQCPUI.vstHistoryMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  HitInfo: THitInfo;
  Node: PVirtualNode;
begin
  vstHistory.GetHitTestInfoAt(X, Y, True, HitInfo);
  Node := HitInfo.HitNode;
  if Assigned(Node) and (hiOnItem in HitInfo.HitPositions) then
  begin
    FPopupNode := Node;
    Removethiscolor1.Enabled := True;
    CopytoClipboard1.Enabled := True;
    CommenttoColor1.Enabled := True;

    vstHistory.SetFocus;
    vstHistory.ClearSelection;
    vstHistory.FocusedNode := Node;
    vstHistory.Selected[Node] := True;
  end
  else
  begin
    FPopupNode := nil;
    Removethiscolor1.Enabled := False;
    CopytoClipboard1.Enabled := False;
    CommenttoColor1.Enabled := False;

    vstHistory.ClearSelection;
    vstHistory.FocusedNode := nil;
    Caption := MY_APP_NAME;
  end;
end;

procedure TQCPUI.vstHistoryPaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
var
  Data: PHistoryItem;
begin
  Data := Sender.GetNodeData(Node);

  if not Assigned(Data) then
    Exit;

  TargetCanvas.Font.Color :=
    GetContrastColor(Data^.Color);
end;
procedure TQCPUI.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = HOTKEY_CAPTURE then
    CaptureCurrentColor;
end;





end.