修改按钮锚定设置，虚拟键盘下memo1高度恢复改在formclose过程中实现

247eae73 · cz_012273 · b9b989aa · 247eae73 · 247eae73 · 247eae73
隐藏空白更改
内联并排

Showing with 56 addition and 50 deletion

MyDelphi.dproj MyDelphi.dproj +28 -28

Unit1.LgXhdpiPh.fmx Unit1.LgXhdpiPh.fmx +6 -13

Unit1.fmx Unit1.fmx +19 -7

Unit1.pas Unit1.pas +3 -2

未找到文件。
--- a/MyDelphi.dproj
+++ b/MyDelphi.dproj
@@ -288,15 +288,15 @@
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_NotificationIcon_96x96.png" Configuration="Debug" Class="Android_NotificationIcon96">
+                <DeployFile LocalName="Icon\Authenticator_5_.png" Configuration="Debug" Class="Android_LauncherIcon144">
                    <Platform Name="Android64">
-                        <RemoteName>ic_notification.png</RemoteName>
+                        <RemoteName>ic_launcher.png</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Icon\Authenticator_2_.png" Configuration="Debug" Class="Android_LauncherIcon48">
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_NotificationIcon_96x96.png" Configuration="Debug" Class="Android_NotificationIcon96">
                    <Platform Name="Android64">
-                        <RemoteName>ic_launcher.png</RemoteName>
+                        <RemoteName>ic_notification.png</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
@@ -318,27 +318,21 @@
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png" Configuration="Debug" Class="Android_SplashImage470">
-                    <Platform Name="Android64">
-                        <RemoteName>splash_image.png</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
-                <DeployFile LocalName="$(BDS)\lib\android\debug\mips\libnative-activity.so" Configuration="Debug" Class="AndroidLibnativeMipsFile">
+                <DeployFile LocalName="Icon\Authenticator_3_.png" Configuration="Debug" Class="Android_LauncherIcon72">
                    <Platform Name="Android64">
-                        <RemoteName>libHeaderFooterApplication.so</RemoteName>
+                        <RemoteName>ic_launcher.png</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Icon\Authenticator_3_.png" Configuration="Debug" Class="Android_LauncherIcon72">
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png" Configuration="Debug" Class="Android_SplashImage470">
                    <Platform Name="Android64">
-                        <RemoteName>ic_launcher.png</RemoteName>
+                        <RemoteName>splash_image.png</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Icon\Authenticator_6_.png" Configuration="Debug" Class="Android_LauncherIcon192">
+                <DeployFile LocalName="$(BDS)\lib\android\debug\mips\libnative-activity.so" Configuration="Debug" Class="AndroidLibnativeMipsFile">
                    <Platform Name="Android64">
-                        <RemoteName>ic_launcher.png</RemoteName>
+                        <RemoteName>libHeaderFooterApplication.so</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
@@ -348,23 +342,23 @@
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Android64\Debug\colors.xml" Configuration="Debug" Class="Android_Colors">
+                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png" Configuration="Debug" Class="Android_NotificationIcon24">
                    <Platform Name="Android64">
+                        <RemoteName>ic_notification.png</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Android64\Debug\styles.xml" Configuration="Debug" Class="AndroidSplashStyles">
+                <DeployFile LocalName="Android64\Debug\AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest">
                    <Platform Name="Android64">
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="$(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png" Configuration="Debug" Class="Android_NotificationIcon24">
+                <DeployFile LocalName="Android64\Debug\colors.xml" Configuration="Debug" Class="Android_Colors">
                    <Platform Name="Android64">
-                        <RemoteName>ic_notification.png</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Android64\Debug\AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest">
+                <DeployFile LocalName="Android64\Debug\styles.xml" Configuration="Debug" Class="AndroidSplashStyles">
                    <Platform Name="Android64">
                        <Overwrite>true</Overwrite>
                    </Platform>
@@ -386,6 +380,12 @@
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
+                <DeployFile LocalName="Icon\Authenticator_2_.png" Configuration="Debug" Class="Android_LauncherIcon48">
+                    <Platform Name="Android64">
+                        <RemoteName>ic_launcher.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                <DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
                    <Platform Name="iOSSimulator">
                        <Overwrite>true</Overwrite>
