|
From: <CW...@us...> - 2012-03-24 23:11:08
|
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.
|