From fe070b42d2ddea9ec14bb186b6cc0b6d11b490c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Tue, 3 Jun 2003 20:46:51 +0000
Subject: *** empty log message ***

svn path=/trunk/Framestein/; revision=675
---
 Source/fsaviunit.pas | 206 +++++++++++++++++++++++++--------------------------
 1 file changed, 103 insertions(+), 103 deletions(-)

(limited to 'Source/fsaviunit.pas')

diff --git a/Source/fsaviunit.pas b/Source/fsaviunit.pas
index 6f81e0b..edda003 100644
--- a/Source/fsaviunit.pas
+++ b/Source/fsaviunit.pas
@@ -1,103 +1,103 @@
-unit fsaviunit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fsformunit,
-  fsaviwriter, ExtCtrls, StdCtrls, Buttons;
-
-type
-  TFsAvi = class(TFsForm)
-    sd1: TSaveDialog;
-    procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
-    procedure BitBtn1Click(Sender: TObject);
-    procedure Button1Click(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
-  private
-    { Private declarations }
-    a: TAviWriter;
-  public
-    { Public declarations }
-    procedure Parse(const S: String); override;
-  end;
-
-var
-  FsAvi: TFsAvi;
-
-implementation
-
-uses
-  fsframeunit, strz, mainunit;
-
-{$R *.DFM}
-
-{ Tavi }
-
-procedure TFsAvi.Parse(const S: String);
-var
-  s1: String;
-  f: TFsFrame;
-begin
-  if S='' then Exit;
-
-  s1 := UpperCase(ExtractWord(1, S, [' ']));
-
-  if s1='WRITE' then begin
-    a.FileName := Copy(S, Length(s1)+2, 255);
-    if a.Filename='' then
-      if sd1.Execute then begin
-        a.Filename := sd1.Filename;
-        if UpperCase(ExtractFileExt(a.Filename))<>'.AVI' then
-          a.Filename := a.Filename+'.avi';
-      end else
-        Exit;
-    a.Finish;
-    Exit;
-  end else
-  if s1='FPS' then begin
-    a.fps := MyStrToInt(Copy(S, Length(s1)+2, 255));
-    Exit;
-  end;
-
-  if not a.Prepared then
-    a.Prepare;
-
-  f := FindFrame(S);
-  if f=nil then Exit;
-
-  a.Width := f.d1.SurfaceWidth;
-  a.Height := f.d1.SurfaceHeight;
-
-  f.dDib.DIB.Assign(f.d1.Surface);
-  a.AddFrame(f.dDib.DIB);
-  main.SendReturnValues(PdName+'pos='+IntToStr(a.FramePos));
-end;
-
-procedure TFsAvi.FormCreate(Sender: TObject);
-begin
-  a := TAviWriter.Create(Self);
-end;
-
-procedure TFsAvi.FormDestroy(Sender: TObject);
-begin
-  a.Free;
-end;
-
-procedure TFsAvi.BitBtn1Click(Sender: TObject);
-begin
-  a.Write;
-end;
-
-procedure TFsAvi.Button1Click(Sender: TObject);
-begin
-  a.Prepare;
-end;
-
-procedure TFsAvi.Button2Click(Sender: TObject);
-begin
-  a.Finish;
-end;
-
-end.
+unit fsaviunit;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  fsformunit,
+  fsaviwriter, ExtCtrls, StdCtrls, Buttons;
+
+type
+  TFsAvi = class(TFsForm)
+    sd1: TSaveDialog;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure BitBtn1Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    { Private declarations }
+    a: TAviWriter;
+  public
+    { Public declarations }
+    procedure Parse(const S: String); override;
+  end;
+
+var
+  FsAvi: TFsAvi;
+
+implementation
+
+uses
+  fsframeunit, strz, mainunit;
+
+{$R *.DFM}
+
+{ Tavi }
+
+procedure TFsAvi.Parse(const S: String);
+var
+  s1: String;
+  f: TFsFrame;
+begin
+  if S='' then Exit;
+
+  s1 := UpperCase(ExtractWord(1, S, [' ']));
+
+  if s1='WRITE' then begin
+    a.FileName := Copy(S, Length(s1)+2, 255);
+    if a.Filename='' then
+      if sd1.Execute then begin
+        a.Filename := sd1.Filename;
+        if UpperCase(ExtractFileExt(a.Filename))<>'.AVI' then
+          a.Filename := a.Filename+'.avi';
+      end else
+        Exit;
+    a.Finish;
+    Exit;
+  end else
+  if s1='FPS' then begin
+    a.fps := MyStrToInt(Copy(S, Length(s1)+2, 255));
+    Exit;
+  end;
+
+  if not a.Prepared then
+    a.Prepare;
+
+  f := FindFrame(S);
+  if f=nil then Exit;
+
+  a.Width := f.d1.SurfaceWidth;
+  a.Height := f.d1.SurfaceHeight;
+
+  f.dDib.DIB.Assign(f.d1.Surface);
+  a.AddFrame(f.dDib.DIB);
+  main.SendReturnValues(PdName+'pos='+IntToStr(a.FramePos));
+end;
+
+procedure TFsAvi.FormCreate(Sender: TObject);
+begin
+  a := TAviWriter.Create(Self);
+end;
+
+procedure TFsAvi.FormDestroy(Sender: TObject);
+begin
+  a.Free;
+end;
+
+procedure TFsAvi.BitBtn1Click(Sender: TObject);
+begin
+  a.Write;
+end;
+
+procedure TFsAvi.Button1Click(Sender: TObject);
+begin
+  a.Prepare;
+end;
+
+procedure TFsAvi.Button2Click(Sender: TObject);
+begin
+  a.Finish;
+end;
+
+end.
-- 
cgit v1.2.1