@@ -402,6 +402,12 @@
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
+                <DeployFile LocalName="Icon\Authenticator_1_.png" Configuration="Debug" Class="Android_LauncherIcon36">
+                    <Platform Name="Android64">
+                        <RemoteName>ic_launcher.png</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                <DeployFile LocalName="Icon\Authenticator_4_.png" Configuration="Debug" Class="Android_LauncherIcon96">
                    <Platform Name="Android64">
                        <RemoteName>ic_launcher.png</RemoteName>
@@ -419,19 +425,13 @@
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Icon\Authenticator_1_.png" Configuration="Debug" Class="Android_LauncherIcon36">
-                    <Platform Name="Android64">
-                        <RemoteName>ic_launcher.png</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
                <DeployFile LocalName="Android64\Debug\styles-v21.xml" Configuration="Debug" Class="AndroidSplashStylesV21">
                    <Platform Name="Android64">
                        <RemoteName>styles.xml</RemoteName>
                        <Overwrite>true</Overwrite>
                    </Platform>
                </DeployFile>
-                <DeployFile LocalName="Icon\Authenticator_5_.png" Configuration="Debug" Class="Android_LauncherIcon144">
+                <DeployFile LocalName="Icon\Authenticator_6_.png" Configuration="Debug" Class="Android_LauncherIcon192">
                    <Platform Name="Android64">
                        <RemoteName>ic_launcher.png</RemoteName>
                        <Overwrite>true</Overwrite>

--- a/Unit1.LgXhdpiPh.fmx
+++ b/Unit1.LgXhdpiPh.fmx
@@ -20,44 +20,37 @@ inherited Form1_LgXhdpiPh: TForm1_LgXhdpiPh
    Viewport.Height = 473.000000000000000000
  end
  inherited Button1: TButton
-    Anchors = [akTop, akRight]
    Position.X = 370.000000000000000000
    Size.Width = 80.000000000000000000
  end
  inherited Filedelete: TButton
-    Anchors = [akBottom]
-    Position.X = 38.000000000000000000
+    Position.X = 6.000000000000000000
    Position.Y = 640.000000000000000000
    Size.Width = 165.000000000000000000
  end
  inherited FileExit: TButton
-    Anchors = [akBottom]
-    Position.X = 246.000000000000000000
+    Position.X = 278.000000000000000000
    Position.Y = 640.000000000000000000
    Size.Width = 165.000000000000000000
  end
  inherited FileNew: TButton
-    Anchors = [akBottom]
-    Position.X = 38.000000000000000000
+    Position.X = 6.000000000000000000
    Position.Y = 512.000000000000000000
    Size.Width = 165.000000000000000000
    OnClick = FileNewClick
  end
  inherited FileOpen: TButton
-    Anchors = [akBottom]
-    Position.X = 246.000000000000000000
+    Position.X = 278.000000000000000000
    Position.Y = 512.000000000000000000
    Size.Width = 165.000000000000000000
  end
  inherited FileSave: TButton
-    Anchors = [akBottom]
-    Position.X = 38.000000000000000000
+    Position.X = 6.000000000000000000
    Position.Y = 576.000000000000000000
    Size.Width = 165.000000000000000000
  end
  inherited FileSaveAs: TButton
-    Anchors = [akBottom]
-    Position.X = 246.000000000000000000
+    Position.X = 278.000000000000000000
    Position.Y = 576.000000000000000000
    Size.Width = 165.000000000000000000
  end

--- a/Unit1.fmx
+++ b/Unit1.fmx
@@ -13,7 +13,7 @@ object Form1: TForm1
    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
    DataDetectorTypes = []
    TextSettings.WordWrap = True
-    Anchors = [akLeft, akTop, akRight]
+    Anchors = [akLeft, akTop, akRight, akBottom]
    Position.X = 8.000000000000000000
    Position.Y = 24.000000000000000000
    Size.Width = 401.000000000000000000
@@ -25,6 +25,7 @@ object Form1: TForm1
    Viewport.Height = 473.000000000000000000
  end
  object Button1: TButton
