sanj
Can you modify the Close button on Print Preview toolbar in Visual Foxpro 6.0.
I need to remove the picture of Close button and put the text "CLOSE" on the button.
can you do this in VFP 6.0
Please help.
Thanks,
Sanj.
Close system toolbar of foxpro
Visual FoxPro General
-
- Previous
- 1
- help needed on troubleshooting label printer problem You may try to use: SET REPORTBEHAVIOR 80 if you don't have a ReportListener instance specified . Tag: Close system toolbar of foxpro
- 2
- How to Lock a file in VFP 6.0 so that cannot access it externally through my computer ? Hi all(Markish, Dni, Leo), First of all Thanks a lot for ur ready replies. I studied all ur answers. But I want to add something to my thread/question. I am VFP 6.0 programmer, developing accounting & inventory control application for small trading orgs. I am using Windows XP Professional SP 2. We have more than 80 existing clients placed inside n outside our state withinn a radius of 500 km. They are using Windows os like 98/xp home/prof./millenuim/2000 server. The org. owners are normally non-technical persons. They don't have much idea abt computers. They know simple operations. Owners want that some vital info(like purchase rate/profit etc) of their biz should not be known to their operators. For this reason, we decided to modify our software providing multi-user level security. We have 3 types of users, viz, 1)Admin(owner), who has full control, 2) Superviser, who has some controls and 3) Normal users, who has the minimum controls just like data feeding and sale billing only. I have already checked all the options of windows as said in answers. And found some points as below : 1) This user permission setting can be applied to NTFS partion only, not to FAT partition. 2) There is guarantee that all our client machines have NTFS partion for their existing HD drives. 3) It is not feasible to visit each n every clients to set this permission at client machine by our service er. 4) As owners will create and set permissions in our software, they might not do windows os permission setting properly to our permission.dat file. 5) As I had researched here, only normal users cannot delete this file, but admin can delete this file(but not opening and editing the file), even after denying the full control to admin. 6) Most Clients run our package with their default user with admin. permissions as they have to run other company supplied package as they with those products. 7) Different file extension n encryption of data is not sufficient as some one can delete our permission file. Here I want that, even if a normal user of our package log in to our application though the Windows Os's default user having admin permission, he/she must not modify or delete the permission.dat file. I will prefer if there is any other solution which can be done directly from foxpro. If earlier one is the last resort, then i will stop thinking and go with that.(basically with user impersonation) Sorry for this long and detailed post. I have found another code snippet(appended below to this post.) and tested it , got that it can work but only at the time of our program execution., not after that. ------------------------------------------------------------------------------------- DO decl #DEFINE GENERIC_READ 0x80000000 #DEFINE GENERIC_WRITE 0x40000000 #DEFINE cret Chr(13) #DEFINE dcret Chr(13)+Chr(13) LOCAL lcPath, lcAlias, lcFile, hFile, lnHeader, lcBuffer lcPath = GetTmpPath() lcAlias = "Test" lcFile = lcPath + lcAlias + ".dbf" * creating a testing table IF USED (lcAlias) USE IN (lcAlias) ENDIF IF Not FILE(lcFile) SET SAFETY OFF CREATE TABLE (lcFile) (dt T) SET SAFETY ON INSERT INTO (lcAlias) VALUES (datetime()) ELSE USE (lcFile) ALIAS (lcAlias) SHARED ENDIF lnHeader = HEADER() USE IN (lcAlias) lcBuffer = REPLI (Chr(0), 250) hFile = OpenFile (lcFile, @lcBuffer, GENERIC_READ) IF LockFile (hFile, 0,0, lnHeader,0) <> 0 = MessageB ("File " + lcFile + " is locked." + dcret +; "At this point do not close this Dialog " +; "and start another VFP instance." + dcret +; "Use another instance to open " + lcFile + cret +; "or just try to read the tables on " + lcPath + " " + ; "using regular DIRECTORY command." + dcret +; "After that click Ok to unlock the target file.", 64, "Locking a file") * = UnlockFile (hFile, 0,0, lnHeader,0) ELSE * 6 = ERROR_INVALID_HANDLE - already in exclusive use "Error code:", GetLastError() ENDIF * = CloseHandle (hFile) FUNCTION GetTmpPath LOCAL lpBuffer, lnLength lpBuffer = SPACE(250) lnLength = GetTempPath (LEN(lpBuffer), @lpBuffer) RETURN Iif (lnLength=0, "C:\Temp", PADR(lpBuffer, lnLength)) PROCEDURE decl DECLARE INTEGER GetLastError IN kernel32 DECLARE INTEGER GetTempPath IN kernel32; INTEGER nBufferLength, STRING @ lpBuffer DECLARE INTEGER LockFile IN kernel32; INTEGER hFile, INTEGER dwFileOffsetLow,; INTEGER dwFileOffsetHigh,; INTEGER nNumberOfBytesToLockLow,; INTEGER nNumberOfBytesToLockHigh DECLARE INTEGER UnlockFile IN kernel32; INTEGER hFile, INTEGER dwFileOffsetLow,; INTEGER dwFileOffsetHigh,; INTEGER nNumberOfBytesToUnlockLow,; INTEGER nNumberOfBytesToUnlockHigh DECLARE INTEGER OpenFile IN kernel32; STRING lpFileName,; STRING @ lpReOpenBuff,; INTEGER wStyle DECLARE INTEGER CloseHandle IN kernel32; INTEGER hObject ------------------------------------------------------------------------------------------ Thanking You all. With regds niharrp -------------------- A VFP 6.0 programmer Tag: Close system toolbar of foxpro
- 3
- VSF 6.0 Reports & Subreports OK, I will try to give the simplest case. I have a report which reads a file (by a query) and lists all the records returned (resultset). To do this I will simply put the needed fields in the "Detail" area of the report. But let's suppose that, underneath every record listed, I need to list some records from another Table. If i used Crystal Reports, for instance, I would have to create another report (with the proper query) and invoke it from the details area underneath the Supplier row. The result should be like this: Supplier Name City Zone Date of Sale Item Code Quantity Sold --------------------------------------------------------------------------------------- Smith John Rome AA 12/02/2007 00123 123 12/03/2007 00234 34 13/03/2007 00356 11 Brown William New York AS 11/03/2007 02345 123 11/03/2007 08764 34 White Noah Paris FR 12/02/2007 00123 144 12/03/2007 00234 33 13/03/2007 00356 11 The Suppliers come from the table "SUPPLIERS" and the Orders come from the table "ORDER" Obviously I have chosen a very simple example and the above report can indeed be made in another simpler way (using a temporary file). But this is only for giving an idea. Unfortunately this is not possible with VSF . Hence my question. Thank you for yr assistance. Regards TdP Tag: Close system toolbar of foxpro
- 4
- DBF with 503 fields Thanks for ur information. I have already tried with the dbase III+, IV, V odbc drivers. I am unable to query the table. Tag: Close system toolbar of foxpro
- 5
- check for filetype This . Enabled = .F. *!* Declares Variable strings Local lcSource,lcTarget, lnFiles,ix Local Array aJPG[1] lcSource = 'c:\client' lcTarget = 'c:\server' Set Safety Off lnFiles = Adir (aJPG, Addbs (m.lcSource)+"*.jpg") If m.lnFiles > 0 Thisform .CntFileList2.labelinfo. Caption = "Copying File to Software" Thisform .CntFileList2.labelinfo. Visible = .T. Thisform .CntFileList2. Visible = .T. Thisform .CntFileList2.Check1. Caption = "Moving Photos..." Thisform .CntFileList2.Label1. Visible = .T. For ix = 1 To m.lnFiles Copy File ; ( Addbs (m.lcSource) + aJPG[m.ix,1] ) ; TO ; ( Addbs (m.lcTarget) + aJPG[m.ix,1] ) Erase ( Addbs (m.lcSource) + aJPG[m.ix,1] ) Endfor Thisform .CntFileList2.Label1. Caption = " " Thisform .CntFileList2.Check1. Value = 1 Messagebox (" Move Complete ", 64 , "My Company") Thisform .CntFileList2. Visible = .F. Thisform .CntFileList2. SetAll ("value", 0 ,"checkbox") Thisform .CntFileList2. SetAll ("caption","","checkbox") Thisform .CntFileList2. SetAll ("caption","Copying","label") Thisform .CntFileList2. SetAll ("visible", .F. ,"label") Else Messagebox ("No valid files exist.") Return Endif *!* Delete old photos Thisform .CntFileList2.Label1. Visible = .F. Set Safety On Thisform .CntFileList2. SetAll ("value", 0 ,"checkbox") Thisform .CntFileList2. SetAll ("caption","","checkbox") Thisform .CntFileList2. SetAll ("caption","Moving","label") Thisform .CntFileList2. SetAll ("visible", .F. ,"label") Thisform . Refresh () Tag: Close system toolbar of foxpro
- 6
- FOXFIX5.DLL and Windows 2003 Server Yes Foxfix is a third-party product that repairs corrupted tables. At this point I am hoping to get foxfix.dll working as I just paid $$$ for this solution. thanks, Stuart Tag: Close system toolbar of foxpro
- 7
- dropdown list box I certainly will. Thanks, Vladimir!!! Hans L Tag: Close system toolbar of foxpro
- 8
- How to select a record from a Grid and open a form You may put in double click method of the grid: IF "given record " condition Do form YpurForm ENDIF For pressed key you may put .T. on form property KeyPreview and in Keypress method pu something like: IF LASTKEY() = 13 && for enter IF "given record " condition Do form YpurForm ENDIF ENDIF Tag: Close system toolbar of foxpro
- 9
- form help thanks this is over my head can u explain to me about mytable.fullyqualifieldpath2imagefile suppose my app is on c:\employee\data\employeedetail\photo employee =app name data=dbf folder employeedetail = table photo=image field thanks Tag: Close system toolbar of foxpro
- 10
- building dll get "Allowed DO nesting or expression..." error Hi, guys I got a " Allowed DO nesting or expression evaluation level exceeded ." error when I tried to build a dll file. What's weird is that my co-worker using exactly the same code with me, but he can build a dll without that error. So I think that mayby it's have something to do with foxpro's setup I looked under Index in Help for "error messages" ... "alphabetical order" and found that I can use STACKSIZE = nValue to set stacksize in config.fpw, but it just not work. So...don't know yet, still trying. Any help By the way, I use FoxPro 9 with SP1. Thanks a lot. Lisa Tag: Close system toolbar of foxpro
- 11
- how do i disabled a mouse and esc at runtime? good day to the experts... i have just recently discovered this error no matter how i plug it still works... my form has a text field for typing a message and a send button for the message to be sent to the server, but when i hold down the button key and press ESC at keyboard, it got an error message ( "execution interrupted" 'CANCEL, RETRY, IGNORE' )..which-ever i press naturally my applic. will exit even if i point at label or listbox,or combo and hold down the left mouse button then press ESC, its d'same, it's "interrupted error message." so what i do i put a ON KEY LABEL ESC * at INIT but it won't work i put another plug below if inkey()=27 message.... endif it doesn't work either.. is this a bug or i miss something in my code thank you very much for any help Tag: Close system toolbar of foxpro
- 12
- Valid event ON ERROR * is almost never a good idea. Hiding errors doesn't cure them. Tamar Tag: Close system toolbar of foxpro
- 13
- Why my VFP exe file cannot be launched? How do I refresh *.dll files Thanks. Tag: Close system toolbar of foxpro
- 14
- I can't see the content of the last field of the record It is not a VFP table (I'm sure of this) but I never found problems to read its records with VFP, recently the table was updated by the Software House with a new field added that I can't read, when I use BROWSE or any other EDIT command I see the right structure with the field addedd, but the value is every spaces. Do you think I need to use another program to manage this data Tag: Close system toolbar of foxpro
- 15
- replace image with own name thanks for your reply how do i control lc file or use dtos cos i take more than 25 image a day thanks Tag: Close system toolbar of foxpro
- 16
- date problem Hi, I have to append data from an excel file to a fox file. A cell in excel has date data in format : "dd/mm/yyyy" and in fox the table has a character field. When I execute the command, it sometimes appear in the fox table a number that doesn't have any resemblance to the date data. How can I solve this . Thanks, Tag: Close system toolbar of foxpro
- 1
- Next
- 1
- SQLServer's scope_identity() and VFP's remote views Hi, I'm using VFP9 and I use remote views that back into SQLServer 2000. What I'd like to be able to do is use SQLServer's scope_identity() function to return the identity value generated upon inserting (and performing a tableupdate()) a new record into an updatable remote view that backs into a SQLServer table with an identity field as its primary key. The problem I'm having is that scope_identity() returns null in this situation. eg. insert into my_remote_view (field1) values ("blah") tableupdate(0, .T., "my_remote_view") Sqlexec(Cursorgetprop("ConnectHandle", "my_remote_view"), "select scope_identity() as LastIdentity", "ScopeIdentity") ScopeIdentity.LastIdentity && this prints null If I use sql pass-through (sqlexec()) to insert the record then there is no problem, scope_identity() returns the identity value as expected. If I use @@Identity instead of scope_identity() then an identity value is returned, but since @@Identity is not 100% reliable this is of marginal benefit. It seems like a remote view's update action has its own scope that ends once the update is committed, while its session persists - hence @@Identity works and scope_identity() does not. I suppose I could try using a cursoradapter and alter the UpdateCmd property to include code to use scope_identity(), but I don't really want to go down this route since I'm working on a large application that makes extensive use of remote views and only peripheral use of cursoradapters. Has anyone found a way to use scope_identity() with a remote view Thanks in advance. Paul S. Elliott Tag: Close system toolbar of foxpro
- 2
- SQL Server Express & Foxpro-populating SS from Foxpro This is my first foray into SQL Server and I'm trying to do a small test run before expanding my code. Thanks for your patience. I wasn't populating my key fields, so I changed this line to this: lcStr = [INSERT INTO SAUTHORS(APKEY, firstname,lastname) values (] + M.PKEY + [,'] + m.firstname + [','] + m.lastname + [')] And I get the Operator/operand mismatch error. With PKEY and APKEY being integers, is there a different syntax I have to use since it's not character or string type Tag: Close system toolbar of foxpro
- 3
- impersonateloggedonuser and Getfil() Logon and impersonateloggedonuser have my rights...just plain user but I have addedthe following user rights to myself... 'Act as part of the operating system', 'Bypass Traverse Checking' and 'Replace a Process Level Token'. From what I have read in MS docs these are the required rights needed to call these dll functions. I will start checking out some od the other rights as well. thanks Tag: Close system toolbar of foxpro
- 4
- Column totals for report Ok I understand now. I was clicking the ... box to do it before. Thank you. Tag: Close system toolbar of foxpro
- 5
- Application cannot run after compile Cannot run...it means that the when starting the application, it just appear for a second time and dissappear again.....I'm using VFP version 9 and compile in the project window with Build command..... Tag: Close system toolbar of foxpro
- 6
- file question Hi, I want to to know if there is a function or command to create a directory in visual fox pro 7. For example, I want a new directory called: 'c:\users\test' . Thanks, Tag: Close system toolbar of foxpro
- 7
- Help With Earlier Verison of FoxPro No...it doesn't have to be Foxpro for Dos or Foxpro for Windows. It can also be Visual Foxpro. All these files are VFP files as well. As a matter of fact, if the softwaer was developed in 2001, its probably VFP. Now... The fact that you're talking about 'modern IDE' may point to the fact that this is Foxpro Dos. Tag: Close system toolbar of foxpro
- 8
- Errors running FoxPro Stored procedures in .NET windows app I think you misunderstood my previous post. I am not using SelectCommand (it happens to be part of variable name used in the original code snippet, VFP7SelectCommand). Correct me if I am wrong. I am attaching the stored procedure in the sample VFP database below (created using VF9.0 Software): Please note there are 3 procedures and I am trying to execute PROCESS_LOCATION_VIEW_TABLES from the windows application. Tag: Close system toolbar of foxpro
- 9
- SQL query too long doesn¡¯t work with SQLEXEC() There¡¯s no error message simply it don¡¯t returns my result records, cursor is not created, despite the query structure is correct (as I wrote in console it works!) I working with VFP 8 SP1. I was wondering if "sliced" the whole query by using cWhere1, cWhere2, cWhere3...variables, and putting them all together at end. Any other ideas fellows are accepted. Thanks! Tag: Close system toolbar of foxpro
- 10
- Why my VFP exe file cannot be launched? How do I refresh *.dll files Thanks. Tag: Close system toolbar of foxpro
- 11
- Possibly a bug using report listener HI All; When using a summary band with no other options (like "Include page header with summary"), AND The number of lines in the generated report is such that the summary band has to print all by istelf on a new page, The generated HTML file when using a report listener is cut short and the last page (Summary all by itself) is not generated. Anyone saw a bug report on this Thx. Tag: Close system toolbar of foxpro
- 12
- memo field in browse By setting exclusive on before opening the file I no longer got the error! Why the error indication "Windowtype not found" I do not know. Tag: Close system toolbar of foxpro
- 13
- How to find a ref in a class lib? Hi Again; I'm trying to build my app and I'm getting the following error: Visual Class Library c:\devel\srvfp\krcb.vcx has the following errors: Form 9CUSTSERVICE01 - Undefined I'm trying to find the class that references this form. I tried to use the "Code Ref" tool in VFP9 to find this - no success. I manually opened up most of my classes and there is no ref to this form. I even "use"d the class library in VFP and did a 'locate' on SOME of the fields. Is there a way to find what is the class causing this Thank you all! Tag: Close system toolbar of foxpro
- 14
- Open Source VFP? >> Yeah, but this article is more recent. Which article The one I referenced was from yesterday. It only reflects what was mentioned back within a day or two after the announcement was official plus the added news that Fox developers are petitioning. Nothing has changed since the original official announcement from MS. Based on what I've seen over and over in the media, they aren't too accurate and they collate the thoughts, correct or not, from other reporters. They make incorrect information look more and more legitimate by repeating it in multiple locations, many of which you can get to through casual Googling as you just did. [I wonder what MS Live returns in its search. ] Tag: Close system toolbar of foxpro
- 15
- subtotal field thanks for reply fielda and fieldb is table field and i want to see result in field c ( field c is not table field) Like invoice if you put qty , product price and it will calculate automatic net total in bottom thanks Tag: Close system toolbar of foxpro
- 16
- Buttons Disappear Spoke too soon. If you move the form off the screen, and after you run a print routine, some of the elements dissapear again, several command buttons and a graphic. This is after a refresh is issued also. Tag: Close system toolbar of foxpro
- 1
- Previous
Re: Close system toolbar of foxpro
Cameron Slade
Hi Sanj,
I have good news and bad news ;-). The bad new is there isn't a way to do this in VFP 6.0. The good news is it is possible in VFP 9.
Sorry I couldn't be more help,
Cameron Slade
VS Data Test Manager
Re: Close system toolbar of foxpro
Christof Wollenhaupt
Hi Sanj,
There are several options. If you only want to remove the button entirely, you can create a new FOXUSER file with a modified toolbar definition:
1) Make a copy of your current FOXUSER.DBF named NewFoxUser.DBF and activate it with:
SET RESOURCE TO NewFoxUser.DBF
2) Open the report preview and make the preview toolbar visible.
3) Hold down the ALT key. Click on the exit button and drag it off the toolbar. Release the ALT key.
4) Switch back to the old FOXUSER.DBF with
SET RESOURCE TO FoxUser.DBF
5) Open the new foxuser file and delete all records with:
SET DELETED OFF
DELETE ALL
6) Now locate the record that contains the report toolbar definition and recall this one:
Locate for ID="TTOOLBAR" and name="Print Preview"
Recall next 1
7) Pack the file, copy the file into your applications directory and rename it to Preview.DBF.
8) Include the Preview.DBF in your project and mark it as include. In your application, before you preview a report, issue the following statement. This activates the modified preview toolbar definition:
SET RESOURCE TO Preview.DBF
After previewing a report, you can switch back to the previous resource file.
Nonetheless, updating to VFP 9 or VFP 8 is still a good idea. Compared to VFP 6 there are so many enhancements in these versions that are worth much more than the upgrade price.
Hi Sanj,
There are several options. If you only want to remove the button entirely, you can create a new FOXUSER file with a modified toolbar definition:
1) Make a copy of your current FOXUSER.DBF named NewFoxUser.DBF and activate it with:
SET RESOURCE TO NewFoxUser.DBF
2) Open the report preview and make the preview toolbar visible.
3) Hold down the ALT key. Click on the exit button and drag it off the toolbar. Release the ALT key.
4) Switch back to the old FOXUSER.DBF with
SET RESOURCE TO FoxUser.DBF
5) Open the new foxuser file and delete all records with:
SET DELETED OFF
DELETE ALL
6) Now locate the record that contains the report toolbar definition and recall this one:
Locate for ID="TTOOLBAR" and name="Print Preview"
Recall next 1
7) Pack the file, copy the file into your applications directory and rename it to Preview.DBF.
8) Include the Preview.DBF in your project and mark it as include. In your application, before you preview a report, issue the following statement. This activates the modified preview toolbar definition:
SET RESOURCE TO Preview.DBF
After previewing a report, you can switch back to the previous resource file.
Nonetheless, updating to VFP 9 or VFP 8 is still a good idea. Compared to VFP 6 there are so many enhancements in these versions that are worth much more than the upgrade price.
Re: Close system toolbar of foxpro
MarciaAkins
c y h wrote:
I use foxpro 5.0, is there any way to remove the system toolbar
by writing a short program
I am not Christof, but here goes:
LOCAL lnCount,
LOCAL ARRAY laToolbars
DIMENSION laToolBars[ 11, 2 ]
*** Initialize array property with VFP system toolbars
*** and a flag to indicate whether or not they are visible
laToolbars[ 1, 1 ] = 'Form Designer' laToolbars[ 2, 1 ] = 'Standard' laToolbars[ 3, 1 ] = 'Layout' laToolbars[ 4, 1 ] = 'Query Designer' laToolbars[ 5, 1 ] = 'View Designer' laToolbars[ 6, 1 ] = 'Color Designer' laToolbars[ 7, 1 ] = 'Form Designer' laToolbars[ 8, 1 ] = 'Database Designer' laToolbars[ 9, 1 ] = 'Report Designer' laToolbars[ 10, 1 ] = 'Report Controls' laToolbars[ 11, 1 ] = 'Print Preview' FOR lnCount = 1 TO ALEN( laToolbars, 1 ) laToolBars[ lnCount, 2 ] = WVISIBLE( laToolbars[ lnCount, 1 ] ) IF WVISIBLE( laToolbars[ lnCount, 1 ] ) HIDE WINDOW ( laToolbars[ lnCount, 1 ] ) ENDIFENDFOR