Changeset 28 for branches/topdown/Apps


Ignore:
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.
Location:
branches/topdown/Apps
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed

  • branches/topdown/Apps/UAppCalc.pas

    r25 r28  
    4343  Calculate;
    4444  LastOp := opAdd;
     45  EditInput.SetFocus;
     46  EditInput.SelectAll;
    4547end;
    4648
    … …  
    4850begin
    4951  Calculate;
     52  EditInput.SetFocus;
     53  EditInput.SelectAll;
    5054end;
    5155
    … …  
    5458  Calculate;
    5559  LastOp := opMultiply;
     60  EditInput.SetFocus;
     61  EditInput.SelectAll;
    5662end;
    5763
Note: See TracChangeset for help on using the changeset viewer.