From 214510635fcf4c37bef52ee7be7ab1be280e9d55 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Fri, 1 Feb 2008 21:52:46 +0000
Subject: * Fixed old Color property to TextColor. * Created new TfpgComponent
 class with TagPointer property.   TagPointer is like TComponent.Tag but just
 a pointer instead   of Integer.

---
 examples/gui/alignment/aligntest.lpr                   |  2 +-
 extras/tiopf/demos/ListControlDemo/frmMain.pas         |  4 ++--
 extras/tiopf/demos/ListControlDemo/listcontroldemo.lpi | 15 ++++++++-------
 src/corelib/gfxbase.pas                                | 10 ++++++++--
 4 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/examples/gui/alignment/aligntest.lpr b/examples/gui/alignment/aligntest.lpr
index 60d98ba5..a13b5ffd 100644
--- a/examples/gui/alignment/aligntest.lpr
+++ b/examples/gui/alignment/aligntest.lpr
@@ -78,7 +78,7 @@ begin
   lblClient.Align := alClient;
 
   lblNone := CreateLabel(self, 15, 120, 'Resize the form to see Align in action');
-  lblNone.Color := clWhite;
+  lblNone.TextColor := clWhite;
   lblNone.BackgroundColor := clBlack;
 end;
 
diff --git a/extras/tiopf/demos/ListControlDemo/frmMain.pas b/extras/tiopf/demos/ListControlDemo/frmMain.pas
index 49797cfc..ddb9d91a 100644
--- a/extras/tiopf/demos/ListControlDemo/frmMain.pas
+++ b/extras/tiopf/demos/ListControlDemo/frmMain.pas
@@ -166,8 +166,8 @@ begin
   AgeTrackBar.ShowPosition := True;
   AgeTrackBar.Enabled := False;
 
-  CreateLabel(self, edtName.Right + 30, edtName.Top, 'These components observe the ').Color := clBlue;
-  CreateLabel(self, edtName.Right + 30, AgeTrackBar.Top-5, 'selected item of ComboBox').Color := clBlue;
+  CreateLabel(self, edtName.Right + 30, edtName.Top, 'These components observe the ').TextColor := clBlue;
+  CreateLabel(self, edtName.Right + 30, AgeTrackBar.Top-5, 'selected item of ComboBox').TextColor := clBlue;
   
   cbPeople := TfpgComboBox.Create(self);
   cbPeople.Top          := AgeTrackBar.Bottom + 17;
diff --git a/extras/tiopf/demos/ListControlDemo/listcontroldemo.lpi b/extras/tiopf/demos/ListControlDemo/listcontroldemo.lpi
index 4a51b108..ce2c1eaf 100644
--- a/extras/tiopf/demos/ListControlDemo/listcontroldemo.lpi
+++ b/extras/tiopf/demos/ListControlDemo/listcontroldemo.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
+    <PathDelim Value="\"/>
     <Version Value="5"/>
     <General>
       <Flags>
@@ -9,7 +9,7 @@
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
+      <IconPath Value=".\"/>
       <TargetFileExt Value=""/>
     </General>
     <VersionInfo>
@@ -23,7 +23,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -44,17 +44,17 @@
         <UnitName Value="frmMain"/>
       </Unit1>
       <Unit2>
-        <Filename Value="../Common/Model_View.pas"/>
+        <Filename Value="..\Common\Model_View.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="Model_View"/>
       </Unit2>
       <Unit3>
-        <Filename Value="../Common/Constants.pas"/>
+        <Filename Value="..\Common\Constants.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="Constants"/>
       </Unit3>
       <Unit4>
-        <Filename Value="../Common/Model.pas"/>
+        <Filename Value="..\Common\Model.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="Model"/>
       </Unit4>
@@ -62,8 +62,9 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <PathDelim Value="\"/>
     <SearchPaths>
-      <OtherUnitFiles Value="../Common/"/>
+      <OtherUnitFiles Value="..\Common\"/>
     </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 1f173fa0..20ca5301 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -303,9 +303,15 @@ type
   end;
 
 
-  { TfpgWindowBase }
+  TfpgComponent = class(TComponent)
+  private
+    FTagPointer: Pointer;
+  public
+    property    TagPointer: Pointer read FTagPointer write FTagPointer;
+  end;
+
 
-  TfpgWindowBase = class(TComponent)
+  TfpgWindowBase = class(TfpgComponent)
   private
     FParent: TfpgWindowBase;
     procedure   SetMouseCursor(const AValue: TMouseCursor);
-- 
cgit v1.2.3-70-g09d2