/[projects]/dao/DelphiScanner/Main.dfm
ViewVC logotype

Diff of /dao/DelphiScanner/Main.dfm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3038 by torben, Tue May 31 11:50:42 2016 UTC revision 3039 by torben, Wed Jun 1 13:25:34 2016 UTC
# Line 3823  object MainForm: TMainForm Line 3823  object MainForm: TMainForm
3823      Proportional = True      Proportional = True
3824      Transparent = True      Transparent = True
3825    end    end
3826      object KommentarST: TLabel
3827        Left = 24
3828        Top = 200
3829        Width = 763
3830        Height = 104
3831        AutoSize = False
3832        Caption = '<Kommentar>'
3833        Font.Charset = DEFAULT_CHARSET
3834        Font.Color = clWindowText
3835        Font.Height = -32
3836        Font.Name = 'Tahoma'
3837        Font.Style = []
3838        ParentFont = False
3839        WordWrap = True
3840      end
3841    object btnNulstil: TButton    object btnNulstil: TButton
3842      Left = 712      Left = 712
3843      Top = 29      Top = 29
# Line 3832  object MainForm: TMainForm Line 3847  object MainForm: TMainForm
3847        'Nulstiller en fejlmelding s'#229' programmet er klar til n'#230'ste scanni' +        'Nulstiller en fejlmelding s'#229' programmet er klar til n'#230'ste scanni' +
3848        'ng'        'ng'
3849      Caption = 'Nulstil'      Caption = 'Nulstil'
3850      TabOrder = 16      TabOrder = 15
3851      Visible = False      Visible = False
3852      OnClick = btnNulstilClick      OnClick = btnNulstilClick
3853    end    end
# Line 3849  object MainForm: TMainForm Line 3864  object MainForm: TMainForm
3864      BevelOuter = bvLowered      BevelOuter = bvLowered
3865      ParentBackground = False      ParentBackground = False
3866      ParentColor = True      ParentColor = True
3867      TabOrder = 7      TabOrder = 6
3868    end    end
3869    object StregkodeST: TStaticText    object StregkodeST: TStaticText
3870      Left = 126      Left = 126
# Line 3891  object MainForm: TMainForm Line 3906  object MainForm: TMainForm
3906    end    end
3907    object BoghandlerNavnST: TStaticText    object BoghandlerNavnST: TStaticText
3908      Left = 24      Left = 24
3909      Top = 147      Top = 149
3910      Width = 254      Width = 254
3911      Height = 43      Height = 43
3912      Margins.Left = 5      Margins.Left = 5
# Line 3909  object MainForm: TMainForm Line 3924  object MainForm: TMainForm
3924    end    end
3925    object chkSporgEfterKunde: TCheckBox    object chkSporgEfterKunde: TCheckBox
3926      Left = 24      Left = 24
3927      Top = 257      Top = 312
3928      Width = 446      Width = 446
3929      Height = 26      Height = 26
3930      Hint =      Hint =
# Line 3923  object MainForm: TMainForm Line 3938  object MainForm: TMainForm
3938      TabOrder = 3      TabOrder = 3
3939      OnClick = chkSporgEfterKundeClick      OnClick = chkSporgEfterKundeClick
3940    end    end
   object KommentarST: TStaticText  
     Left = 24  
     Top = 204  
     Width = 215  
     Height = 43  
     Margins.Left = 5  
     Margins.Top = 5  
     Margins.Right = 5  
     Margins.Bottom = 5  
     Caption = '<Kommentar>'  
     Font.Charset = DEFAULT_CHARSET  
     Font.Color = clWindowText  
     Font.Height = -32  
     Font.Name = 'Tahoma'  
     Font.Style = []  
     ParentFont = False  
     TabOrder = 4  
   end  
