Does not work the same when compiled

kpassaur · Post by **kpassaur** » Tue Apr 05, 2011 10:33 am

I have a script that works until it is compiled. I have stepped through it numerous times and still cannot understand what is going on.

I have changed the variable names incase there was some form of conflict and there is not.

This is the subroutine:

SRT>Get_Screen_Capture_Test
CloseDialog>Dialog1
Let>MSG_STAYONTOP=1
Let>MSG_CENTERED=1
MDL>Open the Window to be captured and then click on "OK"

BlockInput>1
SetFocus>Program Manager
GetActiveWindow>window_title,X,Y,Width,Height
GetTextInRect>0,0,%Width%,%Height%,Window_Text
Let>Captured_Text=%window_title%%Window_Text%
BlockInput>0

Ask>Open captured text in text viewer?,ViewTextFile
If>%ViewTextFile%=YES
DeleteFile>%settinsdir%\Tested_Capture.txt
WriteLn>%settinsdir%\Tested_Capture.txt,result,%Captured_Text%
ExecuteFile>%settinsdir%\Tested_Capture.txt
Endif

Show>Dialog1
SetDialogProperty>Dialog1,SS,Text,strText
END>Get_Screen_Capture_Test

When I step throught it or run it uncompiled it works with the only issue being when it shows the Dialog again it is not centered. It only shows an edge and you have to drag it back. So I assume CloseDialog does not close it but just moves it out of view.

Now when it is compiled, it does not close the Dialog, which sort of defeats the purpose of the script.

When it comes to the line to open the text file it will open it then it exits the compiled script. That is why I changed variables, I was thinking something else could have caused it.

Any ideas as to what would cause this behavior?

Any ideas as to

kpassaur · Post by **kpassaur** » Tue Apr 05, 2011 11:36 am

I cut the rest of the script out and used the code below and the same thing, it works when not compiled. When compiled it is acting the same as mentioned above, it does not hide the Dialog, and then it exits.

Let>settinsdir=C:\temp

Dialog>Dialog2
object Dialog2: TForm
Left = 188
Top = 217
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'CustomDialog'
ClientHeight = 214
ClientWidth = 431
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object MSButton1: tMSButton
Left = 134
Top = 96
Width = 75
Height = 25
Caption = 'Test'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 8
DoBrowse = False
BrowseStyle = fbOpen
end
object MSButton2: tMSButton
Left = 211
Top = 96
Width = 75
Height = 25
Caption = 'Exit'
DoubleBuffered = True
ModalResult = 2
ParentDoubleBuffered = False
TabOrder = 9
DoBrowse = False
BrowseStyle = fbOpen
end
end
EndDialog>Dialog2

AddDialogHandler>Dialog2,MSButton1,OnClick,Get_Screen_Capture_Test
Show>Dialog2,r
If>r=2
Exit>0
Endif

SRT>Get_Screen_Capture_Test
CloseDialog>Dialog2
Let>MSG_STAYONTOP=1
Let>MSG_CENTERED=1
MDL>Open the Window to be captured and then click on "OK"
BlockInput>1
SetFocus>Program Manager
GetActiveWindow>window_title,X,Y,Width,Height
GetTextInRect>0,0,%Width%,%Height%,Window_Text
Let>Captured_Text=%window_title%%Window_Text%
BlockInput>0

Ask>Open captured text in text viewer?,ViewTextFile
If>%ViewTextFile%=YES
DeleteFile>%settinsdir%\Tested_Capture.txt
WriteLn>%settinsdir%\Tested_Capture.txt,result,%Captured_Text%
ExecuteFile>%settinsdir%\Tested_Capture.txt
Endif

Show>Dialog2
SetDialogProperty>Dialog1,SS,Text,strText
END>Get_Screen_Capture_Test

Post by **Marcus Tettmar** » Tue Apr 05, 2011 12:14 pm

I can't at this stage explain why it works uncompiled but you are trying to close a dialog while you are inside a dialog event. So you're sort of trying to close yourself while you're still doing something and therefore you can't. What you really want to do is HIDE it, not CLOSE it.

So you want to do this:

Code: Select all

SRT>Get_Screen_Capture_Test
  //Hide me
  SetDialogProperty>Dialog2,,Visible,False
  //---
  Let>MSG_STAYONTOP=1
  Let>MSG_CENTERED=1
  MDL>Open the Window to be captured and then click on "OK"
  BlockInput>1
  SetFocus>Program Manager
  GetActiveWindow>window_title,X,Y,Width,Height
  GetTextInRect>0,0,%Width%,%Height%,Window_Text
  Let>Captured_Text=%window_title%%Window_Text%
  BlockInput>0
  Ask>Open captured text in text viewer?,ViewTextFile
  If>%ViewTextFile%=YES
    DeleteFile>%settinsdir%\Tested_Capture.txt
    WriteLn>%settinsdir%\Tested_Capture.txt,result,%Captured_Text%
    ExecuteFile>%settinsdir%\Tested_Capture.txt
  Endif
  //show me again
  SetDialogProperty>Dialog2,,Visible,True
  //---
  SetDialogProperty>Dialog1,SS,Text,strText
END>Get_Screen_Capture_Test

That works compiled and uncompiled.

kpassaur · Post by **kpassaur** » Tue Apr 05, 2011 12:28 pm

Thanks, I'll give it a go. I was starting to use the WindowAction and hide it and then display it. But it would still close it.

JRL · Post by **JRL** » Tue Apr 05, 2011 1:42 pm

It appears to me that when using CloseDialog> while in the dialog event, the dialog IS actually closing. It just doesn't disappear except while running from the editor. If the dialog didn't actually close the final message in the script below would not display.

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  object MSButton1: tMSButton
    Left = 176
    Top = 77
    Width = 75
    Height = 25
    Caption = 'MSButton1'
  end
end
EndDialog>Dialog1

AddDialogHandler>dialog1,msbutton1,onclick,Go

Show>Dialog1,res1

Message>The dialog must really be closed
Wait>1

SRT>Go
  //CloseDialog>Dialog1
  Message>The dialog is now closed?
  Wait>2
  Message>Doing stuff
  Wait>2
END>Go

kpassaur · Post by **kpassaur** » Wed Apr 13, 2011 12:06 pm

I am still having difficulty with this I changed it to hide the dialog but when I make it visible again it is in a different location.

SRT>Advanced_Settings
SetDialogProperty>Dialog1,,Visible,False
IfFileExists>%jobsettingspath%\%jname%_advanced.ani
//ReadIniFile>%jobsettingspath%\%jname%.ini,Settings,Definition File,bcdef
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Relate to Database,RBC
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Classify Document Only,CLAS
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Rotation,RO
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Keep Compression,CC
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Parse Barcode,PBC
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Start Position,SP
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Length of String,PSL
Else
Let>RBC=False
Let>CLAS=False
Let>RO=0
Let>PBC=
Let>SP=
Let>PSL=
Let>CC=False
Endif
SetDialogProperty>Dialog1a,ident,checked,CLAS
SetDialogProperty>Dialog1a,msCheckBox1,checked,RBC
SetDialogProperty>Dialog1a,rot,text,RO
SetDialogProperty>Dialog1a,accomp,checked,CC
SetDialogProperty>Dialog1a,pstring,text,PBC
SetDialogProperty>Dialog1a,pstringspos,text,SP
SetDialogProperty>Dialog1a,pstringlen,text,PSL

Show>Dialog1a,ra
If>ra=2,skip_advanced
If>ra=4,write_advanced

Label>write_advanced

GetDialogProperty>Dialog1a,ident,checked,GCLAS
GetDialogProperty>Dialog1a,msCheckBox1,checked,GRBC
GetDialogProperty>Dialog1a,rot,text,GRO
GetDialogProperty>Dialog1a,accomp,checked,GCC
GetDialogProperty>Dialog1a,pstring,text,GPBC
GetDialogProperty>Dialog1a,pstringspos,text,GSP
GetDialogProperty>Dialog1a,pstringlen,text,GPSL

DeleteFile>%jobsettingspath%\%jname%_advanced.ani
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,[Settings]
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Classify Document Only=%GCLAS%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Relate to Database=%GRBC%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Keep Compression=%GCC%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Parse Barcode=%GPBC%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Start Position=%GSP%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Length of String=%GPSL%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Rotation=%GRO%

Label>skip_advanced
SetDialogProperty>Dialog1,,Visible,True
END>Advanced_Settings

Any ideas as to why Dialog one would have moved?

JRL · Post by **JRL** » Wed Apr 13, 2011 12:38 pm

Hi Keith

Did a quick test using a short script that loops over and over making a dialog visible then not visible. The dialog did not move.

There is nothing in the sample you posted that would obviously make a dialog move. I did notice that this sample makes Dialog1 invisible at the start then visible at the end while it is getting and setting property values for Dialog1a. Could that be an issue? Without the rest of your code its hard to tell. Could they be sharing variable that influences Dialog1's position?

kpassaur · Post by **kpassaur** » Wed Apr 13, 2011 12:51 pm

JRL,

I cannot think of anything that would not want it to open in the same location again.

I tried this as well with the same results

SRT>Advanced_Settings
SetDialogProperty>Dialog1,,Visible,False

MDL>Test

SetDialogProperty>Dialog1,,Visible,True
END>Advanced_Settings

