I wanted to let everyone know I had a personal life tragedy occur in late 2024. Since then, I have not been able to work on Dori (the current version code name of Visual FreePro). I'm not sure when I'm going to be able to resume because the change to my life is rather substantial (since late...
I had someone contact me recently asking about the status of Visual FreePro, Jr.
I've gone through three iterations of different ways to apply the internal logic and design of Visual FreePro into a new product. I've currently settled on a 4th that I'm developing presently. I'm not sure I'll...
Haven't seen this before. We have a customer that purchased three new 24-CPU Dell machines with Windows 11. The FoxPro apps we have don't allow the combobox dropdowns to work without using the keyboard. You can click on the control to bring up the dropdown list, and then arrow up/down and...
A while back I posted about a tool I found to extract RM/COBOL data files. It doesn't work in all cases, and I've been working on writing a replacement for it. It also mostly works, but is clunky. :-)
Does anybody have experience working with RM/COBOL files and the format of their internal...
In a case like this, how can you know if the parameter was passed in by value or reference?
SET UDFPARAMS TO Value
lcVar = "Hi, mom!"
my_function(lcVar, @lcVar)
FUNCTION my_function
LPARAMETERS tcP1, tcP2
* How to determine if tcP1 was passed by value or reference?
* How to determine if tcP2...
Does anyone ever see this error in Outlook?
It shows the diagonal bar rectangle there above and to the right of the word "Yesterday", and it shows the three dark rectangles directly below Yesterday and above the email item.
I have not switched to the new version of Outlook yet because it...
Does C++ have a way to pass in the default parameter without specifying it? Example:
bool debug_log(char* text, int length, bool lLogAlways = true, SRgb* backColor = NULL, SRgb* foreColor = NULL);
#define debug_log_error(a, b) debug_log(a, b, true, &redColor, &whiteColor)
If I use...
Am going to be creating an x86 assembly class for the 80386 operating environment.
Would anyone from here be interested? It will be a fairly comprehensive class and should be available by September, 2023.
--
Rick C. Hodgin
I'm going to be resuming development on Visual FreePro, Jr. It plans to clone the VFP9 operational environment and add some new functionality. I'm going to be focused on compatibility with existing source code and features presently so that existing code bases will gain a new lease on life...
There's a post in the COBOL General discussion forum:
https://www.tek-tips.com/viewthread.cfm?qid=1821505
It has a Delphi 4 project that will convert DAT files to a flat text file. The source code is written in Delphi / Pascal so I thought I would post a reference here.
--
Rick C. Hodgin
I've been looking for information on the RM/COBOL internal file format to create a utility to extract data. Information on this file format is old, and I've searched through archive.org to look for old mentions on many websites from the 2000s.
I finally found a working solution with Delphi...
@ y1,x1 to y2,x2 PATTERN ... PEN ...
This type of code in FPW 2.6 (and VFP9) will draw a rectangle on the screen within a given set of coordinates. If I execute this code on a converted FPW 2.6 screen in VFP9, it works properly (uses the correct coordinates). However, if I try to convert the...
I have an app.exe created in VFP9. If I go to VFP7's command window and go to that directory type "do app.exe" it runs There is no "app.prg", but instead a "start.prg" that is compiled into "app.exe".
I get a few error messages here and there with properties that didn't exist in 7, such as...
What's the fastest way to take an input string of unknown length, and determine if it ONLY consists entirely of alphanumeric digits?
lcX = ALLTRIM(table.field) && non-binary memo field varying from 0 to ~6,000 bytes
llAN = .t. && flag for "is alphanumeric?"
FOR lnI = 1 to...
If we use RECNO() we get the record number of the row in the table. Is there an equivalent function which gives us the record number of the current record's entry in the current index/tag?
RECNO cField
1 ZEBRA
2 HIPPO
3 DOVE
INDEX ON cField TAG MAIN
ENTRY RECNO cField
1...
In FPW2.6 we have reports that print properly to laser printers and PDF writers. When we switch to VFP9 the ones which were close (within 0.25 inches) on margins in 2.6 now fail to print to some laser printers, but work with PDF writers, reporting detail band 1 too big and the like.
Is there a...
I have a simple screen in FPW2.6. It has some startup code that computes numbers to memory variables. And then on the screen it either SAYs or GETs those values, along with a few labels. And it has a few buttons which respond to activities.
What's happening is one of the GETs is inputting a...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.