enable tabstops for controls; implement tabstops in win32 intf

git-svn-id: trunk@5082 -

lcl/buttons.pp

@@ -94,7 +94,7 @@ type
     property Cancel : Boolean read FCancel write FCancel default False;
     property Caption;
     property Font;
-    property TabStop;
+    property TabStop default true;
     property TabOrder;
     property PopupMenu;
     property ShowHint;
@@ -306,6 +306,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.54  2004/01/21 10:19:15  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.53  2003/11/15 13:07:09  mattias
   added ambigious unit check for IDE
 

lcl/comctrls.pp

@@ -542,6 +542,8 @@ type
     procedure BeginUpdate;
     procedure EndUpdate;
     property Selected: TListItem read GetSelection write SetSelection;
+  published
+    property TabStop default true;
   end;
 
 
@@ -1785,6 +1787,8 @@ type
     property SeparatorColor: TColor read fSeparatorColor write SetSeparatorColor default clGray;
     property TopItem: TTreeNode read GetTopItem write SetTopItem;
     property TreeLineColor: TColor read FTreeLineColor write FTreeLineColor default clWindowFrame;
+  published
+    property TabStop default true;
   end;
 
 
@@ -1966,6 +1970,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.103  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.102  2004/01/12 13:43:12  mattias
   improved and activated new statusbar
 

lcl/extctrls.pp

@@ -199,6 +199,8 @@ type
     property OnCloseTabClicked: TNotifyEvent
       read FOnCloseTabClicked write FOnCloseTabClicked;
     property Options: TNoteBookOptions read FOptions write SetOptions;
+  published
+    property TabStop default true;
   end;
 
 