Same result it moves the dialog so only a portion of it is returned when it hits the visible line.

Any ideas?

JRL · Post by **JRL** » Wed Apr 13, 2011 1:10 pm

Do this. The dialog will open and close in the same position.

Code: Select all

Dialog>Dialog1
EndDialog>Dialog1

Show>Dialog1

Label>Loop
  Wait>1
  GoSub>Advanced_Settings
Goto>Loop

SRT>Advanced_Settings
  SetDialogProperty>Dialog1,,Visible,False
    Wait>1
  SetDialogProperty>Dialog1,,Visible,True
END>Advanced_Settings

Any ideas?

One after another after another. The real question is Any "useful" ideas?

I assume your script is large so hard to tell what might be interfering with the dialog. It is Dialog1 that is moving? correct? Try searching your code for either "SetDialogProperty>Dialog1" to see if there is any place you are resetting the position. Also try searching for "MoveWindow" to see if you have a line that moves the dialog by its window name or handle. Try renaming the dialog caption to see if there is some other program moving the window.

kpassaur · Post by **kpassaur** » Wed Apr 13, 2011 1:22 pm

Yes, Dialog1 is moving

I am not moving or resetting the positon of any of the dialogs in any line. Nor am I moving any windows.

I did have (until now that you mentioned it) numerous instances of "Job Manager" which is the caption line of the dialog. I have changed them and the program Title so there is no duplicate instances and the result is the same.

kpassaur · Post by **kpassaur** » Wed Apr 13, 2011 1:32 pm

I have stripped everything out of it and still the same result. This is it with just the two dialogs. When everything is stripped out it only moves the dialog when save is pressed, if exit is selected it remains in place. However, in the real script it does not matter which is pressed it moves Dialog1

