From 5536205f57378f2a60cc69ace0d6be2dec4a8fd7 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 20 Feb 2008 08:19:48 +0000
Subject: * Applied Vladimir's patch for arrow key support in RadioButtons. *
 TfpgWidget.TabOrder is now set at creation time. * Published the TabOrder
 property for all components that can receive keyboard input. * Extended the
 UI Designer so the TabOrder property can be edited.

---
 prototypes/fpgui2/tests/edittest.lpi | 9 ++++-----
 prototypes/fpgui2/tests/edittest.lpr | 3 +++
 2 files changed, 7 insertions(+), 5 deletions(-)

(limited to 'prototypes')

diff --git a/prototypes/fpgui2/tests/edittest.lpi b/prototypes/fpgui2/tests/edittest.lpi
index 8b8c2d24..2879bbde 100644
--- a/prototypes/fpgui2/tests/edittest.lpi
+++ b/prototypes/fpgui2/tests/edittest.lpi
@@ -1,15 +1,15 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
-    <Version Value="5"/>
+    <PathDelim Value="/"/>
+    <Version Value="6"/>
     <General>
       <Flags>
         <SaveOnlyProjectUnits Value="True"/>
       </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">
@@ -47,7 +47,6 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>
diff --git a/prototypes/fpgui2/tests/edittest.lpr b/prototypes/fpgui2/tests/edittest.lpr
index aa0dddbf..dd407ad8 100644
--- a/prototypes/fpgui2/tests/edittest.lpr
+++ b/prototypes/fpgui2/tests/edittest.lpr
@@ -485,8 +485,11 @@ procedure TMainForm.AfterCreate;
   checkbox2  := CreateCheckBox(self, 10, 285, 'Checkbox Two');
   
   radiobtn1 := CreateRadioButton(self, 180, 265, 'Radio One');
+  radiobtn1.GroupIndex := 2;
   radiobtn2 := CreateRadioButton(self, 180, 285, 'Radio Two');
+  radiobtn2.GroupIndex := 2;
   radiobtn3 := CreateRadioButton(self, 180, 305, 'Radio Three');
+  radiobtn3.GroupIndex := 2;
   radiobtn1.Checked := True;
   
   trackbar1 := TfpgTrackBar.Create(self);
-- 
cgit v1.2.3-54-g00ecf