Changeset 28 for branches/topdown/Apps/UAppCalc.pas

Timestamp:

Aug 23, 2019, 9:14:24 AM (5 years ago)

Author:

chronos

Message:

• Added: Sample application text editor.
• Modified: Main form in full screen mode.

File:

• branches/topdown/Apps/UAppCalc.pas (modified) (3 diffs)

branches/topdown/Apps/UAppCalc.pas

@@ -43 +43 @@
   Calculate;
   LastOp := opAdd;
+  EditInput.SetFocus;
+  EditInput.SelectAll;
 end;
 
@@ -48 +50 @@
 begin
   Calculate;
+  EditInput.SetFocus;
+  EditInput.SelectAll;
 end;
 
@@ -54 +58 @@
   Calculate;
   LastOp := opMultiply;
+  EditInput.SetFocus;
+  EditInput.SelectAll;
 end;