| Last change
 on this file since 768 was             729, checked in by Kevin Toppenberg, 16 years ago | 
        
          | 
Added functions to Templates, and Images tab
 | 
        
          | File size:
            2.3 KB | 
      
      
| Rev | Line |  | 
|---|
| [453] | 1 | inherited frmPCELex: TfrmPCELex | 
|---|
| [729] | 2 | Left = 388 | 
|---|
|  | 3 | Top = 221 | 
|---|
| [453] | 4 | BorderIcons = [] | 
|---|
|  | 5 | BorderStyle = bsDialog | 
|---|
|  | 6 | Caption = 'Lookup Other Diagnosis' | 
|---|
|  | 7 | Position = poScreenCenter | 
|---|
|  | 8 | OnCreate = FormCreate | 
|---|
|  | 9 | PixelsPerInch = 96 | 
|---|
|  | 10 | TextHeight = 13 | 
|---|
|  | 11 | object lblSearch: TLabel [0] | 
|---|
|  | 12 | Left = 6 | 
|---|
|  | 13 | Top = 16 | 
|---|
|  | 14 | Width = 98 | 
|---|
|  | 15 | Height = 13 | 
|---|
|  | 16 | Caption = 'Search for Diagnosis' | 
|---|
|  | 17 | end | 
|---|
|  | 18 | object lblSelect: TLabel [1] | 
|---|
|  | 19 | Left = 6 | 
|---|
|  | 20 | Top = 67 | 
|---|
|  | 21 | Width = 175 | 
|---|
|  | 22 | Height = 13 | 
|---|
|  | 23 | Caption = 'Select from one of the following items' | 
|---|
|  | 24 | Visible = False | 
|---|
|  | 25 | end | 
|---|
|  | 26 | object txtSearch: TCaptionEdit [2] | 
|---|
|  | 27 | Left = 6 | 
|---|
|  | 28 | Top = 30 | 
|---|
|  | 29 | Width = 331 | 
|---|
|  | 30 | Height = 21 | 
|---|
|  | 31 | TabOrder = 0 | 
|---|
|  | 32 | OnChange = txtSearchChange | 
|---|
|  | 33 | Caption = 'Search for Diagnosis' | 
|---|
|  | 34 | end | 
|---|
|  | 35 | object cmdSearch: TButton [3] | 
|---|
|  | 36 | Left = 346 | 
|---|
|  | 37 | Top = 30 | 
|---|
|  | 38 | Width = 75 | 
|---|
|  | 39 | Height = 21 | 
|---|
|  | 40 | Caption = 'Search' | 
|---|
|  | 41 | Default = True | 
|---|
|  | 42 | TabOrder = 1 | 
|---|
|  | 43 | OnClick = cmdSearchClick | 
|---|
|  | 44 | end | 
|---|
|  | 45 | object cmdOK: TButton [4] | 
|---|
|  | 46 | Left = 263 | 
|---|
|  | 47 | Top = 245 | 
|---|
|  | 48 | Width = 75 | 
|---|
|  | 49 | Height = 22 | 
|---|
|  | 50 | Caption = 'OK' | 
|---|
|  | 51 | TabOrder = 3 | 
|---|
|  | 52 | OnClick = cmdOKClick | 
|---|
|  | 53 | end | 
|---|
|  | 54 | object cmdCancel: TButton [5] | 
|---|
|  | 55 | Left = 346 | 
|---|
|  | 56 | Top = 245 | 
|---|
|  | 57 | Width = 75 | 
|---|
|  | 58 | Height = 22 | 
|---|
|  | 59 | Cancel = True | 
|---|
|  | 60 | Caption = 'Cancel' | 
|---|
|  | 61 | TabOrder = 4 | 
|---|
|  | 62 | OnClick = cmdCancelClick | 
|---|
|  | 63 | end | 
|---|
|  | 64 | object lstSelect: TORListBox [6] | 
|---|
|  | 65 | Left = 6 | 
|---|
|  | 66 | Top = 81 | 
|---|
|  | 67 | Width = 415 | 
|---|
|  | 68 | Height = 156 | 
|---|
|  | 69 | ItemHeight = 13 | 
|---|
|  | 70 | ParentShowHint = False | 
|---|
|  | 71 | ShowHint = True | 
|---|
|  | 72 | TabOrder = 2 | 
|---|
|  | 73 | OnClick = lstSelectClick | 
|---|
|  | 74 | OnDblClick = lstSelectDblClick | 
|---|
|  | 75 | Caption = 'Select from one of the following items' | 
|---|
|  | 76 | ItemTipColor = clWindow | 
|---|
|  | 77 | LongList = False | 
|---|
|  | 78 | Pieces = '2' | 
|---|
|  | 79 | end | 
|---|
|  | 80 | inherited DKLanguageController1: TDKLanguageController | 
|---|
|  | 81 | LangData = { | 
|---|
|  | 82 | 090066726D5043454C6578010100000001000000070043617074696F6E010700 | 
|---|
|  | 83 | 000009006C626C536561726368010100000002000000070043617074696F6E00 | 
|---|
|  | 84 | 09006C626C53656C656374010100000003000000070043617074696F6E000900 | 
|---|
|  | 85 | 747874536561726368010100000004000000070043617074696F6E000900636D | 
|---|
|  | 86 | 64536561726368010100000005000000070043617074696F6E000500636D644F | 
|---|
|  | 87 | 4B010100000006000000070043617074696F6E000900636D6443616E63656C01 | 
|---|
|  | 88 | 0100000007000000070043617074696F6E0009006C737453656C656374010100 | 
|---|
|  | 89 | 000008000000070043617074696F6E00} | 
|---|
|  | 90 | end | 
|---|
|  | 91 | end | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.