• R/O
  • SSH
  • HTTPS

bitmaplisttool: Commit


Commit MetaInfo

Revision7 (tree)
Time2015-07-21 07:47:05
Authoryamat0jp

Log Message

ちょっとだけ工夫しました

リサイズでエディットの値を同期

UIを改良

Change Summary

Incremental Difference

--- Unit2.pas (revision 6)
+++ Unit2.pas (revision 7)
@@ -20,6 +20,7 @@
2020 Edit2: TEdit;
2121 UpDown1: TUpDown;
2222 UpDown2: TUpDown;
23+ Panel2: TPanel;
2324 procedure Button1Click(Sender: TObject);
2425 procedure Button2Click(Sender: TObject);
2526 procedure Edit1Change(Sender: TObject);
--- Unit3.pas (revision 6)
+++ Unit3.pas (revision 7)
@@ -9,6 +9,7 @@
99 type
1010 TForm3 = class(TForm)
1111 Image1: TImage;
12+ procedure FormResize(Sender: TObject);
1213 private
1314 { Private 宣言 }
1415 public
@@ -22,4 +23,12 @@
2223
2324 {$R *.dfm}
2425
26+uses Unit2;
27+
28+procedure TForm3.FormResize(Sender: TObject);
29+begin
30+ Form2.UpDown1.Position:=ClientWidth;
31+ Form2.UpDown2.Position:=ClientHeight;
32+end;
33+
2534 end.
Show on old repository browser