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/fsinfounit.pas | 106 +++++++++++++++++++++++++-------------------------
 1 file changed, 53 insertions(+), 53 deletions(-)

(limited to 'Source/fsinfounit.pas')

diff --git a/Source/fsinfounit.pas b/Source/fsinfounit.pas
index d8de65d..892c964 100644
--- a/Source/fsinfounit.pas
+++ b/Source/fsinfounit.pas
@@ -1,53 +1,53 @@
-unit fsinfounit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  fsformunit;
-
-type
-  Tfsinfo = class(TFsForm)
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-    procedure Parse(const S: String); override;
-  end;
-
-var
-  fsinfo: Tfsinfo;
-
-implementation
-
-uses
-  mainunit, fsframeunit,
-  Strz;
-
-{$R *.DFM}
-
-{ Tfsinfo }
-
-procedure Tfsinfo.Parse(const S: String);
-var
-  s1: String;
-  f: TFsFrame;
-begin
-  if (S='') or
-   (WordCount(S, [' '])<5) or
-   (not main.cstoPd.Active) then Exit;
-
-  s1 := ExtractWord(1, S, [' ']);
-  f := FindFrame(s1);
-  if f=nil then Exit;
-
-  main.SendReturnValues(
-   ExtractWord(5, S, [' '])+'='+IntToStr(f.Avi.FrameRate)+';'+
-   ExtractWord(4, S, [' '])+'='+IntToStr(f.Avi.FrameCount)+';'+
-   ExtractWord(3, S, [' '])+'='+IntToStr(f.d1.Surface.Height)+';'+
-   ExtractWord(2, S, [' '])+'='+IntToStr(f.d1.Surface.Width)
-  );
-end;
-
-end.
-
+unit fsinfounit;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  fsformunit;
+
+type
+  Tfsinfo = class(TFsForm)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Parse(const S: String); override;
+  end;
+
+var
+  fsinfo: Tfsinfo;
+
+implementation
+
+uses
+  mainunit, fsframeunit,
+  Strz;
+
+{$R *.DFM}
+
+{ Tfsinfo }
+
+procedure Tfsinfo.Parse(const S: String);
+var
+  s1: String;
+  f: TFsFrame;
+begin
+  if (S='') or
+   (WordCount(S, [' '])<5) or
+   (not main.cstoPd.Active) then Exit;
+
+  s1 := ExtractWord(1, S, [' ']);
+  f := FindFrame(s1);
+  if f=nil then Exit;
+
+  main.SendReturnValues(
+   ExtractWord(5, S, [' '])+'='+IntToStr(f.Avi.FrameRate)+';'+
+   ExtractWord(4, S, [' '])+'='+IntToStr(f.Avi.FrameCount)+';'+
+   ExtractWord(3, S, [' '])+'='+IntToStr(f.d1.Surface.Height)+';'+
+   ExtractWord(2, S, [' '])+'='+IntToStr(f.d1.Surface.Width)
+  );
+end;
+
+end.
+
-- 
cgit v1.2.1