[JVCL-Checkins] CVS: dev/JVCL3/examples/JvBMPAnimator BmpAnimDemo.dof,NONE,1.1 BmpAnimDemo.dpr,NONE,1.1 BmpAnimDemo.res,NONE,1.1 BmpAnimMainFormU.dfm,NONE,1.1 BmpAnimMainFormU.pas,NONE,1.1

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

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

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

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

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

uses
  Forms,
  BmpAnimMainFormU in 'BmpAnimMainFormU.pas' {BmpAnimMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TBmpAnimMainForm, BmpAnimMainForm);
  Application.CreateForm(TBmpAnimMainForm, BmpAnimMainForm);
  Application.Run;
end.

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

--- NEW FILE: BmpAnimMainFormU.dfm ---
object BmpAnimMainForm: TBmpAnimMainForm
  Left = 460
  Top = 173
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Bitmap Animator example'
  ClientHeight = 280
  ClientWidth = 197
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object BmpAnimator1: TJvBmpAnimator
    Left = 80
[...5072 lines suppressed...]
      07FC0000001FF00000007F00F0000000FF80000003FE0000000FF00000003F00
      F00018007F80006001FC00018007F00006001F00F8007C007F8001F001FC0007
      C007F0001F001F00F800FE003F8003F800FE000FE003F8003F800F00FC00FFFF
      FF8003FDFFFE000FFFFFF8003FDFFF00FC0000003FC0000000FF00000003F800
      00000F00FE0000003FC0000000FF00000003FC0000000F00FE0000003FE00000
      00FF00000003FC0000000F00FF0000003FE0000000FF80000003FE0000000F00
      FB8000003FE0000000FF80000003FE0000000F00F9C094003FE0015001FF8005
      4007FE0015001F00F8C0FE007FE003F801FF800FE007FE003F801F00F860FC00
      7FE003F001FF800FC007FE003F001F00FC3038007FF000E001FFC0038007FF00
      0E001F00FC1800003FF0000000FFC0000007FF0000000F00FE0400013FF80000
      04FFE0000013FF8000004F00FF0000013FFC00000CFFF0000033FFC00000CF00
      FF800003BFFE00000EFFF800003BFFE00000EF00FFC0000F9FFF00003E7FFC00
      00F9FFF00003EF00FFF0001FBFFFC0007EFFFF0001FBFFFC0007EF00FFFC007F
      BFFFF001FEFFFFC007FBFFFF001FEF00FFFFD81F3FFFFFB07CFFFFFDC1F3FFFF
      FF07CF00FFFFFE007FFFFFF801FFFFFFF007FFFFFFC01F00FFFFFFC0FFFFFFFF
      03FFFFFFFC0FFFFFFFF03F00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFF0000000000000000000000000000000000000000000000}
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, JvBmpAnim,
  ExtCtrls, Menus, ComCtrls, StdCtrls, ImgList, JvComponent;

type
  TBmpAnimMainForm = class(TForm)
    Edit1: TEdit;
    UpDown1: TUpDown;
    OnOff: TButton;
    BmpAnimator1: TJvBmpAnimator;
    Edit2: TEdit;
    UpDown2: TUpDown;
    Label1: TLabel;
    Label2: TLabel;
    ImageList1: TImageList;
    procedure OnOffClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  end;

var
  BmpAnimMainForm: TBmpAnimMainForm;

implementation

{$R *.DFM}

procedure TBmpAnimMainForm.OnOffClick(Sender: TObject);
begin
  with BmpAnimator1 do
  begin
    Active := not Active;
    if not Active then Position := 0;
  end;
end;

procedure TBmpAnimMainForm.Edit1Change(Sender: TObject);
begin
  if not BmpAnimator1.Active then
     BmpAnimator1.Position := UpDown1.Position;
end;

procedure TBmpAnimMainForm.Edit2Change(Sender: TObject);
begin
  try
    BmpAnimator1.Speed := StrToInt(Edit2.Text);
  except
    BmpAnimator1.Speed := 15;
end;

end;

end.