Changeset 1679 for cprs/trunk/CPRS-Chart/fRenewOutMed.pas
- Timestamp:
- May 7, 2015, 12:34:29 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/fRenewOutMed.pas
r830 r1679 6 6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 7 7 fAutoSz, StdCtrls, ComCtrls, ORFn, rOrders, Mask, ORCtrls, ExtCtrls, fBase508Form, 8 VA508AccessibilityManager ;8 VA508AccessibilityManager, VA508AccessibilityRouter; 9 9 10 10 type … … 19 19 txtRefills: TCaptionEdit; 20 20 lblRefills: TLabel; 21 VA508ComponentAccessibility1: TVA508ComponentAccessibility; 21 22 procedure FormCreate(Sender: TObject); 22 23 procedure cmdOKClick(Sender: TObject); 23 24 procedure cmdCancelClick(Sender: TObject); 25 procedure VA508ComponentAccessibility1StateQuery(Sender: TObject; 26 var Text: string); 27 procedure FormShow(Sender: TObject); 24 28 private 25 29 OKPressed: Boolean; … … 73 77 end; 74 78 79 procedure TfrmRenewOutMed.FormShow(Sender: TObject); 80 begin 81 inherited; 82 if ScreenReaderSystemActive then 83 begin 84 memOrder.TabStop := true; 85 memOrder.SetFocus; 86 end; 87 end; 88 89 procedure TfrmRenewOutMed.VA508ComponentAccessibility1StateQuery( 90 Sender: TObject; var Text: string); 91 begin 92 inherited; 93 Text := memOrder.Text; 94 end; 95 75 96 procedure TfrmRenewOutMed.cmdOKClick(Sender: TObject); 76 97 var
Note:
See TracChangeset
for help on using the changeset viewer.