From 6291a3af5a465a73443333770d763a6118eb9f76 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 26 Sep 2009 14:06:02 +0000
Subject: [PATCH] lcl: decapitalize Procedure and End keywords in the
 controls.inc file

git-svn-id: trunk@21882 -
---
 lcl/include/control.inc | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 69939462d1..b6ce343ebe 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -1004,8 +1004,8 @@ end;
 {------------------------------------------------------------------------------
        TControl.DoEndDrag
 ------------------------------------------------------------------------------}
-Procedure TControl.DoEndDrag(Target: TObject; X,Y: Integer);
-Begin
+procedure TControl.DoEndDrag(Target: TObject; X,Y: Integer);
+begin
   {$IFDEF VerboseDrag}
   DebugLn('TControl.DoEndDrag ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
   {$ENDIF}
@@ -1039,7 +1039,7 @@ function TControl.GetClientOrigin: TPoint;
                            +Name+':'+ClassName);
   end;
 
-Begin
+begin
   //Assert(False, Format('Trace:[TControl.GetClientOrigin] %s',  [Classname]));
   if Parent = nil then
     RaiseParentNil;
@@ -1139,7 +1139,7 @@ var
   AWinTarget: TWinControl;
   Accepts: Boolean;
   P: TPoint;
-Begin
+begin
   Result := 0;
   {$IFDEF VerboseDrag}
   DebugLn('TControl.DoDragMsg ',Name,':',ClassName,' DragMsg.DragMessage=',IntToStr(ord(ADragMessage)));
@@ -1181,7 +1181,7 @@ end;
 {------------------------------------------------------------------------------
   TControl.DragOver
 ------------------------------------------------------------------------------}
-Procedure TControl.DragOver(Source: TObject; X,Y : Integer; State: TDragState;
+procedure TControl.DragOver(Source: TObject; X,Y : Integer; State: TDragState;
   var Accept:Boolean);
 begin
   {$IFDEF VerboseDrag}
@@ -1197,7 +1197,7 @@ end;
 {------------------------------------------------------------------------------
   TControl.DragDrop
 ------------------------------------------------------------------------------}
-Procedure TControl.DragDrop(Source: TObject; X,Y : Integer);
+procedure TControl.DragDrop(Source: TObject; X,Y : Integer);
 begin
   {$IFDEF VerboseDrag}
   DebugLn('TControl.DragDrop ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
@@ -2331,7 +2331,7 @@ end;
        TControl SetAutoSize
 ------------------------------------------------------------------------------}
 procedure TControl.SetAutoSize(value : Boolean);
-Begin
+begin
   If AutoSize <> Value then begin
     FAutoSize := Value;
     //debugln('TControl.SetAutoSize ',DbgSName(Self));
@@ -2512,7 +2512,7 @@ end;
        TControl SetBoundsRect
 ------------------------------------------------------------------------------}
 procedure TControl.SetBoundsRect(const ARect : TRect);
-Begin
+begin
   {$IFDEF CHECK_POSITION}
   if CheckPosition(Self) then
   DebugLn('[TControl.SetBoundsRect] ',Name,':',ClassName);
@@ -2791,7 +2791,7 @@ end;
   TControl IsCaptionStored
 ------------------------------------------------------------------------------}
 function TControl.IsCaptionStored: Boolean;
-Begin
+begin
   Result := (ActionLink = nil) or not ActionLink.IsCaptionLinked;
 end;
 
@@ -3530,7 +3530,7 @@ end;
   TControl SetParentShowHint
 ------------------------------------------------------------------------------}
 procedure TControl.SetParentShowHint(Value : Boolean);
-Begin
+begin
   if FParentShowHint <> Value then
   begin
     FParentShowHint := Value;