Changeset 829 for cprs/trunk/CPRS-Chart/Templates/mTemplateFieldButton.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Templates/mTemplateFieldButton.pas (modified) (8 diffs)

cprs/trunk/CPRS-Chart/Templates/mTemplateFieldButton.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls;
+  StdCtrls, ExtCtrls, uDlgComponents, VA508AccessibilityManager;
 
 type
-  TfraTemplateFieldButton = class(TFrame)
+  TfraTemplateFieldButton = class(TFrame, ICPRSDialogComponent)
     pnlBtn: TPanel;
     lblText: TLabel;
@@ -16 +16 @@
     procedure pnlBtnMouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
-    procedure pnlBtnEnter(Sender: TObject);
-    procedure pnlBtnExit(Sender: TObject);
+    procedure FrameEnter(Sender: TObject);
+    procedure FrameExit(Sender: TObject);
     procedure pbFocusPaint(Sender: TObject);
   private
+    FCPRSDialogData: ICPRSDialogComponent;
     FBtnDown: boolean;
     FItems: TStringList;
@@ -33 +34 @@
     property Items: TStringList read FItems;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property CPRSDialogData: ICPRSDialogComponent read FCPRSDialogData implements ICPRSDialogComponent;
   end;
 
@@ -40 +42 @@
 
 uses
-  ORFn;
-  
+  ORFn, VA508AccessibilityRouter;
+
 procedure TfraTemplateFieldButton.pnlBtnMouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
@@ -69 +71 @@
         idx := 0;
       ButtonText := FItems[idx];
+      if ScreenReaderSystemActive then
+      begin
+        txt := FItems[idx];
+        if Trim(txt) = '' then
+          txt := 'blank';
+        GetScreenReader.Speak(txt);
+      end;
       if assigned(FOnChange) then
         FOnChange(Self);
@@ -86 +95 @@
 end;
 
-procedure TfraTemplateFieldButton.pnlBtnEnter(Sender: TObject);
+type
+  TWinControlFriend = class(TWinControl);
+  
+procedure TfraTemplateFieldButton.FrameEnter(Sender: TObject);
 begin
   pbFocus.Invalidate;
 end;
 
-procedure TfraTemplateFieldButton.pnlBtnExit(Sender: TObject);
+procedure TfraTemplateFieldButton.FrameExit(Sender: TObject);
 begin
   pbFocus.Invalidate;
@@ -98 +110 @@
 constructor TfraTemplateFieldButton.Create(AOwner: TComponent);
 begin
-  inherited;
+  inherited Create(AOwner);
+  TabStop := TRUE;
   FItems := TStringList.Create;
   OnKeyDown := ButtonKeyDown;
   OnKeyUp := ButtonKeyUp;
   Font.Size := MainFontSize;
+  FCPRSDialogData := TCPRSDialogComponent.Create(Self, 'multi value button');
 end;
 
@@ -142 +156 @@
 begin
   FItems.Free;
+  FCPRSDialogData := nil;
   inherited;
 end;
 
+initialization
+  SpecifyFormIsNotADialog(TfraTemplateFieldButton);
+
 end.