ProFox July 2016

profox@leafe.com

58 participants
62 discussions

Checking for All-Different Characters
by Gene Wirchenko 17 Jul '16

17 Jul '16

Hello: I write a logic/math puzzle each week. They appear in my blog (http://genew.ca/) and two local newspapers. Here is the latest problem: "Consider a date in YYYY-MM-DD format. What is the next date where all eight digits will be different?" I solved this by hand. I decided to verify my solution with a program. I often cook up something in GW-BASIC, but since VFP has date functions, I decided to go with it. It was very easy to set up the framework of the loop. What threw me for a loop is how to check that all of the digits are different. I ended up converting the date to string with dtos() and then testing the string with a rather ugly-looking condition. Is there something faster? ***** Start of Code ***** * 16s-16.prg * Date Puzzle * Last Modification: 2016-07-17 * * Consider a date in YYYY-MM-DD format. What is the next date where all * eight digits will be different? ? "*** Execution begins." ? program() close all clear all set talk off set exact on set century on set date ansi * local startdate startdate=date() ? "Start Date: "+transform(startdate) local trydate, looping trydate=startdate looping=.t. do while looping local trydtos trydtos=dtos(trydate) if right(trydtos,4)="0101" ? "Working on year "+left(trydtos,4) endif if; iif("0"$trydtos,1,0)+; iif("1"$trydtos,1,0)+; iif("2"$trydtos,1,0)+; iif("3"$trydtos,1,0)+; iif("4"$trydtos,1,0)+; iif("5"$trydtos,1,0)+; iif("6"$trydtos,1,0)+; iif("7"$trydtos,1,0)+; iif("8"$trydtos,1,0)+; iif("9"$trydtos,1,0)#8 trydate=trydate+1 else && solution looping=.f. endif enddo ? "Solution is "+transform(trydate)+"." * close all clear all ? "*** Execution ends." return ***** End of Code ***** Sincerely, Gene Wirchenko

1 0

Mscomm32.ocx on Windows 7?
by joceravolo＠yahoo.com 17 Jul '16

17 Jul '16

Hi All, Did you ever use the Mscomm32.ocx that ships with VFP9 on Windows 7?I wonder if that's possible. Thanks, Jose. --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

3 2

[NF] Windows 10 god mode.
by Alan Bourke 15 Jul '16

15 Jul '16

Any Windows 10 users might find this useful: -- Alan Bourke alanpbourke (at) fastmail (dot) fm --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

3 3

[NF} Windows 10 god mode #2
by Alan Bourke 15 Jul '16

15 Jul '16

Let's try that again. http://www.techrepublic.com/article/how-to-create-a-custom-folder-to-access… You basically create a folder with a certain name and it gets populated with over 200 shortcuts for various configuration items. -- Alan Bourke alanpbourke (at) fastmail (dot) fm --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

2 1

more on PDF and VFP
by rafael copquin 15 Jul '16

15 Jul '16

I was just fooling around and did the following: (I have the free version of FoxitReader installed in my computer) I created a form and inserted the FoxitReader control which was now available in my PC and named it pdfreader In the click event of a button I put this code: thisform.pdfreader.openFile ('c:\donna\columbia.pdf') It opened the pdf file in the form as expected. Caveat: the FoxitReader menu was also inside the control. This is not ideal, but at least should give some idea on how to deal with the insertable activex controls. Rafael Copquin

6 5

RE: ProFox Digest, Vol 159, Issue 8
by Claude nikula 14 Jul '16

14 Jul '16

Hey Desmond, yes that should do the trick. Here is my C# Example axAcroPDF_MA.setShowToolbar(true); // if you want to include a toolbar axAcroPDF_MA.LoadFile(fileNames[0]); // load pdf file axAcroPDF_MA.Visible = true; Cheers, Claude

1 0

Menu
by Sytze de Boer 14 Jul '16

14 Jul '16

I think I'm going nuts I have created a menu, its called WINB18 I can see the 4 files (mnx,mnt, mpr and mpx) If I issue the command, DO WINB18.MPR, all options on the menu work just fine But, if I load the menu from my MAIN.prg, the menu shows, BUT the only options that fire are those setup as a Procedure. All the options listed under the Submenu are greyed out I've gone to another application I have developed and all is fine with those menus It's only with this one, a new system under development. For the life of me, I can't see what's different. Can anyone help? -- Kind regards, Sytze de Boer --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

4 7

RE: ProFox Digest, Vol 159, Issue 7
by Claude nikula 13 Jul '16

13 Jul '16

You can use the browser control in a VFP form. To test this theory just open your web browser and then open a PDF file it should display properly. if that works for you then that is one solution. Another solution is to use the free Adobe reader control with in a VFP form. I do something like that in one of my C# WinForms desktop applications Cheers

2 1

VFP Display a PDF
by Desmond Lloyd 13 Jul '16

13 Jul '16

Good afternoon, Does anyone have a quick and dirty way to display a PDF from VFP either in a form, or natively using Adobe Reader? Any assistance would be GREATLY appreciated... Regards, Desmond --- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---

7 9

Re: Installed Windows 10 now cannot print landscape to a Microline 321 Turbo 9 pin
by foxdev 11 Jul '16

11 Jul '16

TXVsdGkgY29sb3VyZWQgZG91YmxlIGFuZCB0cmlwbGUgY2FyYm9ubGVzcyBzdG9jayBpcyBhdmFpbGFibGUgZm9yIGxhc2VyIHByaW50ZXJzLiBObyBuZWVkIGZvciBkb3QgbWF0cml4IHByaW50ZXJzIHRvIGFjaGlldmUgdGhhdCBlbmQuwqAKLS0tLS0tLS0gT3JpZ2luYWwgbWVzc2FnZSAtLS0tLS0tLUZyb206IG1ic29mdHdhcmVzb2x1dGlvbnNAbWJzb2Z0d2FyZXNvbHV0aW9ucy5jb20gRGF0ZTogOS8wNy8yMDE2ICAwMzo0MCAgKEdNVCsxMDowMCkgVG86IHByb2ZveHRlY2hAbGVhZmUuY29tIFN1YmplY3Q6IFJlOiBJbnN0YWxsZWQgV2luZG93cyAxMCBub3cgY2Fubm90IHByaW50IGxhbmRzY2FwZSB0byBhIE1pY3JvbGluZQogIDMyMSBUdXJibyA5IHBpbiAKT24gMjAxNi0wNy0wOCAwNDozMiwgQWxhbiBCb3Vya2Ugd3JvdGU6Cj4gSXMgbm93IGEgZ29vZCB0aW1lIHRvIGdldCB0aGVtIG9udG8gbGFzZXI/CgoKSSB3b3VsZCBpbWFnaW5lIHNldmVyYWwgZm9sa3MgSEFWRSB0byBzdGF5IHdpdGggcGluLXByaW50ZXJzIGJlY2F1c2Ugb2YgCnRoZWlyIHRyaXBsaWNhdGUgY2FyYm9uIHBhcGVyIGZvciBhZGRpdGlvbmFsIGNvcGllcy4KCl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fClBvc3QgTWVzc2FnZXMgdG86IFByb0ZveEBsZWFmZS5jb20KU3Vic2NyaXB0aW9uIE1haW50ZW5hbmNlOiBodHRwOi8vbWFpbC5sZWFmZS5jb20vbWFpbG1hbi9saXN0aW5mby9wcm9mb3gKT1QtZnJlZSB2ZXJzaW9uIG9mIHRoaXMgbGlzdDogaHR0cDovL21haWwubGVhZmUuY29tL21haWxtYW4vbGlzdGluZm8vcHJvZm94dGVjaApTZWFyY2hhYmxlIEFyY2hpdmU6IGh0dHA6Ly9sZWFmZS5jb20vYXJjaGl2ZXMvc2VhcmNoL3Byb2ZveApUaGlzIG1lc3NhZ2U6IGh0dHA6Ly9sZWFmZS5jb20vYXJjaGl2ZXMvYnlNSUQvcHJvZm94L2VjZjkyZDI2ZWUyM2E2ZWM5NTgyNzQwNzY4MGQyYWM5QG1ic29mdHdhcmVzb2x1dGlvbnMuY29tCioqIEFsbCBwb3N0aW5ncywgdW5sZXNzIGV4cGxpY2l0bHkgc3RhdGVkIG90aGVyd2lzZSwgYXJlIHRoZSBvcGluaW9ucyBvZiB0aGUgYXV0aG9yLCBhbmQgZG8gbm90IGNvbnN0aXR1dGUgbGVnYWwgb3IgbWVkaWNhbCBhZHZpY2UuIFRoaXMgc3RhdGVtZW50IGlzIGFkZGVkIHRvIHRoZSBtZXNzYWdlcyBmb3IgdGhvc2UgbGF3eWVycyB3aG8gYXJlIHRvbyBzdHVwaWQgdG8gc2VlIHRoZSBvYnZpb3VzLgoKUmVwb3J0IFtPVF0gQWJ1c2U6IGh0dHA6Ly9sZWFmZS5jb20vcmVwb3J0QWJ1c2UvZWNmOTJkMjZlZTIzYTZlYzk1ODI3NDA3NjgwZDJhYzlAbWJzb2Z0d2FyZXNvbHV0aW9ucy5jb20K--- StripMime Report -- processed MIME parts ---multipart/alternative text/plain (text body -- kept) text/html---

4 3

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

ProFox July 2016