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

implemented tabstop

Browse Source 
git-svn-id: trunk@4254 -
This commit is contained in:
mattias 2003-06-10 17:23:35 +00:00
parent 2417127a97
commit 63025e4138
3 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/customgroupbox.inc
View File

@ -25,12 +25,21 @@ begin
Width:= 185; Width:= 185;
Height:= 105; Height:= 105;
end; end;
function TCustomGroupBox.CanTab: boolean;
begin
Result:=false;
end;
// included by stdctrls.pp // included by stdctrls.pp
{ {
$Log$ $Log$
Revision 1.9 2003/06/10 17:23:34 mattias
implemented tabstop
Revision 1.8 2002/08/30 06:46:03 lazarus Revision 1.8 2002/08/30 06:46:03 lazarus
Use comboboxes. Use history. Prettify the dialog. Preselect text on show. Use comboboxes. Use history. Prettify the dialog. Preselect text on show.
Make the findreplace a dialog. Thus removing resiying code (handled by Anchors now anyway). Make the findreplace a dialog. Thus removing resiying code (handled by Anchors now anyway).
Make Anchors work again and publish them for various controls. Make Anchors work again and publish them for various controls.

8
lcl/include/customnotebook.inc
View File

@ -399,6 +399,11 @@ begin
Result:=-1; Result:=-1;
end; end;
function TCustomNotebook.CanTab: boolean;
begin
Result:=false;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
method TCustomNotebook DoCloseTabClicked method TCustomNotebook DoCloseTabClicked
Params: APage: TPage Params: APage: TPage
@ -751,6 +756,9 @@ end;}
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.31 2003/06/10 17:23:35 mattias
implemented tabstop
Revision 1.30 2003/04/22 13:27:10 mattias Revision 1.30 2003/04/22 13:27:10 mattias
implemented installing components in component palette implemented installing components in component palette

4
lcl/stdctrls.pp
View File

@ -132,6 +132,7 @@ type
protected protected
public public
constructor Create(AOwner : TComponent); Override; constructor Create(AOwner : TComponent); Override;
function CanTab: boolean; override;
end; end;
@ -1452,6 +1453,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.95 2003/06/10 17:23:34 mattias
implemented tabstop
Revision 1.94 2003/06/10 15:58:39 mattias Revision 1.94 2003/06/10 15:58:39 mattias
started TLabeledEdit started TLabeledEdit