From 9b5f47de20b6e473538256ab731789fc93844cee Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Mon, 28 Feb 2011 12:38:01 +0000
Subject: [PATCH] Patch from Alexsander Rosa, adds a Tag property to
 TGridColumn

git-svn-id: trunk@29692 -
---
 lcl/grids.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index f9f09b1b89..3bd89b42af 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -429,7 +429,7 @@ type
     FPickList: TStrings;
     FMinSize, FMaxSize, FSizePriority: ^Integer;
     FValueChecked,FValueUnchecked: PChar;
-
+    FTag: Integer;
     procedure FontChanged(Sender: TObject);
     function GetAlignment: TAlignment;
     function GetColor: TColor;
@@ -515,6 +515,7 @@ type
     property PickList: TStrings read GetPickList write SetPickList;
     property ReadOnly: Boolean read GetReadOnly write SetReadOnly stored IsReadOnlyStored;
     property SizePriority: Integer read GetSizePriority write SetSizePriority stored IsSizePriorityStored default 1;
+    property Tag: Integer read FTag write FTag default 0;
     property Title: TGridColumnTitle read FTitle write SetTitle;
     property Width: Integer read GetWidth write SetWidth stored IsWidthStored default DEFCOLWIDTH;
     property Visible: Boolean read GetVisible write SetVisible stored IsVisibleStored default true;