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

decapitalize Constructor and Destructor

Browse Source 
git-svn-id: trunk@14378 -
This commit is contained in:
paul 2008-03-03 08:28:46 +00:00
parent 682a924368
commit d409bf4ad2
7 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/editbtn.pas
View File

@ -169,7 +169,7 @@ type
procedure RunDialog; virtual;
public
constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
destructor Destroy; override;
property DialogFiles : TStrings read FDialogFiles;
published
// TFileName properties.
@ -248,7 +248,7 @@ type
procedure RunDialog; virtual;
public
constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
destructor Destroy; override;
published
// TDirectory properties.
property Directory : String read GetDirectory write SetDirectory;
@ -410,7 +410,7 @@ type
procedure RunDialog; virtual;
public
constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
destructor Destroy; override;
published
// CalcEdit properties
property CalculatorLayout : TCalculatorLayout read FLayout write Flayout;

42
lcl/include/bevel.inc
View File

@ -13,20 +13,20 @@
* *
*****************************************************************************
}
Constructor TBevel.Create(AOwner:TComponent);
Begin
constructor TBevel.Create(AOwner:TComponent);
begin
Inherited Create(AOwner);
ControlStyle:=ControlStyle-[csSetCaption,csOpaque];
FStyle:=bsLowered;
FShape:=bsBox;
SetBounds(0,0,50,50);
End;
end;
Destructor TBevel.Destroy;
Begin
destructor TBevel.Destroy;
begin
Inherited Destroy;
End;
end;
procedure TBevel.Assign(Source: TPersistent);
begin
@ -39,37 +39,37 @@ begin
end;
procedure TBevel.Invalidate;
Begin
begin
if Canvas.HandleAllocated then Paint;
End;
end;
function TBevel.GetStyle:TBevelStyle;
Begin
begin
Result:=FStyle;
End;
end;
procedure TBevel.SetStyle(aStyle:TBevelStyle);
Begin
begin
If FStyle<>aStyle Then
Begin
begin
FStyle:=aStyle;
Invalidate;
End;
End;
end;
end;
function TBevel.GetShape:TBevelShape;
Begin
begin
Result := FShape;
End;
end;
procedure TBevel.SetShape(aShape:TBevelShape);
Begin
If FShape<>aShape Then
Begin
begin
if FShape<>aShape then
begin
FShape:=aShape;
Invalidate;
End;
End;
end;
end;
procedure TBevel.Paint;
Var

2
lcl/include/checkbox.inc
View File

@ -409,7 +409,7 @@ begin
PaintText(PaintRect);
end;
Constructor TCheckbox.Create(AOwner: TComponent);
constructor TCheckbox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
controlstyle := controlstyle - [csAcceptsControls];

2
lcl/include/promptdialog.inc
View File

@ -208,7 +208,7 @@ begin
LayoutDialog;
end;
Destructor TPromptDialog.Destroy;
destructor TPromptDialog.Destroy;
begin
FBitmap.Free;
inherited destroy;

2
lcl/include/screen.inc
View File

@ -49,7 +49,7 @@ end;
Destructor for the class.
------------------------------------------------------------------------------}
Destructor TScreen.Destroy;
destructor TScreen.Destroy;
var
HandlerType: TScreenNotification;
begin

10
lcl/interfaces/win32/win32listsl.inc
View File

@ -37,10 +37,10 @@
Returns:
------------------------------------------------------------------------------}
Constructor TWin32ListStringList.Create(List : HWND; TheOwner: TWinControl);
Begin
Inherited Create;
If List = HWND(Nil) Then
constructor TWin32ListStringList.Create(List : HWND; TheOwner: TWinControl);
begin
inherited Create;
if List = HWND(nil) then
Raise Exception.Create('Unspecified list window');
//Assert(False, 'Trace:Unspecified list window');
FWin32List := List;
@ -50,7 +50,7 @@ Begin
InitFlags;
// Determine if the list is sorted
FSorted := (UINT(GetWindowLong(FWin32List, GWL_STYLE)) and FFlagSort <> 0);
End;
end;
procedure TWin32ListStringList.InitFlags;
begin

10
lcl/interfaces/wince/wincelistsl.inc
View File

@ -64,10 +64,10 @@ end;
Returns:
------------------------------------------------------------------------------}
Constructor TWinCEListStringList.Create(List : HWND; TheOwner: TWinControl);
Begin
Inherited Create;
If List = HWND(Nil) Then
constructor TWinCEListStringList.Create(List : HWND; TheOwner: TWinControl);
begin
inherited Create;
if List = HWND(nil) then
Raise Exception.Create('Unspecified list window');
//Assert(False, 'Trace:Unspecified list window');
FWinCEList := List;
@ -77,7 +77,7 @@ Begin
InitFlags;
// Determine if the list is sorted
FSorted := (UINT(GetWindowLong(FWinCEList, GWL_STYLE)) and FFlagSort <> 0);
End;
end;
procedure TWinCEListStringList.InitFlags;
begin