mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 03:56:12 +02:00
more keyword decapitalization
git-svn-id: trunk@14376 -
This commit is contained in:
paul
parent
11de6af8b9
commit
369936c673
@ -218,7 +218,7 @@ end;
|
||||
procedure TCustomCalendar.SetReadOnly(const AValue: Boolean);
|
||||
begin
|
||||
if (FReadOnly <> aValue) then
|
||||
Begin
|
||||
begin
|
||||
FReadOnly := aValue;
|
||||
SetProps;
|
||||
end;
|
||||
|
||||
@ -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.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user