何かしっくりきませんがコミット

diff --git a/tool/Unit2.dfm b/tool/Unit2.dfm
index 148ee13..703e569 100644 (file)
--- a/tool/Unit2.dfm
+++ b/tool/Unit2.dfm
@@ -34,13 +34,6 @@ object Form1: TForm1
     Height = 13
     Caption = #35373#23450#29992
   end
-  object Label4: TLabel
-    Left = 286
-    Top = 489
-    Width = 36
-    Height = 13
-    Caption = #35519#25972#20013
-  end
   object Button1: TButton
     Left = 296
     Top = 56
@@ -142,6 +135,7 @@ object Form1: TForm1
     Height = 25
     Caption = 'default'
     TabOrder = 11
+    OnClick = Button5Click
   end
   object Edit5: TEdit
     Left = 328
@@ -150,6 +144,7 @@ object Form1: TForm1
     Height = 21
     ReadOnly = True
     TabOrder = 12
+    Text = '30'
   end
   object UpDown1: TUpDown
     Left = 393

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index e6eede7..86c7f50 100644 (file)
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -58,7 +58,6 @@ type
     ComboBox1: TComboBox;
     Button6: TButton;
     Label3: TLabel;
-    Label4: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
@@ -67,6 +66,7 @@ type
     procedure ComboBox1Select(Sender: TObject);
     procedure CheckBox1Click(Sender: TObject);
     procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
+    procedure Button5Click(Sender: TObject);
   private
     { Private \90é\8c¾ }
   public
@@ -130,6 +130,22 @@ begin
   end;
 end;
 
+procedure TForm1.Button5Click(Sender: TObject);
+begin
+  Edit4.Text := '\82Æ\82é\82Ë\81`\82Ç\8d\86';
+  Memo1.Lines.Text :=
+    '<h1 style=color:maron;text-align:center;font-style:italic>\82Æ\82é\82Ë\81`\82Ç\8d\86</h1>';
+  Edit3.Text := '\94n\8e­,\88¢\95Û,\8e\80\82Ë,\8eE\82·';
+  Edit6.Text := 'admin';
+  ComboBox1.Text := 'info';
+  UpDown1.Position := 30;
+  UpDown1Click(nil);
+  CheckBox1.Checked := false;
+  CheckBox1Click(nil);
+  FDTable2.Post;
+  FDTable2.Edit;
+end;
+
 procedure TForm1.Button6Click(Sender: TObject);
   function hash(str: string): string;
   begin