paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

enable tabstops for controls; implement tabstops in win32 intf

Browse Source 
git-svn-id: trunk@5082 -
This commit is contained in:
micha 2004-01-21 10:19:16 +00:00
parent 1ac23788c3
commit 80997fee5d
13 changed files with 163 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/buttons.pp
View File

@ -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

7
lcl/comctrls.pp
View File

@ -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

5
lcl/extctrls.pp
View File

@ -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

4
lcl/include/buttons.inc
View File

@ -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

6
lcl/include/customcheckbox.inc
View File

@ -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

4
lcl/include/customcombobox.inc
View File

@ -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

4
lcl/include/customedit.inc
View File

@ -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

1
lcl/include/customlistbox.inc
View File

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

4
lcl/include/customlistview.inc
View File

@ -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

5
lcl/include/customnotebook.inc
View File

@ -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

4
lcl/include/trackbar.inc
View File

@ -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

19
lcl/interfaces/win32/win32object.inc
View File

@ -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)

13
lcl/stdctrls.pp
View File

@ -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