Dialog>Dialog1
object Dialog1: TForm
Left = 1662
Top = 121
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'Job Creation'
ClientHeight = 564
ClientWidth = 735
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poDesktopCenter
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object msLabel2: TLabel
Left = -8
Top = 54
Width = 914
Height = 24
Caption =
'________________________________________________________________' +
'___________________'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object msLabel3: TLabel
Left = 525
Top = 332
Width = 180
Height = 13
Caption = 'Output Format and Existing File Option'
Transparent = True
end
object msLabel4: TLabel
Left = 50
Top = 534
Width = 173
Height = 13
Caption = 'Copyright'#169' eDocFile Inc. 2004-2010'
Transparent = True
end
object msLabel5: TLabel
Left = 412
Top = 105
Width = 48
Height = 13
Caption = 'Job Name'
Transparent = True
end
object msLabel7: TLabel
Left = 374
Top = 389
Width = 163
Height = 13
Caption = '________Folder Output ________'
Transparent = True
end
object msLabel8: TLabel
Left = 453
Top = 412
Width = 5
Height = 13
Caption = '\'
Transparent = True
end
object msLabel9: TLabel
Left = 375
Top = 437
Width = 161
Height = 13
Caption = '_________ File Name _________'
Transparent = True
end
object msLabel10: TLabel
Left = 454
Top = 463
Width = 3
Height = 13
Caption = '-'
Transparent = True
end
object msLabel11: TLabel
Left = 13
Top = 304
Width = 320
Height = 13
Caption = '_______________________ Input Folder ____________________'
Transparent = True
end
object msLabel12: TLabel
Left = 16
Top = 358
Width = 316
Height = 13
Caption = '______________________ Output Folder ___________________'
Transparent = True
end
object msLabel13: TLabel
Left = 565
Top = 388
Width = 113
Height = 13
Caption = 'Append Fixed Subfolder'
Transparent = True
end
object msLabel14: TLabel
Left = 578
Top = 439
Width = 87
Height = 13
Caption = 'Append File Name'
Transparent = True
end
object msLabel15: TLabel
Left = 377
Top = 305
Width = 316
Height = 13
Caption = '_______________________ Processing ____________________'
Transparent = True
end
object Label1: TLabel
Left = 16
Top = 408
Width = 314
Height = 13
Caption = '______________ Archive Folder for Original Images ___________'
end
object Label2: TLabel
Left = 16
Top = 464
Width = 317
Height = 13
Caption = '____________________Folder for CSV Files _________________'
end
object MSImage1: tMSImage
Left = 256
Top = 8
Width = 209
Height = 65
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000E30000
003B08020000000681AA590000000970485973000017120000171201679FD252
0000000774494D4507DB0407121C143F75260B0000000774455874417574686F
7200A9AECC480000000C744558744465736372697074696F6E00130921230000
000A74455874436F7079726967687400AC0FCC3A0000000E7445587443726561
74696F6E2074696D650035F70F090000000974455874536F667477617265005D
70FF3A0000000B74455874446973636C61696D657200B7C0B48F000000087445
58745761726E696E6700C01BE6870000000774455874536F7572636500F5FF83
EB0000000874455874436F6D6D656E7400F6CC96BF0000000674455874546974
6C6500A8EED2270000189C4944415478DAED9D796C1CD77DC7DFDCB3F7452EEF
4B1465EAAA9C3A3E2459B66C4749E41CB6132B469C144582362E60140D0CB469
FFE81F2D023441FE688AC22D721468EDC44E144B3E12DBA21D3B3A2C5B920F49
E6A1839428F114B9CBE5DE3B3B677FEFBDDDE5F22625F190B43F8FC6B3BBB33B
336F3EFCFE7EBF770D635916BA063BDB3B383012B1D96DA224B13C2FF03C27F0
2CCF712CCBC07F2CC780B1B0C03F06F6C7EBFC016D1C13102CFA7EEEA392956C
1663AE9A54F8E2F9CBC347BAC7A203DD82CD29BBDCA2DD2ED86CBC2CF182C089
02C7F32CA596E730A9402DFE1AC207246B1F6B6E94B31C31CC739EE692956CBA
5D25A918D3BE2B87CF872BAA2BFBCFB6F332306A1729A6E204A69CC001A92C97
C7144D608A4CE434B36BCC98488C27568055890FA4FBF64A897DB6BB8FA022B9
2DA17CCBDAD5900A5FE9EE1F39742E0498FA3CB673ED67584912E51CA6AC2840
10403185858138004B26FD26F1FC26B24C0CAB944E94C707ED76BBC3E1906519
781504219B184CF5FD564EEDCBC43B445617B74718622C31BABDD28556B215B0
45934A313D7C2E1CACAE004C3D36E1647B0F2B88BC24F11256D31CA6621E531E
635AA08BAAA945167D6C54EAEBF27ABD3E9FCFE57271C6B83EFA8A2DBB3F13EF
6CBF5C1F8EBB1E68ED407F7E110005824171614DE384952EB492AD802D8E54D8
B96760F4D0D9500153B7CC7D70FA3202862481F87D084C736ACA0A1853968583
105219A2A9444DF1DA40A9C1BEE4C9F782605ED6631EF10B0794F4994F2F3686
A2EE86C0E8A69A01B798EE2E3F0F8CDA88499244615DE9422BD90AD82248CD61
7A2E14AC9AC0D42D70EFB60F9A9035514C690A2542780A4A883165F20B2A1654
03AF2317BAC78EECDD5C7B795DED09CBBC7CB2BB7134E2690A8E6EAEEFE3E556
CDF9B847FDC37BD11F4160E0B47A87BB7E51B5E5FBCD1B7701AC13675FD2D75B
C6164AAA45EC27BF7AC3E9F1C822679704581C92505B5BDF7125C5E0A8345F3F
558C294718A5B03239A74F3185F57057BBFAD2779EF84ED7E193EBAF8C79D654
8E6E69BCC4D9B668B63D8EAAAFA535B7153F1C0EEBCAD06F9AFD471DECF087D9
FF69BD630F282B0D584B7505B7942D8254C3307EFCDFBF4B29CA78640C5C7C2A
1686A0B1AE791D244C38BBC7093EBBEEEE7B5DE5659177FE0AD228C4F1F89B2C
22F5A878D3D452BCB326B0F347A661454742036FFCECCF9CCF79AB8DF198F333
CDBD9CED4E4D7ECC11FC7A2A2B630A93ED4678BFDD78C9C60C2203C17228FA9F
EB6EFF3AA45FB4A280566FAD7401966C996CA1A49AA6A969DAB32F1E929C6E41
B26594543A9D74783C550DCDE0F4B19AD24C9FC7B1E958DBB7BFF1258167B2C8
D0909EC58B066B2561060F746FE2377D3FD43F686412CE53FFFEE4D75FD35421
CB3C60488FD8028FA6140164924B77EA63FBDCDC7ED11A806801634AD6AFF7FF
5BF3E647DD6E378D5969DDD64A1760C996C9164AAAAEEB8AA2FCEF1B1DA24CAA
F74571B8B7239D8CF19288F58FD684B2ECDABBB63B7DBE3090FA0593470AF6F1
185615164BCBF6863DFB3EAA736DFCCB1AF4F1FAC0A1E6B23FC4B3BB0DE111D9
FFD57406AB2397E932C6F7B985FD2233500034B736D0AFDB7F50DFFAA5402000
B03A9D4ECAEB4A1760C996C9164A2A086A2A95FAEDC13E8A2900AA2849080A70
FB134EC7414A2100E0DC013F7C147EEBDBDF7850E19934CEA10CDDD2D550283D
38988A663DA174D91D9FE59A826D71E5CBA6F0A8EC79389536B08E2A67F5F1BD
1EDBCB98D16240F398C2C6B3879FAA6AFE7C6565657979B9D7EBA5B0AE740196
6C996CA1A4AAAA9A48245E391E0110391116213ADA0F3A4B8354DCBC4FEA4D83
4D6B65A7630C48BD3FCAA38C659AA131657028AD6634A7A09737E865F5A35165
8FC97FD9E67C2895D230E3992E3DFA3B8FF365911B9811D0C2C68F5E7FB2ACFE
81FAFAFAAAAAAAB2B2328FC763B7DB57BA004BB64CB65052B3D96C3C1E7FFD54
1A30E5058115783593B41883904A30E57076EFF4FA00E5B1B7BFBD67DBE8F878
74F04A56554CA7A8573624BC8DF178EA318BFB0AEBDC1DE2256F320EF1A8117F
C9E37959E407A6A23913A9FFBCF79140DDCEC6C6C6BABABA8A8A0A2AAB2B5D80
259B6A40D452D4C92C82D4582CD6D661708240F2273E1AEAD3B42CC6143495D6
9832A8BCA159B4D92EBFBCE7B3B5178DACE294CDCA86A4A731194FEFB1B88745
DBAE68342A3A1CE31EBFA8F45727BF20F367A6A23905D6A2F77FF0EBDDDEEA1D
CDCDCD002BC400B4656BA5EF4BC9A61A24DF1888EB6D8B201520FBE3598EA55D
4F782E1AEED7B50CC3915628525D0AEBB29A86814BDDD10FFEE9912DFDD50D51
4FA312CB3CC1F00F73D27D994C06B27565EC93AC7230DDFA43CE4276F3546D7A
27ABC766A573F2CBBF7FFE0B9EAA7BD7AE5DDBD4D404014089D4D56986612C45
EDE1E2487DE73CEE840A98B20297CDC42D64169AA028A9B2D375F1CC29F1DDEF
7EEF1F8763EA13ACF418E2EF82185710042BD96EA4F6D9DCAFEA82D0EBE851B3
1663A18078AE59D9CA1AB159012D7AF399FFDBE5AFB9AF44EA2A3748BE8BDB11
AF972D8ED43F753B70533E8E4AD9D8D800D65426E7F7695B94B7A2E67277A7FD
D83F3CFED7E9A4FEB73A7B2FF064263E3593FB7DE5AF88B68174864D6B8DDD8E
EE64CA327424714C9DFB5C736A2B53807576597DE6B912A93780012A4B517BB8
48527BDC8454DC914F556286A94D082A81D5B28C0B5DA7FCBDCF3FFECDEEB8FE
37D1F4167BEAAC4BFA65EDBA83E468289DE2527AC33967772C6EE91A1C9A71DB
9806D7B9A6E456468B4D257532B598D4DA22522315AEDBAFA244C2FFB1FDD9EF
BFBFF90DEB6BBB97F48EE5EDCDA7FEE5E19FCFBDCBF29DCC3298A228B22C5FF7
9F5D1CA9072FF828A690E98FF4756AACCA957B005316169054F8679963C38365
E9F67B7624147387A2D671C94B4EDBF1F28A8B383A6010E460AA19B884FE359E
B45420D54020D01E1935BACF37C4B6325362D6C9BC4E25D51770B91C8BBFE465
25750198A29B8CD455A1A9072F0448B51496CFBEEE8FCDA0BDEC8EF5B281040B
53C8117D6509B80CF955C6C43DFD506E8D03538B6C6B2A525553D7916920D642
0287BC36A6D173BE7EAC08D6E9A43E3F85D4ABF3FE9349ED39B2BDE5DDF7A7EF
B5EDC1EEA33BD6E2AD334F317B67866D629FD98C7E77E120CE7E2CB0EF7DC3FA
D9FA05EC8360878E9F3E7DF4EFCA66B8F04DF3FDC8FC17358FAD8A38F5D08520
604AFB46BDFFC6CF85FAE096AF3C0AA4F29695C39443A459957CC740A6094917
AC3167A6817BFC9B043B032F384EA59DAA1864891CE3B3336BDDE7AB4304D6E9
610090FAABEB4E2ADD9E79BF6DB99B3D1719DB6600A2D86E4052E7BFA8794CD7
F5A5E88FB16852997CF274EED43BA8CAD572CF9D402AD0CBE52B01700D2B9BEB
340DA45A9857B26D58E41D947FC7328D4227400B620380D5EF605A00D691AD68
4ACC4A33AA17AE3BA9E486E50898EBA6CE77E367B5F9BDFFA4A3CF76AC39AF65
EA392CE484AFE9A2E6B655514B75A83B88F2447EF8CEF37C7DD9965D5F940C0B
F7806251AE436A7EA413EED09A4733472DE615E5DFB4CC7C77550A34E02DF100
2B5AE7E9AE1A26B04E0E039E797149485D6AF9590CAC0BD1D4D9CEB360CB7151
73D8AAA8F93F783E58A8933A7BF26D54EDBC6DEB3D402A0F6F1457AC16C6F791
B12879227368524C27E92BF908708400576251999369F57507FBA7C28A49ADBB
F1489DD3A68407AB80D46B8E535705A97F3A1B64F20DA7C7DEFAA5D0587EC7C3
5F95744C2A6594298C9AA2C350AD5C3F7F2AA8393A8B5C7F5E71AD82F4F2ACE5
9498DB2AB975CE93A8F3A15C184033AADF4E21F5EA72FF623896DCFB2FE664D0
75F4FE577B51D7C156BEDD1F937A2648051596AE8F0F30B5AED6EDDB64C3E24C
44264A291254543466DA9A20350FEB44FC5A4C2D7C81439647665A80547E3F3A
F72D64A813DEFF779349B52A5C0D33D686CCA94CD4723772AE8C6A2119CCC232
AAF9EC3A7BFF855ED4CD4CEABB9D13DEFFA33F3DC73795DDBE6B37682A675141
6550D180694A2A8632AFACF98D7C2E65D1B035170960EF8F2C9BC054B8D84D8E
3677EF63139852EF0FA4D62FC4FBCFC747B1839BAD966A211E79A1B55473DAB4
8CEA9A495D68D5DB4D422AC687EE41EA9C72EDFEEDC142137FE7477F60EBDCEB
77EC90344C6A4E6B5191A6A2DC742996350953BC3121A839D70F7BC261641E05
5DEC067B9B6F1AA698D47D0B24B56437A1CD4DEAC48425172E1C77BB2BDF3E55
8FF2C1E8C7879FE71BFD5B3EFFB0A061EFCF32B9A1D2C57F4E1373FB4CC06AE5
F3FD7C184030852F819A422EB5C1D6E69F8E29693E78667F89D45BD7E6F1FE9A
9E1D1CE81A1AEA82DC7EE386CFFDFE83322AA8B03E75EC25A1D177DBAE074515
F186C5A27CEB3FCAAF2D3A1905F967E502D65C3D2BA9F6378C623565022E66BD
DC5676F13164CE802926F59512A9B7AECD4A6A2211E9BBFC496FEF47AAA6AC6D
D9B6AE655B2C967AFB936021BBFFE4FD178446FFBA47BE28E896A093767F022B
F91CD1567EBC614D5A53ECB28A95CDE21E2A16795F024C9D4CABDC16BC90C7D4
9A8A2926F5D55DFE8612A9B7A8E548051F9C6F0345F144B8E7C2898B3D27C623
7D81F2867BB7FF4530B886C6A96F7D142C54459D3EBE37A3C5E5322F1948850D
77B2229BCCD01F9BAB07C68DF549ADCC698D056D5DD565833C8338CEE2606D0B
86D6ED8DC54C358B0F0E98FA9CCC7AA9AD62364C2DA4EBEC3B676A5FBFB43358
D35220D5EFF79746A7DC3AC698A6516034ABA6CE9FFFE0ECD923D1E810449195
552DF7DFFF5DB73B083CA92A21F544B010A70EF59D54327132E324A1930EA326
2F8DCE9F7EA6F974BFBA23ACD4F9CC8106E77BCD55E770CF15D65254362B348C
6FED0052350D01B85E27739BD856DD436253ABA8470BD900460FB457EE3DD992
652BCACBCBEBEAEAD6AC5903A4D2D1290EC755D4A796EC86B4095247462F9E38
BEEFCAF079DC32CA710EBBEF81879E0A963750B9A59ADA762C5F9F9AEF904A3D
7DAE1A351FA4EAC79EDEB1F1F0D9F49707526BCB8D0B2DEE3736D47E4AEB0486
23E288DA9CBABF2391B04C1DC9225A27B6D59C7F8C31A7624A197DE1445324E3
9465D9EBF5525201533AE2AF3436F596B29CF7EFEFEB3874E4F9643224723696
637443DBB0E1FE6DDB9E44F9EA2A55D580D403EF4FC4A9A890EC17F38A5F23E3
F8D33BD61FEA4C7F6920D51C342FAE73BDB9B1AE9D1E6F0848CD361BBB3B2148
85B0B55A3D500B9816D414111D35D8039FE618E5795E1445D04EF0F5C160B0BA
BABABEBEBEA6A6065EBADDEEA5E8B15BB2D56998D470B8EFADB6FF8AC74645D9
467411E0B4EEBCEB6B9B37EFA29802421A21F5CDF766211515292BC0F6E1D3F7
B61EEA487DB13FD55C61F5B6BA0E6CACEDA0C71B8A4843EA1AE7135D1C42EED0
4BC1CE6F4DA8A94518051D3D3EC128B0089842E6140804805470FA10A182B852
41851D56BA004BB64CC618867EE4C80BEDED6F0312B4630100079ABA71FD03DB
B67F93EE44790D85C2074FB8544DCD2A0AAC755D372DC384D800E5B3FDBCA63A
2FFCF0C10D1FB62BBBFB536B2AD1A55657DBA6EA1CA98398D466D7939D9ED197
2A01D3BC9AE6183D319551C899005308494144CB8801B280297C549A97EA9632
26958ABDFAEA8F13B1110EF7D3A6B393E3E0D56E733DF8D0F72A2A728D8574BC
7F2814EAEFEFEFE9E981F5E8E8683C1E571465FA8FDEE3BFF4C4E7D25DFA237D
A935D56C5FAB6382D4813129CE367AEEFB61757B4E4D31A31DB3320A50D249AB
C160033C3EBC4967A4A2CF0558E9022CD93219934EC75FFBFD4FA291215E007D
A2339DE3E7F3186636186CD9B9F33B4E6780E6FEC964321C0E0F0D0DF5F6F6C2
1AB6138984AAAAC53F87BBA49AE666A9F3F19D890EF52B97534DB5FC40ABBD6D
53658ED47042F03A598EB500D31CA31FCEC3A887989318300AFBD099A94BF3A7
DE5206DEDF387AF437A74FBF29CBAEFC131F585253CF98BA5A59D972F7DD7B02
817A3A83DAF0F030E8E8C0C0C0C8C80884ADF0CE7452212AA857DEFFE6B6BE8B
D9D653A1E60AB76F2DFFDAED35DD453B21DD640F7456BEF0D1FC8C5211858F0A
B3A7171EB152C2F496329C514522036D6F3D3B1E1996653BC8271E5A8095153C
ABA56BAAC75F05A9D59AA63BD3690564351289400C006BD8CE6432C065F1CF81
A002BBF681D7EE6BF954B4A7FBD3EB50226663535B5B227407CC6857E58B1FAF
19CB384A8C966CE196ABA51AB9D2F3DED11747431744DE419E4F42A6D0671964
C10E1AC37275B51B1B1AEFC82A76A0076415D4143005A105492EFE397809912B
409CEA3B21C78FD6D644EC5A84D385BB5B2239464F96182DD9D5D844BB7F3211
3E767CDFA5DE4FC03BF3A2C030C0AB858746B378074D57812E48B09A9AEED034
AFDD6E074C4150A7741B0052816040796C6C0C6259E0B5423DD15A934C1AD28B
A7D7845236FAB01E60147EA1C468C9166E937AA818BA7ABEE758D7994391B17E
0C0827923652841F818AC7E51BA669B03CEF71076BAB3754556FF007EA62D144
F1CF514D8DC56294D4C1C1C1C8487F26111A4DE080983E590A28A455A44BC168
BE1BC3C445D1AF4F79FF267B4000946DA1A0E8B3438A3FBD392E7686BE54C9D4
F8A58B1F77F79C88C6069169E169A878FC384952B96FE188008F36316DB2D3EF
AF292B6FAA08B6F8FCB51C276A9A0A4596CD6669383B4C6C7474747C7C1CA205
3AB81628041C814BA07335EBA895379358E1F6B37963F2B6CCE703C548CF871E
9D3E4A2E141AA1BBB1F8310B984CC352384E7039CB5886473785379AD4970A6E
0B93AFA14CA763FD03A7FB2E7F3A3E3E92494710EE0925E21E282CD9C56209AE
3A948C24D95DEE72BFB7B6BC622D148DC3E1835C0B64351C0E43EE05E20A08F6
F4F4505261BBA6A6067E7FD5325AB0021C538B6C79199DFB7CE8990C0D7525E2
C39669C03D845BC9215DB479FD81B52E57D54DF3D0AE094D2DEEF8471A37F1F5
1986361E1D0E872F0D0D768D47872004C51D9F590BCF42CD63A5CDF594664801
7182CDEEF6792B8315ADC5C7E8EC0841F00A5C5352A9EBF707F4A6C6BBE053C8
BE28A3641621ABE81CE632DA6CB6C09D6F1A334D73722160C9D7F4543A393616
E956950414202F883E6F93DFD72CCACEC9F7F4C6B6D9489DFA52D7D574263A3C
746E2CDC0BC8A6D3515DCF62EF431E45C5F002433A45E321A7C8E4055912EDA4
7E5E12454745E5247075CD5FFC74499E4CC84AC6039076D9D915C0B40C3856F1
19A25B0F56104E908FAC9650D584AE299A96362C43125C763900394234DEEF71
D779BCF5508C3713A6688163532D6BD2E8A8543A323E3E148F5D09872E2753E1
8C92308D2CEEA9429E4CC1B002C4B5C882A0168753801783049635219B72D87D
0E6740929C92ECF6B882369B8F176551B0F1BCB4F0A32FA9CD581AD7C57DCEF6
7745AF6EC61803D606E612A27F45D7D21925AAAB29FCD2D4404A45284EBB5F90
5CB2E4250548D32948ADB89BC6E34F2A90C53F8B7A821B4DCBAA6A2A9D8A8442
9792C97026134D29639A622046873F7DC016C259843B50439C804B92382F3CA9
1A04BD92E810241B040C50CA76D9EB729501BE40AD20D9E11EC09BF0119B9BE3
6AA1E7B382366528EF22BF8CDD05164BF0E4BAA2E919504ADD50B24A4C01878E
0C3CBF0214050B85E5B03902769B9FE79D82602BE6F12653D0E9B668520B361D
11C3D4E3B1E1782C9CCAA495F4B8AEC7544DC966932006A6A191C414CF0408F8
32E47F341A6608C5044A44D2290880655976DB2437282E6C03B582200BB0C149
70B348C021C036F9485C159CCE67907A42B0646239D44DBAE01C3E4BC4320BA1
262825A866161CBAA1F19C208A4EB86A52A7E710443BBCB4D9FCB03D9324DFE4
8016ECEA494545C56411673FE55313F0D41455CDA4D2634A26AA66D3AA9606E9
8578D7D0015C9DFE02DC36D22916BB4096CC79999F3720F783A4C10C0F7DC1B5
65ACC0F2028BB7458E077C454E005E058E11C9FBF8F16D2C472623E644018499
05B2F1573808A6E9904486B5A67AC7F95927574A47DA92EC9B0EB2C515CC9A8E
BD337869004EC7205A1AA8A3896736D4717D122068028E8AA90397AA49668FC9
85F488CCE000D7C2DB6CB24F925CBC601305E0D20D68929A1671CA90F4C2CB89
922F913ADDA617CAF4240CCDE9FE48AEAA03BBAA9A04883535032A924A8F67D5
B8A1ABA6A1E3C55455901F3D8B675EC55A8B07B4B24CAEE32C458DFE18397D32
A21BBFCF129AF19D47F4FF2837BC0B4FED42C72392690A490D0347841C9116B8
19CF76526E47F032718A822F004F034BA6D1C2BD714C32AF065D93B8DC2CD426
91334638E7E4459EB3C1DF0C992459E0F153BC21B804F7EDE078887FB0738050
87340ACE55ECB99AC45B06CD29764DA42EFC5B734793F89995A037A6AAEBE007
21F64DE750C6F842F6A051FFA8E1EEDB6943CF908A78932422855A1B8B6168D5
5AA147B7999F6EA0809D89A88C2136371FC614EE698930C57F6CF9CEE168D20C
36E48A68CF083C1327C743346287500487D7AC88B163F102EF403429F0F01110
49F55E247E63E64240E886886556C6AEC9FB2F8F512923710271A93A806B90FC
57370C48DD740B0F3D30C83E3A163864E46AC82DDC984327C3C85F660E38B23F
6973A233BFA142A441541C2782588869973216D1596159FA70582C7E2C4F8645
E2276FE380042FB9871C330C3BF7DFF32A49016F385BBDA4D2492B6ED096C092
405E77BB46524DEC499706A7A5A8D82F005410B6A553B86BAAB72AD9345BBD9A
5AB29215DBFF032667E66CA74705720000000049454E44AE426082}
end
object Label3: TLabel
Left = 193
Top = 140
Width = 324
Height = 13
Caption = '__________________ Setup Barcode Locations _______________'
Transparent = True
end
object Label4: TLabel
Left = 328
Top = 160
Width = 40
Height = 13
Caption = 'Test File'
end
object Label5: TLabel
Left = 108
Top = 208
Width = 61
Height = 13
Caption = 'Get Location'
end
object Label6: TLabel
Left = 220
Top = 208
Width = 41
Height = 13
Caption = 'Location'
end
object Label7: TLabel
Left = 355
Top = 208
Width = 35
Height = 13
Caption = 'Results'
end
object jobnamebox: TEdit
Left = 287
Top = 101
Width = 121
Height = 21
TabOrder = 0
end
object inputfolder: TEdit
Left = 14
Top = 322
Width = 300
Height = 21
TabOrder = 1
end
object msButton1: tMSButton
Left = 319
Top = 319
Width = 25
Height = 25
DoubleBuffered = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 2
DoBrowse = False
BrowseStyle = fbFolder
end
object outputpath: TEdit
Left = 14
Top = 376
Width = 300
Height = 21
TabOrder = 3
end
object msButton3: tMSButton
Left = 319
Top = 374
Width = 25
Height = 25
DoubleBuffered = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 4
DoBrowse = False
BrowseStyle = fbFolder
end
object arch: TEdit
Left = 14
Top = 428
Width = 300
Height = 21
TabOrder = 5
end
object msButton4: tMSButton
Left = 319
Top = 426
Width = 25
Height = 25
DoubleBuffered = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 6
DoBrowse = False
BrowseStyle = fbFolder
end
object msButton5: tMSButton
Left = 319
Top = 480
Width = 25
Height = 25
DoubleBuffered = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 7
DoBrowse = False
BrowseStyle = fbFolder
end
object Csvpath: TEdit
Left = 14
Top = 482
Width = 300
Height = 21
TabOrder = 8
end
object folder1: tMSComboBox
Left = 374
Top = 408
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 9
Items.Strings = (
'Barcode 1'
'Barcode 2')
ListText = 'Barcode 1'#13#10'Barcode 2'#13#10
end
object folder2: tMSComboBox
Left = 464
Top = 408
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 10
Items.Strings = (
'Barcode 1'
'Barcode 2')
ListText = 'Barcode 1'#13#10'Barcode 2'#13#10
end
object filename1: tMSComboBox
Left = 374
Top = 459
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 11
Items.Strings = (
'Barcode 1'
'Barcode 2')
ListText = 'Barcode 1'#13#10'Barcode 2'#13#10
end
object filename2: tMSComboBox
Left = 464
Top = 459
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 12
Items.Strings = (
'Barcode 1'
'Barcode 2')
ListText = 'Barcode 1'#13#10'Barcode 2'#13#10
end
object repapp: tMSComboBox
Left = 374
Top = 328
Width = 149
Height = 21
ItemHeight = 13
TabOrder = 13
Items.Strings = (
'PDF - Replace'
'PDF - Append New First'
'PDF - Append New Last'
'PDF - Add Time Stamp'
'PDF - Add Counter'
'Tif - Replace'
'Tif - Append New First'
'Tif - Append New Last'
'Tif - Add Date'
'Tif - Add Counter')
ListText =
'PDF - Replace'#13#10'PDF - Append New First'#13#10'PDF - Append New Last'#13#10'PD' +
'F - Add Time Stamp'#13#10'PDF - Add Counter'#13#10'Tif - Replace'#13#10'Tif - Appe' +
'nd New First'#13#10'Tif - Append New Last'#13#10'Tif - Add Date'#13#10'Tif - Add C' +
'ounter'#13#10
end
object fixedsubfolder: TEdit
Left = 549
Top = 408
Width = 144
Height = 21
TabOrder = 17
end
object appendfilen: TEdit
Left = 549
Top = 459
Width = 144
Height = 21
TabOrder = 18
end
object msCheckBox3: TCheckBox
Left = 374
Top = 355
Width = 196
Height = 17
Hint = '%ATS%'
Caption = 'Always Add Time Stamp to File Name'
TabOrder = 19
end
object msCheckBox2: TCheckBox
Left = 374
Top = 495
Width = 108
Height = 17
Hint = '%DCP%'
Caption = 'Drop Cover Pages'
TabOrder = 20
end
object msButton7: tMSButton
Left = 509
Top = 535
Width = 66
Height = 25
Caption = 'Save'
DoubleBuffered = True
ModalResult = 4
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 14
DoBrowse = False
BrowseStyle = fbOpen
end
object msButton8: tMSButton
Left = 574
Top = 535
Width = 67
Height = 25
Caption = 'Help'
DoubleBuffered = True
ModalResult = 5
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 15
DoBrowse = False
BrowseStyle = fbOpen
end
object msButton9: tMSButton
Left = 640
Top = 535
Width = 67
Height = 25
Caption = 'Exit'
DoubleBuffered = True
ModalResult = 2
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 16
DoBrowse = False
BrowseStyle = fbOpen
end
object testfilebx: TEdit
Left = 139
Top = 175
Width = 428
Height = 21
TabOrder = 21
end
object MSButton2: tMSButton
Left = 570
Top = 173
Width = 25
Height = 25
DoubleBuffered = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777000000000007777700333333333077770B0333333333
07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
7007777777770777070777777777700077777777777777777777}
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 22
DoBrowse = False
Filter = 'tif images|*.tif'
BrowseStyle = fbOpen
end
object location1: TEdit
Left = 185
Top = 232
Width = 111
Height = 21
TabOrder = 23
end
object location2: TEdit
Left = 183
Top = 260
Width = 114
Height = 21
TabOrder = 24
end
object MSButton10: tMSButton
Left = 105
Top = 230
Width = 66
Height = 25
Caption = 'Barcode 1'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 25
DoBrowse = False
BrowseStyle = fbOpen
end
object MSButton11: tMSButton
Left = 106
Top = 258
Width = 65
Height = 25
Caption = 'Barcode 2'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 26
DoBrowse = False
BrowseStyle = fbOpen
end
object bctr1: TEdit
Left = 312
Top = 232
Width = 121
Height = 21
Enabled = False
TabOrder = 27
end
object Edit2: TEdit
Left = 312
Top = 260
Width = 121
Height = 21
Enabled = False
TabOrder = 28
end
object MSButton6: tMSButton
Left = 544
Top = 491
Width = 137
Height = 25
Caption = 'Advanced Processing'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 29
DoBrowse = False
BrowseStyle = fbOpen
end
end
EndDialog>Dialog1

