serial KeyCodesCNTs,%AppsArrayCnts,UglyPickingCNTs Default %Library.TMFormClass 0 %Library.TMForm %Library.TMIcon %Library.Boolean 0 %TMSpeedButton %TMSpeedButton %TMLabel %TMLabel %TMMemo %TMPaintBox %TMShape %TMShape %TMShape %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal cache 0 document literal ",$LB("Ugly Picking SysOp "),"UGLY Picking: "_..lblHeader.Caption, ..mmoStack.Text_txtJobInfo) Set MApplication.ScreenCursor=$$$crDefault If $$$ISERR(SendStatus) Do . Do MApplication.MessageBox($$ParseStatus^vhLib(SendStatus),..Form.Caption,$$$MBICONERROR) Else Do . Do MApplication.MessageBox("Mail delivered.",..Form.Caption,$$$MBICONINFORMATION) Quit ]]> Value:%Boolean cache 0 %Library.Status document literal initvalue:%String cache 0 %Library.Status document literal Header,Msg:%String,Type:%Integer,OkCancelMode:%Boolean=0 cache 0 document literal 162)) Do . Set ..lblHeader.Font.Size=..lblHeader.Font.Size-2 If ..lblHeader.Width>162 Do . Set ..lblHeader.AutoSize="False" . Set ..lblHeader.Width=162 . Set ..lblHeader.Height=..lblHeader.Height*2 . Set ..lblHeader.WordWrap="True" ;Hoogte bijsturen (centreren) Set ..lblHeader.Top=..shHeader.Top+((..shHeader.Height-..lblHeader.Height)\2) ;Breedte bijsturen (centreren) New Left Set Left=..shIcon.Left+..shIcon.Width Set ..lblHeader.Left=Left+((162-..lblHeader.Width)\2) ;BODY STUFF------------------------------------------------------------------ Set ..lblMsg.Caption=Msg Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState list Address Form btnCancel btnCycleCount btnNieuweDoeldrager btnOverzichtPickDetails btnProductEtiket btnVerplaatsenPallet btnWijzigAantal Label1 Label2 Shape1 imMsgIcon pbIcon Button1 Shape2 Shape3 SpeedButton1 SpeedButton2 OkCancelMode btnOk lblMsg shClient lblHeader IconCopy shHeader shIcon mmoStack Edit1 txtValue ValueMode