Subversion Repositories autosfx

Unit renunit;

(************************************************************************

 Copyright (C) 2009, 2010  by Russell J. Peters, Roger Aelbrecht,

      Eric W. Engler and Chris Vleghert.

   This file is part of TZipMaster Version 1.9.

    TZipMaster is free software: you can redistribute it and/or modify

    it under the terms of the GNU Lesser General Public License as published by

    the Free Software Foundation, either version 3 of the License, or

    (at your option) any later version.

    TZipMaster is distributed in the hope that it will be useful,

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    GNU Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public License

    along with TZipMaster.  If not, see <http://www.gnu.org/licenses/>.

    contact: problems@delphizip.org (include ZipMaster in the subject).

    updates: http://www.delphizip.org

    DelphiZip maillist subscribe at http://www.freelists.org/list/delphizip

************************************************************************)

Interface

Uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, ExtCtrls, Buttons, ZipMstr19, Grids, SortGrid;

Type

  TRenForm = Class(TForm)

    OkBitBtn: TBitBtn;

    CancelBitBtn: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Panel1: TPanel;

    OldCombo: TComboBox;

    NewEdit: TEdit;

    DTEdit: TEdit;

    AddBtn: TButton;

    RemoveBtn: TButton;

    DTAllBtn: TButton;

    Procedure FormShow(Sender: TObject);

    Procedure FormCreate(Sender: TObject);

    Procedure FormDestroy(Sender: TObject);

    Procedure AddBtnClick(Sender: TObject);

    Procedure DTAllBtnClick(Sender: TObject);

    Procedure OkBitBtnClick(Sender: TObject);

    Procedure OldComboClick(Sender: TObject);

    Procedure RemoveBtnClick(Sender: TObject);

    Procedure CancelBitBtnClick(Sender: TObject);

    Procedure SelectedGridGetCellFormat(Sender: TObject; Col, Row: Integer;

      State: TGridDrawState; Var FormatOptions: TFormatOptions);

  PRIVATE { Private declarations }

    Procedure ClearZipRenList;

  PUBLIC { Public declarations }

    ZipRenameList: TList;

    SelectedGrid: TSortGrid;

    GDateTime: Integer;

  End;

Var

  RenForm: TRenForm;

Implementation

Uses mainunit, msgunit;

{$R *.DFM}

Procedure TRenForm.FormShow(Sender: TObject);

Var

  i: Integer;

Begin

  GDateTime := 0;

  SelectedGrid.RowCount := 2;

  SelectedGrid.Rows[1].Clear();

  RenForm.Caption := 'Rename items in zip archive: ' + ExtractFileName

    (MainForm.ZipMaster1.ZipFileName);

  OldCombo.Clear();

  ClearZipRenList();

  For i := 1 To MainForm.ZipMaster1.Count Do

  Begin

    With MainForm.ZipMaster1[i - 1] Do

    Begin

      OldCombo.Items.Add(FileName);

    End;

  End;

End;

Procedure TRenForm.AddBtnClick(Sender: TObject);

Var

  AddItem: String;

  RenRec: PZMRenameRec;