Dialog>Dialog1a
object Dialog1a: TForm
Left = 1649
Top = 83
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'Advanced Processing'
ClientHeight = 291
ClientWidth = 380
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poDesktopCenter
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object msLabel2: TLabel
Left = -8
Top = 54
Width = 914
Height = 24
Caption =
'________________________________________________________________' +
'___________________'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object msLabel4: TLabel
Left = 330
Top = 518
Width = 173
Height = 13
Caption = 'Copyright'#169' eDocFile Inc. 2004-2010'
Transparent = True
end
object msLabel6: TLabel
Left = 64
Top = 176
Width = 67
Height = 13
Caption = 'Rotate Output'
Transparent = True
end
object msLabel16: TLabel
Left = 24
Top = 200
Width = 319
Height = 13
Caption = '________________ Parse Barcode Contents _________________'
Transparent = True
end
object msLabel17: TLabel
Left = 142
Top = 226
Width = 62
Height = 13
Caption = 'Start Position'
Transparent = True
end
object msLabel18: TLabel
Left = 245
Top = 225
Width = 33
Height = 13
Caption = 'Length'
Transparent = True
end
object MSImage1: tMSImage
Left = 80
Top = 8
Width = 209
Height = 65
Picture.Data = {
0954506E67496D61676589504E470D0A1A0A0000000D49484452000000E30000
003B08020000000681AA590000000970485973000017120000171201679FD252
0000000774494D4507DB0407121C143F75260B0000000774455874417574686F
7200A9AECC480000000C744558744465736372697074696F6E00130921230000
000A74455874436F7079726967687400AC0FCC3A0000000E7445587443726561
74696F6E2074696D650035F70F090000000974455874536F667477617265005D
70FF3A0000000B74455874446973636C61696D657200B7C0B48F000000087445
58745761726E696E6700C01BE6870000000774455874536F7572636500F5FF83
EB0000000874455874436F6D6D656E7400F6CC96BF0000000674455874546974
6C6500A8EED2270000189C4944415478DAED9D796C1CD77DC7DFDCB3F7452EEF
4B1465EAAA9C3A3E2459B66C4749E41CB6132B469C144582362E60140D0CB469
FFE81F2D023441FE688AC22D721468EDC44E144B3E12DBA21D3B3A2C5B920F49
E6A1839428F114B9CBE5DE3B3B677FEFBDDDE5F22625F190B43F8FC6B3BBB33B
336F3EFCFE7EBF770D635916BA063BDB3B383012B1D96DA224B13C2FF03C27F0
2CCF712CCBC07F2CC780B1B0C03F06F6C7EBFC016D1C13102CFA7EEEA392956C
1663AE9A54F8E2F9CBC347BAC7A203DD82CD29BBDCA2DD2ED86CBC2CF182C089
02C7F32CA596E730A9402DFE1AC207246B1F6B6E94B31C31CC739EE692956CBA
5D25A918D3BE2B87CF872BAA2BFBCFB6F332306A1729A6E204A69CC001A92C97
C7144D608A4CE434B36BCC98488C27568055890FA4FBF64A897DB6BB8FA022B9
2DA17CCBDAD5900A5FE9EE1F39742E0498FA3CB673ED67584912E51CA6AC2840
10403185858138004B26FD26F1FC26B24C0CAB944E94C707ED76BBC3E1906519
781504219B184CF5FD564EEDCBC43B445617B74718622C31BABDD28556B215B0
45934A313D7C2E1CACAE004C3D36E1647B0F2B88BC24F11256D31CA6621E531E
635AA08BAAA945167D6C54EAEBF27ABD3E9FCFE57271C6B83EFA8A2DBB3F13EF
6CBF5C1F8EBB1E68ED407F7E110005824171614DE384952EB492AD802D8E54D8
B96760F4D0D9500153B7CC7D70FA3202862481F87D084C736ACA0A1853968583
105219A2A9444DF1DA40A9C1BEE4C9F782605ED6631EF10B0794F4994F2F3686
A2EE86C0E8A69A01B798EE2E3F0F8CDA88499244615DE9422BD90AD82248CD61
7A2E14AC9AC0D42D70EFB60F9A9035514C690A2542780A4A883165F20B2A1654
03AF2317BAC78EECDD5C7B795DED09CBBC7CB2BB7134E2690A8E6EAEEFE3E556
CDF9B847FDC37BD11F4160E0B47A87BB7E51B5E5FBCD1B7701AC13675FD2D75B
C6164AAA45EC27BF7AC3E9F1C822679704581C92505B5BDF7125C5E0A8345F3F
558C294718A5B03239A74F3185F57057BBFAD2779EF84ED7E193EBAF8C79D654
8E6E69BCC4D9B668B63D8EAAAFA535B7153F1C0EEBCAD06F9AFD471DECF087D9
FF69BD630F282B0D584B7505B7942D8254C3307EFCDFBF4B29CA78640C5C7C2A
1686A0B1AE791D244C38BBC7093EBBEEEE7B5DE5659177FE0AD228C4F1F89B2C
22F5A878D3D452BCB326B0F347A661454742036FFCECCF9CCF79AB8DF198F333
CDBD9CED4E4D7ECC11FC7A2A2B630A93ED4678BFDD78C9C60C2203C17228FA9F
EB6EFF3AA45FB4A280566FAD7401966C996CA1A49AA6A969DAB32F1E929C6E41
B26594543A9D74783C550DCDE0F4B19AD24C9FC7B1E958DBB7BFF1258167B2C8
D0909EC58B066B2561060F746FE2377D3FD43F686412CE53FFFEE4D75FD35421
CB3C60488FD8028FA6140164924B77EA63FBDCDC7ED11A806801634AD6AFF7FF
5BF3E647DD6E378D5969DDD64A1760C996C9164AAAAEEB8AA2FCEF1B1DA24CAA
F74571B8B7239D8CF19288F58FD684B2ECDABBB63B7DBE3090FA0593470AF6F1
185615164BCBF6863DFB3EAA736DFCCB1AF4F1FAC0A1E6B23FC4B3BB0DE111D9
FFD57406AB2397E932C6F7B985FD2233500034B736D0AFDB7F50DFFAA5402000
B03A9D4ECAEB4A1760C996C9164A2A086A2A95FAEDC13E8A2900AA2849080A70
FB134EC7414A2100E0DC013F7C147EEBDBDF7850E19934CEA10CDDD2D550283D
38988A663DA174D91D9FE59A826D71E5CBA6F0A8EC79389536B08E2A67F5F1BD
1EDBCB98D16240F398C2C6B3879FAA6AFE7C6565657979B9D7EBA5B0AE740196
6C996CA1A4AAAA9A48245E391E0110391116213ADA0F3A4B8354DCBC4FEA4D83
4D6B65A7630C48BD3FCAA38C659AA131657028AD6634A7A09737E865F5A35165
8FC97FD9E67C2895D230E3992E3DFA3B8FF365911B9811D0C2C68F5E7FB2ACFE
81FAFAFAAAAAAAB2B2328FC763B7DB57BA004BB64CB65052B3D96C3C1E7FFD54
1A30E5058115783593B41883904A30E57076EFF4FA00E5B1B7BFBD67DBE8F878
74F04A56554CA7A8573624BC8DF178EA318BFB0AEBDC1DE2256F320EF1A8117F
C9E37959E407A6A23913A9FFBCF79140DDCEC6C6C6BABABA8A8A0A2AAB2B5D80
259B6A40D452D4C92C82D4582CD6D661708240F2273E1AEAD3B42CC6143495D6
9832A8BCA159B4D92EBFBCE7B3B5178DACE294CDCA86A4A731194FEFB1B88745
DBAE68342A3A1CE31EBFA8F45727BF20F367A6A23905D6A2F77FF0EBDDDEEA1D
CDCDCD002BC400B4656BA5EF4BC9A61A24DF1888EB6D8B201520FBE3598EA55D
4F782E1AEED7B50CC3915628525D0AEBB29A86814BDDD10FFEE9912DFDD50D51
4FA312CB3CC1F00F73D27D994C06B27565EC93AC7230DDFA43CE4276F3546D7A
27ABC766A573F2CBBF7FFE0B9EAA7BD7AE5DDBD4D404014089D4D56986612C45
EDE1E2487DE73CEE840A98B20297CDC42D64169AA028A9B2D375F1CC29F1DDEF
7EEF1F8763EA13ACF418E2EF82185710042BD96EA4F6D9DCAFEA82D0EBE851B3
1663A18078AE59D9CA1AB159012D7AF399FFDBE5AFB9AF44EA2A3748BE8BDB11
AF972D8ED43F753B70533E8E4AD9D8D800D65426E7F7695B94B7A2E67277A7FD
D83F3CFED7E9A4FEB73A7B2FF064263E3593FB7DE5AF88B68174864D6B8DDD8E
EE64CA327424714C9DFB5C736A2B53807576597DE6B912A93780012A4B517BB8
48527BDC8454DC914F556286A94D082A81D5B28C0B5DA7FCBDCF3FFECDEEB8FE
37D1F4167BEAAC4BFA65EDBA83E468289DE2527AC33967772C6EE91A1C9A71DB
9806D7B9A6E456468B4D257532B598D4DA22522315AEDBAFA244C2FFB1FDD9EF
BFBFF90DEB6BBB97F48EE5EDCDA7FEE5E19FCFBDCBF29DCC3298A228B22C5FF7
9F5D1CA9072FF828A690E98FF4756AACCA957B005316169054F8679963C38365
E9F67B7624147387A2D671C94B4EDBF1F28A8B383A6010E460AA19B884FE359E
B45420D54020D01E1935BACF37C4B6325362D6C9BC4E25D51770B91C8BBFE465
25750198A29B8CD455A1A9072F0448B51496CFBEEE8FCDA0BDEC8EF5B281040B
53C8117D6509B80CF955C6C43DFD506E8D03538B6C6B2A525553D7916920D642
0287BC36A6D173BE7EAC08D6E9A43E3F85D4ABF3FE9349ED39B2BDE5DDF7A7EF
B5EDC1EEA33BD6E2AD334F317B67866D629FD98C7E77E120CE7E2CB0EF7DC3FA
D9FA05EC8360878E9F3E7DF4EFCA66B8F04DF3FDC8FC17358FAD8A38F5D08520
604AFB46BDFFC6CF85FAE096AF3C0AA4F29695C39443A459957CC740A6094917
AC3167A6817BFC9B043B032F384EA59DAA1864891CE3B3336BDDE7AB4304D6E9
610090FAABEB4E2ADD9E79BF6DB99B3D1719DB6600A2D86E4052E7BFA8794CD7
F5A5E88FB16852997CF274EED43BA8CAD572CF9D402AD0CBE52B01700D2B9BEB
340DA45A9857B26D58E41D947FC7328D4227400B620380D5EF605A00D691AD68
4ACC4A33AA17AE3BA9E486E50898EBA6CE77E367B5F9BDFFA4A3CF76AC39AF65
EA392CE484AFE9A2E6B655514B75A83B88F2447EF8CEF37C7DD9965D5F940C0B
F7806251AE436A7EA413EED09A4733472DE615E5DFB4CC7C77550A34E02DF100
2B5AE7E9AE1A26B04E0E039E797149485D6AF9590CAC0BD1D4D9CEB360CB7151
73D8AAA8F93F783E58A8933A7BF26D54EDBC6DEB3D402A0F6F1457AC16C6F791
B12879227368524C27E92BF908708400576251999369F57507FBA7C28A49ADBB
F1489DD3A68407AB80D46B8E535705A97F3A1B64F20DA7C7DEFAA5D0587EC7C3
5F95744C2A6594298C9AA2C350AD5C3F7F2AA8393A8B5C7F5E71AD82F4F2ACE5
9498DB2AB975CE93A8F3A15C184033AADF4E21F5EA72FF623896DCFB2FE664D0
75F4FE577B51D7C156BEDD1F937A2648051596AE8F0F30B5AED6EDDB64C3E24C
44264A291254543466DA9A20350FEB44FC5A4C2D7C81439647665A80547E3F3A
F72D64A813DEFF779349B52A5C0D33D686CCA94CD4723772AE8C6A2119CCC232
AAF9EC3A7BFF855ED4CD4CEABB9D13DEFFA33F3DC73795DDBE6B37682A675141
6550D180694A2A8632AFACF98D7C2E65D1B035170960EF8F2C9BC054B8D84D8E
3677EF63139852EF0FA4D62FC4FBCFC747B1839BAD966A211E79A1B55473DAB4
8CEA9A495D68D5DB4D422AC687EE41EA9C72EDFEEDC142137FE7477F60EBDCEB
77EC90344C6A4E6B5191A6A2DC742996350953BC3121A839D70F7BC261641E05
5DEC067B9B6F1AA698D47D0B24B56437A1CD4DEAC48425172E1C77BB2BDF3E55
8FF2C1E8C7879FE71BFD5B3EFFB0A061EFCF32B9A1D2C57F4E1373FB4CC06AE5
F3FD7C184030852F819A422EB5C1D6E69F8E29693E78667F89D45BD7E6F1FE9A
9E1D1CE81A1AEA82DC7EE386CFFDFE83322AA8B03E75EC25A1D177DBAE074515
F186C5A27CEB3FCAAF2D3A1905F967E502D65C3D2BA9F6378C623565022E66BD
DC5676F13164CE802926F59512A9B7AECD4A6A2211E9BBFC496FEF47AAA6AC6D
D9B6AE655B2C967AFB936021BBFFE4FD178446FFBA47BE28E896A093767F022B
F91CD1567EBC614D5A53ECB28A95CDE21E2A16795F024C9D4CABDC16BC90C7D4
9A8A2926F5D55DFE8612A9B7A8E548051F9C6F0345F144B8E7C2898B3D27C623
7D81F2867BB7FF4530B886C6A96F7D142C54459D3EBE37A3C5E5322F1948850D
77B2229BCCD01F9BAB07C68DF549ADCC698D056D5DD565833C8338CEE2606D0B
86D6ED8DC54C358B0F0E98FA9CCC7AA9AD62364C2DA4EBEC3B676A5FBFB43358
D35220D5EFF79746A7DC3AC698A6516034ABA6CE9FFFE0ECD923D1E810449195
552DF7DFFF5DB73B083CA92A21F544B010A70EF59D54327132E324A1930EA326
2F8DCE9F7EA6F974BFBA23ACD4F9CC8106E77BCD55E770CF15D65254362B348C
6FED0052350D01B85E27739BD856DD436253ABA8470BD900460FB457EE3DD992
652BCACBCBEBEAEAD6AC5903A4D2D1290EC755D4A796EC86B4095247462F9E38
BEEFCAF079DC32CA710EBBEF81879E0A963750B9A59ADA762C5F9F9AEF904A3D
7DAE1A351FA4EAC79EDEB1F1F0D9F49707526BCB8D0B2DEE3736D47E4AEB0486
23E288DA9CBABF2391B04C1DC9225A27B6D59C7F8C31A7624A197DE1445324E3
9465D9EBF5525201533AE2AF3436F596B29CF7EFEFEB3874E4F9643224723696
637443DBB0E1FE6DDB9E44F9EA2A55D580D403EF4FC4A9A890EC17F38A5F23E3
F8D33BD61FEA4C7F6920D51C342FAE73BDB9B1AE9D1E6F0848CD361BBB3B2148
85B0B55A3D500B9816D414111D35D8039FE618E5795E1445D04EF0F5C160B0BA
BABABEBEBEA6A6065EBADDEEA5E8B15BB2D56998D470B8EFADB6FF8AC74645D9
467411E0B4EEBCEB6B9B37EFA29802421A21F5CDF766211515292BC0F6E1D3F7
B61EEA487DB13FD55C61F5B6BA0E6CACEDA0C71B8A4843EA1AE7135D1C42EED0
4BC1CE6F4DA8A94518051D3D3EC128B0089842E6140804805470FA10A182B852
41851D56BA004BB64CC618867EE4C80BEDED6F0312B4630100079ABA71FD03DB
B67F93EE44790D85C2074FB8544DCD2A0AAC755D372DC384D800E5B3FDBCA63A
2FFCF0C10D1FB62BBBFB536B2AD1A55657DBA6EA1CA98398D466D7939D9ED197
2A01D3BC9AE6183D319551C899005308494144CB8801B280297C549A97EA9632
26958ABDFAEA8F13B1110EF7D3A6B393E3E0D56E733DF8D0F72A2A728D8574BC
7F2814EAEFEFEFE9E981F5E8E8683C1E571465FA8FDEE3BFF4C4E7D25DFA237D
A935D56C5FAB6382D4813129CE367AEEFB61757B4E4D31A31DB3320A50D249AB
C160033C3EBC4967A4A2CF0558E9022CD93219934EC75FFBFD4FA291215E007D
A2339DE3E7F3186636186CD9B9F33B4E6780E6FEC964321C0E0F0D0DF5F6F6C2
1AB6138984AAAAC53F87BBA49AE666A9F3F19D890EF52B97534DB5FC40ABBD6D
53658ED47042F03A598EB500D31CA31FCEC3A887989318300AFBD099A94BF3A7
DE5206DEDF387AF437A74FBF29CBAEFC131F585253CF98BA5A59D972F7DD7B02
817A3A83DAF0F030E8E8C0C0C0C8C80884ADF0CE7452212AA857DEFFE6B6BE8B
D9D653A1E60AB76F2DFFDAED35DD453B21DD640F7456BEF0D1FC8C5211858F0A
B3A7171EB152C2F496329C514522036D6F3D3B1E1996653BC8271E5A8095153C
ABA56BAAC75F05A9D59AA63BD3690564351289400C006BD8CE6432C065F1CF81
A002BBF681D7EE6BF954B4A7FBD3EB50226663535B5B227407CC6857E58B1FAF
19CB384A8C966CE196ABA51AB9D2F3DED11747431744DE419E4F42A6D0671964
C10E1AC37275B51B1B1AEFC82A76A0076415D4143005A105492EFE397809912B
409CEA3B21C78FD6D644EC5A84D385BB5B2239464F96182DD9D5D844BB7F3211
3E767CDFA5DE4FC03BF3A2C030C0AB858746B378074D57812E48B09A9AEED034
AFDD6E074C4150A7741B0052816040796C6C0C6259E0B5423DD15A934C1AD28B
A7D7845236FAB01E60147EA1C468C9166E937AA818BA7ABEE758D7994391B17E
0C0827923652841F818AC7E51BA669B03CEF71076BAB3754556FF007EA62D144
F1CF514D8DC56294D4C1C1C1C8487F26111A4DE080983E590A28A455A44BC168
BE1BC3C445D1AF4F79FF267B4000946DA1A0E8B3438A3FBD392E7686BE54C9D4
F8A58B1F77F79C88C6069169E169A878FC384952B96FE188008F36316DB2D3EF
AF292B6FAA08B6F8FCB51C276A9A0A4596CD6669383B4C6C7474747C7C1CA205
3AB81628041C814BA07335EBA895379358E1F6B37963F2B6CCE703C548CF871E
9D3E4A2E141AA1BBB1F8310B984CC352384E7039CB5886473785379AD4970A6E
0B93AFA14CA763FD03A7FB2E7F3A3E3E92494710EE0925E21E282CD9C56209AE
3A948C24D95DEE72BFB7B6BC622D148DC3E1835C0B64351C0E43EE05E20A08F6
F4F4505261BBA6A6067E7FD5325AB0021C538B6C79199DFB7CE8990C0D7525E2
C39669C03D845BC9215DB479FD81B52E57D54DF3D0AE094D2DEEF8471A37F1F5
1986361E1D0E872F0D0D768D47872004C51D9F590BCF42CD63A5CDF594664801
7182CDEEF6792B8315ADC5C7E8EC0841F00A5C5352A9EBF707F4A6C6BBE053C8
BE28A3641621ABE81CE632DA6CB6C09D6F1A334D73722160C9D7F4543A393616
E956950414202F883E6F93DFD72CCACEC9F7F4C6B6D9489DFA52D7D574263A3C
746E2CDC0BC8A6D3515DCF62EF431E45C5F002433A45E321A7C8E4055912EDA4
7E5E12454745E5247075CD5FFC74499E4CC84AC6039076D9D915C0B40C3856F1
19A25B0F56104E908FAC9650D584AE299A96362C43125C763900394234DEEF71
D779BCF5508C3713A6688163532D6BD2E8A8543A323E3E148F5D09872E2753E1
8C92308D2CEEA9429E4CC1B002C4B5C882A0168753801783049635219B72D87D
0E6740929C92ECF6B882369B8F176551B0F1BCB4F0A32FA9CD581AD7C57DCEF6
7745AF6EC61803D606E612A27F45D7D21925AAAB29FCD2D4404A45284EBB5F90
5CB2E4250548D32948ADB89BC6E34F2A90C53F8B7A821B4DCBAA6A2A9D8A8442
9792C97026134D29639A622046873F7DC016C259843B50439C804B92382F3CA9
1A04BD92E810241B040C50CA76D9EB729501BE40AD20D9E11EC09BF0119B9BE3
6AA1E7B382366528EF22BF8CDD05164BF0E4BAA2E919504ADD50B24A4C01878E
0C3CBF0214050B85E5B03902769B9FE79D82602BE6F12653D0E9B668520B361D
11C3D4E3B1E1782C9CCAA495F4B8AEC7544DC966932006A6A191C414CF0408F8
32E47F341A6608C5044A44D2290880655976DB2437282E6C03B582200BB0C149
70B348C021C036F9485C159CCE67907A42B0646239D44DBAE01C3E4BC4320BA1
262825A866161CBAA1F19C208A4EB86A52A7E710443BBCB4D9FCB03D9324DFE4
8016ECEA494545C56411673FE55313F0D41455CDA4D2634A26AA66D3AA9606E9
8578D7D0015C9DFE02DC36D22916BB4096CC79999F3720F783A4C10C0F7DC1B5
65ACC0F2028BB7458E077C454E005E058E11C9FBF8F16D2C472623E644018499
05B2F1573808A6E9904486B5A67AC7F95927574A47DA92EC9B0EB2C515CC9A8E
BD337869004EC7205A1AA8A3896736D4717D122068028E8AA90397AA49668FC9
85F488CCE000D7C2DB6CB24F925CBC601305E0D20D68929A1671CA90F4C2CB89
922F913ADDA617CAF4240CCDE9FE48AEAA03BBAA9A04883535032A924A8F67D5
B8A1ABA6A1E3C55455901F3D8B675EC55A8B07B4B24CAEE32C458DFE18397D32
A21BBFCF129AF19D47F4FF2837BC0B4FED42C72392690A490D0347841C9116B8
19CF76526E47F032718A822F004F034BA6D1C2BD714C32AF065D93B8DC2CD426
91334638E7E4459EB3C1DF0C992459E0F153BC21B804F7EDE078887FB0738050
87340ACE55ECB99AC45B06CD29764DA42EFC5B734793F89995A037A6AAEBE007
21F64DE750C6F842F6A051FFA8E1EEDB6943CF908A78932422855A1B8B6168D5
5AA147B7999F6EA0809D89A88C2136371FC614EE698930C57F6CF9CEE168D20C
36E48A68CF083C1327C743346287500487D7AC88B163F102EF403429F0F01110
49F55E247E63E64240E886886556C6AEC9FB2F8F512923710271A93A806B90FC
57370C48DD740B0F3D30C83E3A163864E46AC82DDC984327C3C85F660E38B23F
6973A233BFA142A441541C2782588869973216D1596159FA70582C7E2C4F8645
E2276FE380042FB9871C330C3BF7DFF32A49016F385BBDA4D2492B6ED096C092
405E77BB46524DEC499706A7A5A8D82F005410B6A553B86BAAB72AD9345BBD9A
5AB29215DBFF032667E66CA74705720000000049454E44AE426082}
end
object Label8: TLabel
Left = 21
Top = 96
Width = 320
Height = 13
Caption = '___________________ Advanced Processing ________________'
Transparent = True
end
object ident: TCheckBox
Left = 21
Top = 121
Width = 313
Height = 17
Hint = '%CLAS%'
Caption = 'Use Barcode for Classification with Time Stamp'
TabOrder = 0
end
object msCheckBox1: TCheckBox
Left = 21
Top = 145
Width = 188
Height = 17
Hint = '%RBC%'
Caption = 'Relate Barcode One to Database'
TabOrder = 4
end
object msButton6: tMSButton
Left = 226
Top = 142
Width = 129
Height = 25
Caption = 'Database Connection'
DoubleBuffered = True
ModalResult = 7
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 6
DoBrowse = False
BrowseStyle = fbOpen
end
object rot: tMSComboBox
Left = 21
Top = 173
Width = 41
Height = 21
ItemHeight = 13
TabOrder = 1
Items.Strings = (
'0'
'90'
'180'
'270')
ListText = '0'#13#10'90'#13#10'180'#13#10'270'#13#10
end
object ccomp: TCheckBox
Left = 149
Top = 175
Width = 196
Height = 17
Hint = '%CC%'
Caption = 'Keep Compression - Color Scanning'
TabOrder = 2
end
object msButton7: tMSButton
Left = 157
Top = 250
Width = 66
Height = 25
Caption = 'Save'
DoubleBuffered = True
ModalResult = 4
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 3
DoBrowse = False
BrowseStyle = fbOpen
end
object msButton8: tMSButton
Left = 222
Top = 250
Width = 67
Height = 25
Caption = 'Help'
DoubleBuffered = True
ModalResult = 5
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 5
DoBrowse = False
BrowseStyle = fbOpen
end
object msButton9: tMSButton
Left = 288
Top = 250
Width = 67
Height = 25
Caption = 'Exit'
DoubleBuffered = True
ModalResult = 2
ParentDoubleBuffered = False
ParentShowHint = False
ShowHint = False
TabOrder = 7
DoBrowse = False
BrowseStyle = fbOpen
end
object pstring: tMSComboBox
Left = 21
Top = 222
Width = 75
Height = 21
ItemHeight = 13
TabOrder = 8
Items.Strings = (
''
'Barcode 1'
'Barcode 2')
ListText = #13#10'Barcode 1'#13#10'Barcode 2'#13#10
end
object pstringspos: TEdit
Left = 109
Top = 222
Width = 28
Height = 21
TabOrder = 9
end
object pstringlen: TEdit
Left = 215
Top = 222
Width = 26
Height = 21
TabOrder = 10
end
end
EndDialog>Dialog1a

