Форум: "Начинающим";
Текущий архив: 2011.12.18;
Скачать: [xml.tar.bz2];
Внизматрица Найти похожие ветки
← →
Maxpch21 © (2011-09-08 12:34) [7]
> type
> TCSGrid = class(TStringGrid)
> private
> public
> procedure MoveRow(FromIndex, ToIndex: Longint);
> procedure MoveColumn(FromIndex, ToIndex: Longint);
> end;
>
> procedure TCSGrid.MoveRow(FromIndex, ToIndex: Longint);
> begin
> RowMoved(FromIndex, ToIndex);
> end;
>
> procedure TCSGrid.MoveColumn(FromIndex, ToIndex: Longint);
>
> begin
> ColumnMoved(FromIndex, ToIndex);
> end;
>
> procedure DeleteRow(Sender: TStringGrid; FromIndex: Longint);
>
> begin
> if FromIndex > 0
> then
> with TCSGrid(Sender) do
> if (RowCount > 2) and (FromIndex < RowCount) then
> begin
> if (FromIndex < RowCount - 1) then
> MoveRow(FromIndex, RowCount - 1);
> Rows[RowCount - 1].Clear;
> RowCount := RowCount - 1;
> end
> else
> MessageBeep(0)
> else
> MessageBeep(0);
> end;
>
> procedure DeleteColumn(Sender: TStringGrid; FromIndex: Longint);
>
> begin
> if FromIndex >= 0 then
> with TCSGrid(Sender) do
> if (ColCount > 0) and (FromIndex < ColCount) then
> begin
> if (FromIndex < ColCount - 1) then
> MoveColumn(FromIndex, ColCount - 1);
> Cols[ColCount - 1].Clear;
> ColCount := ColCount - 1;
> end
> else
> MessageBeep(0)
> else
> MessageBeep(0);
> end;
> --
> if EmptyRow(sgView, i) then
> DeleteRow(sgView, i);
>
> if EmptyCol(sgView, i) then
> DeleteColumn(sgView, i);
К чему привязываются эти коды
(извиняюсь если неправильно что назвал)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.12.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c