[JVCL-Checkins] CVS: dev/JVCL3/examples/JvAni JvAniMainFormU.dfm,NONE,1.1 JvAniMainFormU.pas,NONE,1.1 JvAniProj.dof,NONE,1.1 JvAniProj.dpr,NONE,1.1 JvAniProj.res,NONE,1.1 bchball.ani,NONE,1.1

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvAni
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvAni

Added Files:
	JvAniMainFormU.dfm JvAniMainFormU.pas JvAniProj.dof 
	JvAniProj.dpr JvAniProj.res bchball.ani 
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter

--- NEW FILE: JvAniMainFormU.dfm ---
object JvAniMainForm: TJvAniMainForm
  Left = 291
  Top = 308
  BorderStyle = bsDialog
  Caption = 'ANI Viewer'
  ClientHeight = 317
  ClientWidth = 489
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 262
    Top = 64
    Width = 117
    Height = 111
    Center = True
    Transparent = True
  end
  object FileListBox1: TFileListBox
    Left = 0
    Top = 134
    Width = 145
    Height = 177
    ItemHeight = 13
    Mask = '*.ani'
    TabOrder = 0
    OnClick = FileListBox1Click
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 0
    Top = 34
    Width = 145
    Height = 97
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 1
  end
  object DriveComboBox1: TDriveComboBox
    Left = 2
    Top = 12
    Width = 145
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 2
  end
  object Memo1: TMemo
    Left = 182
    Top = 210
    Width = 273
    Height = 89
    Color = clBtnFace
    TabOrder = 3
  end
end

--- NEW FILE: JvAniMainFormU.pas ---
unit JvAniMainFormU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, ExtCtrls, JvAni;

type
  TJvAniMainForm = class(TForm)
    Image1: TImage;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    Memo1: TMemo;
    procedure FileListBox1Click(Sender: TObject);
  end;

var
  JvAniMainForm: TJvAniMainForm;

implementation

{$R *.DFM}

procedure TJvAniMainForm.FileListBox1Click(Sender: TObject);
begin
  self.Image1.Picture.LoadFromFile(self.FileListBox1.FileName);

  with TJvAni(TJvAni(self.Image1.Picture.Graphic)) do
  begin
    Animated:=true;
    self.Memo1.Clear;
    self.Memo1.Lines.Add('Author : '+Author);
    self.Memo1.Lines.Add('Title : '+Title);
    self.Memo1.Lines.Add('Frames : '+IntToStr(FramesCount));
  end;
end;

end.

--- NEW FILE: JvAniProj.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common

--- NEW FILE: JvAniProj.dpr ---
program JvAniProj;

uses
  Forms,
  JvAniMainFormU in 'JvAniMainFormU.pas' {JvAniMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TJvAniMainForm, JvAniMainForm);
  Application.CreateForm(TJvAniMainForm, JvAniMainForm);
  Application.Run;
end.

--- NEW FILE: JvAniProj.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: bchball.ani ---
(This appears to be a binary file; contents omitted.)