AddDialogHandler>Dialog1,MSButton6,OnClick,Advanced_Settings
Show>Dialog1,result

If>result=2,finish
Label>finish

SRT>Advanced_Settings
SetDialogProperty>Dialog1,,Visible,False

IfFileExists>%jobsettingspath%\%jname%_advanced.ani
//ReadIniFile>%jobsettingspath%\%jname%.ini,Settings,Definition File,bcdef
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Relate to Database,RBC
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Classify Document Only,CLAS
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Rotation,RO
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Keep Compression,CC
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Parse Barcode,PBC
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Start Position,SP
ReadIniFile>%jobsettingspath%\%jname%_advanced.ani,Settings,Length of String,PSL
Else
Let>RBC=False
Let>CLAS=False
Let>RO=0
Let>PBC=
Let>SP=
Let>PSL=
Let>CC=False
Endif

SetDialogProperty>Dialog1a,ident,checked,CLAS
SetDialogProperty>Dialog1a,msCheckBox1,checked,RBC
SetDialogProperty>Dialog1a,rot,text,RO
SetDialogProperty>Dialog1a,accomp,checked,CC
SetDialogProperty>Dialog1a,pstring,text,PBC
SetDialogProperty>Dialog1a,pstringspos,text,SP
SetDialogProperty>Dialog1a,pstringlen,text,PSL