@@ -836,6 +838,9 @@ end.
 
  {
   $Log$
+  Revision 1.90  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.89  2004/01/10 22:34:20  mattias
   started double buffering for gtk intf
 

lcl/include/buttons.inc

@@ -32,6 +32,7 @@ begin
   {set the component style to csButton}
   fCompStyle := csButton;
   ControlStyle:=ControlStyle-[csClickEvents];
+  TabStop := true;
   {set default alignment}
   Align := alNone;
   {setup default sizes}
@@ -165,6 +166,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.16  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.15  2003/11/15 13:07:09  mattias
   added ambigious unit check for IDE
 

lcl/include/customcheckbox.inc

@@ -86,7 +86,8 @@ begin
   fCompStyle := csCheckbox;
   FState       := cbUnchecked;
   FAllowGrayed := True;
-  Height:=20;
+  TabStop := true;
+  Height := 20;
 end;
 
 {------------------------------------------------------------------------------
@@ -194,6 +195,9 @@ end;
 
 {
   $Log$
+  Revision 1.15  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.14  2003/09/16 11:35:14  mattias
   started TDBCheckBox
 

lcl/include/customcombobox.inc

@@ -571,6 +571,7 @@ begin
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
   ArrowKeysTraverseList := True;
+  TabStop := true;
 end;
 
 {------------------------------------------------------------------------------
@@ -798,6 +799,9 @@ end;
 
 {
   $Log$
+  Revision 1.34  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.33  2003/10/16 23:54:27  marc
   Implemented new gtk keyevent handling
 

lcl/include/customedit.inc

@@ -59,6 +59,7 @@ begin
   FCompStyle := csEdit;
   FMaxLength:= -1;
   ParentColor := false;
+  TabStop := true;
   SetInitialBounds(0,0,80,23);
 end;
 
@@ -355,6 +356,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.20  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.19  2003/11/01 18:58:15  mattias
   added clipboard support for TCustomEdit from Colin
 

lcl/include/customlistbox.inc

@@ -387,6 +387,7 @@ begin
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
   ParentColor := false;
+  TabStop := true;
   SetInitialBounds(0, 0, 100, 80);
 end;
 

lcl/include/customlistview.inc

@@ -31,6 +31,7 @@ begin
   FImageChangeLink := TChangeLink.Create;
   FImageChangeLink.OnChange := @ImageChanged;
   FSelected := nil;
+  TabStop := true;
   Setbounds(2,2,100,90);
 end;
 
@@ -557,6 +558,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.27  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.26  2003/02/28 15:49:43  mattias
   fixed initial size
 

lcl/include/customnotebook.inc

@@ -323,7 +323,9 @@ begin
   fAccess := TNBPages.Create(fPageList, Self);
   fPageIndex := -1;
 
+  ControlStyle := [csAcceptsControls];
   TabPosition := tpTop;
+  TabStop := true;
   ShowTabs := True;
   SetInitialBounds(0,0,200,200);
 end;
@@ -785,6 +787,9 @@ end;}
 { =============================================================================
 
   $Log$
+  Revision 1.41  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.40  2003/12/23 18:15:37  mattias
   fixed TNoteBook.OnPageChanged for user PageIndex
 

lcl/include/trackbar.inc

@@ -74,6 +74,7 @@ begin
   FShowScale := false;
   FScalePos  := trTop;
   FScaleDigits := 0;
+  TabStop := true;
   SetInitialBounds(0,0,100,20);
 end;
 
@@ -381,6 +382,9 @@ end;
 
 {
   $Log$
+  Revision 1.7  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.6  2003/06/13 21:13:20  mattias
   fixed TTrackBar initial size
 

lcl/interfaces/win32/win32object.inc

@@ -1128,16 +1128,32 @@ Procedure TWin32Object.HandleEvents;
 var
   AMessage: TMsg;
   AccelTable: HACCEL;
+
+  function HandleDialogMessage: Boolean;
+  var
+    TopParent, TmpParent: HWnd;
+  begin
+    TmpParent := AMessage.HWnd;
+    repeat
+      TopParent := TmpParent;
+      TmpParent := Windows.GetParent(TmpParent);
+    until TmpParent = HWND(nil);
+    Result := Windows.IsDialogMessage(TopParent, @AMessage);
+  end;
+
 Begin
   While PeekMessage(AMessage, HWnd(Nil), 0, 0,PM_REMOVE) Do
   Begin
     AccelTable := HACCEL(Windows.GetProp(AMessage.HWnd, 'Accel'));
     If (AccelTable = HACCEL(nil)) or (TranslateAccelerator(AMessage.HWnd, AccelTable, @AMessage) = 0) Then
+    Begin
+      if not HandleDialogMessage then
       Begin
         TranslateMessage(@AMessage);
         DispatchMessage(@AMessage);
       End;
     End;
+  End;
 End;
 
 {------------------------------------------------------------------------------
@@ -2969,6 +2985,9 @@ End;
 
 {
   $Log$
+  Revision 1.161  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.160  2004/01/20 22:14:27  micha
   REVERTED: "try register globally unique properties"; implemented new WindowFromPoint not returning window if from different process (tip from vincent)
 

lcl/stdctrls.pp

@@ -109,7 +109,7 @@ type
     property ShowHint;
     property SmallChange: TScrollBarInc read FSmallChange write FSmallChange default 1;
     property TabOrder;
-    property TabStop;
+    property TabStop default true;
     property Visible;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
     property OnDragDrop;
@@ -285,6 +285,8 @@ type
     property SelStart: integer read GetSelStart write SetSelStart;
     property SelText: String read GetSelText write SetSelText;
     property Style: TComboBoxStyle read FStyle write SetStyle;
+  published
+    property TabStop default true;
   end;
 
 
@@ -400,6 +402,8 @@ type
     property Sorted: boolean read FSorted write SetSorted;
     property Style: TListBoxStyle read FStyle write SetStyle;
     property TopIndex: Integer read GetTopIndex write SetTopIndex;
+  published
+    property TabStop default true;
   end;
 
 
@@ -497,7 +501,7 @@ type
     property Text;
   published
     property PopupMenu;
-    property TabStop;
+    property TabStop default true;
     property TabOrder;
   end;
 
@@ -723,6 +727,8 @@ type
   public
     property AllowGrayed: Boolean read FAllowGrayed write FAllowGrayed;
     property State: TCheckBoxState read GetState write SetState;
+  published
+    property TabStop default true;
   end;
 
 {$IFNDef NewCheckBox}
@@ -1468,6 +1474,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.117  2004/01/21 10:19:16  micha
+  enable tabstops for controls; implement tabstops in win32 intf
+
   Revision 1.116  2004/01/12 15:04:41  mattias
   implemented TCustomListBox.ItemAtPos