3941    object radioStorPakke: TRadioButton    object radioStorPakke: TRadioButton
3942      Left = 216      Left = 216
3943      Top = 285      Top = 340
3944      Width = 170      Width = 170
3945      Height = 26      Height = 26
3946      Hint = 'Markeres n'#229'r der skal scannes en stor pakke'      Hint = 'Markeres n'#229'r der skal scannes en stor pakke'
# Line 3952  object MainForm: TMainForm Line 3949  object MainForm: TMainForm
3949      Margins.Right = 5      Margins.Right = 5
3950      Margins.Bottom = 5      Margins.Bottom = 5
3951      Caption = 'Stor pakke'      Caption = 'Stor pakke'
3952      TabOrder = 5      TabOrder = 4
3953      OnClick = radioStorPakkeClick      OnClick = radioStorPakkeClick
3954    end    end
3955    object radioLillePakke: TRadioButton    object radioLillePakke: TRadioButton
3956      Left = 24      Left = 24
3957      Top = 285      Top = 340
3958      Width = 170      Width = 170
3959      Height = 26      Height = 26
3960      Hint = 'Markeres n'#229'r der skal scannes en lille pakke'      Hint = 'Markeres n'#229'r der skal scannes en lille pakke'
# Line 3966  object MainForm: TMainForm Line 3963  object MainForm: TMainForm
3963      Margins.Right = 5      Margins.Right = 5
3964      Margins.Bottom = 5      Margins.Bottom = 5
3965      Caption = 'Lille pakke'      Caption = 'Lille pakke'
3966      TabOrder = 6      TabOrder = 5
3967      OnClick = radioLillePakkeClick      OnClick = radioLillePakkeClick
3968    end    end
3969    object ListBox1: TListBox    object ListBox1: TListBox
3970      Left = 8      Left = 8
3971      Top = 391      Top = 430
3972      Width = 874      Width = 874
3973      Height = 163      Height = 163
3974      Hint = 'Log vindue viser handlinger og meddelelser fra programmet'      Hint = 'Log vindue viser handlinger og meddelelser fra programmet'
3975      Style = lbOwnerDrawFixed      Style = lbOwnerDrawFixed
3976      Anchors = [akLeft, akTop, akRight]      Anchors = [akLeft, akTop, akRight]
3977      ItemHeight = 19      ItemHeight = 19
3978      TabOrder = 9      TabOrder = 8
3979      OnDrawItem = ListBox1DrawItem      OnDrawItem = ListBox1DrawItem
3980    end    end
3981    object BtnDownloadKontrolfil: TButton    object BtnDownloadKontrolfil: TButton
3982      Left = 904      Left = 904
3983      Top = 445      Top = 484
3984      Width = 88      Width = 88
3985      Height = 47      Height = 47
3986      Hint = 'Hent rute kontrol filen fra DAO ftp server'      Hint = 'Hent rute kontrol filen fra DAO ftp server'
3987      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
3988      Caption = 'Download kontrol fil'      Caption = 'Download kontrol fil'
3989      Enabled = False      Enabled = False
3990      TabOrder = 10      TabOrder = 9
3991      WordWrap = True      WordWrap = True
3992      OnClick = BtnDownloadKontrolfilClick      OnClick = BtnDownloadKontrolfilClick
3993    end    end
3994    object ListBox2: TListBox    object ListBox2: TListBox
3995      Left = 8      Left = 8
3996      Top = 560      Top = 600
3997      Width = 874      Width = 874
3998      Height = 277      Height = 237
3999      Hint = 'Status vindue viser hvad der endnu ikke er scannet'      Hint = 'Status vindue viser hvad der endnu ikke er scannet'
4000      Style = lbOwnerDrawFixed      Style = lbOwnerDrawFixed
4001      Anchors = [akLeft, akTop, akRight, akBottom]      Anchors = [akLeft, akTop, akRight, akBottom]
4002      ItemHeight = 19      ItemHeight = 19
4003      TabOrder = 11      TabOrder = 10
4004      OnDrawItem = ListBox1DrawItem      OnDrawItem = ListBox1DrawItem
4005    end    end
4006    object BtnOpdaterListen: TButton    object BtnOpdaterListen: TButton
# Line 4015  object MainForm: TMainForm Line 4012  object MainForm: TMainForm
4012      Anchors = [akRight, akBottom]      Anchors = [akRight, akBottom]
4013      Caption = 'Opdater listen'      Caption = 'Opdater listen'
4014      Enabled = False      Enabled = False
4015      TabOrder = 12      TabOrder = 11
4016      WordWrap = True      WordWrap = True
4017      OnClick = BtnOpdaterListenClick      OnClick = BtnOpdaterListenClick
4018    end    end
4019    object BtnUploadLogfil: TButton    object BtnUploadLogfil: TButton
4020      Left = 904      Left = 904
4021      Top = 391      Top = 430
4022      Width = 88      Width = 88
4023      Height = 47      Height = 47
4024      Hint = 'Sender log filen til DAO ftp server'      Hint = 'Sender log filen til DAO ftp server'
4025      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4026      Caption = 'Upload  log fil'      Caption = 'Upload  log fil'
4027      Enabled = False      Enabled = False
4028      TabOrder = 13      TabOrder = 12
4029      WordWrap = True      WordWrap = True
4030      OnClick = BtnUploadLogfilClick      OnClick = BtnUploadLogfilClick
4031    end    end
4032    object BtnDownloadRuteskiftFil: TButton    object BtnDownloadRuteskiftFil: TButton
4033      Left = 904      Left = 904
4034      Top = 498      Top = 537
4035      Width = 88      Width = 88
4036      Height = 47      Height = 47
4037      Hint = 'Henter ruteskift fil fra DAO ftp server'      Hint = 'Henter ruteskift fil fra DAO ftp server'
4038      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4039      Caption = 'Download ruteskift fil'      Caption = 'Download ruteskift fil'
4040      TabOrder = 14      TabOrder = 13
4041      Visible = False      Visible = False
4042      WordWrap = True      WordWrap = True
4043      OnClick = BtnDownloadRuteskiftFilClick      OnClick = BtnDownloadRuteskiftFilClick
# Line 4052  object MainForm: TMainForm Line 4049  object MainForm: TMainForm
4049      Height = 23      Height = 23
4050      Hint = 'Viser hvad programmet forventer i input feltet'      Hint = 'Viser hvad programmet forventer i input feltet'
4051      Caption = 'Stregkode'      Caption = 'Stregkode'
4052      TabOrder = 15      TabOrder = 14
4053      Visible = False      Visible = False
4054    end    end
4055    object chkAltidPrintLabel: TCheckBox    object chkAltidPrintLabel: TCheckBox
4056      Left = 505      Left = 505
4057      Top = 261      Top = 316
4058      Width = 446      Width = 446
4059      Height = 26      Height = 26
4060      Hint = 'Markeres n'#229'r der '#248'nskes print af pakkelabel med ruteinformation'      Hint = 'Markeres n'#229'r der '#248'nskes print af pakkelabel med ruteinformation'
4061      Caption = 'Altid printe pakkelabel'      Caption = 'Altid printe pakkelabel'
4062      TabOrder = 17      TabOrder = 16
4063      OnClick = chkAltidPrintLabelClick      OnClick = chkAltidPrintLabelClick
4064    end    end
4065    object BtnEKLoverforsel: TButton    object BtnEKLoverforsel: TButton
# Line 4074  object MainForm: TMainForm Line 4071  object MainForm: TMainForm
4071      Anchors = [akRight, akBottom]      Anchors = [akRight, akBottom]
4072      Caption = 'Overf'#248'r   til EKL'      Caption = 'Overf'#248'r   til EKL'
4073      Enabled = False      Enabled = False
4074      TabOrder = 18      TabOrder = 17
4075      WordWrap = True      WordWrap = True
4076      OnClick = BtnEKLoverforselClick      OnClick = BtnEKLoverforselClick
4077    end    end
# Line 4090  object MainForm: TMainForm Line 4087  object MainForm: TMainForm
4087      Font.Name = 'Tahoma'      Font.Name = 'Tahoma'
4088      Font.Style = []      Font.Style = []
4089      ParentFont = False      ParentFont = False
4090      TabOrder = 19      TabOrder = 18
4091    end    end
4092    object chkScanTjekkode: TCheckBox    object chkScanTjekkode: TCheckBox
4093      Left = 24      Left = 24
4094      Top = 310      Top = 365
4095      Width = 353      Width = 353
4096      Height = 26      Height = 26
4097      Hint = 'Markeres n'#229'r der ogs'#229' skal scannes en tjekkode label'      Hint = 'Markeres n'#229'r der ogs'#229' skal scannes en tjekkode label'
4098      Caption = 'Scan ogs'#229' tjekkoden'      Caption = 'Scan ogs'#229' tjekkoden'
4099      TabOrder = 20      TabOrder = 19
4100      OnClick = chkScanTjekkodeClick      OnClick = chkScanTjekkodeClick
4101    end    end
4102    object PanelValgA: TPanel    object PanelValgA: TPanel
# Line 4112  object MainForm: TMainForm Line 4109  object MainForm: TMainForm
4109      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4110      Caption = '   Automatisk valg'      Caption = '   Automatisk valg'
4111      ParentBackground = False      ParentBackground = False
4112      TabOrder = 21      TabOrder = 20
4113      OnClick = PanelValgAClick      OnClick = PanelValgAClick
4114    end    end
4115    object PanelValg1: TPanel    object PanelValg1: TPanel
# Line 4127  object MainForm: TMainForm Line 4124  object MainForm: TMainForm
4124      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4125      Caption = '   DAO NAT X-PRESS'      Caption = '   DAO NAT X-PRESS'
4126      ParentBackground = False      ParentBackground = False
4127      TabOrder = 22      TabOrder = 21
4128      OnClick = PanelValg1Click      OnClick = PanelValg1Click
4129    end    end
4130    object PanelValg2: TPanel    object PanelValg2: TPanel
4131      Left = 807      Left = 807
4132      Top = 101      Top = 100
4133      Width = 185      Width = 185
4134      Height = 41      Height = 41
4135      Hint =      Hint =
# Line 4140  object MainForm: TMainForm Line 4137  object MainForm: TMainForm
4137        'rneres til leverand'#248'ren fra scanningsstedet'        'rneres til leverand'#248'ren fra scanningsstedet'
4138      Alignment = taLeftJustify      Alignment = taLeftJustify
4139      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4140      Caption = '   Retur fra DAO'      Caption = '   NatX /Retur fra DAO'
4141      ParentBackground = False      ParentBackground = False
4142      TabOrder = 23      TabOrder = 22
4143      OnClick = PanelValg2Click      OnClick = PanelValg2Click
4144    end    end
4145    object PanelValg3: TPanel    object PanelValg3: TPanel
# Line 4155  object MainForm: TMainForm Line 4152  object MainForm: TMainForm
4152        'rneres til leverand'#248'ren fra kunden'        'rneres til leverand'#248'ren fra kunden'
4153      Alignment = taLeftJustify      Alignment = taLeftJustify
4154      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4155      Caption = '   Retur fra kunde'      Caption = '   NatX /Retur fra kunde'
4156      ParentBackground = False      ParentBackground = False
4157      TabOrder = 24      TabOrder = 23
4158      OnClick = PanelValg3Click      OnClick = PanelValg3Click
4159    end    end
4160    object PanelValg4: TPanel    object PanelValg4: TPanel
# Line 4170  object MainForm: TMainForm Line 4167  object MainForm: TMainForm
4167      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4168      Caption = '   DAO DIREKTE'      Caption = '   DAO DIREKTE'
4169      ParentBackground = False      ParentBackground = False
4170      TabOrder = 25      TabOrder = 24
4171      OnClick = PanelValg4Click      OnClick = PanelValg4Click
4172    end    end
4173    object PanelValg5: TPanel    object PanelValg5: TPanel
# Line 4183  object MainForm: TMainForm Line 4180  object MainForm: TMainForm
4180      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4181      Caption = '   DAO PAKKESHOP'      Caption = '   DAO PAKKESHOP'
4182      ParentBackground = False      ParentBackground = False
4183      TabOrder = 26      TabOrder = 25
4184      OnClick = PanelValg5Click      OnClick = PanelValg5Click
4185    end    end
4186    object PanelValg6: TPanel    object PanelValg6: TPanel
# Line 4198  object MainForm: TMainForm Line 4195  object MainForm: TMainForm
4195      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4196      Caption = '   Retur fra pakkeshop'      Caption = '   Retur fra pakkeshop'
4197      ParentBackground = False      ParentBackground = False
4198      TabOrder = 27      TabOrder = 26
4199      OnClick = PanelValg6Click      OnClick = PanelValg6Click
4200    end    end
4201    object Button1: TButton    object Button1: TButton
4202      Left = 436      Left = 436
4203      Top = 401      Top = 440
4204      Width = 125      Width = 125
4205      Height = 38      Height = 38
4206      Margins.Left = 5      Margins.Left = 5
# Line 4211  object MainForm: TMainForm Line 4208  object MainForm: TMainForm
4208      Margins.Right = 5      Margins.Right = 5
4209      Margins.Bottom = 5      Margins.Bottom = 5
4210      Caption = 'Tjek stregkode'      Caption = 'Tjek stregkode'
4211      TabOrder = 8      TabOrder = 7
4212      Visible = False      Visible = False
4213      OnClick = Button1Click      OnClick = Button1Click
4214    end    end
4215    object StaticTextManglendePakker: TStaticText    object StaticTextManglendePakker: TStaticText
4216      Left = 528      Left = 528
4217      Top = 294      Top = 349
4218      Width = 272      Width = 272
4219      Height = 52      Height = 52
4220      Hint =      Hint =
# Line 4233  object MainForm: TMainForm Line 4230  object MainForm: TMainForm
4230      Font.Name = 'Tahoma'      Font.Name = 'Tahoma'
4231      Font.Style = []      Font.Style = []
4232      ParentFont = False      ParentFont = False
4233      TabOrder = 28      TabOrder = 27
4234    end    end
4235    object PanelManglendePakker1: TPanel    object PanelManglendePakker1: TPanel
4236      Left = 953      Left = 953
# Line 4250  object MainForm: TMainForm Line 4247  object MainForm: TMainForm
4247      Font.Style = []      Font.Style = []
4248      ParentBackground = False      ParentBackground = False
4249      ParentFont = False      ParentFont = False
4250      TabOrder = 29      TabOrder = 28
4251      Visible = False      Visible = False
4252    end    end
4253    object PanelManglendePakker2: TPanel    object PanelManglendePakker2: TPanel
# Line 4268  object MainForm: TMainForm Line 4265  object MainForm: TMainForm
4265      Font.Style = []      Font.Style = []
4266      ParentBackground = False      ParentBackground = False
4267      ParentFont = False      ParentFont = False
4268      TabOrder = 30      TabOrder = 29
4269      Visible = False      Visible = False
4270    end    end
4271    object PanelManglendePakker3: TPanel    object PanelManglendePakker3: TPanel
# Line 4286  object MainForm: TMainForm Line 4283  object MainForm: TMainForm
4283      Font.Style = []      Font.Style = []
4284      ParentBackground = False      ParentBackground = False
4285      ParentFont = False      ParentFont = False
4286      TabOrder = 31      TabOrder = 30
4287      Visible = False      Visible = False
4288    end    end
4289    object PanelManglendePakker4: TPanel    object PanelManglendePakker4: TPanel
# Line 4304  object MainForm: TMainForm Line 4301  object MainForm: TMainForm
4301      Font.Style = []      Font.Style = []
4302      ParentBackground = False      ParentBackground = False
4303      ParentFont = False      ParentFont = False
4304      TabOrder = 32      TabOrder = 31
4305      Visible = False      Visible = False
4306    end    end
4307    object PanelManglendePakker5: TPanel    object PanelManglendePakker5: TPanel
# Line 4322  object MainForm: TMainForm Line 4319  object MainForm: TMainForm
4319      Font.Style = []      Font.Style = []
4320      ParentBackground = False      ParentBackground = False
4321      ParentFont = False      ParentFont = False
4322      TabOrder = 33      TabOrder = 32
4323      Visible = False      Visible = False
4324    end    end
4325    object PanelManglendePakker6: TPanel    object PanelManglendePakker6: TPanel
# Line 4340  object MainForm: TMainForm Line 4337  object MainForm: TMainForm
4337      Font.Style = []      Font.Style = []
4338      ParentBackground = False      ParentBackground = False
4339      ParentFont = False      ParentFont = False
4340      TabOrder = 34      TabOrder = 33
4341      Visible = False      Visible = False
4342    end    end
4343    object PanelValg7: TPanel    object PanelValg7: TPanel
4344      Left = 806      Left = 806
4345      Top = 338      Top = 377
4346      Width = 185      Width = 185
4347      Height = 41      Height = 41
4348      Hint =      Hint =
# Line 4355  object MainForm: TMainForm Line 4352  object MainForm: TMainForm
4352      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4353      Caption = '   Indleveringskode'      Caption = '   Indleveringskode'
4354      ParentBackground = False      ParentBackground = False
4355      TabOrder = 35      TabOrder = 34
4356      OnClick = PanelValg7Click      OnClick = PanelValg7Click
4357    end    end
4358    object chkForstorTilDirekte: TCheckBox    object chkForstorTilDirekte: TCheckBox
4359      Left = 24      Left = 24
4360      Top = 342      Top = 397
4361      Width = 238      Width = 238
4362      Height = 22      Height = 22
4363      Caption = 'For stor til DAO Direkte'      Caption = 'For stor til DAO Direkte'
4364      TabOrder = 36      TabOrder = 35
4365    end    end
4366    object chkEmballageRepareret: TCheckBox    object chkEmballageRepareret: TCheckBox
4367      Left = 268      Left = 268
4368      Top = 342      Top = 397
4369      Width = 181      Width = 181
4370      Height = 22      Height = 22
4371      Caption = 'Emballage Repareret'      Caption = 'Emballage Repareret'
4372      TabOrder = 37      TabOrder = 36
4373    end    end
4374    object IdHTTP1: TIdHTTP    object IdHTTP1: TIdHTTP
4375      AllowCookies = True      AllowCookies = True
# Line 4391  object MainForm: TMainForm Line 4388  object MainForm: TMainForm
4388      Request.Ranges = <>      Request.Ranges = <>
4389      HTTPOptions = [hoForceEncodeParams]      HTTPOptions = [hoForceEncodeParams]
4390      Left = 88      Left = 88
4391      Top = 384      Top = 423
4392    end    end
4393    object XMLDocument1: TXMLDocument    object XMLDocument1: TXMLDocument
4394      Left = 200      Left = 200
4395      Top = 424      Top = 463
4396      DOMVendorDesc = 'MSXML'      DOMVendorDesc = 'MSXML'
4397    end    end
4398    object ApplicationEvents1: TApplicationEvents    object ApplicationEvents1: TApplicationEvents
4399      OnIdle = ApplicationEvents1Idle      OnIdle = ApplicationEvents1Idle
4400      Left = 336      Left = 336
4401      Top = 392      Top = 431
4402    end    end
4403    object MainMenu1: TMainMenu    object MainMenu1: TMainMenu
4404      Left = 136      Left = 136
4405      Top = 408      Top = 447
4406      object Afslut1: TMenuItem      object Afslut1: TMenuItem
4407        Caption = 'Afslut'        Caption = 'Afslut'
4408        object Lukprogrammet1: TMenuItem        object Lukprogrammet1: TMenuItem
# Line 4563  object MainForm: TMainForm Line 4560  object MainForm: TMainForm
4560      ProxySettings.ProxyType = fpcmNone      ProxySettings.ProxyType = fpcmNone
4561      ProxySettings.Port = 0      ProxySettings.Port = 0
4562      Left = 264      Left = 264
4563      Top = 392      Top = 431
4564    end    end
4565    object Timer1: TTimer    object Timer1: TTimer
4566      Interval = 60000      Interval = 60000
4567      OnTimer = Timer1Timer      OnTimer = Timer1Timer
4568      Left = 40      Left = 40
4569      Top = 392      Top = 431
4570    end    end
4571  end  end
Legend:
Removed from v.3038  
changed lines
  Added in v.3039
  ViewVC Help
Powered by ViewVC 1.1.20