/[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 2647 by torben, Thu Aug 20 20:16:16 2015 UTC revision 3039 by torben, Wed Jun 1 13:25:34 2016 UTC
# Line 2  object MainForm: TMainForm Line 2  object MainForm: TMainForm
2    Left = 300    Left = 300
3    Top = 131    Top = 131
4    Caption = 'Scanning af pakker'    Caption = 'Scanning af pakker'
5    ClientHeight = 672    ClientHeight = 858
6    ClientWidth = 1000    ClientWidth = 1000
7    Color = clBtnFace    Color = clBtnFace
8      Constraints.MinHeight = 750
9      Constraints.MinWidth = 1000
10    Font.Charset = DEFAULT_CHARSET    Font.Charset = DEFAULT_CHARSET
11    Font.Color = clWindowText    Font.Color = clWindowText
12    Font.Height = -16    Font.Height = -16
# Line 3627  object MainForm: TMainForm Line 3629  object MainForm: TMainForm
3629    OnKeyPress = FormKeyPress    OnKeyPress = FormKeyPress
3630    DesignSize = (    DesignSize = (
3631      1000      1000
3632      672)      858)
3633    PixelsPerInch = 96    PixelsPerInch = 96
3634    TextHeight = 19    TextHeight = 19
3635    object Image1: TImage    object Image1: TImage
# Line 3821  object MainForm: TMainForm Line 3823  object MainForm: TMainForm
3823      Proportional = True      Proportional = True
3824      Transparent = True      Transparent = True
3825    end    end
3826    object PakkeshopNulstil: TButton    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
3842      Left = 712      Left = 712
3843      Top = 29      Top = 29
3844      Width = 88      Width = 88
# Line 3830  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 = PakkeshopNulstilClick      OnClick = btnNulstilClick
3853    end    end
3854    object Panel1: TPanel    object Panel1: TPanel
3855      Left = 119      Left = 119
# Line 3847  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 3889  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 3905  object MainForm: TMainForm Line 3922  object MainForm: TMainForm
3922      ParentFont = False      ParentFont = False
3923      TabOrder = 2      TabOrder = 2
3924    end    end
3925    object CheckBox1: TCheckBox    object chkSporgEfterKunde: TCheckBox
3926      Left = 24      Left = 24
3927      Top = 261      Top = 312
3928      Width = 446      Width = 446
3929      Height = 26      Height = 26
3930      Hint =      Hint =
# Line 3919  object MainForm: TMainForm Line 3936  object MainForm: TMainForm
3936      Margins.Bottom = 5      Margins.Bottom = 5
3937      Caption = 'Sp'#248'rg efter kundenummer ved ukendte pakker'      Caption = 'Sp'#248'rg efter kundenummer ved ukendte pakker'
3938      TabOrder = 3      TabOrder = 3
3939      OnClick = CheckBox1Click      OnClick = chkSporgEfterKundeClick
   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  
3940    end    end
3941    object RadioButton1: 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 3950  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 = RadioButton1Click      OnClick = radioStorPakkeClick
3954    end    end
3955    object RadioButton2: 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 3964  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 = RadioButton2Click      OnClick = radioLillePakkeClick
3968    end    end
3969    object ListBox1: TListBox    object ListBox1: TListBox
3970      Left = 17      Left = 8
3971      Top = 352      Top = 430
3972      Width = 874      Width = 874
3973      Height = 145      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 DownloadButton01: TButton    object BtnDownloadKontrolfil: TButton
3982      Left = 905      Left = 904
3983      Top = 401      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 = DownloadButton01Click      OnClick = BtnDownloadKontrolfilClick
3993    end    end
3994    object ListBox2: TListBox    object ListBox2: TListBox
3995      Left = 17      Left = 8
3996      Top = 506      Top = 600
3997      Width = 874      Width = 874
3998      Height = 145      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 OpdaterListenButton01: TButton    object BtnOpdaterListen: TButton
4007      Left = 905      Left = 904
4008      Top = 604      Top = 793
4009      Width = 88      Width = 88
4010      Height = 47      Height = 47
4011      Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget'      Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget'
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 = OpdaterListenButton01Click      OnClick = BtnOpdaterListenClick
4018    end    end
4019    object UploadButton01: TButton    object BtnUploadLogfil: TButton
4020      Left = 905      Left = 904
4021      Top = 352      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 = UploadButton01Click      OnClick = BtnUploadLogfilClick
4031    end    end
4032    object DownloadButton03: TButton    object BtnDownloadRuteskiftFil: TButton
4033      Left = 905      Left = 904
4034      Top = 450      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 = DownloadButton03Click      OnClick = BtnDownloadRuteskiftFilClick
4044    end    end
4045    object PakkeshopText1: TStaticText    object PakkeshopText1: TStaticText
4046      Left = 712      Left = 712
# Line 4050  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 CheckBox2: 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 = CheckBox2Click      OnClick = chkAltidPrintLabelClick
4064    end    end
4065    object EKLoverforsel: TButton    object BtnEKLoverforsel: TButton
4066      Left = 905      Left = 905
4067      Top = 554      Top = 740
4068      Width = 88      Width = 88
4069      Height = 47      Height = 47
4070      Hint = 'Overf'#248'r de scannede pakker til EKL systemet'      Hint = 'Overf'#248'r de scannede pakker til EKL systemet'
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 = EKLoverforselClick      OnClick = BtnEKLoverforselClick
4077    end    end
4078    object PrinterstatusStaticText1: TStaticText    object PrinterstatusStaticText1: TStaticText
4079      Left = 119      Left = 119
# Line 4088  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 CheckBox3: 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 = CheckBox3Click      OnClick = chkScanTjekkodeClick
4101    end    end
4102    object PanelValgA: TPanel    object PanelValgA: TPanel
4103      Left = 808      Left = 807
4104      Top = 7      Top = 7
4105      Width = 185      Width = 185
4106      Height = 41      Height = 41
# Line 4110  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
4116      Left = 808      Left = 807
4117      Top = 59      Top = 59
4118      Width = 185      Width = 185
4119      Height = 41      Height = 41
# Line 4124  object MainForm: TMainForm Line 4123  object MainForm: TMainForm
4123      Alignment = taLeftJustify      Alignment = taLeftJustify
4124      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4125      Caption = '   DAO NAT X-PRESS'      Caption = '   DAO NAT X-PRESS'
4126      TabOrder = 22      ParentBackground = False
4127        TabOrder = 21
4128      OnClick = PanelValg1Click      OnClick = PanelValg1Click
4129    end    end
4130    object PanelValg2: TPanel    object PanelValg2: TPanel
4131      Left = 808      Left = 807
4132      Top = 101      Top = 100
4133      Width = 185      Width = 185
4134      Height = 41      Height = 41
4135      Hint =      Hint =
# Line 4137  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      TabOrder = 23      ParentBackground = False
4142        TabOrder = 22
4143      OnClick = PanelValg2Click      OnClick = PanelValg2Click
4144    end    end
4145    object PanelValg3: TPanel    object PanelValg3: TPanel
4146      Left = 808      Left = 807
4147      Top = 143      Top = 143
4148      Width = 185      Width = 185
4149      Height = 41      Height = 41
# Line 4151  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      TabOrder = 24      ParentBackground = False
4157        TabOrder = 23
4158      OnClick = PanelValg3Click      OnClick = PanelValg3Click
4159    end    end
4160    object PanelValg4: TPanel    object PanelValg4: TPanel
4161      Left = 808      Left = 807
4162      Top = 196      Top = 196
4163      Width = 185      Width = 185
4164      Height = 41      Height = 41
# Line 4164  object MainForm: TMainForm Line 4166  object MainForm: TMainForm
4166      Alignment = taLeftJustify      Alignment = taLeftJustify
4167      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4168      Caption = '   DAO DIREKTE'      Caption = '   DAO DIREKTE'
4169      TabOrder = 25      ParentBackground = False
4170        TabOrder = 24
4171      OnClick = PanelValg4Click      OnClick = PanelValg4Click
4172    end    end
4173    object PanelValg5: TPanel    object PanelValg5: TPanel
4174      Left = 808      Left = 807
4175      Top = 249      Top = 249
4176      Width = 185      Width = 185
4177      Height = 41      Height = 41
# Line 4176  object MainForm: TMainForm Line 4179  object MainForm: TMainForm
4179      Alignment = taLeftJustify      Alignment = taLeftJustify
4180      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4181      Caption = '   DAO PAKKESHOP'      Caption = '   DAO PAKKESHOP'
4182      TabOrder = 26      ParentBackground = False
4183        TabOrder = 25
4184      OnClick = PanelValg5Click      OnClick = PanelValg5Click
4185    end    end
4186    object PanelValg6: TPanel    object PanelValg6: TPanel
4187      Left = 808      Left = 807
4188      Top = 291      Top = 291
4189      Width = 185      Width = 185
4190      Height = 41      Height = 41
# Line 4190  object MainForm: TMainForm Line 4194  object MainForm: TMainForm
4194      Alignment = taLeftJustify      Alignment = taLeftJustify
4195      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4196      Caption = '   Retur fra pakkeshop'      Caption = '   Retur fra pakkeshop'
4197      TabOrder = 27      ParentBackground = False
4198        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 4203  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 4225  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 4242  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 4260  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 4278  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 4296  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 4314  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 4332  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
4344        Left = 806
4345        Top = 377
4346        Width = 185
4347        Height = 41
4348        Hint =
4349          'V'#230'lges n'#229'r der skal scannes DAO PAKKESHOP pakker der skal return' +
4350          'eres til leverand'#248'ren'
4351        Alignment = taLeftJustify
4352        Anchors = [akTop, akRight]
4353        Caption = '   Indleveringskode'
4354        ParentBackground = False
4355        TabOrder = 34
4356        OnClick = PanelValg7Click
4357      end
4358      object chkForstorTilDirekte: TCheckBox
4359        Left = 24
4360        Top = 397
4361        Width = 238
4362        Height = 22
4363        Caption = 'For stor til DAO Direkte'
4364        TabOrder = 35
4365      end
4366      object chkEmballageRepareret: TCheckBox
4367        Left = 268
4368        Top = 397
4369        Width = 181
4370        Height = 22
4371        Caption = 'Emballage Repareret'
4372        TabOrder = 36
4373      end
4374    object IdHTTP1: TIdHTTP    object IdHTTP1: TIdHTTP
4375      AllowCookies = True      AllowCookies = True
4376      ProxyParams.BasicAuthentication = False      ProxyParams.BasicAuthentication = False
4377      ProxyParams.ProxyPort = 0      ProxyParams.ProxyPort = 0
4378      Request.ContentLength = -1      Request.ContentLength = -1
4379        Request.ContentRangeEnd = -1
4380        Request.ContentRangeStart = -1
4381        Request.ContentRangeInstanceLength = -1
4382      Request.ContentType = 'text/html'      Request.ContentType = 'text/html'
4383      Request.Accept = 'text/html, */*'      Request.Accept = 'text/html, */*'
4384      Request.BasicAuthentication = False      Request.BasicAuthentication = False
4385      Request.Host = 'omdeling.info'      Request.Host = 'omdeling.info'
4386      Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'      Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
4387        Request.Ranges.Units = 'bytes'
4388        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 4435  object MainForm: TMainForm Line 4476  object MainForm: TMainForm
4476          RadioItem = True          RadioItem = True
4477          OnClick = Returpakkerfrapakkeshop1Click          OnClick = Returpakkerfrapakkeshop1Click
4478        end        end
4479          object menuIndlevering: TMenuItem
4480            Caption = 'Pakke med indleverings kode'
4481            RadioItem = True
4482            OnClick = menuIndleveringClick
4483          end
4484        object N4: TMenuItem        object N4: TMenuItem
4485          Caption = '-'          Caption = '-'
4486        end        end
# Line 4505  object MainForm: TMainForm Line 4551  object MainForm: TMainForm
4551    end    end
4552    object IdFTP1: TIdFTP    object IdFTP1: TIdFTP
4553      IPVersion = Id_IPv4      IPVersion = Id_IPv4
     AutoLogin = True  
4554      Passive = True      Passive = True
4555      PassiveUseControlHost = True      PassiveUseControlHost = True
4556        ConnectTimeout = 0
4557        NATKeepAlive.UseKeepAlive = False
4558        NATKeepAlive.IdleTimeMS = 0
4559        NATKeepAlive.IntervalMS = 0
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.2647  
changed lines
  Added in v.3039
  ViewVC Help
Powered by ViewVC 1.1.20