Changeset 829 for cprs/trunk/CPRS-Chart/Templates/fTemplateFields.dfm
- Timestamp:
- Jul 7, 2010, 4:31:10 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/Templates/fTemplateFields.dfm
r456 r829 1 objectfrmTemplateFields: TfrmTemplateFields1 inherited frmTemplateFields: TfrmTemplateFields 2 2 Left = 212 3 3 Top = 155 4 Width = 4185 Height = 3006 4 Caption = 'Insert Template Field' 7 Color = clBtnFace 8 Font.Charset = DEFAULT_CHARSET 9 Font.Color = clWindowText 10 Font.Height = -11 11 Font.Name = 'MS Sans Serif' 12 Font.Style = [] 5 ClientHeight = 319 6 ClientWidth = 450 13 7 FormStyle = fsStayOnTop 14 OldCreateOrder = False15 8 Position = poOwnerFormCenter 16 9 OnClose = FormClose 17 10 OnCreate = FormCreate 18 11 OnShow = FormShow 12 ExplicitWidth = 458 13 ExplicitHeight = 346 19 14 PixelsPerInch = 96 20 15 TextHeight = 13 21 object pnlBottom: TPanel 16 object pnlBottom: TPanel [0] 22 17 Left = 0 23 Top = 2 4624 Width = 4 1025 Height = 2 718 Top = 226 19 Width = 450 20 Height = 28 26 21 Align = alBottom 27 22 BevelOuter = bvNone 28 TabOrder = 023 TabOrder = 1 29 24 DesignSize = ( 30 410 31 27) 32 object lblReq: TStaticText 33 Left = 21 34 Top = 8 35 Width = 134 36 Height = 17 37 Caption = '* Indicates a Required Field' 38 TabOrder = 3 39 end 25 450 26 28) 40 27 object btnCancel: TButton 41 Left = 3 3528 Left = 371 42 29 Top = 4 43 30 Width = 75 … … 47 34 Caption = '&Done' 48 35 ModalResult = 2 49 TabOrder = 236 TabOrder = 3 50 37 OnClick = btnCancelClick 51 38 end 52 39 object btnInsert: TButton 53 Left = 2 5540 Left = 291 54 41 Top = 4 55 42 Width = 75 … … 59 46 Default = True 60 47 ModalResult = 4 61 TabOrder = 148 TabOrder = 2 62 49 OnClick = btnInsertClick 63 50 end 64 51 object btnPreview: TButton 65 Left = 17552 Left = 211 66 53 Top = 4 67 54 Width = 75 68 55 Height = 21 56 Anchors = [akTop, akRight] 69 57 Caption = '&Preview' 70 58 Enabled = False 59 TabOrder = 1 60 OnClick = btnPreviewClick 61 end 62 object lblReq: TVA508StaticText 63 Name = 'lblReq' 64 AlignWithMargins = True 65 Left = 10 66 Top = 12 67 Width = 132 68 Height = 15 69 Alignment = taLeftJustify 70 Anchors = [akLeft, akBottom] 71 Caption = '* Indicates a Required Field' 71 72 TabOrder = 0 72 OnClick = btnPreviewClick73 end 74 end 75 object cboObjects: TORComboBox 73 ShowAccelChar = True 74 end 75 end 76 object cboObjects: TORComboBox [1] 76 77 Left = 0 77 78 Top = 0 78 Width = 4 1079 Height = 2 4679 Width = 450 80 Height = 226 80 81 Style = orcsSimple 81 82 Align = alClient … … 89 90 ListItemsOnly = True 90 91 LongList = True 92 LookupPiece = 0 91 93 MaxLength = 0 92 94 Pieces = '2,3' … … 95 97 SynonymChars = '<Inactive>' 96 98 TabPositions = '50,60,70,80,90' 97 TabOrder = 1 99 TabOrder = 0 100 TabStop = True 98 101 OnChange = cboObjectsChange 99 102 OnDblClick = cboObjectsDblClick 100 103 OnNeedData = cboObjectsNeedData 104 CharsNeedMatch = 1 105 end 106 object pnlBottomSR: TPanel [2] 107 Left = 0 108 Top = 254 109 Width = 450 110 Height = 65 111 Align = alBottom 112 BevelOuter = bvNone 113 TabOrder = 2 114 object lblSRCont2: TVA508StaticText 115 Name = 'lblSRCont2' 116 AlignWithMargins = True 117 Left = 24 118 Top = 45 119 Width = 423 120 Height = 15 121 Margins.Left = 24 122 Margins.Top = 0 123 Margins.Bottom = 0 124 Align = alTop 125 Alignment = taLeftJustify 126 Caption = 127 'speaking text that follows the template field, when the field re' + 128 'ceives focus.' 129 TabOrder = 3 130 ShowAccelChar = True 131 end 132 object lblSRCont1: TVA508StaticText 133 Name = 'lblSRCont1' 134 AlignWithMargins = True 135 Left = 10 136 Top = 30 137 Width = 437 138 Height = 15 139 Margins.Left = 10 140 Margins.Top = 0 141 Margins.Bottom = 0 142 Align = alTop 143 Alignment = taLeftJustify 144 Caption = 145 '*** Place this code after a template field to allow the screen r' + 146 'eader to continue' 147 TabOrder = 2 148 ShowAccelChar = True 149 end 150 object lblSRStop: TVA508StaticText 151 Name = 'lblSRStop' 152 AlignWithMargins = True 153 Left = 10 154 Top = 15 155 Width = 437 156 Height = 15 157 Margins.Left = 10 158 Margins.Top = 0 159 Margins.Bottom = 0 160 Align = alTop 161 Alignment = taLeftJustify 162 Caption = '** Screen reader will stop speaking at this point' 163 TabOrder = 1 164 ShowAccelChar = True 165 end 166 object pnlSRIntro: TPanel 167 Left = 0 168 Top = 0 169 Width = 450 170 Height = 15 171 Align = alTop 172 BevelOuter = bvNone 173 TabOrder = 0 174 object lblSRIntro1: TVA508StaticText 175 Name = 'lblSRIntro1' 176 AlignWithMargins = True 177 Left = 10 178 Top = 0 179 Width = 127 180 Height = 15 181 Margins.Left = 10 182 Margins.Top = 0 183 Margins.Bottom = 0 184 Align = alLeft 185 Alignment = taLeftJustify 186 Caption = 'Screen Reader Codes' 187 Font.Charset = DEFAULT_CHARSET 188 Font.Color = clWindowText 189 Font.Height = -11 190 Font.Name = 'MS Sans Serif' 191 Font.Style = [fsBold] 192 ParentFont = False 193 TabOrder = 0 194 ShowAccelChar = True 195 end 196 object lblSRIntro2: TVA508StaticText 197 Name = 'lblSRIntro2' 198 Left = 140 199 Top = 0 200 Width = 310 201 Height = 15 202 Align = alClient 203 Alignment = taLeftJustify 204 Caption = '(make templates user friendly for those using screen readers)' 205 TabOrder = 1 206 ShowAccelChar = True 207 end 208 end 209 end 210 inherited amgrMain: TVA508AccessibilityManager 211 Data = ( 212 ( 213 'Component = pnlBottom' 214 'Status = stsDefault') 215 ( 216 'Component = btnCancel' 217 'Status = stsDefault') 218 ( 219 'Component = btnInsert' 220 'Status = stsDefault') 221 ( 222 'Component = btnPreview' 223 'Status = stsDefault') 224 ( 225 'Component = cboObjects' 226 'Status = stsDefault') 227 ( 228 'Component = frmTemplateFields' 229 'Status = stsDefault') 230 ( 231 'Component = lblReq' 232 'Status = stsDefault') 233 ( 234 'Component = pnlBottomSR' 235 'Status = stsDefault') 236 ( 237 'Component = lblSRCont2' 238 'Status = stsDefault') 239 ( 240 'Component = lblSRCont1' 241 'Status = stsDefault') 242 ( 243 'Component = lblSRStop' 244 'Status = stsDefault') 245 ( 246 'Component = pnlSRIntro' 247 'Status = stsDefault') 248 ( 249 'Component = lblSRIntro1' 250 'Status = stsDefault') 251 ( 252 'Component = lblSRIntro2' 253 'Status = stsDefault')) 101 254 end 102 255 end
Note:
See TracChangeset
for help on using the changeset viewer.