From f65aed0d3abdf09214e1683ca0e463f5933711fd Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Mon, 29 Jun 2020 14:50:38 +0200
Subject: [PATCH] Issue #618: exchange sort arrows on data grid headers

---
 source/main.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index a18a78d3..3eb45294 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -5384,9 +5384,9 @@ begin
     if SortIndex > -1 then begin
       Inc(SortArea.Left, SortArea.Width - Sender.Images.Width);
       if DataGridSortColumns[SortIndex].SortDirection = ORDER_ASC then
-        SortText := '▼'
+        SortText := '▲'
       else
-        SortText := '▲';
+        SortText := '▼';
       SortText := IfThen(SortIndex<9, NumSort[SortIndex], NumSort[9]) + SortText;
       SetTextColor(DC, ColorToRGB(clGrayText));
       PaintInfo.TargetCanvas.TextOut(SortArea.Left, SortArea.Top, SortText);