From 369936c673f7320a9bd3be029309e6ec82c965e4 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 3 Mar 2008 08:20:05 +0000
Subject: [PATCH] more keyword decapitalization

git-svn-id: trunk@14376 -
---
 lcl/calendar.pp      |   2 +-
 lcl/dynamicarray.pas | 144 +++++++++++++++++++++----------------------
 2 files changed, 73 insertions(+), 73 deletions(-)

diff --git a/lcl/calendar.pp b/lcl/calendar.pp
index f247f65848..2d5296520e 100644
--- a/lcl/calendar.pp
+++ b/lcl/calendar.pp
@@ -218,7 +218,7 @@ end;
 procedure TCustomCalendar.SetReadOnly(const AValue: Boolean);
 begin
   if (FReadOnly <> aValue) then
-  Begin
+  begin
     FReadOnly := aValue;
     SetProps;
   end;
diff --git a/lcl/dynamicarray.pas b/lcl/dynamicarray.pas
index e33bc585cf..3e56874423 100644
--- a/lcl/dynamicarray.pas
+++ b/lcl/dynamicarray.pas
@@ -27,25 +27,25 @@ interface
 uses
   Classes, SysUtils; 
 
-Type
+type
   EArray=Class(Exception);
   
   TOnNotifyItem = Procedure(Sender: TObject; Col,Row: integer; Var Item: Pointer) of Object;
   TOnExchangeItem = procedure (Sender: TObject; Index, WithIndex: Integer) of Object;
 
   TArray=Class
-  Private
+  private
     FCols: TList;
     FOnDestroyItem: TOnNotifyItem;
     FOnNewItem: TonNotifyItem;
     function Getarr(Col, Row: Integer): Pointer;
-    procedure Setarr(Col, Row: Integer; Const Avalue: Pointer);
+    procedure Setarr(Col, Row: Integer; const AValue: Pointer);
     procedure ClearCol(L: TList; Col: Integer);
     procedure Aumentar_Rows(col,Rows: Integer; L: TList);
     procedure DestroyItem(Col,Row: Integer; P: Pointer);
-  Public
-    Constructor Create;
-    Destructor Destroy; Override;
+  public
+    constructor Create;
+    destructor Destroy; override;
     procedure SetLength(Cols,Rows: Integer);
 
     procedure DeleteColRow(IsColumn: Boolean; Index: Integer);
@@ -53,87 +53,87 @@ Type
     procedure ExchangeColRow(IsColumn:Boolean; Index, WithIndex: Integer);
     procedure Clear;
     
-    Property Arr[Col,Row: Integer]: Pointer Read GetArr Write SetArr; Default;
-    Property OnDestroyItem: TOnNotifyItem Read FOnDestroyItem Write FOnDestroyItem;
-    Property OnNewItem: TOnNotifyItem Read FOnNewItem Write FOnNewItem;
-  End;
+    Property Arr[Col,Row: Integer]: Pointer read GetArr write SetArr; default;
+    Property OnDestroyItem: TOnNotifyItem read FOnDestroyItem write FOnDestroyItem;
+    Property OnNewItem: TOnNotifyItem read FOnNewItem write FOnNewItem;
+  end;
 
 implementation
 
 { TArray }
 
 function TArray.Getarr(Col, Row: Integer): Pointer;
-Begin
+begin
   // Checar dimensiones
-  Result:= TList(FCols[Col])[Row];
-End;
+  Result := TList(FCols[Col])[Row];
+end;
 
-procedure TArray.Setarr(Col, Row: Integer; Const Avalue: Pointer);
-Begin
+procedure TArray.Setarr(Col, Row: Integer; const AValue: Pointer);
+begin
   // Checar dimensiones
-  TList(FCols[Col])[Row]:=aValue;
-End;
+  TList(FCols[Col])[Row] := AValue;
+end;
 
 procedure TArray.ClearCol(L: TList; Col: Integer);
-Var
+var
    j: Integer;
-Begin
-  If L<>Nil Then begin
-    For j:=0 to L.Count-1 do DestroyItem(Col,J, L[J]);
+begin
+  if L<>nil then begin
+    for j:=0 to L.Count-1 do DestroyItem(Col,J, L[J]);
     L.Clear;
-  End;
-End;
+  end;
+end;
 
 procedure TArray.Clear;
-Var
+var
    i: Integer;
-Begin
+begin
   {$Ifdef dbgMem}DebugLn('TArray.Clear');{$endif}
-  For i:=0 to FCols.Count-1 do begin
+  for i:=0 to FCols.Count-1 do begin
     ClearCol(TList(FCols[i]), i);
     TList(FCols[i]).Free;
-  End;
+  end;
   FCols.Clear;
-End;
+end;
 
-Constructor TArray.Create;
-Begin
-  Inherited Create;
-  FCols:=TList.Create;
-End;
+constructor TArray.Create;
+begin
+  inherited Create;
+  FCols := TList.Create;
+end;
 
