From 895b31f8f4f113dfa646cc0cca00922fa425b862 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 9 Feb 2009 14:59:27 +0000
Subject: [PATCH] lcl: add protected field TStatusPanel.FIntfFlag to store
 useful flags in the status panels by interfaces (needs in the next commit)

git-svn-id: trunk@18618 -
---
 lcl/comctrls.pp             | 2 ++
 lcl/include/statuspanel.inc | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 45c6ec9f9b..616d620b80 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -79,6 +79,8 @@ type
     procedure SetText(const Value: string);
     procedure SetWidth(Value: Integer);
   protected
+    // field to use by interface. dont use it in the LCL
+    FIntfFlag: Integer;
     function GetDisplayName: string; override;
     procedure PanelChanged(const Parts: TPanelParts);
     procedure SetIndex(Value: Integer); override;
diff --git a/lcl/include/statuspanel.inc b/lcl/include/statuspanel.inc
index 9e25330aab..31728e59be 100644
--- a/lcl/include/statuspanel.inc
+++ b/lcl/include/statuspanel.inc
@@ -25,6 +25,7 @@ begin
   FBevel := pbLowered;
   FParentBiDiMode := True;
   FAlignment := taLeftJustify;
+  FIntfFlag := 0;
   inherited Create(aCollection);
   
   AStatusBar:=StatusBar;
@@ -150,4 +151,4 @@ begin
     Changed(True);
     PanelChanged([ppWidth]);
   end;
-end;
\ No newline at end of file
+end;