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

fixed taborder=0, implemented TabOrder Editor

Browse Source 
git-svn-id: trunk@4287 -
This commit is contained in:
mattias 2003-06-18 11:21:06 +00:00
parent 0e0b79f524
commit 85512fcfb5
3 changed files with 27 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/projectopts.pp
View File

@ -335,7 +335,7 @@ begin
Parent:=NoteBook.Page[1]; Parent:=NoteBook.Page[1];
Left:=FormsAutoCreatedListBox.Left+5; Left:=FormsAutoCreatedListBox.Left+5;
Top:=FormsAutoCreatedListBox.Top+FormsAutoCreatedListBox.Height+5; Top:=FormsAutoCreatedListBox.Top+FormsAutoCreatedListBox.Height+5;
Width:=300; Width:=400;
Height:=25; Height:=25;
Caption:=dlgAutoCreateNewForms; Caption:=dlgAutoCreateNewForms;
end; end;
@ -424,7 +424,7 @@ begin
with FormsAutoCreateNewFormsCheckBox do begin with FormsAutoCreateNewFormsCheckBox do begin
Left:=FormsMoveAutoCreatedFormUpBtn.Left; Left:=FormsMoveAutoCreatedFormUpBtn.Left;
Top:=FormsAutoCreatedListBox.Top+FormsAutoCreatedListBox.Height+5; Top:=FormsAutoCreatedListBox.Top+FormsAutoCreatedListBox.Height+5;
Width:=300; Width:=Parent.ClientWidth-Left;
Height:=25; Height:=25;
end; end;
end; end;

15
lcl/comctrls.pp
View File

@ -971,7 +971,14 @@ type
TNodeState = (nsCut, nsDropHilited, nsFocused, nsSelected, nsMultiSelected, TNodeState = (nsCut, nsDropHilited, nsFocused, nsSelected, nsMultiSelected,
nsExpanded, nsHasChildren); nsExpanded, nsHasChildren);
TNodeStates = set of TNodeState; TNodeStates = set of TNodeState;
TNodeAttachMode = (naAdd, naAddFirst, naAddChild, naAddChildFirst, naInsert); TNodeAttachMode = (
naAdd, // add as last sibling of Destination
naAddFirst, // add as first sibling of Destnation
naAddChild, // add as last child of Destination
naAddChildFirst, // add as first child of Destination
naInsert, // insert in front of Destination
naInsertBehind // insert behind Destination
);
TAddMode = (taAddFirst, taAdd, taInsert); TAddMode = (taAddFirst, taAdd, taInsert);
@ -982,7 +989,8 @@ type
const const
NodeAttachModeNames: array[TNodeAttachMode] of string = NodeAttachModeNames: array[TNodeAttachMode] of string =
('naAdd', 'naAddFirst', 'naAddChild', 'naAddChildFirst', 'naInsert'); ('naAdd', 'naAddFirst', 'naAddChild', 'naAddChildFirst',
'naInsert', 'naInsertBehind');
AddModeNames: array[TAddMode] of string = AddModeNames: array[TAddMode] of string =
('taAddFirst', 'taAdd', 'taInsert'); ('taAddFirst', 'taAdd', 'taInsert');
LCLStreamID = -7; LCLStreamID = -7;
@ -1761,6 +1769,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.78 2003/06/18 11:21:06 mattias
fixed taborder=0, implemented TabOrder Editor
Revision 1.77 2003/06/13 21:13:20 mattias Revision 1.77 2003/06/13 21:13:20 mattias
fixed TTrackBar initial size fixed TTrackBar initial size

13
lcl/include/treeview.inc
View File

@ -1141,6 +1141,7 @@ procedure TTreeNode.MoveTo(Destination: TTreeNode; Mode: TNodeAttachMode);
naAddChild: add as last child of Destination naAddChild: add as last child of Destination
naAddChildFirst: add as first child of Destination naAddChildFirst: add as first child of Destination
naInsert: insert in front of Destination naInsert: insert in front of Destination
naInsertBehind: insert behind Destination
} }
var var
AddMode: TAddMode; AddMode: TAddMode;
@ -1149,8 +1150,18 @@ var
OldOnChanging: TTVChangingEvent; OldOnChanging: TTVChangingEvent;
OldOnChange: TTVChangedEvent; OldOnChange: TTVChangedEvent;
begin begin
if (Destination=nil) and (Mode in [naAddChild,naAddChildFirst,naInsert]) then if (Destination=nil)
and (Mode in [naAddChild,naAddChildFirst,naInsert,naInsertBehind]) then
TreeNodeError('TTreeNode.MoveTo Destination=nil'); TreeNodeError('TTreeNode.MoveTo Destination=nil');
if Mode=naInsertBehind then begin
// convert naInsertBehind
if Destination.GetNextSibling=nil then begin
Mode:=naAdd;
end else begin
Mode:=naInsert;
Destination:=Destination.GetNextSibling;
end;
end;
if (Destination = nil) or not Destination.HasAsParent(Self) then begin if (Destination = nil) or not Destination.HasAsParent(Self) then begin
OldOnChanging := TreeView.OnChanging; OldOnChanging := TreeView.OnChanging;
OldOnChange := TreeView.OnChange; OldOnChange := TreeView.OnChange;