/[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 2656 by torben, Sun Aug 23 13:09:14 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 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 3980  object MainForm: TMainForm Line 3982  object MainForm: TMainForm
3982      OnDrawItem = ListBox1DrawItem      OnDrawItem = ListBox1DrawItem
3983    end    end
3984    object DownloadButton01: TButton    object DownloadButton01: 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 3993  object MainForm: TMainForm Line 3995  object MainForm: TMainForm
3995      OnClick = DownloadButton01Click      OnClick = DownloadButton01Click
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 4006  object MainForm: TMainForm Line 4008  object MainForm: TMainForm
4008    end    end
4009    object OpdaterListenButton01: TButton    object OpdaterListenButton01: TButton
4010      Left = 905      Left = 905
4011      Top = 604      Top = 790
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 4018  object MainForm: TMainForm Line 4020  object MainForm: TMainForm
4020      OnClick = OpdaterListenButton01Click      OnClick = OpdaterListenButton01Click
4021    end    end
4022    object UploadButton01: TButton    object UploadButton01: 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 4031  object MainForm: TMainForm Line 4033  object MainForm: TMainForm
4033      OnClick = UploadButton01Click      OnClick = UploadButton01Click
4034    end    end
4035    object DownloadButton03: TButton    object DownloadButton03: 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 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 EKLoverforsel: 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 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 4128  object MainForm: TMainForm Line 4130  object MainForm: TMainForm
4130      OnClick = PanelValg1Click      OnClick = PanelValg1Click
4131    end    end
4132    object PanelValg2: TPanel    object PanelValg2: TPanel
4133      Left = 808      Left = 807
4134      Top = 101      Top = 101
4135      Width = 185      Width = 185
4136      Height = 41      Height = 41
# Line 4142  object MainForm: TMainForm Line 4144  object MainForm: TMainForm
4144      OnClick = PanelValg2Click      OnClick = PanelValg2Click
4145    end    end
4146    object PanelValg3: TPanel    object PanelValg3: TPanel
4147      Left = 808      Left = 807
4148      Top = 143      Top = 143
4149      Width = 185      Width = 185
4150      Height = 41      Height = 41
# Line 4156  object MainForm: TMainForm Line 4158  object MainForm: TMainForm
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 4168  object MainForm: TMainForm Line 4170  object MainForm: TMainForm
4170      OnClick = PanelValg4Click      OnClick = PanelValg4Click
4171    end    end
4172    object PanelValg5: TPanel    object PanelValg5: TPanel
4173      Left = 808      Left = 807
4174      Top = 249      Top = 249
4175      Width = 185      Width = 185
4176      Height = 41      Height = 41
# Line 4180  object MainForm: TMainForm Line 4182  object MainForm: TMainForm
4182      OnClick = PanelValg5Click      OnClick = PanelValg5Click
4183    end    end
4184    object PanelValg6: TPanel    object PanelValg6: TPanel
4185      Left = 808      Left = 807
4186      Top = 291      Top = 291
4187      Width = 185      Width = 185
4188      Height = 41      Height = 41
# Line 4335  object MainForm: TMainForm Line 4337  object MainForm: TMainForm
4337      TabOrder = 34      TabOrder = 34
4338      Visible = False      Visible = False
4339    end    end
4340      object PanelValg7: TPanel
4341        Left = 807
4342        Top = 338
4343        Width = 185
4344        Height = 41
4345        Hint =
4346          'V'#230'lges n'#229'r der skal scannes DAO PAKKESHOP pakker der skal return' +
4347          'eres til leverand'#248'ren'
4348        Alignment = taLeftJustify
4349        Anchors = [akTop, akRight]
4350        Caption = '   Indleveringskode'
4351        TabOrder = 35
4352        OnClick = PanelValg7Click
4353      end
4354    object IdHTTP1: TIdHTTP    object IdHTTP1: TIdHTTP
4355      AllowCookies = True      AllowCookies = True
4356      ProxyParams.BasicAuthentication = False      ProxyParams.BasicAuthentication = False
4357      ProxyParams.ProxyPort = 0      ProxyParams.ProxyPort = 0
4358      Request.ContentLength = -1      Request.ContentLength = -1
4359        Request.ContentRangeEnd = -1
4360        Request.ContentRangeStart = -1
4361        Request.ContentRangeInstanceLength = -1
4362      Request.ContentType = 'text/html'      Request.ContentType = 'text/html'
4363      Request.Accept = 'text/html, */*'      Request.Accept = 'text/html, */*'
4364      Request.BasicAuthentication = False      Request.BasicAuthentication = False
4365      Request.Host = 'omdeling.info'      Request.Host = 'omdeling.info'
4366      Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'      Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
4367        Request.Ranges.Units = 'bytes'
4368        Request.Ranges = <>
4369      HTTPOptions = [hoForceEncodeParams]      HTTPOptions = [hoForceEncodeParams]
4370      Left = 88      Left = 88
4371      Top = 384      Top = 384
# Line 4505  object MainForm: TMainForm Line 4526  object MainForm: TMainForm
4526    end    end
4527    object IdFTP1: TIdFTP    object IdFTP1: TIdFTP
4528      IPVersion = Id_IPv4      IPVersion = Id_IPv4
     AutoLogin = True  
4529      Passive = True      Passive = True
4530      PassiveUseControlHost = True      PassiveUseControlHost = True
4531        ConnectTimeout = 0
4532        NATKeepAlive.UseKeepAlive = False
4533        NATKeepAlive.IdleTimeMS = 0
4534        NATKeepAlive.IntervalMS = 0
4535      ProxySettings.ProxyType = fpcmNone      ProxySettings.ProxyType = fpcmNone
4536      ProxySettings.Port = 0      ProxySettings.Port = 0
4537      Left = 264      Left = 264
Legend:
Removed from v.2647  
changed lines
  Added in v.2656
  ViewVC Help
Powered by ViewVC 1.1.20