|
From: Peter T. <pe...@us...> - 2003-08-23 23:18:35
|
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.)
|