Ignore:
Timestamp:
May 7, 2015, 12:34:29 PM (9 years ago)
Author:
healthsevak
Message:

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Templates/fTemplateEditor.dfm

    r829 r1679  
    66  BorderIcons = [biSystemMenu, biMaximize]
    77  Caption = 'Template Editor'
    8   ClientHeight = 450
     8  ClientHeight = 562
    99  ClientWidth = 740
    1010  Position = poScreenCenter
    … …  
    1616  OnShow = FormShow
    1717  ExplicitWidth = 748
    18   ExplicitHeight = 477
     18  ExplicitHeight = 596
    1919  PixelsPerInch = 96
    2020  TextHeight = 13
    … …  
    2929    Beveled = True
    3030    MinSize = 40
     31    OnCanResize = splMainCanResize
    3132    OnMoved = splMainMoved
    3233  end
    33   object splNotes: TSplitter [1]
    34     Left = 0
    35     Top = 377
    36     Width = 740
    37     Height = 3
    38     Cursor = crVSplit
    39     Align = alBottom
    40     AutoSnap = False
    41     Beveled = True
    42     Visible = False
    43     OnMoved = splBoilMoved
    44     ExplicitTop = 371
    45   end
    46   object pnlBottom: TPanel [2]
    47     Left = 0
    48     Top = 423
    49     Width = 740
    50     Height = 27
    51     Align = alBottom
    52     BevelOuter = bvNone
    53     TabOrder = 4
    54     ExplicitTop = 416
    55     DesignSize = (
    56       740
    57       27)
    58     object btnApply: TButton
    59       Left = 664
    60       Top = 4
    61       Width = 75
    62       Height = 22
    63       Anchors = [akTop, akRight]
    64       Caption = 'Apply'
    65       ParentShowHint = False
    66       ShowHint = False
    67       TabOrder = 5
    68       OnClick = btnApplyClick
    69     end
    70     object btnCancel: TButton
    71       Left = 584
    72       Top = 4
    73       Width = 75
    74       Height = 22
    75       Anchors = [akTop, akRight]
    76       Cancel = True
    77       Caption = 'Cancel'
    78       ModalResult = 2
    79       ParentShowHint = False
    80       ShowHint = False
    81       TabOrder = 4
    82       OnClick = btnCancelClick
    83     end
    84     object btnOK: TButton
    85       Left = 504
    86       Top = 4
    87       Width = 75
    88       Height = 22
    89       Anchors = [akTop, akRight]
    90       Caption = 'OK'
    91       ParentShowHint = False
    92       ShowHint = False
    93       TabOrder = 3
    94       OnClick = btnOKClick
    95     end
    96     object cbEditShared: TCheckBox
    97       Left = 0
    98       Top = 6
    99       Width = 129
    100       Height = 17
    101       Caption = 'E&dit Shared Templates'
    102       TabOrder = 0
    103       OnClick = cbEditSharedClick
    104     end
    105     object cbNotes: TCheckBox
    106       Left = 259
    107       Top = 6
    108       Width = 128
    109       Height = 17
    110       Hint =
    111         'Keep notes about a template that can be seen from the templates ' +
    112         'drawer'
    113       Caption = 'Sh&ow Template Notes'
    114       ParentShowHint = False
    115       ShowHint = True
    116       TabOrder = 2
    117       OnClick = cbNotesClick
    118     end
    119     object cbEditUser: TCheckBox
    120       Left = 132
    121       Top = 6
    122       Width = 123
    123       Height = 17
    124       Caption = 'E&dit User'#39's Templates'
    125       TabOrder = 1
    126       Visible = False
    127       OnClick = cbEditSharedClick
    128     end
    129   end
    130   object pnlBoilerplate: TPanel [3]
    131     Left = 0
    132     Top = 284
    133     Width = 740
    134     Height = 93
    135     Align = alClient
    136     BevelOuter = bvNone
    137     TabOrder = 2
    138     OnCanResize = pnlBoilerplateCanResize
    139     OnResize = pnlBoilerplateResize
    140     object splBoil: TSplitter
    141       Left = 0
    142       Top = 14
    143       Width = 740
    144       Height = 3
    145       Cursor = crVSplit
    146       Align = alTop
    147       AutoSnap = False
    148       Beveled = True
    149       Visible = False
    150       OnMoved = splBoilMoved
    151       ExplicitTop = 43
    152     end
    153     object reBoil: TRichEdit
    154       Left = 0
    155       Top = 17
    156       Width = 740
    157       Height = 30
    158       Align = alClient
    159       Font.Charset = ANSI_CHARSET
    160       Font.Color = clWindowText
    161       Font.Height = -11
    162       Font.Name = 'Courier New'
    163       Font.Style = []
    164       Constraints.MinHeight = 30
    165       ParentFont = False
    166       PlainText = True
    167       PopupMenu = popBoilerplate
    168       ScrollBars = ssBoth
    169       TabOrder = 1
    170       WantTabs = True
    171       OnChange = reBoilChange
    172       OnKeyDown = reBoilKeyDown
    173       OnKeyPress = reBoilKeyPress
    174       OnKeyUp = reBoilKeyUp
    175       OnResizeRequest = reResizeRequest
    176       OnSelectionChange = reBoilSelectionChange
    177       ExplicitTop = 14
    178     end
    179     object pnlGroupBP: TPanel
    180       Left = 0
    181       Top = 47
    182       Width = 740
    183       Height = 46
    184       Align = alBottom
    185       BevelOuter = bvNone
    186       TabOrder = 2
    187       Visible = False
    188       object lblGroupBP: TLabel
    189         Left = 0
    190         Top = 0
    191         Width = 740
    192         Height = 13
    193         Align = alTop
    194         Caption = 'Group Boilerplate'
    195         ExplicitWidth = 81
    196       end
    197       object lblGroupRow: TLabel
    198         Left = 264
    199         Top = 0
    200         Width = 23
    201         Height = 13
    202         Caption = 'Line:'
    203       end
    204       object lblGroupCol: TLabel
    205         Left = 336
    206         Top = 0
    207         Width = 38
    208         Height = 13
    209         Caption = 'Column:'
    210       end
    211       object reGroupBP: TRichEdit
    212         Left = 0
    213         Top = 16
    214         Width = 740
    215         Height = 30
    216         Align = alClient
    217         Color = clCream
    218         Font.Charset = ANSI_CHARSET
    219         Font.Color = clWindowText
    220         Font.Height = -11
    221         Font.Name = 'Courier New'
    222         Font.Style = []
    223         Constraints.MinHeight = 30
    224         ParentFont = False
    225         PlainText = True
    226         PopupMenu = popGroup
    227         ReadOnly = True
    228         ScrollBars = ssBoth
    229         TabOrder = 0
    230         WantReturns = False
    231         OnSelectionChange = reGroupBPSelectionChange
    232       end
    233       object pnlGroupBPGap: TPanel
    234         Left = 0
    235         Top = 13
    236         Width = 740
    237         Height = 3
    238         Align = alTop
    239         BevelOuter = bvNone
    240         TabOrder = 1
    241       end
    242     end
    243     object pnlBP: TPanel
    244       Left = 0
    245       Top = 0
    246       Width = 740
    247       Height = 14
    248       Align = alTop
    249       BevelOuter = bvNone
    250       TabOrder = 0
    251       object lblBoilerplate: TLabel
    252         Left = 0
    253         Top = 0
    254         Width = 96
    255         Height = 13
    256         Caption = 'Template &Boilerplate'
    257         FocusControl = reBoil
    258       end
    259       object lblBoilRow: TLabel
    260         Left = 264
    261         Top = 0
    262         Width = 23
    263         Height = 13
    264         Caption = 'Line:'
    265       end
    266       object lblBoilCol: TLabel
    267         Left = 336
    268         Top = 0
    269         Width = 38
    270         Height = 13
    271         Caption = 'Column:'
    272         Color = clBtnFace
    273         ParentColor = False
    274       end
    275       object cbLongLines: TCheckBox
    276         Left = 120
    277         Top = -2
    278         Width = 105
    279         Height = 17
    280         Caption = 'Allow Lon&g Lines'
    281         TabOrder = 0
    282         OnClick = cbLongLinesClick
    283       end
    284     end
    285   end
    286   object pnlTop: TPanel [4]
     34  object pnlTop: TPanel [1]
    28735    Left = 0
    28836    Top = 0
    … …  
    1216964          Align = alLeft
    1217965          AutoSize = True
    1218           ButtonHeight = 21
    1219           ButtonWidth = 43
     966          ButtonHeight = 0
     967          ButtonWidth = 0
    1220968          Caption = 'mbMain'
    1221969          Menu = mnuMain
    … …  
    1227975    end
    1228976  end
    1229   object pnlNotes: TPanel [5]
    1230     Left = 0
    1231     Top = 380
    1232     Width = 740
    1233     Height = 43
    1234     Align = alBottom
    1235     BevelOuter = bvNone
    1236     TabOrder = 3
    1237     Visible = False
    1238     object lblNotes: TLabel
    1239       Left = 0
    1240       Top = 0
    1241       Width = 740
    1242       Height = 13
    1243       Align = alTop
    1244       Caption = 'Template Notes:'
    1245       ExplicitWidth = 78
    1246     end
    1247     object reNotes: TRichEdit
    1248       Left = 0
    1249       Top = 13
    1250       Width = 740
    1251       Height = 30
    1252       Align = alClient
    1253       Font.Charset = ANSI_CHARSET
    1254       Font.Color = clWindowText
    1255       Font.Height = -11
    1256       Font.Name = 'Courier New'
    1257       Font.Style = []
    1258       Constraints.MinHeight = 30
    1259       ParentFont = False
    1260       PlainText = True
    1261       PopupMenu = popNotes
    1262       ScrollBars = ssBoth
    1263       TabOrder = 0
    1264       WantTabs = True
    1265       OnChange = reNotesChange
    1266       OnKeyDown = reBoilKeyDown
    1267       OnKeyPress = reBoilKeyPress
    1268       OnKeyUp = reBoilKeyUp
    1269       OnResizeRequest = reResizeRequest
    1270     end
    1271   end
    1272   object pnlCOM: TPanel [6]
     977  object pnlCOM: TPanel [2]
    1273978    Left = 0
    1274979    Top = 263
    … …  
    13351040    end
    13361041  end
    1337   object pnlLink: TPanel [7]
     1042  object pnlLink: TPanel [3]
    13381043    Left = 0
    13391044    Top = 242
    … …  
    13421047    Align = alTop
    13431048    BevelOuter = bvNone
    1344     TabOrder = 5
     1049    TabOrder = 3
    13451050    Visible = False
    13461051    object lblLink: TLabel
    … …  
    13791084      TabOrder = 0
    13801085      TabStop = True
    1381       OnChange = cbxLinkChange
     1086      OnExit = cbxLinkExit
    13821087      OnNeedData = cbxLinkNeedData
    13831088      CharsNeedMatch = 1
     1089    end
     1090  end
     1091  object Panel1: TPanel [4]
     1092    Left = 0
     1093    Top = 284
     1094    Width = 740
     1095    Height = 251
     1096    Align = alClient
     1097    TabOrder = 4
     1098    ExplicitLeft = 138
     1099    ExplicitTop = 221
     1100    object pnlBoilerplate: TPanel
     1101      Left = 1
     1102      Top = 1
     1103      Width = 738
     1104      Height = 249
     1105      Align = alClient
     1106      BevelOuter = bvNone
     1107      TabOrder = 0
     1108      OnCanResize = pnlBoilerplateCanResize
     1109      OnResize = pnlBoilerplateResize
     1110      ExplicitLeft = 17
     1111      ExplicitTop = 2
     1112      object splBoil: TSplitter
     1113        Left = 0
     1114        Top = 14
     1115        Width = 738
     1116        Height = 3
     1117        Cursor = crVSplit
     1118        Align = alTop
     1119        AutoSnap = False
     1120        Beveled = True
     1121        Visible = False
     1122        OnMoved = splBoilMoved
     1123        ExplicitTop = 43
     1124        ExplicitWidth = 740
     1125      end
     1126      object splNotes: TSplitter
     1127        Left = 0
     1128        Top = 203
     1129        Width = 738
     1130        Height = 3
     1131        Cursor = crVSplit
     1132        Align = alBottom
     1133        AutoSnap = False
     1134        Beveled = True
     1135        Visible = False
     1136        OnMoved = splBoilMoved
     1137        ExplicitTop = 132
     1138        ExplicitWidth = 740
     1139      end
     1140      object reBoil: TRichEdit
     1141        Left = 0
     1142        Top = 17
     1143        Width = 738
     1144        Height = 140
     1145        Align = alClient
     1146        Font.Charset = ANSI_CHARSET
     1147        Font.Color = clWindowText
     1148        Font.Height = -11
     1149        Font.Name = 'Courier New'
     1150        Font.Style = []
     1151        Constraints.MinHeight = 30
     1152        ParentFont = False
     1153        PlainText = True
     1154        PopupMenu = popBoilerplate
     1155        ScrollBars = ssBoth
     1156        TabOrder = 1
     1157        WantTabs = True
     1158        OnChange = reBoilChange
     1159        OnKeyDown = reBoilKeyDown
     1160        OnKeyPress = reBoilKeyPress
     1161        OnKeyUp = reBoilKeyUp
     1162        OnResizeRequest = reResizeRequest
     1163        OnSelectionChange = reBoilSelectionChange
     1164      end
     1165      object pnlGroupBP: TPanel
     1166        Left = 0
     1167        Top = 157
     1168        Width = 738
     1169        Height = 46
     1170        Align = alBottom
     1171        BevelOuter = bvNone
     1172        Constraints.MinHeight = 30
     1173        TabOrder = 2
     1174        Visible = False
     1175        ExplicitLeft = -1
     1176        ExplicitTop = 154
     1177        object lblGroupBP: TLabel
     1178          Left = 0
     1179          Top = 0
     1180          Width = 738
     1181          Height = 13
     1182          Align = alTop
     1183          Caption = 'Group Boilerplate'
     1184          ExplicitWidth = 81
     1185        end
     1186        object lblGroupRow: TLabel
     1187          Left = 264
     1188          Top = 0
     1189          Width = 23
     1190          Height = 13
     1191          Caption = 'Line:'
     1192        end
     1193        object lblGroupCol: TLabel
     1194          Left = 336
     1195          Top = 0
     1196          Width = 38
     1197          Height = 13
     1198          Caption = 'Column:'
     1199        end
     1200        object reGroupBP: TRichEdit
     1201          Left = 0
     1202          Top = 16
     1203          Width = 738
     1204          Height = 30
     1205          Align = alClient
     1206          Color = clCream
     1207          Font.Charset = ANSI_CHARSET
     1208          Font.Color = clWindowText
     1209          Font.Height = -11
     1210          Font.Name = 'Courier New'
     1211          Font.Style = []
     1212          Constraints.MinHeight = 30
     1213          ParentFont = False
     1214          PlainText = True
     1215          PopupMenu = popGroup
     1216          ReadOnly = True
     1217          ScrollBars = ssBoth
     1218          TabOrder = 0
     1219          WantReturns = False
     1220          OnSelectionChange = reGroupBPSelectionChange
     1221        end
     1222        object pnlGroupBPGap: TPanel
     1223          Left = 0
     1224          Top = 13
     1225          Width = 738
     1226          Height = 3
     1227          Align = alTop
     1228          BevelOuter = bvNone
     1229          TabOrder = 1
     1230        end
     1231      end
     1232      object pnlBP: TPanel
     1233        Left = 0
     1234        Top = 0
     1235        Width = 738
     1236        Height = 14
     1237        Align = alTop
     1238        BevelOuter = bvNone
     1239        TabOrder = 0
     1240        object lblBoilerplate: TLabel
     1241          Left = 0
     1242          Top = 0
     1243          Width = 96
     1244          Height = 13
     1245          Caption = 'Template &Boilerplate'
     1246          FocusControl = reBoil
     1247        end
     1248        object lblBoilRow: TLabel
     1249          Left = 264
     1250          Top = 0
     1251          Width = 23
     1252          Height = 13
     1253          Caption = 'Line:'
     1254        end
     1255        object lblBoilCol: TLabel
     1256          Left = 336
     1257          Top = 0
     1258          Width = 38
     1259          Height = 13
     1260          Caption = 'Column:'
     1261          Color = clBtnFace
     1262          ParentColor = False
     1263        end
     1264        object cbLongLines: TCheckBox
     1265          Left = 120
     1266          Top = -2
     1267          Width = 105
     1268          Height = 17
     1269          Caption = 'Allow Lon&g Lines'
     1270          TabOrder = 0
     1271          OnClick = cbLongLinesClick
     1272        end
     1273      end
     1274      object pnlNotes: TPanel
     1275        Left = 0
     1276        Top = 206
     1277        Width = 738
     1278        Height = 43
     1279        Align = alBottom
     1280        BevelOuter = bvNone
     1281        Constraints.MinHeight = 30
     1282        TabOrder = 3
     1283        Visible = False
     1284        ExplicitTop = 158
     1285        object lblNotes: TLabel
     1286          Left = 0
     1287          Top = 0
     1288          Width = 78
     1289          Height = 13
     1290          Align = alTop
     1291          Caption = 'Template Notes:'
     1292        end
     1293        object reNotes: TRichEdit
     1294          Left = 0
     1295          Top = 13
     1296          Width = 738
     1297          Height = 30
     1298          Align = alClient
     1299          Font.Charset = ANSI_CHARSET
     1300          Font.Color = clWindowText
     1301          Font.Height = -11
     1302          Font.Name = 'Courier New'
     1303          Font.Style = []
     1304          Constraints.MinHeight = 30
     1305          ParentFont = False
     1306          PlainText = True
     1307          PopupMenu = popNotes
     1308          ScrollBars = ssBoth
     1309          TabOrder = 0
     1310          WantTabs = True
     1311          OnChange = reNotesChange
     1312          OnKeyDown = reBoilKeyDown
     1313          OnKeyPress = reBoilKeyPress
     1314          OnKeyUp = reBoilKeyUp
     1315          OnResizeRequest = reResizeRequest
     1316        end
     1317      end
     1318    end
     1319  end
     1320  object pnlBottom: TPanel [5]
     1321    Left = 0
     1322    Top = 535
     1323    Width = 740
     1324    Height = 27
     1325    Align = alBottom
     1326    BevelOuter = bvNone
     1327    TabOrder = 2
     1328    ExplicitLeft = 40
     1329    ExplicitTop = 498
     1330    DesignSize = (
     1331      740
     1332      27)
     1333    object btnApply: TButton
     1334      Left = 664
     1335      Top = 4
     1336      Width = 75
     1337      Height = 22
     1338      Anchors = [akTop, akRight]
     1339      Caption = 'Apply'
     1340      ParentShowHint = False
     1341      ShowHint = False
     1342      TabOrder = 5
     1343      OnClick = btnApplyClick
     1344    end
     1345    object btnCancel: TButton
     1346      Left = 584
     1347      Top = 4
     1348      Width = 75
     1349      Height = 22
     1350      Anchors = [akTop, akRight]
     1351      Cancel = True
     1352      Caption = 'Cancel'
     1353      ModalResult = 2
     1354      ParentShowHint = False
     1355      ShowHint = False
     1356      TabOrder = 4
     1357      OnClick = btnCancelClick
     1358    end
     1359    object btnOK: TButton
     1360      Left = 504
     1361      Top = 4
     1362      Width = 75
     1363      Height = 22
     1364      Anchors = [akTop, akRight]
     1365      Caption = 'OK'
     1366      ParentShowHint = False
     1367      ShowHint = False
     1368      TabOrder = 3
     1369      OnClick = btnOKClick
     1370    end
     1371    object cbEditShared: TCheckBox
     1372      Left = 0
     1373      Top = 6
     1374      Width = 129
     1375      Height = 17
     1376      Caption = 'E&dit Shared Templates'
     1377      TabOrder = 0
     1378      OnClick = cbEditSharedClick
     1379    end
     1380    object cbNotes: TCheckBox
     1381      Left = 259
     1382      Top = 6
     1383      Width = 128
     1384      Height = 17
     1385      Hint =
     1386        'Keep notes about a template that can be seen from the templates ' +
     1387        'drawer'
     1388      Caption = 'Sh&ow Template Notes'
     1389      ParentShowHint = False
     1390      ShowHint = True
     1391      TabOrder = 2
     1392      OnClick = cbNotesClick
     1393    end
     1394    object cbEditUser: TCheckBox
     1395      Left = 132
     1396      Top = 6
     1397      Width = 123
     1398      Height = 17
     1399      Caption = 'E&dit User'#39's Templates'
     1400      TabOrder = 1
     1401      Visible = False
     1402      OnClick = cbEditSharedClick
    13841403    end
    13851404  end
    … …  
    14081427        'Status = stsDefault')
    14091428      (
    1410         'Component = pnlBoilerplate'
    1411         'Status = stsDefault')
    1412       (
    1413         'Component = reBoil'
    1414         'Label = lblBoilerplate'
    1415         'Status = stsOK')
    1416       (
    1417         'Component = pnlGroupBP'
    1418         'Status = stsDefault')
    1419       (
    1420         'Component = reGroupBP'
    1421         'Label = lblGroupBP'
    1422         'Status = stsOK')
    1423       (
    1424         'Component = pnlGroupBPGap'
    1425         'Status = stsDefault')
    1426       (
    1427         'Component = pnlBP'
    1428         'Status = stsDefault')
    1429       (
    1430         'Component = cbLongLines'
    1431         'Status = stsDefault')
    1432       (
    14331429        'Component = pnlTop'
    14341430        'Status = stsDefault')
    … …  
    16021598        'Status = stsDefault')
    16031599      (
    1604         'Component = pnlNotes'
    1605         'Status = stsDefault')
    1606       (
    1607         'Component = reNotes'
    1608         'Label = lblNotes'
    1609         'Status = stsOK')
    1610       (
    16111600        'Component = pnlCOM'
    16121601        'Status = stsDefault')
    … …  
    16281617      (
    16291618        'Component = frmTemplateEditor'
     1619        'Status = stsDefault')
     1620      (
     1621        'Component = Panel1'
     1622        'Status = stsDefault')
     1623      (
     1624        'Component = pnlBoilerplate'
     1625        'Status = stsDefault')
     1626      (
     1627        'Component = reBoil'
     1628        'Status = stsDefault')
     1629      (
     1630        'Component = pnlGroupBP'
     1631        'Status = stsDefault')
     1632      (
     1633        'Component = reGroupBP'
     1634        'Status = stsDefault')
     1635      (
     1636        'Component = pnlGroupBPGap'
     1637        'Status = stsDefault')
     1638      (
     1639        'Component = pnlBP'
     1640        'Status = stsDefault')
     1641      (
     1642        'Component = cbLongLines'
     1643        'Status = stsDefault')
     1644      (
     1645        'Component = pnlNotes'
     1646        'Status = stsDefault')
     1647      (
     1648        'Component = reNotes'
    16301649        'Status = stsDefault'))
    16311650  end
Note: See TracChangeset for help on using the changeset viewer.