Ignore:
Timestamp:
Aug 12, 2009, 7:34:51 PM (15 years ago)
Author:
Kevin Toppenberg
Message:

v1.1 Fixes Access/Verify code issues

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/GUI-config/MainU.dfm

    r493 r542  
    11object MainForm: TMainForm
    2   Left = 246
    3   Top = 131
    4   Width = 672
    5   Height = 551
     2  Left = 63
     3  Top = 33
     4  Width = 861
     5  Height = 706
    66  Caption = 'WorldVistA Configuration Utility'
    77  Color = 14405057
     
    4646    Left = 0
    4747    Top = 0
    48     Width = 664
    49     Height = 497
    50     ActivePage = tsAdvanced
     48    Width = 853
     49    Height = 652
     50    ActivePage = tsPatients
    5151    Align = alClient
    5252    OwnerDraw = True
     
    6060        Left = 177
    6161        Top = 0
    62         Height = 469
     62        Height = 624
    6363        ResizeStyle = rsUpdate
    6464      end
     
    6767        Top = 0
    6868        Width = 177
    69         Height = 469
     69        Height = 624
    7070        Align = alLeft
    7171        BevelOuter = bvNone
     
    7676          Top = 0
    7777          Width = 177
    78           Height = 434
     78          Height = 589
    7979          Hint = 'Select User to Edit'
    8080          Align = alClient
     
    9898        object Panel5: TPanel
    9999          Left = 0
    100           Top = 434
     100          Top = 589
    101101          Width = 177
    102102          Height = 35
     
    198198        Left = 180
    199199        Top = 0
    200         Width = 476
    201         Height = 469
     200        Width = 665
     201        Height = 624
    202202        Align = alClient
    203203        BevelOuter = bvNone
     
    207207          Left = 0
    208208          Top = 0
    209           Width = 476
    210           Height = 438
     209          Width = 665
     210          Height = 593
    211211          ActivePage = tsBasicPage
    212212          Align = alClient
     
    269269        object ButtonPanel: TPanel
    270270          Left = 0
    271           Top = 438
    272           Width = 476
     271          Top = 593
     272          Width = 665
    273273          Height = 31
    274274          Align = alBottom
     
    277277          TabOrder = 1
    278278          DesignSize = (
    279             476
     279            665
    280280            31)
    281281          object btnUsersApply: TBitBtn
    282             Left = 395
     282            Left = 584
    283283            Top = 3
    284284            Width = 75
     
    317317          end
    318318          object btnUsersRevert: TBitBtn
    319             Left = 311
     319            Left = 500
    320320            Top = 4
    321321            Width = 75
     
    362362        Left = 0
    363363        Top = 0
    364         Width = 656
    365         Height = 469
     364        Width = 845
     365        Height = 624
    366366        Align = alClient
    367367        BevelOuter = bvNone
     
    371371          Left = 177
    372372          Top = 0
    373           Height = 469
     373          Height = 624
    374374          ResizeStyle = rsUpdate
    375375        end
     
    377377          Left = 180
    378378          Top = 0
    379           Width = 476
    380           Height = 469
     379          Width = 665
     380          Height = 624
    381381          Align = alClient
    382382          BevelOuter = bvNone
     
    386386            Left = 0
    387387            Top = 0
    388             Width = 476
    389             Height = 438
     388            Width = 665
     389            Height = 593
    390390            ActivePage = tsBasicSettings
    391391            Align = alClient
     
    448448          object Panel3: TPanel
    449449            Left = 0
    450             Top = 438
    451             Width = 476
     450            Top = 593
     451            Width = 665
    452452            Height = 31
    453453            Align = alBottom
     
    456456            TabOrder = 1
    457457            DesignSize = (
    458               476
     458              665
    459459              31)
    460460            object btnSettingsApply: TBitBtn
    461               Left = 395
     461              Left = 584
    462462              Top = 3
    463463              Width = 75
     
    496496            end
    497497            object btnSettingsRevert: TBitBtn
    498               Left = 311
     498              Left = 500
    499499              Top = 4
    500500              Width = 75
     
    538538          Top = 0
    539539          Width = 177
    540           Height = 469
     540          Height = 624
    541541          Align = alLeft
    542542          BevelOuter = bvNone
     
    547547            Top = 0
    548548            Width = 177
    549             Height = 434
     549            Height = 589
    550550            Hint = 'Select User to Edit'
    551551            Align = alClient
     
    569569          object Panel6: TPanel
    570570            Left = 0
    571             Top = 434
     571            Top = 589
    572572            Width = 177
    573573            Height = 35
     
    586586        Left = 0
    587587        Top = 0
    588         Width = 656
    589         Height = 469
     588        Width = 845
     589        Height = 624
    590590        Align = alClient
    591591        BevelOuter = bvNone
     
    595595          Left = 177
    596596          Top = 0
    597           Height = 469
     597          Height = 624
    598598          ResizeStyle = rsUpdate
    599599        end
     
    601601          Left = 180
    602602          Top = 0
    603           Width = 476
    604           Height = 469
     603          Width = 665
     604          Height = 624
    605605          Align = alClient
    606606          BevelOuter = bvNone
     
    610610            Left = 0
    611611            Top = 0
    612             Width = 476
    613             Height = 438
    614             ActivePage = tsBasicPatients
     612            Width = 665
     613            Height = 593
     614            ActivePage = tsAdvancedPatients
    615615            Align = alClient
    616616            OwnerDraw = True
     
    650650                Left = 0
    651651                Top = 0
    652                 Width = 468
    653                 Height = 410
     652                Width = 657
     653                Height = 565
    654654                Cursor = crHandPoint
    655655                Hint = 'Edit User Fields Here'
     
    673673          object Panel9: TPanel
    674674            Left = 0
    675             Top = 438
    676             Width = 476
     675            Top = 593
     676            Width = 665
    677677            Height = 31
    678678            Align = alBottom
     
    681681            TabOrder = 1
    682682            DesignSize = (
    683               476
     683              665
    684684              31)
    685685            object btnPatientApply: TBitBtn
    686               Left = 395
     686              Left = 584
    687687              Top = 3
    688688              Width = 75
     
    721721            end
    722722            object btnPatientRevert: TBitBtn
    723               Left = 311
     723              Left = 500
    724724              Top = 4
    725725              Width = 75
     
    763763          Top = 0
    764764          Width = 177
    765           Height = 469
     765          Height = 624
    766766          Align = alLeft
    767767          BevelOuter = bvNone
     
    770770          object Panel11: TPanel
    771771            Left = 0
    772             Top = 434
     772            Top = 589
    773773            Width = 177
    774774            Height = 35
     
    868868            Top = 0
    869869            Width = 177
    870             Height = 434
     870            Height = 589
    871871            Style = orcsSimple
    872872            Align = alClient
     
    901901        Left = 0
    902902        Top = 0
    903         Width = 656
    904         Height = 469
     903        Width = 845
     904        Height = 624
    905905        Align = alClient
    906906        BevelOuter = bvNone
     
    910910          Left = 177
    911911          Top = 0
    912           Height = 469
     912          Height = 624
    913913          ResizeStyle = rsUpdate
    914914        end
     
    916916          Left = 180
    917917          Top = 0
    918           Width = 476
    919           Height = 469
     918          Width = 665
     919          Height = 624
    920920          Align = alClient
    921921          BevelOuter = bvNone
     
    925925            Left = 0
    926926            Top = 0
    927             Width = 476
    928             Height = 438
     927            Width = 665
     928            Height = 593
    929929            ActivePage = TabSheet2
    930930            Align = alClient
     
    964964          object Panel14: TPanel
    965965            Left = 0
    966             Top = 438
    967             Width = 476
     966            Top = 593
     967            Width = 665
    968968            Height = 31
    969969            Align = alBottom
     
    971971            TabOrder = 1
    972972            DesignSize = (
    973               476
     973              665
    974974              31)
    975975            object btnAdvancedApply: TBitBtn
    976               Left = 395
     976              Left = 584
    977977              Top = 3
    978978              Width = 75
     
    10111011            end
    10121012            object btnAdvancedRevert: TBitBtn
    1013               Left = 311
     1013              Left = 500
    10141014              Top = 4
    10151015              Width = 75
     
    10531053          Top = 0
    10541054          Width = 177
    1055           Height = 469
     1055          Height = 624
    10561056          Align = alLeft
    10571057          BevelOuter = bvNone
     
    10601060          object BotLeftAdvBtnPanel: TPanel
    10611061            Left = 0
    1062             Top = 434
     1062            Top = 589
    10631063            Width = 177
    10641064            Height = 35
     
    11121112            Top = 0
    11131113            Width = 177
    1114             Height = 434
     1114            Height = 589
    11151115            Align = alClient
    11161116            BevelOuter = bvNone
     
    11811181              Top = 204
    11821182              Width = 177
    1183               Height = 230
     1183              Height = 385
    11841184              Align = alClient
    11851185              BevelOuter = bvNone
     
    12051205                Top = 13
    12061206                Width = 177
    1207                 Height = 217
     1207                Height = 372
    12081208                Style = orcsSimple
    12091209                Align = alClient
Note: See TracChangeset for help on using the changeset viewer.