more keyword decapitalization

git-svn-id: trunk@14376 -
This commit is contained in:
paul 2008-03-03 08:20:05 +00:00
parent 11de6af8b9
commit 369936c673
2 changed files with 73 additions and 73 deletions

View File

@ -218,7 +218,7 @@ end;
procedure TCustomCalendar.SetReadOnly(const AValue: Boolean); procedure TCustomCalendar.SetReadOnly(const AValue: Boolean);
begin begin
if (FReadOnly <> aValue) then if (FReadOnly <> aValue) then
Begin begin
FReadOnly := aValue; FReadOnly := aValue;
SetProps; SetProps;
end; end;

View File

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