有効なEffectオブジェクトが持てる最大の数は１までです

diff --git a/Unit1.fmx b/Unit1.fmx
index 022fae8..01850c5 100644 (file)
--- a/Unit1.fmx
+++ b/Unit1.fmx
@@ -36,14 +36,14 @@ object Form1: TForm1
     Position.X = 88.000000000000000000
     Position.Y = 432.000000000000000000
     TabOrder = 6
-    Text = 'Button1'
+    Text = #38283#12367
     OnClick = Button1Click
   end
   object Button2: TButton
     Position.X = 496.000000000000000000
     Position.Y = 432.000000000000000000
     TabOrder = 9
-    Text = 'Button2'
+    Text = #23455#34892
     OnClick = Button2Click
   end
   object Timer1: TTimer
@@ -53,6 +53,31 @@ object Form1: TForm1
   object MainMenu1: TMainMenu
     Left = 152
     Top = 136
+    object MenuItem1: TMenuItem
+      Text = 'File'
+      object MenuItem2: TMenuItem
+        Locked = True
+        Text = 'Open'
+        OnClick = Button1Click
+      end
+      object MenuItem4: TMenuItem
+        Locked = True
+        Text = '-'
+      end
+      object MenuItem5: TMenuItem
+        Locked = True
+        Text = 'Exit'
+        OnClick = MenuItem5Click
+      end
+    end
+    object MenuItem3: TMenuItem
+      Text = 'Operation'
+      object MenuItem6: TMenuItem
+        Locked = True
+        Text = 'Run'
+        OnClick = Button2Click
+      end
+    end
   end
   object OpenDialog1: TOpenDialog
     Filter = #30011#20687#12501#12449#12452#12523'(*.jpg;*.jpeg;*.bmp;*png)|*.jpg;*.jpeg;*.bmp;*.png'

diff --git a/Unit1.pas b/Unit1.pas
index e936c9d..e69055f 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -3,10 +3,11 @@ unit Unit1;
 interface
 
 uses
-  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
+  System.SysUtils, System.Types, System.UITypes, System.Classes,
+  System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
-  Data.Bind.EngExt, Fmx.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs,
-  Fmx.Bind.Editors, Data.Bind.Components, FMX.StdCtrls, FMX.Effects,
+  Data.Bind.EngExt, FMX.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs,
+  FMX.Bind.Editors, Data.Bind.Components, FMX.StdCtrls, FMX.Effects,
   FMX.Filter.Effects, FMX.Ani, FMX.Objects, FMX.Menus, FMX.ListView.Types,
   FMX.ListView, System.TypInfo, FMX.Layouts, FMX.ListBox;
 
@@ -43,11 +44,18 @@ type
     Button2: TButton;
     Image2: TImage;
     ListBox1: TListBox;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure ListView1Change(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FloatAnimation1Finish(Sender: TObject);
+    procedure MenuItem5Click(Sender: TObject);
   private
     { private \90é\8c¾ }
   public
@@ -68,8 +76,8 @@ begin
   if OpenDialog1.Execute = true then
   begin
     ListView1.Items.Clear;
-    for i := 0 to OpenDialog1.Files.Count-1 do
-      ListView1.Items.Add.Text:=OpenDialog1.Files[i];
+    for i := 0 to OpenDialog1.Files.Count - 1 do
+      ListView1.Items.Add.Text := OpenDialog1.Files[i];
   end;
 end;
 
@@ -81,36 +89,41 @@ begin
   if Image1.Bitmap.IsEmpty = false then
   begin
     FloatAnimation1.Stop;
-    for i := 0 to Image2.ChildrenCount-1 do
+    for i := 0 to Image2.ChildrenCount - 1 do
       if Image2.Children[i].ClassName = ListBox1.Items[ListBox1.ItemIndex] then
-        s:=Image2.Children[i];
-    s.Parent:=Image1;
-    FloatAnimation1.Parent:=s;
-    SetObjectProp(s,'target',Image2.Bitmap);
+        s := Image2.Children[i];
+    s.Parent := Image1;
+    FloatAnimation1.Parent := s;
+    SetObjectProp(s, 'target', Image2.Bitmap);
     FloatAnimation1.Start;
   end;
 end;
 
 procedure TForm1.FloatAnimation1Finish(Sender: TObject);
 begin
-  FloatAnimation1.Parent.Parent:=Image2;
+  FloatAnimation1.Parent.Parent := Image2;
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 var
   i: Integer;
 begin
-  for i := 0 to Image2.ChildrenCount-1 do
+  for i := 0 to Image2.ChildrenCount - 1 do
     ListBox1.Items.Add(Image2.Children[i].ClassName);
-  ListBox1.ItemIndex:=0;
+  ListBox1.ItemIndex := 0;
 end;
 
 procedure TForm1.ListView1Change(Sender: TObject);
 begin
   FloatAnimation1.Stop;
   Image1.Bitmap.LoadFromFile(ListView1.Items[ListView1.ItemIndex].Text);
-  if ListView1.ItemIndex < ListView1.ItemCount-1 then
-    Image2.Bitmap.LoadFromFile(ListView1.Items[ListView1.ItemIndex+1].Text);
+  if ListView1.ItemIndex < ListView1.ItemCount - 1 then
+    Image2.Bitmap.LoadFromFile(ListView1.Items[ListView1.ItemIndex + 1].Text);
+end;
+
+procedure TForm1.MenuItem5Click(Sender: TObject);
+begin
+  Close;
 end;
 
 end.