Unzip WinXP

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ Exchange Fox
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - remove read only attribute--please help how can I remove read only attribute of a label.lbx (label file type) before I replace new information into label.lbx. THANY YOU Ming Tag: Unzip WinXP Tag: 207261
  - 2
    - user-adjustable reports I have reports with one record in a tall detail band, no header, footer, title, nor summary. These are intended to be printed on pre-printed forms, with the text boxes filling in the blanks. As expected, there are alignment differences for different users using different printers. Alignment between the individual controls does not change, but margins do. I can allow the user to edit the report, but these users are not particularly computer savvy. I have grouped all the controls on the report, and I would like to allow the user to specify something like "move everything up 1/8 inch and right 1/4 inch", then have the app make the adjustment. Can this be done with report listeners? Or is it best to hack the report? Something like REPLACE hpos WITH hpos + 10 FOR objtype = 8 Or, since I have grouped the controls, is there a simple way to reposition the group? How are groups represented in the frx? Tag: Unzip WinXP Tag: 207243
  - 3
    - Upgrading to 9.0 compiling error I'm upgrading from 3.0B to vfp 9.0 and have received this error in compiling. Any suggestions? DIMENSION aLines[nLines] Error in line 116: Invalid use of a Visual FoxPro function as an array. aLines[I] = SUBSTR(cText,nT1,nT2) Error in line 122: Too few arguments. nS = MAX(nS,TXTWIDTH(aLines[I])) Error in line 123: Too few arguments. @ nThisLine,nC SAY aLines[I] PICT cPict SIZE 1,nW Error in line 145: Too few arguments. @ nThisLine,nC SAY aLines[I] PICT cPict SIZE 1,nW COLOR (cRGB) Error in line 148: Too few arguments. Thanks in advance. Tag: Unzip WinXP Tag: 207237
  - 4
    - Color Q. I have a navigation form that has pictures on the command buttons. Depending on what the pcs "Color Quality, I want a less dramatic picture on the command button for lower colors (i.e. 16 - 256 colors) and a flasher picture for 16 & 32 bit color. My question is, how in the activate or load of my form can I determine what the color on the pc is set? I am sure it is an api call or something fancy. Your help is always appreciated. Jonathan Morningstar Tag: Unzip WinXP Tag: 207230
  - 5
    - Locking & Unlocking a Demo I have had many request to send out demo's for some of my programs. I have put date limits and record count to limit the user but then when they want to purchase the program I have to send them another CD or have them download another file. I know that some demo's that I download and want to purchase, the seller just sends me an unlocking code and it works to unlock the program. Does anyone know how to lock and unlock a demo exe application using VFP8??? TonySper Tag: Unzip WinXP Tag: 207229
  - 6
    - How to Search for text string in all *.prg files? How to Search for text string in all *.prg files? The Windows Find dialog does not seem to be able to search inside Visual Foxpro 6.0 *.prg files in a folder. I guess even the uncompiled .prg (vs. the executable *.fxp) is not really stored as plain text. I assume there must be a way to do this in FoxPro, itself, but can't see it. Any ideas? Thanks -- JJ John "J.J." Jackson Tag: Unzip WinXP Tag: 207219
  - 7
    - PageFrame Refresh Is there a means of refreshing all the pages in a pageframe short of going through the list of pages? Or if not, is there a way to accomplish this without specifying each page in code? I have a page frame with 2 pages; each page has its own pageframe with several pages. thisform.refresh will only refresh the active page. Using VFP8, sp1 on Windows XP sp2. Thanks, Dave Tag: Unzip WinXP Tag: 207215
  - 8
    - Cannot OKL escape during SCAN..ENDSCAN Not entirely true but I've come across another bizarre thing in FPW2.6a: *{--------------------------- SELECT bigtable m.lkill=.F. ON KEY LABEL esc DO cancscan WITH m.lkill SCAN IF m.lkill EXIT ENDIF *stuff ENDSCAN ***** FUNCTION cancscan ***** PARAMETERS m.pflag PUSH KEY CLEAR m.pflag=.T. POP KEY *{--------------------------- So, the scan takes a long time and the user is supposed to be able to cancel halfway through. For some reason when in the loop, the escape keypress is ignored. It is nothing to do with SET ESCAPE [already tried, SET ESCAPE does not affect ON KEY LABEL esc] If I bind a different key it works OK. What's *really* strange is that with escape bound, it works if I press any other key on the keyboard first. As soon as I suspend the program it seems to work properly too so debugging isn't easy. This only seems to be the case during a SCAN, I set a different procedure for escape after the scanning and that always works. Any ideas? -- TIA Andrew Howell Tag: Unzip WinXP Tag: 207213
  - 9
    - SQL cursoradapters display of zero amounts weird When working with sql cursoradapters in grids, amounts are always missing the zero before the decimal point. e.g .00 or .45 instead of 0.00 and 0.45. They display correctly in a textbox. The VFP cursoradapter shows correctly in the same grid class so it can't be a formatting problem within the grid. If you BROWSE the cursoradapter, you again see the fields without the zero before the decimal points. What causes this and is there any way of forcing the zero to show? Thanks for any help, Bernie Tag: Unzip WinXP Tag: 207209
  - 10
    - make yourself one... hi ppl, why don't you make your onw code bar?! i 've make my self an EAN-13 and EAN-8 code bar.. and work perfectly as much in screen ou printing!!! and isn't so dificult to do it!!! the only problem is that a can resize the code bar..the code bar is fixed to a height and width... ATSP Tag: Unzip WinXP Tag: 207206
  - 11
    - Is it possible to draw a table in vfp8? Hi All, I think this question sounds stupid! Anyway, here it goes... Is it possible to draw a table with rows and colums like in MS Word? I did think of using a grid. But, I won't be populating the grid with multiple record from a table/s. The contents to be displayed on the table would be a result of a join of several tables which fetches exactly, one entity's data from all the tables in the database. But I would be displaying the whole lot of information in a several rows and columns. Can anybody suggest me how to do this? Thanks. Tag: Unzip WinXP Tag: 207196
  - 12
    - want to remove the read only status of label.lbx I wrote a label program, the program run on different computer, different site and different printer. I want to print 22 labels on one sheet on different situation. so I removed the printer driver in label.lbx before printing in order to the labels can be printed 22 labes on one sheet on each computer. the templabel.lbx is read only a error occured , when I created a setup.exe. how can I remove the read only status of templabel.lbx ? the following is the code of label program. thank you for your help ming *********************************************** COPY FILE 2x11.lbx TO templabel.lbx COPY FILE 2x11.lbt TO templabel.lbt *** Open the temporary report file USE templabel.lbx IN 0 -------------------------> problem occured right here. SELECT ("templabel") GOTO TOP * Strip some information from EXPR. Remove the driver info. lcExpr = Expr lcExpr = STRTRAN(lcExpr, 'DEVICE=', '*DEVICE*=') lcExpr = STRTRAN(lcExpr, 'DRIVER=', '*DRIVER*=') lcExpr = STRTRAN(lcExpr, 'OUTPUT=', '*OUTPUT*=') lcExpr = STRTRAN(lcExpr, 'DEFAULT=', '*DEFAULT*=') lcExpr = STRTRAN(lcExpr, 'PRINTQUALITY=', '*PRINTQUALITY*=') lcExpr = STRTRAN(lcExpr, 'YRESOLUTION=', '*YRESOLUTION*=') lcExpr = STRTRAN(lcExpr, 'TTOPTION=', '*TTOPTION*=') lcExpr = STRTRAN(lcExpr, 'DUPLEX=', '*DUPLEX*=') REPLACE TAG WITH '', TAG2 WITH '', EXPR WITH lcExpr -------------> error occured here , as it is read only, so it can be replace with everything *** Close the temp report file so we could run it. USE IN ("templabel.lbx") && Close the FRX file Tag: Unzip WinXP Tag: 207185
  - 13
    - Auto Increment records like a new emplyee number In VFP9 I used the wizard to create an emplyee table, and indexed it on employeeid. Then I used the wizard and created a form to view and enter employee data. The first time I ran the form I used the command buttons and created a new employee and gave the employee an employeeid of 101. Entered all the rest of the table data and exited. The next time I ran the form, it automatically presents the data from the last record (which I thought I could hide by telling the data environment "no data on load", but it still shows the last record) The second thing is when I click add button, there was no indication as to where the cursor is (and I wanted it to start at the top of the form in Employeedid) so I editied the add button in the command group and tried this code, and it does put me where I want to be, but all the other data is still there) On the click event of the add button ThisForm.EMPLOYEEID1.SetFocus Lastly if I gave the first employee the ID of 101 and add a new employee what would you need to to to get it to assune the next emplyee should be 102? Any help greatly appreciated. Dan Tag: Unzip WinXP Tag: 207173
  - 14
    - Bill Anderson at LA Fox February 8/Using Software Design Patterns Here's a synopsis of the topic at LA Fox this Tuesday...for further details, visit us at http://www.lafox.org. All well structured object oriented architectures are full of patterns. Focusing on these common patterns (Design Patterns) during a system's development can yield an architecture that is smaller, simpler, and far more understandable than if these patterns are ignored. Using these Design Patterns in your development can provide a significant maintenance advantage during an application's lifespan. Like a Japanese haiku (a three line poem consisting of exactly 17 syllables), Design Patterns have a simple construction, but also can be rather hard to fathom. In this session Bill will outline the most common Design Patterns and use familiar Visual FoxPro terminology to illustrate each Pattern. While Design Patterns aren't specific to any software development language, attendees should be familiar with Visual FoxPro terminology and the principles of object orientation. The Jump Start will feature a tour of xCase 7.5. See you there! Tag: Unzip WinXP Tag: 207172
  - 15
    - FPD report help My client runs a mature many-featured FPD application and I've been asked to modify a couple of the PRG-generated reports. These reports use ?, no FRX involved, and are powered by cursors for the data. The reports have numerous options driven by selector windows. Once the selections are made, the user picks between Screen and Printer. I'm being asked to include an option to create an Excel spreadsheet. I did something like this for them a couple years ago. It was a bunch of work, but I came up with a satisfactory solution. I thought I'd ask here before really getting into this. The printed version supports some stuff that I don't know how I'd support in a spreadsheet. I mean, I can do a COPY TO FILE (lcFilename) TYPE XLS, and if my fieldnames are sufficiently descriptive, it might be satisfactory. But it would be nice if I could include nice things like a page heading and a total line at the end. Is that stuff possible without some weird kludge? Tag: Unzip WinXP Tag: 207167
  - 16
    - simple outlook example with attachment Here is one using Outlook adapted from past examples posted that works ok for me. Save the code below as a program ie 'the_following_program' Say your file to be attached is in C:\Temp DO \~\the_following_program with 'the_filename_to_be_attached' PARAMETER f_file *ON ERROR DO \SOMEDIR\MY_ERROR WITH ERROR() SET DEFAULT TO C:\Temp f_file="C:\Temp\"+f_file oSession = CREATEOBJECT("MSMapi.MapiSession") oMessage = CREATEOBJECT("MSMapi.MapiMessages") oSession.LogonUI = .t. oSession.SignOn *-- The message control needs to reference the session control's ID. oMessage.SessionID = oSession.SessionID oMessage.MsgIndex = -1 *-- Set up our message and send it. oMessage.Compose oMessage.RecipDisplayName = "receiveremailname@ABC.com" oMessage.msgsubject = "file for :"+ALLTRIM(CDOW(date()))+" " +ALLTRIM(DTOC(date())) oMessage.msgnotetext = " Dear ABC "+CHR(13)+" - Attached is the latest file." *-- Attach the file. oMessage.AttachmentPathName = "&f_file" *-- Send the message on its way. oMessage.send(1) * oSession.Signoff() oSession.Signoff() * ON ERROR SET DEFAULT TO C:\Temp RETURN Tag: Unzip WinXP Tag: 207165
  - 17
    - Use of MoverBar Listboxes. Help please. Hi VFP Fans, Just having a bit of a problem with Movers (or listboxes with Moverbars = .t.) It is most likely the problem is with me in fact, not the listbox, but you get the idea! The Mover Listbox has 2 columns that I use. 1 A description 2 A number (as a string) I use to identify a record for processing The following properties are probably also relevant. Mylistbox.Rowsource type = 0 Mylistbox.Sorted = .f. Mylistbox.moverbars=.t. I add the items to the listbox in the order I find them in a folder (as they relate to filenames). I currently use the following code to process the items after the user has interacted with the listbox. FOR nCtr = 1 TO mylistbox.LISTCOUNT nScrapID = VAL(mylistbox.LISTITEM(nCtr,2)) IF SEEK(nScrapID) *Do stuff with nScrapID Endif Endfor Now this works fine for working through the items in the list box from the start in sequential order, however I wish to process them in the order they have been moved to by the user. eg A user may move the items up and down the list. I want to process them in the users requested order. (using vfp9) Hope that makes sense. Can you help? Thanks in advance. Darren. Tag: Unzip WinXP Tag: 207164
  - 18
    - Drag & Drop Hi all, Assuming I want to drag a picture from a folder on my HD to a photo location on my form, how can I get the path of the dragged photo? thank you Hutch -- --------------------------------------------------------------------- "Are you still wasting your time with spam?... There is a solution!" Protected by GIANT Company's Spam Inspector The most powerful anti-spam software available. http://mail.spaminspector.com Tag: Unzip WinXP Tag: 207163
  - 19
    - Auto Login VSS in VFP Hi, Anyway to set VFP to login to VSS using network name automatically while project opened? I have set "Use network name to automatically login user" to true in VSS admin| tools | options. Thank you Tag: Unzip WinXP Tag: 207162
  - 20
    - Resetting a grid after a relation I have an application where the users can set relations between any files they have open. My problem is that after they clear the relation, the child grid only shows the last "found()" set of records. What do I have to do to refresh the child grid so that it shows all records after the relation has been removed? Thanks, Scott Tag: Unzip WinXP Tag: 207157
  - 21
    - 'Use' Command question Hi Everyone; Some of my apps use a text file to store the path to data. When the path has blanks in it such as "c:\program file\..." foxpro does not like the DOS style path. (I am using "use evaluate('variablename')..." The only solution I found was to map the location as a drive such as "K:" and use this in the text file. Is there anyway to use the full path of a directory that has blank spaces or must I stick to using a network path?. TIA Mike Tag: Unzip WinXP Tag: 207148
  - 22
    - FoxPro 2.6 printer problem I use FoxPro 2.6 for windows on a windows xp machine. The printer is an HP Laserjet 2100TN, and the printout which appears is: PCL XL Error Subsystem: Kernel Error: UnsupportedProtocol Operator: 0x0 Position: 0 What do I have to do to get it to print properly? Reports now are just garbage. The printer prints the way it should stuff from Excel and Word. Regards, Jan Nordgreen Tag: Unzip WinXP Tag: 207138
  - 23
    - MAILTO: and attachments I am using MAILTO: and shellexecute to send emails from a vfp app. Is it possible to automatically include attachments, found by GETFILE(), and if so could somebody post a sample piece of code? Many thanks Stephen Tag: Unzip WinXP Tag: 207134
  - 24
    - How i can create a letter template in word ... os: win xp pro vfp: 6.0 sp5 hi, i have some customers that have a company letter template... with logo and adress... how i can create a letter template that my end user can't change logo and adress...only write the letter? TIA ATSP Tag: Unzip WinXP Tag: 207132
  - 25
    - Compiling to a win32 exe results in DECLARE DLL 'not found' errors I'm attempting to compile a VFP9 project into an EXE. It requires some ActiveX controls that need to be registered, so I've found a handy program by William GC Steinford to register ActiveX DLLs and included it in my project. The function RegSvr has the following lines: DECLARE INTEGER LoadLibrary IN kernel32 As "LoadLibraryA"; STRING lpLibFileName LOCAL lhLib lhLib = LoadLibraryA( pcOCX ) When compiling my project, I get an error: Unable to find Unknown LOADLIBRARY [Locate][Ignore][Ignore all][Cancel] I get the same error for all DECLARE'd DLL functions. If I just ignore them, the project will finish compiling with errors and still be able to use these functions. Does anyone know how to prevent these errors from occurring, though? Tag: Unzip WinXP Tag: 207131
- Next
  - 1
    - mailto and attachments Is it possible to include attachments when using mailto: and shellexecute? Many thanks Stephen Tag: Unzip WinXP Tag: 207129
  - 2
    - PDF printing Found this: PDFcreator - opensource PDF printer driver (works from any windows app) http://sector7g.wurzel6.de/pdfcreator/ (also on sourceforge) Has two interesting abilities, 1>. print to pdf and email straight away 2>. Automated print to pdf file, you specify directory and file name structure. Just thought I'd share! Have good weekend. Steve Tag: Unzip WinXP Tag: 207127
  - 3
    - read a file to return a byte array Hi all, How can i use VFP 5.0 to read a file and return a byte array? Thank you. Tag: Unzip WinXP Tag: 207106
  - 4
    - VFP9 problem with _screen Hello All, I am currently looking at VFP9, and I have a problem with the following code. _screen.addobject("oHook","MyHook1") Define class MyHook1 as Custom oScreen = _Screen procedure oScreen.resize _Screen.sScreen1.resize endproc enddefine sScreen is a container object that resizes when the main screen resizes. In VFP6 this works great, but in VFP9 I get the following error: Unknown member OSCREEN. Is there a quick solution? -- To reply remove 'NoSpam' from email address Tag: Unzip WinXP Tag: 207104
  - 5
    - Does anyone know what is release date of VFP9 Does anyone know what is release date of VFP9 Developer version? Tag: Unzip WinXP Tag: 207098
  - 6
    - Control's destroy events don't fire Hi, I have observed strange behaviour. When releasing a form its Destroy event does fire, but Destroy events of this form's controls do not. This happens rather seldom and I have no way to reproduce it. Does anyone has any idea what to do? Thanks, Janusz Czudek WORD Software www.wordsoft.com Tag: Unzip WinXP Tag: 207093
  - 7
    - Need more solution... This code is origanated from DOS Version of Foxpro and it's really work.. How comes that it doesn't work in Visual Foxpro 7. Is there something missing on this code? This code is to print a Barcode sticker... the '3344556688991' in line 7 is the barcode to be print CLEAR SET PRINT ON SET PRINTER TO LPT1 ESC=CHR(27) STX=CHR(2) ?? STX + ESC + "A" + ESC + "#E3" + ESC + "IG0" + ESC + "CS4" ?? ESC + "V20" + ESC + "H200" + ESC + "BD302040" + '3344556688991' ?? ESC + "V1" + ESC + "H420" + ESC + "WDH0180V001X230Y095" ?? ESC + "Q"+ ALLTRIM(STR(4/2)) + ESC + "Z" + CHR(3) SET PRINTER OFF Tag: Unzip WinXP Tag: 207089
  - 8
    - Data Environment Hook doesn't work in VFP9 Hi guys, I found that in VFP9 the following is not working: I have de_hook.prg: [vfp_code] PUBLIC oDEHook m.oDEHook = CREATEOBJECT ("DEHook") RETURN DEFINE CLASS DEHook AS DataEnvironment Name = "DataEnvironment" PROCEDURE BeforeOpenTables Messagebox ("I'm in the hook") SET DELETED ON SET TALK OFF SET CONSOLE OFF SET CONFIRM ON SET CENTURY ON SET CONFIRM OFF SET EXCLUSIVE OFF SET SAFETY OFF SET TALK OFF SET MULTILOCKS ON ENDPROC ENDDEFINE [/vfp_code] After I run de_hook.prg in VFP7/8, each time I run any form, the procedure BeforeOpenTables in de_hook would run (hence the messagebox appear). But in VFP9, the procedure wouldn't run. After I run de_hook, I tried ?m.oDEHook in the command window and it returns (Objects) as it should be. Seems like VFP9 just by pass the hook. Are there something I miss? Can anybody help me? If this behaviour is by design (I hate those sentences, 'by design'), are there any way around? TIA, Willianto P.S: I got this method from Igor Korolyov. Hi Igor, have you notice this VFP9 behaviour as well? Tag: Unzip WinXP Tag: 207088
  - 9
    - How to Keep Mouse Pointer from Changing on Click I have an Image control that performs a task when clicked on. I would like to keep the Mouse Pointer from changing to an Hourglass when it is Clicked but have not been able to by way of the MousePointer property. Does anybody know of a way to keep the MousePointer static while clicking on an Image control? -- Jim D Tag: Unzip WinXP Tag: 207084
  - 10
    - make copy, not reference, to object? I'm trying to make a temp copy of an object created with SCATTER NAME so i can fiddle with its properties without affected the original, and I am unable to figure out how to copy the object. Every method I've tried results in the temp var being a reference to the original, meaning properties changed in the temp are reflected in the original! Example: CREATE CURSOR Mewp (Foo C(10), Bar C(10), Narf C(10)) INSERT INTO Mewp (Foo, Bar, Narf) VALUES ('do','re','me') SCATTER NAME oMewp oTemp = oMewp oTemp.Foo = 'FAIL' oTemp.Bar = 'FAIL' oTemp.Narf = 'FAIL' ?oMewp.Foo ?oMewp.Bar ?oMewp.Narf How do I make a copy, rather than a reference, to a type EMTPY object? There's no CloneObject() method. I've tried toggling SET COMPATIBLE, does not appear to change the behavior? It seems this should be simple to do! Please help! Tag: Unzip WinXP Tag: 207074
  - 11
    - Report form not launching on PC's Hi, On the pc I develope the app, when I click my command button with the following code: REPORT FORM s:\agland\reports\rb_0013rpt.frx PREVIEW it launches no problems. When I do the same procedure on a end user pc, it dows not launch, but no error either. Tag: Unzip WinXP Tag: 207073
  - 12
    - Adding Textbox to Excel sheet I've gotten most of the elements tocreating Excel sheets and adding data to them. I one to add a textbox to a sheet for some free flowing data. I'm having a problem getting the code from VB to VFP. Here is the VB code: ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=11.25, Top:=322.5, Width:=428.25, Height _ :=47.25).Select Selection.Characters.Text = " .selection.font.Underline = 2" If anybody would know how to add text to it, I'd much appreciate. Thanks. BR Tag: Unzip WinXP Tag: 207065
  - 13
    - Modifiying a single grid cell Hi, I am developing an application in which I am building a calander grid. Each row in the grid has a control source connected to a foxpro table which determines which day of month it is. I am trying to make it so that todays day will be displayed in bold but I can't find a way to locate todays individual cell in the grid. Anyone have any suggestions on how I would do this? Thank You, -- Kevin Markvenas Software Developer Tag: Unzip WinXP Tag: 207063
  - 14
    - DLL Creation I'm using VFP7 and created a multi-thread DLL. In VFP the DLL works perfectly. The problem is that everytime the dll is rebuilt the case of the properties change. For example, a property named cAppid will switch between all upper ("CAPPID") or lower ("cappid") or stay as "cAppid". VFP doesn't care about the case, however C# does. After the dll is rebuilt we have to change the C# program to use whatever the new property case. There doesn't appear to be a pattern to what the final case will be. I found a reference in MSDN to the property case problem. The solution was to define the class pragmatically to keep the case of the methods and properties as defined. It didn't work!! The case still changes. Has anyone run into this issue? Is there a work around? Does VFP8 or 9 have this issue? Doug Tag: Unzip WinXP Tag: 207062
  - 15
    - c compiler capable to create a FLLl Hello, does anybody know a compiler other than Microsoft Visual C++ capable of creating a FLL? (It must be able to process pro_ext.h and winapims.lib from HOME()+"\Samples\API"). It would also be sufficient to be able to return foxpro string type values from a "normal" dll, but so far I'm only able to modify strings passed to a c function by reference. I tried MS VC++ Toolkit 2003 and the lcc-win32. I heard it could be done with borland c++ builder?? TIA, Olaf. Tag: Unzip WinXP Tag: 207057
  - 16
    - refdef.dbf & reffile.dbf in application data directory? What does VFP8 use these files for and how do we change where they are located? Because they are in this folder, they get copied backwards and forwards to the network when we log off and log on. If the files are large, this can cause unwanted delays in shutting down machines. Thanks for any help. Bernie Tag: Unzip WinXP Tag: 207056
  - 17
    - REPORT FORM X TO PRINTER PROMPT If you use the above report form command, how can you tell if the user chose to Cancel from the print options dialog that is displayed? Surely there must be a way? Thanks for any help. Bernie Tag: Unzip WinXP Tag: 207050
  - 18
    - Caption property in a CURSOR Hi, I am using VFP 8 SP1. I have a CURSOR created with CREATE CURSOR command. How can I change the "Caption" of a field of the above CURSOR so that when I do a BROWSE command the "Caption" of the field will be visible. Thanks in advance. Regards, Derek Tag: Unzip WinXP Tag: 207043
  - 19
    - sqlsetprop option ? hat are need to be set in sqlsetprop property to make the db server wait longer if the network is busy instend cutting the connection ? I'm currently using all default value any help/advice ? Sen Tag: Unzip WinXP Tag: 207036
  - 20
    - image in report is just printing the filename (vfp6) (Please ignore if this is a duplicate - I tried to send this about an hour ago and it still has not shown up in my news client) I have a workorder report that my clients want to have their company logo on I am loading the company.bmp into a general field in a cursor and the field is referenced in the image control on the report This is working fine on my pc (and other pc's in my office) but not on the client pc has anyone heard of this before? Is there a resolution? TIA John Tag: Unzip WinXP Tag: 207035
  - 21
    - image in report is just printing the filename (vfp6) I have a workorder report that my clients want to have their company logo on I am loading the company.bmp into a general field in a cursor and the field is referenced in the image control on the report This is working fine on my pc (and other pc's in my office) but not on the client pc has anyone heard of this before? Is there a resolution? TIA John Tag: Unzip WinXP Tag: 207030
  - 22
    - Suggestions to learn .Net for developers who only know VFP I will like some suggestions how to train VFP developers who do not know VB or VC to learn .Net. Are there any good books, webcasts, and articles that will help? Thanks. Tag: Unzip WinXP Tag: 207029
  - 23
    - Forms Hello, I was wondering if there is a way to tell FoxPro to skip printing a page of a report if a specific variable is zero for example. Emily Tag: Unzip WinXP Tag: 207024
  - 24
    - Filer Hi. Finally had a chance to the VFP6 filer. I've been trying to modify = it to be more like the Foxpro 2.6 filer. Here's what I have so far: In Foxpro 2.6, when you edit a file selected by filer, you can do a = [Ctrl]-[G] for the next occurence of your search text. For the VFP = filer, I modified the filer.scx form. In the first search textbox, I = added _CLIPTEXT =3D ALLTRIM(This.Value) to the LostFocus of the 1st = search textbox. When I run the VFP filer, however, I have to first = [Ctrl]-[F], then [Ctrl]-[V]. Question. Does anyone know a way to get = ALLTRIM(This.Value) directly into the VFP find dialog box? Here's a tip: The Foxpro 2.6 filer automatically MODI COMM all selected = files. To do the same thing in the VFP filer, do a MODIFY FORM = filer.scx METHOD FIND. Find the following lines in the find procedure: = THIS.lstFiles.AddItem(IIF(LEFT(m.cFileName,2)=3D"\\","\"+m.cFileName,m.cF= ileName)) ENDFOR Before the ENDFOR, add: THIS.lstFiles.Selected(THIS.lstFiles.ListCount) =3D .T. To the very end of the find procedure, add the line: THISFORM.EditFile Getting close. Any help about the find dialog box would be greatly = appreciated...Dennis Tag: Unzip WinXP Tag: 207023
  - 25
    - Password Protect a report on a command button Hi, It has been a long time since I worked in VFP, and I recently got the new V9. I have imported an old project no trouble, and am working with it. I have a Commandgroup that I want the user to be able to clic to view a report. In the "click event" on the command button I have: REPORT FORM y:\agland\reports\rb_0013rpt.frx PREVIEW However I require that the user has to provide a password before any info is show, Any assistance greatly appreciated. Dan Tag: Unzip WinXP Tag: 207022

Friends,

Some months ago there was a posting of code for UNZipping in Window XP (code
is appended below), it is working fine, however it creates an EXTRA folder
under:

C:\Documents and Settings\USER\Local Settings\Temp\

by the name of Temporary Directory 1 for UNZIPPEDFILE.zip

Temporary Directory 2 is also created if the same file is unzipped again.
After repeat runs on the same file, we may start getting curious results and
messages. It we unzip big files, then the Hard Disk can get filled up without
our knowledge.

It there some solution so that this folder is either not created or deleted
automatically after unzipping. I will look forward to have your comments.

Best Regards

S Bans

*****************

PROCEDURE UnZIP(lcZipFile AS STRING, lcToFolder AS STRING)
*
LOCAL lcEmptyZip AS STRING
LOCAL oSHELL AS SHELL.APPLICATION
lcEmptyZip = "PK"+CHR(5)+CHR(6)+REPLICATE(CHR(0),18)
TRY
oSHELL = CREATEOBJECT("Shell.Application")
IF NOT EMPTY(lcZipFile)
lcFullName = FULLPATH("&lcZipFile.")
IF UPPER(JUSTEXT(lcFullName)) <> "ZIP"
lcFullName = lcFullName + ".ZIP"
lcFullName = STRTRAN(lcFullName,"..",".")
ENDIF
IF NOT FILE("&lcFullName.")
= MESSAGEBOX("Zip File "+lcFullName+" not found",16,"Error")
EXIT
ENDIF
ELSE
= MESSAGEBOX("No Zip file name specified",16, "Missing info")
EXIT
ENDIF

IF NOT EMPTY(lcToFolder)
lcToFolder = FULLPATH("&lcToFolder")
TRY
loFolder = oSHELL.NameSpace("&lcToFolder.")
IF ISNULL(loFolder) && does not exist (create)
MKDIR "&lcToFolder."
loFolder = oSHELL.NameSpace("&lcToFolder.")
ENDIF
loZipFolder = oSHELL.NameSpace("&lcFullName.")

IF NOT ISNULL(loZipFolder)
lnZipFileCount = loZipFolder.ITEMS.COUNT
lnFileCount = loFolder.ITEMS.COUNT

loFolder.CopyHere(loZipFolder.ITEMS) && unzip executes
asynchronously

ENDIF

CATCH
ENDTRY
ELSE
= MESSAGEBOX("No files to ZIP",16, "Missing Info")
ENDIF
CATCH
FINALLY
ENDTRY

ENDPROC