Show>Dialog1a,ra
If>ra=2,skip_advanced
If>ra=4,write_advanced

Label>write_advanced

GetDialogProperty>Dialog1a,ident,checked,GCLAS
GetDialogProperty>Dialog1a,msCheckBox1,checked,GRBC
GetDialogProperty>Dialog1a,rot,text,GRO
GetDialogProperty>Dialog1a,accomp,checked,GCC
GetDialogProperty>Dialog1a,pstring,text,GPBC
GetDialogProperty>Dialog1a,pstringspos,text,GSP
GetDialogProperty>Dialog1a,pstringlen,text,GPSL

DeleteFile>%jobsettingspath%\%jname%_advanced.ani
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,[Settings]
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Classify Document Only=%GCLAS%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Relate to Database=%GRBC%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Keep Compression=%GCC%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Parse Barcode=%GPBC%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Start Position=%GSP%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Length of String=%GPSL%
WriteLn>%jobsettingspath%\%jname%_advanced.ani,result,Rotation=%GRO%

Label>skip_advanced

SetDialogProperty>Dialog1,,Visible,True
END>Advanced_Settings

JRL · Post by **JRL** » Wed Apr 13, 2011 2:10 pm

Beautiful dialogs. Well laid out. Good job!
Don't for get to update your copyright date.

