From 004ed4fa3e257452fd005f26e82a9c4a8e9e8f0c Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Wed, 16 Mar 2005 16:14:50 +0000
Subject: [PATCH] tabstop default for focusable controls is true (spinedit)

git-svn-id: trunk@6966 -
---
 lcl/include/spinedit.inc | 1 +
 lcl/spin.pp              | 1 +
 2 files changed, 2 insertions(+)

diff --git a/lcl/include/spinedit.inc b/lcl/include/spinedit.inc
index 23dffa86c4..bd736d8a88 100644
--- a/lcl/include/spinedit.inc
+++ b/lcl/include/spinedit.inc
@@ -213,6 +213,7 @@ begin
 
   SetInitialBounds(0,0,50,20);
   ParentColor := false;
+  TabStop := true;
 end;
 
 {-----------------------------------------------------------------------------}
diff --git a/lcl/spin.pp b/lcl/spin.pp
index e714ece5e4..40e769656a 100644
--- a/lcl/spin.pp
+++ b/lcl/spin.pp
@@ -94,6 +94,7 @@ type
     property Climb_Rate : Single read fClimbRate write SetClimbRate stored Climb_RateIsStored;
     property MinValue: single read FMinValue write SetMinValue stored MinValueIsStored;
     property MaxValue: single read FMaxValue write SetMaxValue stored MaxValueIsStored;
+    property TabStop default true;
     property Value: Single read GetValue write SetValue stored ValueIsStored;
     property ValueEmpty: boolean read FValueEmpty write SetValueEmpty default False;
   end;