[G32-commits] SF.net SVN: graphics32:[1526] trunk/Source/Examples/Vcl/Layers/RotLayer_Ex

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

Revision: 1526
          http://graphics32.svn.sourceforge.net/graphics32/?rev=1526&view=rev
Author:   CWBudde
Date:     2012-03-29 18:31:29 +0000 (Thu, 29 Mar 2012)
Log Message:
-----------
* updated rotlayer demo with respect to Lazarus

Modified Paths:
--------------
    trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.lfm
    trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.pas
    trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/RotLayer_Ex.res

Modified: trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.lfm
===================================================================
--- trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.lfm	2012-03-29 18:26:50 UTC (rev 1525)
+++ trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.lfm	2012-03-29 18:31:29 UTC (rev 1526)
@@ -7,14 +7,13 @@
   HorzScrollBar.Range = 127
   VertScrollBar.Page = 476
   VertScrollBar.Range = 454
-  ActiveControl = CheckBox1
   Caption = 'Rotation Layer Example'
   ClientHeight = 477
   ClientWidth = 314
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   OnCreate = FormCreate
-  LCLVersion = '0.9.29'
+  LCLVersion = '0.9.31'
   object lbAngle: TLabel
     Left = 12
     Height = 14
@@ -136,6 +135,7 @@
     ScrollBars.Color = clScrollBar
     ScrollBars.ShowHandleGrip = True
     ScrollBars.Style = rbsMac
+    ScrollBars.Size = 16
     OverSize = 0
     TabOrder = 5
   end

Modified: trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.pas
===================================================================
--- trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.pas	2012-03-29 18:26:50 UTC (rev 1525)
+++ trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/MainUnit.pas	2012-03-29 18:31:29 UTC (rev 1526)
@@ -44,9 +44,6 @@
   GR32_Image, GR32_RotLayer, GR32_Transforms, GR32_RangeBars, GR32_Resamplers;
 
 type
-
-  { TFormRotLayer }
-
   TFormRotLayer = class(TForm)
     cbScaled: TCheckBox;
     gbAngle: TGaugeBar;
@@ -63,8 +60,6 @@
     procedure gbPositionChange(Sender: TObject);
     procedure gbScaleChange(Sender: TObject);
     procedure cbScaledClick(Sender: TObject);
-  private
-    { Private declarations }
   public
     L: TRotLayer;
   end;
@@ -74,8 +69,10 @@
 
 implementation
 
-{$IFNDEF FPC}
-{$R *.DFM}
+{$IFDEF FPC}
+{$R *.lfm}
+{$ELSE}
+{$R *.dfm}
 {$ENDIF}
 
 uses
@@ -89,6 +86,8 @@
 {$ENDIF}
   Math;
 
+{ TFormRotLayer }
+
 procedure TFormRotLayer.FormCreate(Sender: TObject);
 var
 {$IFDEF Darwin}
@@ -144,7 +143,7 @@
     //ensure good looking edge, dynamic alternative to SetBorderTransparent
     TCustomResampler(L.Bitmap.Resampler).PixelAccessMode := pamTransparentEdge;
 
-    L.BitmapCenter := FloatPoint(Width / 2, Height / 2);
+    L.BitmapCenter := FloatPoint(Width * 0.5, Height * 0.5);
     MasterAlpha := 200;
     FrameRectS(BoundsRect, $FFFFFFFF);
     DrawMode := dmBlend;
@@ -180,9 +179,4 @@
   L.Scaled := not L.Scaled;
 end;
 
-{$IFDEF FPC}
-initialization
-  {$I MainUnit.lrs}
-{$ENDIF}
-
 end.

Modified: trunk/Source/Examples/Vcl/Layers/RotLayer_Ex/RotLayer_Ex.res
===================================================================
(Binary files differ)

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