Begin

  AddItem := OldCombo.Text;

  If (AddItem <> NewEdit.Text) Or (DTEdit.Text <> '') Then

  Begin

    If (Length(AddItem) > 0) And (Length(NewEdit.Text) > 0) Then

    Begin

      If (SelectedGrid.RowCount > 2) Or ((SelectedGrid.RowCount = 2) And

          (SelectedGrid.Cells[0, 1] <> '')) Then

        SelectedGrid.RowCount := SelectedGrid.RowCount + 1;

      New(RenRec);

      RenRec^.Source := AddItem;

      RenRec^.Dest := NewEdit.Text;

      Try

        If DTEdit.Text <> '' Then

          RenRec^.DateTime := DateTimeToFileDate(StrToDateTime(DTEdit.Text));

      Except

        Else

          Dispose(RenRec);

          Raise ;

        End;

        ZipRenameList.Add(RenRec);

        SelectedGrid.Cells[0, SelectedGrid.RowCount - 1] := AddItem;

        SelectedGrid.Cells[1, SelectedGrid.RowCount - 1] := NewEdit.Text;

        SelectedGrid.Cells[2, SelectedGrid.RowCount - 1] := DTEdit.Text;

      End;

      OldCombo.Text := '';

      NewEdit.Text := '';

      DTEdit.Text := '';

    End;

  End;

  Procedure TRenForm.FormCreate(Sender: TObject);

  Begin

    ZipRenameList := TList.Create();

    SelectedGrid := TSortGrid.create(self);

    SelectedGrid.Parent := self;      

    SelectedGrid.Left := 16;

    SelectedGrid.Top := 16;

    SelectedGrid.Width := 417;

    SelectedGrid.Height := 93;

    SelectedGrid.Color := clSilver;

    SelectedGrid.ColCount := 3;

    SelectedGrid.DefaultColWidth := 198;

    SelectedGrid.DefaultRowHeight := 16;

    SelectedGrid.FixedCols := 0;

    SelectedGrid.RowCount := 2;

    SelectedGrid.Font.Color := clWindowText;

    SelectedGrid.Font.Height := -11;

    SelectedGrid.Font.Name := 'Arial';

    SelectedGrid.Font.Style := [];

    SelectedGrid.Options := [goFixedVertLine, goFixedHorzLine, goRangeSelect, goColSizing, goRowSelect];

    SelectedGrid.ParentFont := False;

    SelectedGrid.ParentShowHint := False;

    SelectedGrid.ShowHint := False;

    SelectedGrid.TabOrder := 0;

    SelectedGrid.CaseSensitive := False;

    SelectedGrid.AlignmentHorz := taLeftJustify;

    SelectedGrid.AlignmentVert := taTopJustify;

    SelectedGrid.ProportionalScrollBars := True;

    SelectedGrid.ExtendedKeys := False;

    SelectedGrid.SortOnClick := True;

    SelectedGrid.FooterFont.Color := clWindowText;

    SelectedGrid.FooterFont.Height := -11;

    SelectedGrid.FooterFont.Name := 'MS Sans Serif';

    SelectedGrid.FooterFont.Style := [];

    SelectedGrid.ColWidths[0] := 154;

    SelectedGrid.ColWidths[1] := 160;

    SelectedGrid.ColWidths[2] := 96;

    SelectedGrid.Cells[0, 0] := 'Old name';

    SelectedGrid.Cells[1, 0] := 'New name';

    SelectedGrid.Cells[2, 0] := 'Date/Time';

  End;

  Procedure TRenForm.FormDestroy(Sender: TObject);

  Begin

    ClearZipRenList();

    ZipRenameList.Free();

  End;

  Procedure TRenForm.ClearZipRenList();

  Var

    i: Integer;

    RenRec: PZMRenameRec;

  Begin

    For i := 0 To ZipRenameList.Count - 1 Do

    Begin

      RenRec := ZipRenameList.Items[i];

      Dispose(RenRec);

    End;

    ZipRenameList.Clear();

  End;

  Procedure TRenForm.RemoveBtnClick(Sender: TObject);

  Var

    i, j: Integer;

    RenRec: PZMRenameRec;

  Begin

    j := SelectedGrid.Selection.Top;

    For i := SelectedGrid.Selection.Bottom Downto j Do

    Begin

      If SelectedGrid.Cells[0, i] <> '' Then

      Begin

        RenRec := ZipRenameList.Items[i - 1];

        ZipRenameList.Delete(i - 1);

        Dispose(RenRec);

        SelectedGrid.Rows[i].Clear();

        If i <> 1 Then

          SelectedGrid.DeleteRow(i);

      End;

    End;

  End;

  Procedure TRenForm.CancelBitBtnClick(Sender: TObject);

  Begin

    Hide();

  End;

  Procedure TRenForm.OkBitBtnClick(Sender: TObject);

  Var

    RenameErr: Integer;

  Begin

    AddBtnClick(Sender);

    MsgForm.Memo1.Clear();

    MsgForm.Show();

    { Put this message into the message form's memo }

    MainForm.ZipMaster1Message(Self, 0,

      'Begin renaming entries in: ' + MainForm.ZipMaster1.ZipFileName);

    RenameErr := MainForm.ZipMaster1.Rename(ZipRenameList, GDateTime);

    If RenameErr <> 0 Then

      ShowMessage('Error ' + IntToStr(RenameErr) +

          ' occured in rename zip specification(s)');

    MsgForm.Hide();

    Hide();

  End;

  Procedure TRenForm.OldComboClick(Sender: TObject);

  Begin

    NewEdit.Text := OldCombo.Items.Strings[OldCombo.ItemIndex];

    NewEdit.SetFocus();

    NewEdit.SelStart := Length(NewEdit.Text);

  End;

  Procedure TRenForm.SelectedGridGetCellFormat

    (Sender: TObject; Col, Row: Integer; State: TGridDrawState;

    Var FormatOptions: TFormatOptions);

  Begin

    If Row = 0 Then

    Begin

      FormatOptions.AlignmentHorz := taCenter;

      FormatOptions.Font.Style := FormatOptions.Font.Style + [fsBold];

      FormatOptions.Font.Color := clBlue;

    End;

  End;

  Procedure TRenForm.DTAllBtnClick(Sender: TObject);

  Begin

    If DTEdit.Text <> '' Then

      GDateTime := DateTimeToFileDate(StrToDateTime(DTEdit.Text))

    Else

      GDateTime := 0;

  End;

End.