decapitalize Constructor and Destructor

git-svn-id: trunk@14378 -

lcl/editbtn.pas

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

lcl/include/bevel.inc

@@ -13,20 +13,20 @@
  *                                                                           *
  *****************************************************************************
 }
-Constructor TBevel.Create(AOwner:TComponent);
+constructor TBevel.Create(AOwner:TComponent);
-Begin
+begin
   Inherited Create(AOwner);
   ControlStyle:=ControlStyle-[csSetCaption,csOpaque];
   FStyle:=bsLowered;
   FShape:=bsBox;
 
   SetBounds(0,0,50,50);
-End;
+end;
 
-Destructor TBevel.Destroy;
+destructor TBevel.Destroy;
-Begin
+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
+begin
-  If FShape<>aShape Then
+  if FShape<>aShape then
-  Begin
+  begin
     FShape:=aShape;
     Invalidate;
-  End;
+  end;
-End;
+end;
 
 procedure TBevel.Paint;
 Var

lcl/include/checkbox.inc

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

lcl/include/promptdialog.inc

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

lcl/include/screen.inc

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

lcl/interfaces/win32/win32listsl.inc

@@ -37,10 +37,10 @@
   Returns:
 
  ------------------------------------------------------------------------------}
-Constructor TWin32ListStringList.Create(List : HWND; TheOwner: TWinControl);
+constructor TWin32ListStringList.Create(List : HWND; TheOwner: TWinControl);
-Begin
+begin
-  Inherited Create;
+  inherited Create;
-  If List = HWND(Nil) Then
+  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

lcl/interfaces/wince/wincelistsl.inc

@@ -64,10 +64,10 @@ end;
   Returns:
 
  ------------------------------------------------------------------------------}
-Constructor TWinCEListStringList.Create(List : HWND; TheOwner: TWinControl);
+constructor TWinCEListStringList.Create(List : HWND; TheOwner: TWinControl);
-Begin
+begin
-  Inherited Create;
+  inherited Create;
-  If List = HWND(Nil) Then
+  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