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.

---
 extras/tiopf/demos/ListControlDemo/frmMain.pas         |  4 ++--
 extras/tiopf/demos/ListControlDemo/listcontroldemo.lpi | 15 ++++++++-------
 2 files changed, 10 insertions(+), 9 deletions(-)

(limited to 'extras')

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"/>
-- 
cgit v1.2.3-70-g09d2