-Destructor TArray.Destroy;
-Begin
+destructor TArray.Destroy;
+begin
   {$Ifdef dbgMem}DebugLn('TArray.Destroy FCols.Count=',dbgs(FCols.Count));{$endif}
   Clear;
   FCols.free;
-  Inherited Destroy;
-End;
+  inherited Destroy;
+end;
 
 procedure TArray.Aumentar_Rows(col,rows: Integer; L: TList);
 var
    i,j: Integer;
-   P:Pointer;
+   P: Pointer;
 begin
   //DebugLn('TArray.Aumentar_Rows: Col=',Col,' Rows=',Rows);
   i:=L.Count;
   j:=Rows-L.Count;
-  While j>0 do begin
+  while j>0 do begin
     P:=nil;
     if Assigned(OnNewItem) Then OnNewItem(Self, col, i, P);
     L.Add(P);
     dec(j);
     inc(i);
-  End;
-End;
+  end;
+end;
 
 procedure TArray.DestroyItem(Col, Row: Integer; P: Pointer);
 begin
-  If (P<>nil)And Assigned(OnDestroyItem) Then OnDestroyItem(Self, Col, Row, P);
+  if (P<>nil)And Assigned(OnDestroyItem) then OnDestroyItem(Self, Col, Row, P);
 end;
 
 procedure TArray.SetLength(Cols, Rows: Integer);
-Var
+var
    i,j: integer;
    L: TList;
    //P: Pointer;
@@ -142,7 +142,7 @@ Begin
   //
   // Ajustar columnas
   //
-  If FCols.Count>Cols Then begin
+  if FCols.Count>Cols then begin
     // Hay mas columnas de las que debe.
     // Destruir las columnas innecesarias
     for i:=Cols to fCols.Count-1 do begin
@@ -150,72 +150,72 @@ Begin
       ClearCol(L, i);
       L.Free;
       L:=nil;
-    End;
-  End;
+    end;
+  end;
   FCols.Count:=Cols;
      
   //
   // Ajustar Renglones
   //
-  For i:=0 to fCols.Count-1 do begin
+  for i:=0 to fCols.Count-1 do begin
     L:=TList(FCols[i]);
-    If L=nil Then L:=TList.Create;
-    If L.Count>Rows Then begin
-      For j:=Rows to L.Count-1 do DestroyItem(i,j,L[j]);
+    if L=nil then L:=TList.Create;
+    if L.Count>Rows then begin
+      for j:=Rows to L.Count-1 do DestroyItem(i,j,L[j]);
       L.Count:=Rows;
-    End;
+    end;
     Aumentar_Rows(i, Rows, L);
     FCols[i]:=L;
-  End;
-End;
+  end;
+end;
 
 procedure TArray.DeleteColRow(IsColumn: Boolean; Index: Integer);
-Var
+var
   i: Integer;
   L: TList;
 begin
-  If IsColumn Then begin
+  if IsColumn then begin
     {$Ifdef dbgMem}DebugLn('TArray.DeleteColRow Col=',dbgs(Index));{$endif}
     L:=TList(FCols[Index]);
     If L<>nil then begin
       ClearCol(L, Index);
       FCols.Delete(Index);
       L.Free;
-    End;
-  End Else begin
+    end;
+  end else begin
     {$Ifdef dbgMem}DebugLn('TArray.DeleteColRow Row=',dbgs(Index));{$endif}
-    For i:=0 to fCols.Count-1 do begin
+    for i:=0 to fCols.Count - 1 do begin
       L:=TList(fcols[i]);
-      If L<>nil then Begin
+      if L<>nil then begin
         DestroyItem(i, Index, L[Index]);
         L.Delete(Index);
-      End;
-    End;
-  End;
+      end;
+    end;
+  end;
 end;
 
 procedure TArray.MoveColRow(IsColumn: Boolean; FromIndex, ToIndex: Integer);
-Var
+var
   i: Integer;
 begin
-  If IsColumn Then begin
+  If IsColumn then begin
     FCols.Move(FromIndex, ToIndex);
-  End Else begin
-    For i:=0 to FCols.Count-1 do
+  end else begin
+    for i:=0 to FCols.Count-1 do
       TList(Fcols[i]).Move(FromIndex,ToIndex);
-  End;
+  end;
 end;
 
 procedure TArray.ExchangeColRow(IsColumn: Boolean; Index, WithIndex: Integer);
-Var
+var
   i: Integer;
 begin
-  If IsColumn Then begin
+  if IsColumn then begin
     FCols.Exchange(Index, WithIndex);
-  End Else begin
-    For i:=0 to FCols.Count-1 do
+  end else begin
+    for i:=0 to FCols.Count-1 do
       TList(FCols[i]).Exchange(Index, WithIndex);
-  End;
+  end;
 end;
 
 end.