Sorry, They work fine for me. I could not find a way to make either dialog move.

Try setting Dialog1 Position = poDesktopCenter to Position = poScreenCenter.

Also did you try renaming Dialog1 caption?

JRL · Post by **JRL** » Wed Apr 13, 2011 2:53 pm

Just a thought. Doesn't really address the cause but might result in a more user friendly script and resolve the issue.

Try adding GetWindowPos>

Code: Select all

Let>WIN_USEHANDLE=1
  GetWindowPos>Dialog1.Handle,Dialog1_X,Dialog1_Y
Let>WIN_USEHANDLE=0

Just ahead of the
SetDialogProperty>Dialog1,,Visible,False
line

Then add a MoveWindow>

Code: Select all

Let>WIN_USEHANDLE=1
  MoveWindow>Dialog1.Handle,Dialog1_X,Dialog1_Y
Let>WIN_USEHANDLE=0

Just ahead of the
SetDialogProperty>Dialog1,,Visible,True
Line

This will capture the window position prior to its closing and then put it back in the same position when it reopens. If the user moved the window it would then stay where the user put it.

kpassaur · Post by **kpassaur** » Wed Apr 13, 2011 3:43 pm

I tried both methods with no sucess. I can always compile the subroutine, hide Dialog1, run it and wait for the compiled script it to end and then show Dialog1 again. It is a work around I use frequently. I just would prefer to have it all as one script.

The other thought and this is a sort of a good one but I am a little stuck on it. I could use the page setteings to divide it up with tabs, but if I do I want to have a forward and back button that changes pages instead of clicking on the tabs (I want that to). So the user would enter page one setttings, page two settings etc.

Do you know the command to set it to anoher page.

JRL · Post by **JRL** » Wed Apr 13, 2011 3:58 pm

Do you know the command to set it to anoher page.

If I understand you corrently something like this: You want the TabIndex property of the TabBook. TabNumber will be a zero based number. In other words the first tab number is 0 the third tab number is 2
SetDialogProperty>DialogName,TabBookName,TabIndex,TabNumber

Does not work the same when compiled

Does not work the same when compiled

Compiled Sample that fails

Thanks

Same issue again

No shared properties that I can think of

Captions

Stripped down to just hte two dialogs

No Sucess