Adding a toolbar to a vanilla form

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
    - View Question Does VFP 7.0 have a problem with "not" filters. When I try to insert a not equels filter into the view below I get zip for the results: SELECT Pagelist.*, Skudata.upc, Skudata.minqty, Skudata.shelfpk,; Skudata.casepk, Skudata.dnb, Skudata.itemstat, Skudata.skustat,; Skudata.divnum, Pogjoinitem.pognum, Skudata.custdept, Skudata.skunum,; Skudata.vendornum; FROM progdata!pagelist INNER JOIN progdata!skudata; LEFT OUTER JOIN progdata!pogjoinitem ; ON Pogjoinitem.itemnum = Skudata.itemnum ; ON Pagelist.itemnum = Skudata.itemnum; ORDER BY Pagelist.itemnum The filter looks lile this: WHERE Skudata.itemnum <> Pogjoinitem.itemnum = .T.; I've also tried using the "NOT" button on the JOIN tab but I click it on. Cory Bonallo Tag: Adding a toolbar to a vanilla form Tag: 203751
  - 2
    - VFP9 report field alignment bug I have a detail band field in a VFP9 report (still running in VFP8 mode, no listeners or anything special) that evaluates to strings like "47/$123.50", "15/$50.00", "0/$0.00", "818/$3,996.00" etc. These strings are all fully trimmed and the report field is set to right justified, yet the those fields in the detail rows do not line up on the report preview - the right edges from one row to the next are misaligned by almost the full width of a zero. Fortunately, they line up much better - but not perfectly - when printed. Is this something I should report as a bug before release? To whom, and how? Maybe it's too difficult, or too late, to fix. Tag: Adding a toolbar to a vanilla form Tag: 203750
  - 3
    - Mousepointer on a grid This isn't a big deal but I would like to set the mousepointer for a grid. I noticed that it is only settable for the grid and the textboxes in the grid. I changed these to a regular pointer but it doesn't seem to work the way I want it. I want a normal pointer as move across the grid but it always shows the I cursor. Because the grid is there for the user to select a record they want to edit, it makes no sense to me that this should be an I. Also I would like to change the cursor for the grid header but that too does not have a property for the mouse pointer. Is there another simple way to change the cursor? -- Altman VFP8 SP1 Tag: Adding a toolbar to a vanilla form Tag: 203747
  - 4
    - Multi-thread Can anyone explain me how to convert from .EXE to a multithread option. What are pre-requisites for the same. Tag: Adding a toolbar to a vanilla form Tag: 203738
  - 5
    - Import from ... gives an error (Excel format) VFP 8.0 I try this command import from "C:\test\Articles_vyncb2-3-4.xls" type xl8 on the Excel file included in this archive http://adsl.ineo.be/Articles_vyncb2-3-4.zip I get the following error message : "Microsoft Excel file format is invalid". When i open this file in Excel, it appears correctly without any error message. What could be done ? Thanks in advance for your help, Kind regards, Guy Tag: Adding a toolbar to a vanilla form Tag: 203736
  - 6
    - Resolving relative filenames from project Hello, is there an easy way I can resolve the relative filenames in a project table to the full path so I can list all the source files and their full path in a project? eg: I have a project: "j:\dev\costing\kmcost.pjx" In that table, the first record has a name field of "j:\dev\costing\kmcost.pjx". There are also a bunch of source files with names such as "..\\common\c_det3.prg" Is there an easy way to resolve that to "j:\dev\common\c_det3.prg" or do I have to parse the ".." stuff myself? -- TIA Andrew Howell Tag: Adding a toolbar to a vanilla form Tag: 203732
  - 7
    - How to remove trailing blank lines (CR/LF) from memo field Does anyone know how to programatically remove blank lines from the end of a memo field? Sometimes my users will hit return in a memo field after the end of the data and this causes blank lines on reports. I have tried several suggestions found on Google groups archive but no success. Tried all the trim(s) and no luck Thanks in advance. Brian Hiatt Collectorpro Software Group, Inc. www.collectorpro.com Tag: Adding a toolbar to a vanilla form Tag: 203722
  - 8
    - Discussions forword mail hi sir. how can i receive all these Discussions to my email homoss1978@hotmail.com thanks mohamed Tag: Adding a toolbar to a vanilla form Tag: 203718
  - 9
    - landscape mode I'm using VFP6 SP5, windows all, local and network computers I need print using @..,.. say commands at landscape mode How could I set it programmatically ?? Alkots Tag: Adding a toolbar to a vanilla form Tag: 203712
  - 10
    - reports at run time Dear sirs I'm trying to create reprts at run time, i'm using the following command CREATE REPORT myReport FROM table1 but actually i want to change the labels of the fields which appear in the report i don't know how can i do that??? thanks Mohammed Tag: Adding a toolbar to a vanilla form Tag: 203711
  - 11
    - VFP8 Transparent GIFs not displaying transparent! Some of our images on button controls which display fine in VFP7, display with a white background in VFP8. I've used photoshop to make sure the GIFs are transparent and in Windows Explorer they look absolutely fine. I'm not using any Windows XP themes. The images that look ok are all old VFP bitmaps but according to Photoshop bmps can't be transparent??? Can anyone suggest any possible solutions? Thanks for any help, Bernie Tag: Adding a toolbar to a vanilla form Tag: 203702
  - 12
    - hyperlink Hi, I'd like to use the hyperlink property in textboxes for email addresses in our software. However for this to work the user has to type "mailto:" before the address. Is there away to avoid, so the hyperlink works when the user just types the mail address ?? thanks in advance. Xavier, CPS Tag: Adding a toolbar to a vanilla form Tag: 203699
  - 13
    - Multiselect Listbox woes I am again kicking myself for trying to use a multiselect listbox due to it's unreliable behavior. Here's my latest discovery: When the user selects, say 4 or 5 items in the list box using Ctrl+Click, then tabs to another control or clicks on another control, then tabs back to the listbox, all of the previously selected items are cleared. Huh!? How could this possibly be the desired behavior of this control? This happens in both VFP6 SP5 and VFP8 SP1. Haven't tried it in the VFP9 beta yet. Is the only way around this loss of user input to keep a separate array of the selected items, then when the control gets focus to re-select them? Then of course you have the hassle of the difference between tabbing to the list and clicking on the list... ugh. -- TRW _______________________________________ My e-mail: t r w 7 @ i x . n e t c o m . c o m _______________________________________ Tag: Adding a toolbar to a vanilla form Tag: 203685
  - 14
    - Web based Inventory/Tool/Equipment.... a company asked me about a web-based Inventory/Equipment/Tool Crib application that can handle three equipment issuing centers where a customer job can have equipment sent from any of the three locations. Know of a place to start? Tag: Adding a toolbar to a vanilla form Tag: 203675
  - 15
    - VFP 6: Cut/Copy of Output I wrote a small test program which outputs to _screen. I decided that I would like to copy this to a file. Unfortunately, I can not cut/copy this text. If I send the output to a form, I can not cut/copy from there either. For this case, I can simply set alternate or I can output to a editbox, but I would like a more general solution to this problem. I have had this general problem in the past with other output. One example of this is the text on a message box for which neither the alternate nor editbox approaches apply. Yes, I can cut/copy as graphics, but is there a way to capture screen/form output text AS TEXT? I am not concerned if I lose graphics content: I simply want the text. Sincerely, Gene Wirchenko Computerese Irregular Verb Conjugation: I have preferences. You have biases. He/She has prejudices. Tag: Adding a toolbar to a vanilla form Tag: 203674
  - 16
    - SQL - APPEND How do I append using a odbc connection to a IBM iSeries database from a foxpro table/cursor. Aron Tag: Adding a toolbar to a vanilla form Tag: 203671
  - 17
    - Intellisense with azerty I found a topic about this subject in a newssearch, but there was no solution. Now i have the same problem. I use foxpro 2 weeks now. I got an azerty keyboard. Intellisense pops up by using: -capslock and the . key (. is the uppercase char of the key in azerty) -the . key of the numpad Intellisense DOESN'T popup when i use: -SHIFT and the . key (remember it's the uppercase char i need) I tried using numeral key remappers and macro players, but they don't seem to have a solution for me to use the shift-. combo VFP is the only development environment I have had this problem with. Anyone know of a solution for this problem ? There must be more azerty Fox users. Tag: Adding a toolbar to a vanilla form Tag: 203669
  - 18
    - PageFrame Bug When you add a pageframe without tabs to a container class ... Height is allowed to be less than 30, but when the class is saved and then reopened, you will get an error saying that the height is too small. You must then hack the VCX and correct the height in order to open the class in the designer. First, this is a bug. The height should not be checked when tabs are off. Second, I really hate it when I get an error like this, and then that's it. VFP doesn't try to open the VCX. It leaves you hanging, with no choice but to hack the changes. Why doesn't VFP just open the file? Just my two cents. Michael Wheat Tag: Adding a toolbar to a vanilla form Tag: 203666
  - 19
    - fatal error while building project Hi Friends I'm trying to build project and getting fatal error(C5) error and closes foxpro the error is. **** Fatal error: Exception code=C0000005 @ 30/11/2004 04:46:12 PM. Error log file: C:\Program Files\microsoft visual foxpro 8\vfp8err.log Called from - build line 191 {e:\vssshadow806\jab\develop\build.prg e:\vssshadow806\jab\develop\build.fxp} Called from - vbuild line 100 {e:\vssshadow806\vip\develop\vbuild.prg e:\vssshadow806\vip\develop\vbuild.fxp} ***** actual line of code that causing the error is BUILD PROJECT (lcProjName) &lcCompile FROM (FULLPATH ('main.prg')) when i opened .err file i see compiling e:\vssshadow806\vip\tx\tx.mpr I thought there's problem in the menu so i opened it manually and did generate menu which was fine. I tried rebuild again but same error.so this time i excluded menu from project and now .err file contains something like compiling e:\vssshadow806\vip\console\getwaiting.prg I even excluded that prg from project but getting different file name in .err file. so i realized the error in .err file is misleading. is there anyway to trace what causing the fatal error !! I tried deleting foxuser files and even rebooting the machine to no avail. Thanks for ur help -- cheers Tag: Adding a toolbar to a vanilla form Tag: 203664
  - 20
    - remote views vs spt I've been trying unsuccessfully to create a SQL Server remote view on a query like this (simplified): SELECT events.timeslot, events.leader1, SUM(IIF(attendance.paymethod = 'CASH' AND NOT attendance.reversed, attendance.amount, $0) AS cashrec FROM events LEFT OUTER JOIN attendance ON events.eventid = attendance.eventid WHERE events.startdt >= ?startDate AND events.startdt <= ?endDate GROUP BY events.leader1, events.timeslot This gets SQL error messages. I've tried using T-SQL too, like this: SUM(CASE WHEN attendance.paymethod = 'CASH' AND attendance.reversed = 0 THEN attendance.amount ELSE $0.00 END) AS cashrec ... but this gets VFP error messages. Is it possible to make a remote view like this or should I give up and use SPT? Tag: Adding a toolbar to a vanilla form Tag: 203661
  - 21
    - OT: Wizards 5 points for the first person who can remember the first Microsoft program to use "wizards". -- Regards Darren Woodford - MCP, MCSE Woodford Computer Systems Ltd http://www.woodfordcomputers.co.uk http://www.accountancy-software.co.uk/pegasus-opera-ii/pegasus-opera-ii.php Tag: Adding a toolbar to a vanilla form Tag: 203651
  - 22
    - Help debugging FP COM Server... Hi, I've have a FoxPro (FP) project that generates a COM Server which I can build/compile with debug information and register (using /regserver). Now I would like to startup another executable (in my case a C++ program which uses the FP COM Server type library) which calls routines in the FP code. I know how to set a breakpoint in FP, but how do I start the other executable in such a way that FP (debugger) breaks when reaching the breakpoint? I thanks in advance for all replies. /Michael PS. Any possible tricks involving Visual Studio for this kind of debugging? Tag: Adding a toolbar to a vanilla form Tag: 203650
  - 23
    - weird objtoclient() Hi (again) (It's seems that I'm getting all the weird stuff this week...) I have a textbox which in the keypress (Shift+F5) event I call a class.method to translate it's value. When the word to translate isn't possible (unknown word,misspelled...) another "translateform" with a grid is shown with other possible words and the possibility to add / alter the word or cancel it. So far so good and everythings works fine. Except I want it just underneath the textbox with the "problem" word. In the init of the "translateform" I place this so the "translateform" is placed right underneath the word this.Left = lcallform.left + OBJTOCLIENT(lcallobject,2) + (lcallobject.selstart * FONTMETRIC(6 , "arial", 8)) +5 this.top = lcallform.top + OBJTOCLIENT(lcallobject,1) + lcallobject.height + 32 when the first unknown word in the textbox is found and the "translateform" is shown everything is ok. In the same translatingloop of the keypress when there is another unknown word then ObjToClient() (Top and Left) returns suddenly BOTH Exactly 4000 !? All the other values lcallform and lcallobject are correct it returns the right objectreference and left and right and so on. And I never ever have any form that is that wide ? (sometimes I wish I could have ...) to check where the problem is I've place this in the translateform.init. So i know exactly that only objtoclient() is given me "weird" results. MessageBox(lcallform.name+CHR(13)+"left "+TRANSFORM(lcallform.left)+CHR(13)+" top "+TRANSFORM(lcallform.top)+; lobject.name+CHR(13)+"left "+TRANSFORM(lobject.left)+CHR(13)+" top "+TRANSFORM(lobject.top)+CHR(13)+; "objtoclient "+CHR(13)+"left "+TRANSFORM(OBJTOCLIENT(lobject,2))+CHR(13)+" top "+TRANSFORM(OBJTOCLIENT(lobject,1))+CHR(13)+; "this "+CHR(13)+"left "+TRANSFORM(this.left)+CHR(13)+" top "+TRANSFORM(this.top) ) Anybody an idea or maybe a workaround ? regards christophe In case you want to have a look at the translating code (it's more a replacing code) here it goes : Lparameters naartaal,origfield Local origtext, newtext,totwoord,curwoord,origfielda,lijstmeer,lijstmeerstd If .Not. Empty(This.Value) oldseltaal = Alias() ok=chkopen(f_vertaal,"translate") Do Case Case naartaal="NL" taal_="woord1" skip_="skip1" Case naartaal="EN" taal_="woord2" skip_="skip2" Case naartaal="DU" taal_="woord3" skip_="skip3" Case naartaal="FR" taal_="woord4" skip_="skip4" Otherwise taal_="woord2" skip_="skip2" Endcase ncurlet = 0 curwoord = "" skipwoord = .F. nieuwwoord = .F. origtext = Upper(Alltrim(This.Value))+" " lenorigtext = Len(origtext) origfielda = Substr(origfield,1,At(".",origfield,1)-1) *loop through the sence to translate each individual word Do While ncurlet <= lenorigtext ncurlet = ncurlet + 1 curlet = Substr(origtext,ncurlet,1) Do Case Case Isdigit(curlet) *when there is a digit in the word => no translation skipwoord = .T. Case Isalpha(curlet) .Or. curlet $ "-'" *" ' "and " - " is can be handled in 1 word curwoord = curwoord + curlet Otherwise *all other signs take this as the end of a word and start a new word nieuwwoord = .T. Endcase If nieuwwoord If .Not. skipwoord .And. .Not. Empty(curwoord) .And. Len(curwoord) > 1 newwoord = "" *lookup the dictionary table "translate" If Seek(curwoord,"translate","woord1") If translate.skip1 *no translation neccesary in any language skipwoord = .T. Else *no translation possible in a language skipwoord = translate.&skip_ Endif Endif If .Not. skipwoord newwoord = Upper(Alltrim(translate.&taal_)) lencurwoord = Len(curwoord) If Empty(newwoord) *no translation found *ask what to do This.SelStart = ncurlet - lencurwoord -1 &&begin pos lijstmeer = "Add Woord;Other Word;Skip Word;" *mymessagebox("WHEN FIRST TIME = OK, SECOND TIME ?!? Objecttoclient returns 4000") Do Form vertaalmeer Name "vertaalmeer" With This,Thisform,lijstmeer,curwoord,taal_ To newwoord Release vertaalmeer newwoord = Upper(Alltrim(newwoord)) Else *check if more possiblities nlijstmeer = 0 lijstmeer="" Do While curwoord = translate.woord1 clijstwoord = Upper(Alltrim(translate.&taal_)) If .Not. Empty(clijstwoord) nlijstmeer = nlijstmeer + 1 lijstmeer = lijstmeer + clijstwoord + ";" Endif Skip In "translate" Enddo If nlijstmeer > 1 *more translations possibilities found This.SelStart = ncurlet - lencurwoord -1 &&begin pos lijstmeer = lijstmeer + "Add Woord;Other Word;Skip Word;" *mymessagebox("WHEN FIRST TIME = OK, SECOND TIME ?!? Objecttoclient returns 4000") Do Form vertaalmeer Name "vertaalmeer" With This,Thisform,lijstmeer,curwoord,taal_ To newwoord Release vertaalmeer newwoord = Upper(Alltrim(newwoord)) Endif Endif *replace word with translation If .Not. Empty(newwoord) *alter cur pos with length newword If .Not. Empty(origfield) *textbox is in grid Replace &origfield With Stuff(Evaluate(origfield),ncurlet-lencurwoord,lencurwoord,newwoord) In &origfielda origtext = Upper(Alltrim(Evaluate(origfield)))+" " Thisform.gridpapyrus.Refresh Else *textbox is on a form This.Value = Stuff(Evaluate(origfield),ncurlet-lencurwoord,lencurwoord,newwoord) origtext = Upper(Alltrim(This.Value)) + " " Endif ncurlet = ncurlet - lencurwoord + Len(newwoord) lenorigtext = Len(origtext) Endif Endif &&not skipwoord Endif &&.not. skipwoord .and. .not. EMPTY(curwoord) .and. LEN(curwoord)>1 skipwoord = .F. nieuwwoord = .F. curwoord = "" newwoord = "" lencurwoord = 0 Endif &&nieuwwoord Enddo &&ncurlet <= LENorigtext Select &oldseltaal Endif Tag: Adding a toolbar to a vanilla form Tag: 203648
  - 24
    - Microsoft Web browser control I have added a Microsoft Web Browser control to a form. Whenever I open the form I get 0x80004005 unspecified error although the control still naviagates to the page required. Does anyone know why? I am using vfp8 sp1 Thanks in advance Dave Tag: Adding a toolbar to a vanilla form Tag: 203643
  - 25
    - Designing a system In my college days I learnt DBIV and Pascal. We were taught in those days to design in the following way: 1. JSP Diagrams. 2. Pseudo Code 3. Real Code. In our new OOP world JSP Diagrams don't seem to work. Instead I increasingly find myself just coding right off. I am sure there is a better methodology. What are you doing? How does UML fit in to all this? How do you define the flow of your application and the relationships between classes. Do you use a software design tool such as Rose or Visio? I used to use a progam called EasyCASE but I don't even know if it is still around. -- Regards Darren Woodford - MCP, MCSE Woodford Computer Systems Ltd http://www.woodfordcomputers.co.uk http://www.accountancy-software.co.uk/pegasus-opera-ii/pegasus-opera-ii.php Tag: Adding a toolbar to a vanilla form Tag: 203642
