mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 18:39:20 +02:00
more keyword decapitalization
git-svn-id: trunk@14376 -
This commit is contained in:
parent
11de6af8b9
commit
369936c673
@ -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;
|
||||||
|
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user