| Last change
 on this file since 1565 was             460, checked in by Kevin Toppenberg, 17 years ago | 
        
          | 
Uploading from OR_30_258
 | 
        
          | File size:
            1.9 KB | 
      
      
| Rev | Line |  | 
|---|
| [459] | 1 | inherited frmOCSession: TfrmOCSession | 
|---|
| [460] | 2 | Left = 365 | 
|---|
|  | 3 | Top = 221 | 
|---|
| [459] | 4 | Width = 504 | 
|---|
|  | 5 | Height = 298 | 
|---|
|  | 6 | BorderIcons = [] | 
|---|
|  | 7 | Caption = 'Order Checks' | 
|---|
|  | 8 | Position = poScreenCenter | 
|---|
| [460] | 9 | ShowHint = True | 
|---|
|  | 10 | OnClose = FormClose | 
|---|
|  | 11 | OnShow = FormShow | 
|---|
| [459] | 12 | PixelsPerInch = 96 | 
|---|
|  | 13 | TextHeight = 13 | 
|---|
| [460] | 14 | object lstChecks: TCaptionListBox | 
|---|
|  | 15 | Left = 0 | 
|---|
|  | 16 | Top = 0 | 
|---|
|  | 17 | Width = 496 | 
|---|
|  | 18 | Height = 160 | 
|---|
|  | 19 | Style = lbOwnerDrawVariable | 
|---|
|  | 20 | Align = alClient | 
|---|
| [459] | 21 | ItemHeight = 13 | 
|---|
|  | 22 | MultiSelect = True | 
|---|
| [460] | 23 | ParentShowHint = False | 
|---|
|  | 24 | ShowHint = True | 
|---|
|  | 25 | TabOrder = 1 | 
|---|
| [459] | 26 | OnDrawItem = lstChecksDrawItem | 
|---|
|  | 27 | OnMeasureItem = lstChecksMeasureItem | 
|---|
| [460] | 28 | HintOnItem = True | 
|---|
| [459] | 29 | end | 
|---|
| [460] | 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 | 
|---|
| [459] | 80 | end | 
|---|
|  | 81 | end | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.