- Next
  - 1
    - CREATE SQL VIEW problem I have the following short VFP8 program: one_cust = '1234' CREATE SQL VIEW cust_view Remote CONNECTION AS400 AS ; SELECT cust_code,cust_name; FROM customer; WHERE cust_code =one_cust /Memo: customer is an IBM AS400 file/ If I run this program I get an error message: "ONE_CUST" is not part of the table. If I use a constans /....WHERE cust_code = '1234' the program works well. My question is : Is it possible to use a variable or not? Where did I make a mistake? Another question: How can I create a LOGICAL calculated field in this SELECT command? Could anyone help me? Thanks in advance. -- Sandor Tag: Adding a toolbar to a vanilla form Tag: 203619
  - 2
    - Accessing the menu (under the icon at the left) off a form Hi Is it possible to add options to the menu that appears when clicking the form's icon at the left of the form bar, under VFP 6? This menu (usually) contains only: Restore Move Minimize -------- Close Thanks, Demetrios, Greece Tag: Adding a toolbar to a vanilla form Tag: 203617
  - 3
    - Remote view no buffering? Hi. Is there a way to have a remote view accessing a SQL 2000 database without any buffering. If so, how do you set it up? Many thanks Shahriar Tag: Adding a toolbar to a vanilla form Tag: 203616
  - 4
    - Calculated Fields Hi Is it possible to have a calculated field in VFP. I would like a field to sum two fields in the same record is this possible?. I am useing V6 but will soon be changing to V8 or 9. Kind regard, -- warrenjw warrenjw@internode.on.net Tag: Adding a toolbar to a vanilla form Tag: 203613
  - 5
    - Transparent Forms I was experimenting with making a form transparent. I seem to be able to do that if I create a prg file and define a form class, etc... however, if I manually create a form and place the following code in a command button my form does not become transparent. The code is as follow: DECLARE integer GetWindowLong IN WIN32API integer hwnd,integer nIndex DECLARE Integer SetWindowLong IN WIN32API integer hwnd,integer nindex, integer dwNewLong DECLARE integer SetLayeredWindowAttributes IN WIN32API integer hwnd, integer crKey, ; short bAlpha, integer dwflags LOCAL xStyle xStyle = GetWindowLong(thisform.HWnd,-20) xStyle = BITOR(xStyle,0x8000) =SetWindowLong(thisform.HWnd,-20,xstyle) =SetLayeredWindowAttributes(thisform.HWnd, 0,128,2) Many thanks in advance. Shahriar Tag: Adding a toolbar to a vanilla form Tag: 203602
  - 6
    - Creating Excel Sheets I am using some recycled code from the MSDN for creating Excel sheets (I cannot find the original msdn page). basically this code creates an object named oExcelSheet with this object (yes I am aware there is more to it) I can insert data into the sheet by doing oExcelSheet.cells(5,2).value = "Ref Month". So I understand how it basically works, where it says .value I can change it to .font to do different things to the sheet. Does anyone know where I can find all the different commands? IE. .cells, .value and all the good ra ra? Tag: Adding a toolbar to a vanilla form Tag: 203599
  - 7
    - VFP 6 on Windows Server 2003 Just to make sure, does VFP 6 run on Windows Server 2003? Thanks, Gar Tag: Adding a toolbar to a vanilla form Tag: 203595
  - 8
    - Set different printer. I am trying to change printers so the user can select a button on a frame and send a report to a black and white printer or select a different button to send the report to a color printer. Now when I use the command SET PRINTER TO NAME GETPRINTER() which comes back and allow the user to select which printer to use. That works fine. But when I try and change the printer using the command set printer to \\server\hp750 and then send a print command the printer spools the report but just sets there. Now if I type the command SET PRINTER TO it tries to send data to the printer but then the printer just locks up. Can anyone help me out and show me how to just switch printers and send a report to a different printer than the default one and then return the printer to the default one?? TonySper Tag: Adding a toolbar to a vanilla form Tag: 203592
  - 9
    - Copy File - Is it necessarily lower case? I've set up a program that names files from metadata - file names I make up and place in character fields in a table. I'm finding that the VFP 7.0 COPY FILE command is creating all lower case file names. Is there any way I can proper the file names other than doing it manually? Thanks! Tag: Adding a toolbar to a vanilla form Tag: 203591
  - 10
    - createobjectEX hi i need to retrieve data from the server's registry it is possible to do with createobjectEX from the client computers ? thanks -- atte, Hernán Castelo SGA - UTN - FRBA Tag: Adding a toolbar to a vanilla form Tag: 203581
  - 11
    - PARENT is not an object (Vfp bug?) Hi, I got this error on the last line ?! anybody an idea. procedure selectme Lparameters loselectme If TYPE("loselectme") <> "O" .or. isnull(loselectme) Return .F. Endif lSelectLongName = loselectme.Parent.Name + loselectme.Name ... I can say a lot about this on how it works and at the same moment I don't have any clue ! This seems to bug a Vfp bug ?! Because the code is quite clear I think. So anyway I will try to explain the whole picture. This procedure is from a "multiselectme"class I created. I place this class on a form and call it when I want to visually highlight an object. (I visually highlight one or more objects by adding on each corner a highlighter =small rectangular shape in a bright color) the procedure is called something like this : procedure myobject.rightclick thisform.multiselect.selectme(this) *dosomethingelse thisform.multiselect.deselectme(this) I only get this error when the user Rclicks on the object when the form is not active ! So when the user first clicks on the form to activate it and then Rclick on the object I don't get an error. But of course I can't teach my user to do it this way. So I tried to activate the form in the Rclick prior to thisform.mulitselect.selectme but whether I use This or Thisform I get the same error. So has anybody an idea ? thanks in advance regards christophe Tag: Adding a toolbar to a vanilla form Tag: 203572
  - 12
    - Trip to Disney GET YOUR TRIP TRIPS TO DESNEY TRIPS TO HAWAII http://travelexpert2004.us http://travelexpert2004.biz http://gotraveling85.us Tag: Adding a toolbar to a vanilla form Tag: 203562
  - 13
    - _CRYPT problem between Win2000 and XP I've got the same problem as other users have found when trying to use the _crypt.vcx class and getting different encrypted strings between the 2OS's. On the Win2K machine , I had 2 references. One to the rsabase.dll in the Microsoft Base Cryptographic Provider v1.0 key and the other to the rsaenh.dll file in the Microsoft Enhanced Cryptographic Provider v1.0 key So I changed the Base one to also point to the rsaenh.dll file I also changed the line in the wincrypt.h file to... #DEFINE dsMS_DEF_PROV_A "Microsoft Enhanced Cryptographic Provider v1.0" After compiling with these changes it still did not work. I noticed the dll on the Win2K machine (SP4), was older than the one on the XP Home machine (SP1), so I tried to install the newer one on the 2000 machine, but Windows would not let this file get updated. Does anyone have any ideas on why they don't encrypt to the same result? With Thanks, Chris Tag: Adding a toolbar to a vanilla form Tag: 203554
  - 14
    - Disabled Images in Menus When disabling items in menus, how do I get a disabled image to be displayed? All I get is a grey box. PICTRES seems to do the job for UNDO, REDO etc, but what about my own menu items and images? Is there a Picture Resource file that I need to create? With Thanks, Chris Tag: Adding a toolbar to a vanilla form Tag: 203548
  - 15
    - TABLEUPDATE returns .T. but fails to change data in base table I am using the line ... lSuccess = TABLEUPDATE( .T., .T. ) and it is returning True. However when I check the base table the data has not changed. Here is some of the SQL code generated for the view... SELECT User_register.*; FROM ; user_register User_register; WHERE User_register.user_id = ( ?nUserID ) DBSetProp(ThisView,"View","SendUpdates",.T.) DBSetProp(ThisView,"View","BatchUpdateCount",1) DBSetProp(ThisView,"View","CompareMemo",.F.) DBSetProp(ThisView,"View","FetchAsNeeded",.F.) DBSetProp(ThisView,"View","FetchMemo",.F.) DBSetProp(ThisView,"View","FetchSize",100) DBSetProp(ThisView,"View","MaxRecords",1) DBSetProp(ThisView,"View","Prepared",.F.) DBSetProp(ThisView,"View","ShareConnection",.T.) DBSetProp(ThisView,"View","AllowSimultaneousFetch",.F.) DBSetProp(ThisView,"View","UpdateType",1) DBSetProp(ThisView,"View","UseMemoSize",255) DBSetProp(ThisView,"View","WhereType",3) DBSetProp(ThisView+".user_id","Field","DataType","I") DBSetProp(ThisView+".user_id","Field","UpdateName","user_register.user_id") DBSetProp(ThisView+".user_id","Field","KeyField",.T.) DBSetProp(ThisView+".user_id","Field","Updatable",.T.) DBSetProp(ThisView+".available_status","Field","DataType","L" DBSetProp(ThisView+".available_status","Field","UpdateName","user_register.available_status") DBSetProp(ThisView+".available_status","Field","KeyField",.F.) DBSetProp(ThisView+".available_status","Field","Updatable",.T.) ..... the rest of the fields are set as... DBSetProp(ThisView+".available_status","Field","KeyField",.F.) DBSetProp(ThisView+".available_status","Field","Updatable",.T.) I have MULTILOCKS set to ON Buffering is set to 3 : Optimistic Row Buffering (The view will only contain one record to update) The weird thing is that if I open the view from the Command window, change some of the data and type the TABLEUPDATE line in, then it successfully updates the base table, so the view properties seem to be OK. I just can't think why it's failing in my app. Any help will be greatly appreciated. Chris Tag: Adding a toolbar to a vanilla form Tag: 203547
  - 16
    - VFP 9 & 6 compatibility question I finally decided to download VFP 9. Looks great. A couple of questions. Are the compiled programs (FXP) compatible between VFP 6 and 9 or should I make copies of my common PRGs in ordrer to protect them, while making tests. Menu files differ, though it seems that if I do not modify the menu with 9.0 will not have any problems. I didn't like GetDir(). Still old fashioned. I hope that they will change it. Demetrios, Greece Tag: Adding a toolbar to a vanilla form Tag: 203546
  - 17
    - Basics about opening a database VFP8/SP1 Hi all! I have problems with opening a database shared. An example; I open my project (file, open and select esdab.pjx) with databases, tables, forms, menus and so on. Nothing else than open the project and the projectmanager pops up. In VFP´s combo in the upper edge I can see that the database 'pu' becomes open. In the datasessionwindow I can see that no table is open. In the comandwindow ? ISEXCLUSIVE('pu',2) returns .T. Q1 Why is the database opend? Q2 Why is it opend exclusive? This brings me the problem I can´t open the database again shared. Any help in this would be very appreciated. Regards Christina Tag: Adding a toolbar to a vanilla form Tag: 203543
  - 18
    - Using FoxPlus with Win XP Professional How can I get FoxPlus to operate in Win XP professional. I have it loaded in a directory "fox" using the CMD.com window but when entering the "foxplus" command the program goes into a loop and displays "position off the screen" . FoxPlus works well in Windows 2000 without any modifications. Any help you can give me would be greatly appreciated. Thanks. krausetv@comcast.net -- Steve www.televendtrionics.com Tag: Adding a toolbar to a vanilla form Tag: 203541
  - 19
    - 0x80070005 after installed SP2 of WinXP on server. Client-Server aplication VFP 6.0sp5 with remote automation on server with WinXP and clients with WinMe returns 0x80070005 into the client's screen, after upgrading server to XPsp2. Tag: Adding a toolbar to a vanilla form Tag: 203535
  - 20
    - Report Dear sirs Is there any way that I can create a full report at run time where in my project, the user can choose the table he wants then clicks on a button create Report How can I do such a thing??? thanks Mohammed Tag: Adding a toolbar to a vanilla form Tag: 203533
  - 21
    - Graph controls We are currently using MSGRAPH to present some simple graphs within our application. There have been some new requirements requested that are not available within MSGRAPH and hence we are looking for an alternative graph method. What graph controls are people using instead of MSGRAPH? the facilities we require are "mouse-awareness" so we can display the current value on a plot or some additional application data. We also would like to be able to provide 'graph templates' that define things like graph formats etc. We need to be able to support multiple axes. thanks pete Tag: Adding a toolbar to a vanilla form Tag: 203531
  - 22
    - Error Creatin FORM I have created a form in one system. Later on the same form was modified on other system. After the complete modification. I form.sct & form.sct file on the previous system. When i am running the command do form uccmast i am getting the error message as 'error loading file - record no.174 < one of its members>.parent;class name is invalid' what could be the error. I have renstalled the VFP on previous system after completely deleting the vfp programme folder. After this only the error is occuring. I have done copying procedure earlier also, but have not got such type of errors. Tag: Adding a toolbar to a vanilla form Tag: 203528
  - 23
    - DE bug? In the de of a form, I open a remote view with alias teacher1, and again with alias teacher2. In form.load is this code: SELECT teacher1 INDEX ON personid TAG personid SELECT teacher2 INDEX ON personid TAG personid The second INDEX statement gives the message "personid already exists, overwrite it?" This is a different cursor. I shouldn't get such a message. If I respond Yes, teacher2 is indexed and the index on teacher1 is removed! Is it me? This is VFP9 public beta. Tag: Adding a toolbar to a vanilla form Tag: 203518
  - 24
    - How many indexes is too many? Reading some postings, they mention not to use to many indexes (gets buggy). One of our VFP6 tables has 85 fields and ~ 120,000 records and growing. We do a variety of queries on many fields. Currently we have 8 indexes and would like to add a few more. I was wondering what a safe # of indexes is without compromising anything.? Any input/experiences is appreciated. TIA Mike Tag: Adding a toolbar to a vanilla form Tag: 203516
  - 25
    - list box bug ? Hi all vfp8, sp1 I have just run across what appears to be a bug and would like others to confirm it (maybe everybody already knows about this <g>) List box this.rowsourcetype = 5 this.rowsource = array (this.alist) 3 columns in array source this.columncount = 0 or 1 (only want 1 to show) this.boundto = .t. (only because it is our framework default) this.controlsource = [none] Result: the value of This.List[This.ListIndex,2] or [...,3] = the same value as [..., 1] !!! if I change the columncount to 3, all is OK (after finding this, I realized that in all the years I have been doing this since 3.0, I have never had more colunns than I have displayed or set width to 0) al Tag: Adding a toolbar to a vanilla form Tag: 203510

Can anyone tell me if it is at all possible to dock a toolbar on a
regular, vanilla, run-of-the-mill form? I have tried dabbling with
formsets, but it seems that the foxpro toolbar only likes to be docked
onto the 'main frame'. I say 'main frame' because my experience is
from the MFC world.

Thanks for your help!

Re: Adding a toolbar to a vanilla form by Anders

Anders
Wed Dec 01 17:12:06 CST 2004

Yes it's possible to have Toolbar in a Top Level form (Form.ShowWindow=2).
I'd have to check the annals to see exactly how it was done. A CreateObject
in Form.Activate or something like that. I'll try and find it or someone
beats me to it.
-Anders

"Aaron Hudon" <xyz123@shaw.ca> wrote in message
news:790b609a.0412011416.26e8ba8f@posting.google.com...
> Can anyone tell me if it is at all possible to dock a toolbar on a
> regular, vanilla, run-of-the-mill form? I have tried dabbling with
> formsets, but it seems that the foxpro toolbar only likes to be docked
> onto the 'main frame'. I say 'main frame' because my experience is
> from the MFC world.
>
> Thanks for your help!

Re: Adding a toolbar to a vanilla form by Anders

Anders
Thu Dec 02 07:04:16 CST 2004

"Aaron Hudon" <xyz123@shaw.ca> wrote in message
news:790b609a.0412011416.26e8ba8f@posting.google.com...
> Can anyone tell me if it is at all possible to dock a toolbar on a
> regular, vanilla, run-of-the-mill form? I have tried dabbling with
> formsets, but it seems that the foxpro toolbar only likes to be docked
> onto the 'main frame'. I say 'main frame' because my experience is
> from the MFC world.
>
> Thanks for your help!

oform=create('formclass')
oform.show
read events

define class formclass as form
showwindow=2
otool=null
function init
this.visible=.t.
this.otool=createobject('toolbarclass')
this.otool.show
this.otool.dock(2)
function destroy
clear events
enddefine

define class toolbarclass as toolbar
showwindow=1
dimension aTools(6,2)
function init
for i = 1 to 6
ocmd="cmd"+tran(i)
osp='sp'+tran(i)
this.addobject(ocmd,'commandbutton')
this.addobject(osp,'separator')
this.atools(i,1)=this.&ocmd
this.atools(i,2)=this.&osp
with this.atools(i,1)
.caption=ocmd
.height=30
.width=60
.visible=.t.
endwith
next
enddefine

*-Anders