+    Anchors = [akTop, akRight]
    Position.X = 312.000000000000000000
    Size.Width = 105.000000000000000000
    Size.Height = 25.000000000000000000
@@ -34,8 +35,9 @@ object Form1: TForm1
    OnClick = Button1Click
  end
  object Filedelete: TButton
+    Anchors = [akLeft, akBottom]
    StyledSettings = [Family, Style, FontColor]
-    Position.X = 16.000000000000000000
+    Position.X = 8.000000000000000000
    Position.Y = 648.000000000000000000
    Size.Width = 177.000000000000000000
    Size.Height = 44.000000000000000000
@@ -43,10 +45,13 @@ object Form1: TForm1
    TabOrder = 6
    Text = #21024'     '#38500
    TextSettings.Font.Size = 22.000000000000000000
+    OnMouseDown = FiledeleteMouseDown
+    OnMouseUp = FiledeleteMouseUp
  end
  object FileExit: TButton
+    Anchors = [akRight, akBottom]
    StyledSettings = [Family, Style, FontColor]
-    Position.X = 224.000000000000000000
+    Position.X = 232.000000000000000000
    Position.Y = 648.000000000000000000
    Size.Width = 177.000000000000000000
    Size.Height = 44.000000000000000000
@@ -57,8 +62,9 @@ object Form1: TForm1
    OnClick = FileExitClick
  end
  object FileNew: TButton
+    Anchors = [akLeft, akBottom]
    StyledSettings = [Family, Style, FontColor]
-    Position.X = 16.000000000000000000
+    Position.X = 8.000000000000000000
    Position.Y = 520.000000000000000000
    Size.Width = 177.000000000000000000
    Size.Height = 44.000000000000000000
@@ -66,10 +72,12 @@ object Form1: TForm1
    TabOrder = 11
    Text = #26032'     '#24314
    TextSettings.Font.Size = 22.000000000000000000
+    OnClick = FileNewClick
  end
  object FileOpen: TButton
+    Anchors = [akRight, akBottom]
    StyledSettings = [Family, Style, FontColor]
-    Position.X = 224.000000000000000000
+    Position.X = 232.000000000000000000
    Position.Y = 520.000000000000000000
    Size.Width = 177.000000000000000000
    Size.Height = 44.000000000000000000
@@ -80,8 +88,9 @@ object Form1: TForm1
    OnClick = FileOpenClick
  end
  object FileSave: TButton
+    Anchors = [akLeft, akBottom]
    StyledSettings = [Family, Style, FontColor]
-    Position.X = 16.000000000000000000
+    Position.X = 8.000000000000000000
    Position.Y = 584.000000000000000000
    Size.Width = 177.000000000000000000
    Size.Height = 44.000000000000000000
@@ -89,10 +98,12 @@ object Form1: TForm1
    TabOrder = 9
    Text = #20445'     '#23384
    TextSettings.Font.Size = 22.000000000000000000
+    OnClick = FileSaveClick
  end
  object FileSaveAs: TButton
+    Anchors = [akRight, akBottom]
    StyledSettings = [Family, Style, FontColor]
-    Position.X = 224.000000000000000000
+    Position.X = 232.000000000000000000
    Position.Y = 584.000000000000000000
    Size.Width = 177.000000000000000000
    Size.Height = 44.000000000000000000
@@ -100,6 +111,7 @@ object Form1: TForm1
    TabOrder = 8
    Text = #21478'     '#23384
    TextSettings.Font.Size = 22.000000000000000000
+    OnClick = FileSaveAsClick
  end
  object Label1: TLabel
    Align = Top

--- a/Unit1.pas
+++ b/Unit1.pas
@@ -248,8 +248,10 @@ begin
    Action := TCloseAction.caNone;
  end
  else
+  begin
    Memo1.Lines.clear;
-
+    memo1.height:= form1.height-226;  //将meno控件恢复到默认高度
+  end;
  FWantExit := True;

 {$ENDIF}
@@ -261,7 +263,6 @@ begin

  SetFileName(sUntitled);
  label1.text:='当前文件：'+sUntitled+'.txt';
-  memo1.height:= 475;  //将meno控件恢复到默认高度

 end;