paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 04:17:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

remove csAlignment and one obsoleted file

Browse Source 
git-svn-id: trunk@13471 -
This commit is contained in:
paul 2007-12-26 09:51:30 +00:00
parent 3298b06f86
commit 21cb1c6901
4 changed files with 5 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2714,7 +2714,6 @@ lcl/images/lcl_edbtnimg.bat svneol=native#text/plain
lcl/images/lcl_edbtnimg_list.txt svneol=native#text/plain lcl/images/lcl_edbtnimg_list.txt svneol=native#text/plain
lcl/imglist.pp svneol=native#text/pascal lcl/imglist.pp svneol=native#text/pascal
lcl/include/actionlink.inc svneol=native#text/pascal lcl/include/actionlink.inc svneol=native#text/pascal
lcl/include/alignment.inc svneol=native#text/pascal
lcl/include/application.inc svneol=native#text/pascal lcl/include/application.inc svneol=native#text/pascal
lcl/include/applicationproperties.inc svneol=native#text/pascal lcl/include/applicationproperties.inc svneol=native#text/pascal
lcl/include/basedragcontrolobject.inc svneol=native#text/pascal lcl/include/basedragcontrolobject.inc svneol=native#text/pascal

45
lcl/include/alignment.inc
View File

@ -1,45 +0,0 @@
{%MainUnit ../extctrls.pp}
{
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
{------------------------------------------------------------------------------}
{ TAlignment Constructor }
{------------------------------------------------------------------------------}
constructor TAlignment.Create(AOwner : TComponent);
begin
//Assert(False, 'Trace:Inside of TAlignment Constructor');
inherited Create(AOwner);
//Assert(False, 'Trace:Call of inherited create in TAlignment Constructor Success');
fCompStyle := csAlignMent;
//Assert(False, 'Trace:Calling CreateComponent from TAlignment Constructor');
CreateComponent(AOwner);
Height := 20;
Width := 100;
Top := 100;
Left := 1;
AddControl;
Show;
end;
{------------------------------------------------------------------------------}
{ TAlignment Destructor }
{------------------------------------------------------------------------------}
destructor TAlignment.Destroy;
begin
inherited Destroy;
end;

6
lcl/interfaces/gtk/gtkwidgetset.inc
View File

@ -4700,12 +4700,6 @@ begin
Result := nil; Result := nil;
case ACompStyle of case ACompStyle of
csAlignment :
begin
p := gtk_alignment_new(0.5,0.5,0,0);
gtk_widget_show(p);
end;
csColorDialog : csColorDialog :
begin begin
P := gtk_color_selection_dialog_new(PChar(ACaption)); P := gtk_color_selection_dialog_new(PChar(ACaption));

9
lcl/lcltype.pp
View File

@ -2362,7 +2362,7 @@ type
const const
csNone = 0; csNone = 0;
csAlignment = 1; // csAlignment = 1;
// csBox = 2; // csBox = 2;
csButton = 3; csButton = 3;
csComboBox = 4; csComboBox = 4;
@ -2652,10 +2652,11 @@ Begin
Case CompStyle of Case CompStyle of
csNone: csNone:
Result := 'csNone'; Result := 'csNone';
csAlignment: { csAlignment:
Result := 'csAlignment'; Result := 'csAlignment';
// csBox: csBox:
// Result := 'csBox'; Result := 'csBox';
}
csButton: csButton:
Result := 'csButton'; Result := 'csButton';
csComboBox: csComboBox: