/[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 2791 by torben, Fri Dec 4 15:39:20 2015 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 btnNulstil: TButton
3827      Left = 712      Left = 712
3828      Top = 29      Top = 29
3829      Width = 88      Width = 88
# Line 3832  object MainForm: TMainForm Line 3834  object MainForm: TMainForm
3834      Caption = 'Nulstil'      Caption = 'Nulstil'
3835      TabOrder = 16      TabOrder = 16
3836      Visible = False      Visible = False
3837      OnClick = PakkeshopNulstilClick      OnClick = btnNulstilClick
3838    end    end
3839    object Panel1: TPanel    object Panel1: TPanel
3840      Left = 119      Left = 119
# Line 3905  object MainForm: TMainForm Line 3907  object MainForm: TMainForm
3907      ParentFont = False      ParentFont = False
3908      TabOrder = 2      TabOrder = 2
3909    end    end
3910    object CheckBox1: TCheckBox    object chkSporgEfterKunde: TCheckBox
3911      Left = 24      Left = 24
3912      Top = 261      Top = 257
3913      Width = 446      Width = 446
3914      Height = 26      Height = 26
3915      Hint =      Hint =
# Line 3919  object MainForm: TMainForm Line 3921  object MainForm: TMainForm
3921      Margins.Bottom = 5      Margins.Bottom = 5
3922      Caption = 'Sp'#248'rg efter kundenummer ved ukendte pakker'      Caption = 'Sp'#248'rg efter kundenummer ved ukendte pakker'
3923      TabOrder = 3      TabOrder = 3
3924      OnClick = CheckBox1Click      OnClick = chkSporgEfterKundeClick
3925    end    end
3926    object KommentarST: TStaticText    object KommentarST: TStaticText
3927      Left = 24      Left = 24
# Line 3939  object MainForm: TMainForm Line 3941  object MainForm: TMainForm
3941      ParentFont = False      ParentFont = False
3942      TabOrder = 4      TabOrder = 4
3943    end    end
3944    object RadioButton1: TRadioButton    object radioStorPakke: TRadioButton
3945      Left = 216      Left = 216
3946      Top = 285      Top = 285
3947      Width = 170      Width = 170
# Line 3951  object MainForm: TMainForm Line 3953  object MainForm: TMainForm
3953      Margins.Bottom = 5      Margins.Bottom = 5
3954      Caption = 'Stor pakke'      Caption = 'Stor pakke'
3955      TabOrder = 5      TabOrder = 5
3956      OnClick = RadioButton1Click      OnClick = radioStorPakkeClick
3957    end    end
3958    object RadioButton2: TRadioButton    object radioLillePakke: TRadioButton
3959      Left = 24      Left = 24
3960      Top = 285      Top = 285
3961      Width = 170      Width = 170
# Line 3965  object MainForm: TMainForm Line 3967  object MainForm: TMainForm
3967      Margins.Bottom = 5      Margins.Bottom = 5
3968      Caption = 'Lille pakke'      Caption = 'Lille pakke'
3969      TabOrder = 6      TabOrder = 6
3970      OnClick = RadioButton2Click      OnClick = radioLillePakkeClick
3971    end    end
3972    object ListBox1: TListBox    object ListBox1: TListBox
3973      Left = 17      Left = 8
3974      Top = 352      Top = 391
3975      Width = 874      Width = 874
3976      Height = 145      Height = 163
3977      Hint = 'Log vindue viser handlinger og meddelelser fra programmet'      Hint = 'Log vindue viser handlinger og meddelelser fra programmet'
3978      Style = lbOwnerDrawFixed      Style = lbOwnerDrawFixed
3979      Anchors = [akLeft, akTop, akRight]      Anchors = [akLeft, akTop, akRight]
# Line 3979  object MainForm: TMainForm Line 3981  object MainForm: TMainForm
3981      TabOrder = 9      TabOrder = 9
3982      OnDrawItem = ListBox1DrawItem      OnDrawItem = ListBox1DrawItem
3983    end    end
3984    object DownloadButton01: TButton    object BtnDownloadKontrolfil: TButton
3985      Left = 905      Left = 904
3986      Top = 401      Top = 445
3987      Width = 88      Width = 88
3988      Height = 47      Height = 47
3989      Hint = 'Hent rute kontrol filen fra DAO ftp server'      Hint = 'Hent rute kontrol filen fra DAO ftp server'
# Line 3990  object MainForm: TMainForm Line 3992  object MainForm: TMainForm
3992      Enabled = False      Enabled = False
3993      TabOrder = 10      TabOrder = 10
3994      WordWrap = True      WordWrap = True
3995      OnClick = DownloadButton01Click      OnClick = BtnDownloadKontrolfilClick
3996    end    end
3997    object ListBox2: TListBox    object ListBox2: TListBox
3998      Left = 17      Left = 8
3999      Top = 506      Top = 560
4000      Width = 874      Width = 874
4001      Height = 145      Height = 277
4002      Hint = 'Status vindue viser hvad der endnu ikke er scannet'      Hint = 'Status vindue viser hvad der endnu ikke er scannet'
4003      Style = lbOwnerDrawFixed      Style = lbOwnerDrawFixed
4004      Anchors = [akLeft, akTop, akRight, akBottom]      Anchors = [akLeft, akTop, akRight, akBottom]
# Line 4004  object MainForm: TMainForm Line 4006  object MainForm: TMainForm
4006      TabOrder = 11      TabOrder = 11
4007      OnDrawItem = ListBox1DrawItem      OnDrawItem = ListBox1DrawItem
4008    end    end
4009    object OpdaterListenButton01: TButton    object BtnOpdaterListen: TButton
4010      Left = 905      Left = 904
4011      Top = 604      Top = 793
4012      Width = 88      Width = 88
4013      Height = 47      Height = 47
4014      Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget'      Hint = 'Henter oplysning om de pakker der endnu ikke er scannet modtaget'
# Line 4015  object MainForm: TMainForm Line 4017  object MainForm: TMainForm
4017      Enabled = False      Enabled = False
4018      TabOrder = 12      TabOrder = 12
4019      WordWrap = True      WordWrap = True
4020      OnClick = OpdaterListenButton01Click      OnClick = BtnOpdaterListenClick
4021    end    end
4022    object UploadButton01: TButton    object BtnUploadLogfil: TButton
4023      Left = 905      Left = 904
4024      Top = 352      Top = 391
4025      Width = 88      Width = 88
4026      Height = 47      Height = 47
4027      Hint = 'Sender log filen til DAO ftp server'      Hint = 'Sender log filen til DAO ftp server'
# Line 4028  object MainForm: TMainForm Line 4030  object MainForm: TMainForm
4030      Enabled = False      Enabled = False
4031      TabOrder = 13      TabOrder = 13
4032      WordWrap = True      WordWrap = True
4033      OnClick = UploadButton01Click      OnClick = BtnUploadLogfilClick
4034    end    end
4035    object DownloadButton03: TButton    object BtnDownloadRuteskiftFil: TButton
4036      Left = 905      Left = 904
4037      Top = 450      Top = 498
4038      Width = 88      Width = 88
4039      Height = 47      Height = 47
4040      Hint = 'Henter ruteskift fil fra DAO ftp server'      Hint = 'Henter ruteskift fil fra DAO ftp server'
# Line 4041  object MainForm: TMainForm Line 4043  object MainForm: TMainForm
4043      TabOrder = 14      TabOrder = 14
4044      Visible = False      Visible = False
4045      WordWrap = True      WordWrap = True
4046      OnClick = DownloadButton03Click      OnClick = BtnDownloadRuteskiftFilClick
4047    end    end
4048    object PakkeshopText1: TStaticText    object PakkeshopText1: TStaticText
4049      Left = 712      Left = 712
# Line 4053  object MainForm: TMainForm Line 4055  object MainForm: TMainForm
4055      TabOrder = 15      TabOrder = 15
4056      Visible = False      Visible = False
4057    end    end
4058    object CheckBox2: TCheckBox    object chkAltidPrintLabel: TCheckBox
4059      Left = 505      Left = 505
4060      Top = 261      Top = 261
4061      Width = 446      Width = 446
# Line 4061  object MainForm: TMainForm Line 4063  object MainForm: TMainForm
4063      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'
4064      Caption = 'Altid printe pakkelabel'      Caption = 'Altid printe pakkelabel'
4065      TabOrder = 17      TabOrder = 17
4066      OnClick = CheckBox2Click      OnClick = chkAltidPrintLabelClick
4067    end    end
4068    object EKLoverforsel: TButton    object BtnEKLoverforsel: TButton
4069      Left = 905      Left = 905
4070      Top = 554      Top = 740
4071      Width = 88      Width = 88
4072      Height = 47      Height = 47
4073      Hint = 'Overf'#248'r de scannede pakker til EKL systemet'      Hint = 'Overf'#248'r de scannede pakker til EKL systemet'
# Line 4074  object MainForm: TMainForm Line 4076  object MainForm: TMainForm
4076      Enabled = False      Enabled = False
4077      TabOrder = 18      TabOrder = 18
4078      WordWrap = True      WordWrap = True
4079      OnClick = EKLoverforselClick      OnClick = BtnEKLoverforselClick
4080    end    end
4081    object PrinterstatusStaticText1: TStaticText    object PrinterstatusStaticText1: TStaticText
4082      Left = 119      Left = 119
# Line 4090  object MainForm: TMainForm Line 4092  object MainForm: TMainForm
4092      ParentFont = False      ParentFont = False
4093      TabOrder = 19      TabOrder = 19
4094    end    end
4095    object CheckBox3: TCheckBox    object chkScanTjekkode: TCheckBox
4096      Left = 24      Left = 24
4097      Top = 310      Top = 310
4098      Width = 353      Width = 353
# Line 4098  object MainForm: TMainForm Line 4100  object MainForm: TMainForm
4100      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'
4101      Caption = 'Scan ogs'#229' tjekkoden'      Caption = 'Scan ogs'#229' tjekkoden'
4102      TabOrder = 20      TabOrder = 20
4103      OnClick = CheckBox3Click      OnClick = chkScanTjekkodeClick
4104    end    end
4105    object PanelValgA: TPanel    object PanelValgA: TPanel
4106      Left = 808      Left = 807
4107      Top = 7      Top = 7
4108      Width = 185      Width = 185
4109      Height = 41      Height = 41
# Line 4114  object MainForm: TMainForm Line 4116  object MainForm: TMainForm
4116      OnClick = PanelValgAClick      OnClick = PanelValgAClick
4117    end    end
4118    object PanelValg1: TPanel    object PanelValg1: TPanel
4119      Left = 808      Left = 807
4120      Top = 59      Top = 59
4121      Width = 185      Width = 185
4122      Height = 41      Height = 41
# Line 4124  object MainForm: TMainForm Line 4126  object MainForm: TMainForm
4126      Alignment = taLeftJustify      Alignment = taLeftJustify
4127      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4128      Caption = '   DAO NAT X-PRESS'      Caption = '   DAO NAT X-PRESS'
4129        ParentBackground = False
4130      TabOrder = 22      TabOrder = 22
4131      OnClick = PanelValg1Click      OnClick = PanelValg1Click
4132    end    end
4133    object PanelValg2: TPanel    object PanelValg2: TPanel
4134      Left = 808      Left = 807
4135      Top = 101      Top = 101
4136      Width = 185      Width = 185
4137      Height = 41      Height = 41
# Line 4138  object MainForm: TMainForm Line 4141  object MainForm: TMainForm
4141      Alignment = taLeftJustify      Alignment = taLeftJustify
4142      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4143      Caption = '   Retur fra DAO'      Caption = '   Retur fra DAO'
4144        ParentBackground = False
4145      TabOrder = 23      TabOrder = 23
4146      OnClick = PanelValg2Click      OnClick = PanelValg2Click
4147    end    end
4148    object PanelValg3: TPanel    object PanelValg3: TPanel
4149      Left = 808      Left = 807
4150      Top = 143      Top = 143
4151      Width = 185      Width = 185
4152      Height = 41      Height = 41
# Line 4152  object MainForm: TMainForm Line 4156  object MainForm: TMainForm
4156      Alignment = taLeftJustify      Alignment = taLeftJustify
4157      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4158      Caption = '   Retur fra kunde'      Caption = '   Retur fra kunde'
4159        ParentBackground = False
4160      TabOrder = 24      TabOrder = 24
4161      OnClick = PanelValg3Click      OnClick = PanelValg3Click
4162    end    end
4163    object PanelValg4: TPanel    object PanelValg4: TPanel
4164      Left = 808      Left = 807
4165      Top = 196      Top = 196
4166      Width = 185      Width = 185
4167      Height = 41      Height = 41
# Line 4164  object MainForm: TMainForm Line 4169  object MainForm: TMainForm
4169      Alignment = taLeftJustify      Alignment = taLeftJustify
4170      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4171      Caption = '   DAO DIREKTE'      Caption = '   DAO DIREKTE'
4172        ParentBackground = False
4173      TabOrder = 25      TabOrder = 25
4174      OnClick = PanelValg4Click      OnClick = PanelValg4Click
4175    end    end
4176    object PanelValg5: TPanel    object PanelValg5: TPanel
4177      Left = 808      Left = 807
4178      Top = 249      Top = 249
4179      Width = 185      Width = 185
4180      Height = 41      Height = 41
# Line 4176  object MainForm: TMainForm Line 4182  object MainForm: TMainForm
4182      Alignment = taLeftJustify      Alignment = taLeftJustify
4183      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4184      Caption = '   DAO PAKKESHOP'      Caption = '   DAO PAKKESHOP'
4185        ParentBackground = False
4186      TabOrder = 26      TabOrder = 26
4187      OnClick = PanelValg5Click      OnClick = PanelValg5Click
4188    end    end
4189    object PanelValg6: TPanel    object PanelValg6: TPanel
4190      Left = 808      Left = 807
4191      Top = 291      Top = 291
4192      Width = 185      Width = 185
4193      Height = 41      Height = 41
# Line 4190  object MainForm: TMainForm Line 4197  object MainForm: TMainForm
4197      Alignment = taLeftJustify      Alignment = taLeftJustify
4198      Anchors = [akTop, akRight]      Anchors = [akTop, akRight]
4199      Caption = '   Retur fra pakkeshop'      Caption = '   Retur fra pakkeshop'
4200        ParentBackground = False
4201      TabOrder = 27      TabOrder = 27
4202      OnClick = PanelValg6Click      OnClick = PanelValg6Click
4203    end    end
# Line 4335  object MainForm: TMainForm Line 4343  object MainForm: TMainForm
4343      TabOrder = 34      TabOrder = 34
4344      Visible = False      Visible = False
4345    end    end
4346      object PanelValg7: TPanel
4347        Left = 807
4348        Top = 338
4349        Width = 185
4350        Height = 41
4351        Hint =
4352          'V'#230'lges n'#229'r der skal scannes DAO PAKKESHOP pakker der skal return' +
4353          'eres til leverand'#248'ren'
4354        Alignment = taLeftJustify
4355        Anchors = [akTop, akRight]
4356        Caption = '   Indleveringskode'
4357        ParentBackground = False
4358        TabOrder = 35
4359        OnClick = PanelValg7Click
4360      end
4361      object chkForstorTilDirekte: TCheckBox
4362        Left = 24
4363        Top = 347
4364        Width = 353
4365        Height = 17
4366        Caption = 'For stor til DAO Direkte'
4367        TabOrder = 36
4368      end
4369    object IdHTTP1: TIdHTTP    object IdHTTP1: TIdHTTP
4370      AllowCookies = True      AllowCookies = True
4371      ProxyParams.BasicAuthentication = False      ProxyParams.BasicAuthentication = False
4372      ProxyParams.ProxyPort = 0      ProxyParams.ProxyPort = 0
4373      Request.ContentLength = -1      Request.ContentLength = -1
4374        Request.ContentRangeEnd = -1
4375        Request.ContentRangeStart = -1
4376        Request.ContentRangeInstanceLength = -1
4377      Request.ContentType = 'text/html'      Request.ContentType = 'text/html'
4378      Request.Accept = 'text/html, */*'      Request.Accept = 'text/html, */*'
4379      Request.BasicAuthentication = False      Request.BasicAuthentication = False
4380      Request.Host = 'omdeling.info'      Request.Host = 'omdeling.info'
4381      Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'      Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
4382        Request.Ranges.Units = 'bytes'
4383        Request.Ranges = <>
4384      HTTPOptions = [hoForceEncodeParams]      HTTPOptions = [hoForceEncodeParams]
4385      Left = 88      Left = 88
4386      Top = 384      Top = 384
# Line 4435  object MainForm: TMainForm Line 4471  object MainForm: TMainForm
4471          RadioItem = True          RadioItem = True
4472          OnClick = Returpakkerfrapakkeshop1Click          OnClick = Returpakkerfrapakkeshop1Click
4473        end        end
4474          object menuIndlevering: TMenuItem
4475            Caption = 'Pakke med indleverings kode'
4476            RadioItem = True
4477            OnClick = menuIndleveringClick
4478          end
4479        object N4: TMenuItem        object N4: TMenuItem
4480          Caption = '-'          Caption = '-'
4481        end        end
# Line 4505  object MainForm: TMainForm Line 4546  object MainForm: TMainForm
4546    end    end
4547    object IdFTP1: TIdFTP    object IdFTP1: TIdFTP
4548      IPVersion = Id_IPv4      IPVersion = Id_IPv4
     AutoLogin = True  
4549      Passive = True      Passive = True
4550      PassiveUseControlHost = True      PassiveUseControlHost = True
4551        ConnectTimeout = 0
4552        NATKeepAlive.UseKeepAlive = False
4553        NATKeepAlive.IdleTimeMS = 0
4554        NATKeepAlive.IntervalMS = 0
4555      ProxySettings.ProxyType = fpcmNone      ProxySettings.ProxyType = fpcmNone
4556      ProxySettings.Port = 0      ProxySettings.Port = 0
4557      Left = 264      Left = 264
Legend:
Removed from v.2647  
changed lines
  Added in v.2791
  ViewVC Help
Powered by ViewVC 1.1.20