Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.dfm
- Timestamp:
- Jul 6, 2008, 8:20:14 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/foia-cprs/CPRS-Chart/Orders/fOCSession.dfm
r459 r460 1 1 inherited frmOCSession: TfrmOCSession 2 Left = 2203 Top = 3922 Left = 365 3 Top = 221 4 4 Width = 504 5 5 Height = 298 … … 7 7 Caption = 'Order Checks' 8 8 Position = poScreenCenter 9 ShowHint = True 10 OnClose = FormClose 11 OnShow = FormShow 9 12 PixelsPerInch = 96 10 13 TextHeight = 13 11 object lblJustify: TLabel 12 Left = 8 13 Top = 195 14 Width = 248 15 Height = 13 16 Caption = 'Enter justification for overriding critical order checks -' 17 end 18 object lstChecks: TListBox 19 Left = 8 20 Top = 8 21 Width = 480 22 Height = 149 14 object lstChecks: TCaptionListBox 15 Left = 0 16 Top = 0 17 Width = 496 18 Height = 160 19 Style = lbOwnerDrawVariable 20 Align = alClient 23 21 ItemHeight = 13 24 22 MultiSelect = True 25 Style = lbOwnerDrawVariable 26 TabOrder = 0 23 ParentShowHint = False 24 ShowHint = True 25 TabOrder = 1 27 26 OnDrawItem = lstChecksDrawItem 28 27 OnMeasureItem = lstChecksMeasureItem 28 HintOnItem = True 29 29 end 30 object txtJustify: TCaptionEdit 31 Left = 8 32 Top = 209 33 Width = 480 34 Height = 21 35 MaxLength = 80 36 TabOrder = 2 37 Caption = 'Enter justification for overriding critical order checks -' 38 end 39 object cmdCancelOrder: TButton 40 Left = 356 41 Top = 162 42 Width = 133 43 Height = 21 44 Caption = 'Cancel Selected Order(s)' 45 TabOrder = 1 46 OnClick = cmdCancelOrderClick 47 end 48 object cmdContinue: TButton 49 Left = 212 50 Top = 242 51 Width = 72 52 Height = 21 53 Caption = 'Continue' 54 TabOrder = 3 55 OnClick = cmdContinueClick 30 object pnlBottom: TPanel 31 Left = 0 32 Top = 160 33 Width = 496 34 Height = 111 35 Align = alBottom 36 BevelOuter = bvNone 37 TabOrder = 0 38 DesignSize = ( 39 496 40 111) 41 object lblJustify: TLabel 42 Left = 8 43 Top = 34 44 Width = 248 45 Height = 13 46 Anchors = [akLeft, akTop, akRight] 47 Caption = 'Enter justification for overriding critical order checks -' 48 end 49 object txtJustify: TCaptionEdit 50 Left = 8 51 Top = 50 52 Width = 480 53 Height = 21 54 Anchors = [akLeft, akTop, akRight] 55 MaxLength = 80 56 TabOrder = 0 57 OnKeyDown = txtJustifyKeyDown 58 Caption = 'Enter justification for overriding critical order checks -' 59 end 60 object cmdCancelOrder: TButton 61 Left = 356 62 Top = 5 63 Width = 133 64 Height = 21 65 Anchors = [akLeft, akTop, akRight] 66 Caption = 'Cancel Selected Order(s)' 67 TabOrder = 2 68 OnClick = cmdCancelOrderClick 69 end 70 object cmdContinue: TButton 71 Left = 212 72 Top = 82 73 Width = 72 74 Height = 21 75 Anchors = [akLeft, akTop, akRight] 76 Caption = 'Continue' 77 TabOrder = 3 78 OnClick = cmdContinueClick 79 end 56 80 end 57 81 end
Note:
See TracChangeset
for help on using the changeset viewer.