Subversion Repositories autosfx

unit tziplist;

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

 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

  Wintypes, Winprocs, Messages, SysUtils, Classes, Graphics, Controls,

  Forms, Dialogs, StdCtrls, Grids, ExtCtrls, SortGrid, ZipMstr19;

type

  TZipForm = class(TForm)

    OpenDialog1: TOpenDialog;

    Panel1: TPanel;

    Button2: TButton;

    ZipFNameLabel: TLabel;

//    StringGrid1: TSortGrid;

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure StringGrid1BeginSort(Sender: TObject; Col: Longint;

                                  var SortOptions: TSortOptions);

    procedure FillGrid;

  private

    { Private declarations }

  public

   { Public declarations }

    StringGrid1: TSortGrid;

end;

var

  ZipForm: TZipForm;

implementation

uses Unit1, printers;

{$R *.DFM}

procedure TZipForm.FormCreate(Sender: TObject);

begin

  StringGrid1 := TSortGrid.Create(self);

  StringGrid1.Parent := self;

  with StringGrid1 do

  begin

    Left := 0;

    Top := 46;

    Width := 591;

    Height := 318;

    Align := alClient;

    ColCount := 1;

    DefaultRowHeight := 20;

    FixedCols := 0;

    RowCount := 2;

    Font.Charset := DEFAULT_CHARSET;

    Font.Color := clBlack;

    Font.Height := -13;

    Font.Name := 'Arial';

    Font.Style := [fsBold];

    Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goThumbTracking];

    ParentFont := False;

    TabOrder := 2;

    CaseSensitive := False;

    AlignmentHorz := taLeftJustify;

    AlignmentVert := taTopJustify;

    ProportionalScrollBars := True;

    ExtendedKeys := False;

    SortOnClick := True;

    FooterFont.Charset := DEFAULT_CHARSET;

    FooterFont.Color := clWindowText;

    FooterFont.Height := -11;

    FooterFont.Name := 'MS Sans Serif';

    FooterFont.Style := [];

    PrintOptions.Orientation := poPortrait;

    PrintOptions.PageTitleMargin := 0;

    PrintOptions.PageFooter := 'date|time|page';

    PrintOptions.HeaderSize := 10;

    PrintOptions.FooterSize := 7;

    PrintOptions.DateFormat := 'd-mmm-yyyy';

    PrintOptions.TimeFormat := 'h:nn';

    PrintOptions.FromRow := 0;

    PrintOptions.ToRow := 0;

    PrintOptions.BorderStyle := bsNone;

    PrintOptions.MarginBottom := 0;

    PrintOptions.MarginLeft := 0;

    PrintOptions.MarginTop := 0;

    PrintOptions.MarginRight := 0;

    WordWrap := False;

    OnBeginSort := StringGrid1BeginSort;

    RowCount:=1;  { first row is fixed, and used for titles }

    ColCount:=4;

    Cells[0,0] := 'File Name';

    Cells[1,0] := 'Compr Size';

    Cells[2,0] := 'Uncmpr Size';

    Cells[3,0] := 'Date/Time';

  end;

end;

procedure TZipForm.FillGrid;

var

  i: Integer;

begin

  with StringGrid1 do

  begin

    { Empty data from string grid }

    FixedRows:=0;

    RowCount:=1; { remove everything from grid except col titles }

    if Form1.ZipMaster1.Count = 0 then

       Exit;

    for i:=0 to Form1.ZipMaster1.Count-1 do

    begin

       RowCount := RowCount + 1;

       { We have to set fixed rows after the rowcount is more than 1}

       FixedRows:=1;

//       with TZipDirEntry(Form1.ZipMaster1.ZipContents[i]^) do

       with Form1.ZipMaster1[i] do

       begin

          { The "-1" below is an offset for the row titles }

          Cells[0,RowCount-1] := FileName;

          Cells[1,RowCount-1] := IntToStr(CompressedSize);

          Cells[2,RowCount-1] := IntToStr(UncompressedSize);

          Cells[3,RowCount-1] := FormatDateTime('ddddd  t',FileDateToDateTime(DateTime));

       end; // end with

    end; // end for

  end; // end with

end;

procedure TZipForm.Button2Click(Sender: TObject);

begin

  Close;

end;

procedure TZipForm.FormActivate(Sender: TObject);

begin

   Width:=Form1.Width;

   Height:=Form1.Height;

   Top:=Form1.Top;

   Left:=Form1.Left;

   ZipFNameLabel.Caption:=Form1.ZipFName.Caption;

   with StringGrid1 do

   begin

      FixedRows:=0;

      RowCount:=1; { remove everything from grid except col titles }

      ColWidths[0]:=316;

      ColWidths[1]:=84;

      ColWidths[2]:=84;

      ColWidths[3]:=120;

   end;

   if FileExists(Form1.ZipFName.Caption) then

      { This assignment causes zipfile to be read: }

      Form1.ZipMaster1.ZipFileName := Form1.ZipFName.Caption

   else

   begin

      ShowMessage('Error - file not found: ' + Form1.ZipFName.Caption);

      Close;

   end;

   FillGrid;

end;

{ This just shows you which column, datatype, and sort order will be used. }

{ This is keyed from the SortGrid's OnBeginSort event. }

{ You can remove this if you want. }

procedure TZipForm.StringGrid1BeginSort(Sender: TObject; Col: Longint;

          var SortOptions: TSortOptions);

var

  Order: String;

  ColName: String;

begin

  if SortOptions.SortDirection=sdAscending then

     Order:='Ascending'

  else

     Order:='Descending';

  ColName:=StringGrid1.Cells[Col,0];

  case SortOptions.SortStyle of

     ssNumeric:  ShowMessage('Sorting By ' + ColName + ', Numeric, ' + Order);

     ssDateTime: ShowMessage('Sorting By ' + ColName + ', Datetime, ' + Order);

     ssTime:     ShowMessage('Sorting By ' + ColName + ', Time, ' + Order);

     ssCustom:   ShowMessage('Sorting By ' + ColName + ', Custom, ' + Order);

  else

     ShowMessage('Sorting By ' + ColName + ', Alpha, ' + Order);

  end;

end;

end.