[G32-commits] SF.net SVN: graphics32:[1511] trunk/Source/Examples/Vcl/General/Rotate_Ex/ MainUnit.pas

[<CW...@us...>]

Revision: 1511
          http://graphics32.svn.sourceforge.net/graphics32/?rev=1511&view=rev
Author:   CWBudde
Date:     2012-03-24 23:11:02 +0000 (Sat, 24 Mar 2012)
Log Message:
-----------
* slightly improved rotate example

Modified Paths:
--------------
    trunk/Source/Examples/Vcl/General/Rotate_Ex/MainUnit.pas

Modified: trunk/Source/Examples/Vcl/General/Rotate_Ex/MainUnit.pas
===================================================================
--- trunk/Source/Examples/Vcl/General/Rotate_Ex/MainUnit.pas	2012-03-24 20:30:12 UTC (rev 1510)
+++ trunk/Source/Examples/Vcl/General/Rotate_Ex/MainUnit.pas	2012-03-24 23:11:02 UTC (rev 1511)
@@ -42,9 +42,6 @@
   GR32, GR32_Image, GR32_Transforms, GR32_RangeBars;
 
 type
-
-  { TFormRotateExample }
-
   TFormRotateExample = class(TForm)
     Angle: TGaugeBar;
     Src: TImage32;
@@ -75,6 +72,9 @@
   LazJPG;
 {$ENDIF}
 
+
+{ TFormRotateExample }
+
 procedure TFormRotateExample.FormCreate(Sender: TObject);
 var
 {$IFDEF Darwin}
@@ -127,7 +127,7 @@
   SrcR: Integer;
   SrcB: Integer;
   T: TAffineTransformation;
-  Sn,Cn: TFloat;
+  Sn, Cn: TFloat;
   Sx, Sy, Scale: Single;
 begin
   SrcR := Src.Bitmap.Width - 1;
@@ -153,7 +153,7 @@
     Sy := Src.Bitmap.Height / Sy;
     Scale := Min(Sx, Sy);
 
-    T.Scale(Scale, Scale);
+    T.Scale(Scale);
 
     // move the origin back
     T.Translate(SrcR * 0.5, SrcB * 0.5);

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.