Emerson Santon Reed

New ThemedControls version (3.2.0) - Updated

2008-03-27T15:56:00Z

Today I've posted a new ThemedControls version (3.2.0) at VFPX site.

You can download it here.

Changes in this version:

OutlookNavBar
- Implemented a lot of suggestions.
- Now it works as expected in toolbars.
ToolBox (New control)
- Similar to the new VFP ToolBox;
- Compatible with Outlook themes (just like OutlookNavBar);
- Keyboard navigation enabled.
ZoomNavBar
- Implemented a lot of suggestions;
- Compatible with Outlook themes (just like OutlookNavBar);
- Now it works as expected in toolbars;
- Added a bar and reflection effect;
- Added balloons to show button's description;
- Added the capability to display a menu when button is clicked.

Currently, I'm working on a help for this new version. ASAP I'll post them. Stay tuned!

If you have any questions, suggestions or want to report bugs, please contact me.

Some features in this new version could not be implemented without the help and cool ideas from this folks: Bernard Bout, César Chalom and Carlos Alloatti.

Thank you guys!

Here are some screenshots...

C5 error in a grid with user defined column and header members

2007-11-23T13:39:00Z

Some days ago, while developing a new application, I get a C5 error in VFP 9 SP 2 that crashes my application.

Making some tests I found that the error occurs when I use a command in a menu item to run a form with a grid with user defined column and header members.

The only way to avoid this error was change the command in the menu item to a procedure to call the form.

Note that the same application run without any error in VFP 9 SP 2 prior versions.

I've made a sample application and posted at Foxite and UT forums with the steps to reproduce the error.

After receive confirmations from Carlos Alloatti and Sergey Berezniker (thanks for both) that this was a bug, I reported it at MS Connect site as you can see here:

https://connect.microsoft.com/VisualStudio/feedback/ViewFeedback.aspx?FeedbackID=311857

This bug was also reported at Fox Wikis (thanks to Russell Campbell).

If you want to see this error fixed, please visit the bug link, download the sample, follow the instructions, validate the bug and vote to fix it.

VFP community count on you!

A new project is on the way...

2007-09-16T23:35:00Z

Currently, I'm working on a new project named ThemedControls.

This project includes new versions of OutlookNavBar (old Outlook2003Bar) and ZoomNavBar controls.

For now, I've made a short video (there's a link to download the zipped file at the bottom of this post) to let the community see what's coming in the next few days.

Enjoy it!

Here comes a new control... ZoomNavBar!

2007-06-22T11:50:00Z

A long time ago I saw a very cool control (I don't remember where) that "zoom" the image button when it receives the focus. So I think... I could do something like this in VFP!

After some days working at my lunch time in this project, I finally have a beta version.

Take a look at this screenshot:

At the bottom of this post there's a link to download a zip file including the class and a sample (with a help) on how to use this control.

Is this cool? So help me to improve it giving some feedback, suggestions or reporting bugs.

VFP rocks!

OutlookNavBar control preview (Attached file updated)

2007-05-07T18:25:00Z

Like I said in some VFP forums, I'm working on a new control named OutlookNavBar (download the project clicking in the link at the end of this post).

This new control basically do the same that Outlook2003Bar does, but not use GDI+ to create images and handle Themes tasks using a new class named ThemesManager.

Now the project has two classes:

OutlookNavBar.vcx - with the new improved control based on Outlook2003Bar;

ThemedControls.vcx - with lot of "themed" controls and a subclass of OutlookNavBar named ThemedOutlookNavBar.

How this new ThemedControls class work?

Firstly you need to do is create an object based on ThemesManager control and place them in a property named ThemesManager on _Screen and destroy the object when it will not used anymore - as you can see in Load and Unload method of ThemedForm control.
This object will be used to handle all theme changes.

So, create a form and place the controls from ThemedControls class and voila!

Take a look at Sample form to a better view of how this class works.

ASAP, I will post more details.

Feel free to make comments, send suggestions or report any bug.

Here is a screenshot...

Outlook2003Bar Version 1.0.2, a VFPX project

2007-03-13T16:14:00Z

I've posted a new Outlook2003Bar version at VFPX.
Download here.

This version has a bug fix with Citrix environment.

Read the help file in Outlook2003Bar\VCX folder to know how to use the control.

Please, feel free to make comments, send suggestions or request bug fixes.

VFP rocks!

This control is part of VFPX, a Visual FoxPro Community effort to create open source add-ons for Visual FoxPro 9.0.

I am tagged! (Too late...)

2007-01-31T15:05:00Z

I know that the "Tag Game" stopped a long days ago, but I've been very busy and can't answer to César Chalom and Rick Borup (both "tagged" me) until now, but better late than never...

1. Despite of living in São Paulo, I'm a Flamengo's fan (Rio de Janeiro soccer team)!
Everybody always asked me why...
My father was Santos's fan and my mother is Palmeiras's fan. They ever tried to influence me, but at that time, Flamengo had a great team (Zico, Junior, Andrade, Adílio, Nunes, Leandro and company) and they won a lot of championships (World Soccer's Team, Brazilian and Carioca) and I had never seen another team play like this. So I decided to be a fan of the Flamengo!

2. I don't smoke and don't drink.

3. I love music! My favorite bands are: Jars of Clay, dc Talk, Newsboys, Third Day, Kutless, Oficina G3, Resgate, U2, a-ha, New Order, Tears for Fears, Information Society and Kon Kan.
I also like to watch some TV Series like Smallville, The O. C., Seventh Heaven and Everwood.

4. When I'm nervous, I have a bad habit to scratch my head. My wife and my little daughter always reprehend me, but I still didn't get to stop. I think that I get this soon, because my wife helped me to stop another bad habit a few years ago: to gnaw nails.

5. When I began to date Georgea (my beloved wife), she told me that she was seated in a chair behind me in Baptist Church in my baptism day and that Angelica (my mother-in-law) said to her: "Oh, there is a beautiful boy in your front!" and she responded "I saw no one".
I want to say to Georgea: despite of this, honey, I still loving you!   ; )

I would like to "tag" these people:

Carlos Alloatti
Luis Navas
Ken Murphy
Pete Sass
Mike Gagnon

SplitterBar class

2006-11-01T18:43:00Z

I've developed a SplitterBar class and would like to receive some feedback about them.

Features:
- Anchor
- Collapse/expand "panels"

Download the post attachment file below and unzip them.
Open the project and run Form1, Form2 and Form3 samples.
Try to "resize" the panels or click on the "arrows".

The class will only work with VFP 9.

Please, send suggestions or report bugs.

This class is based on Christof Wollenhaupt class.

Outlook2003Bar Version 1.0.1, a VFPX project

2006-10-26T15:46:00Z

I've posted a new Outlook2003Bar version at VFPX.
Download here.

This version has minor bug fixes and some help updates.

Read the help file in Outlook2003Bar\VCX folder to know how to use the control.

Please, feel free to make comments, send suggestions or request bug fixes.

VFP rocks!

This control is part of VFPX, a Visual FoxPro Community effort to create open source add-ons for Visual FoxPro 9.0.

Outlook2003Bar control is part of VFPX now!

2006-10-05T17:59:00Z

As everybody can see in my previous posts, from July I start to develop a control (entirely written in VFP) with the same look and feel of the Microsoft Outlook 2003 shortcut bar.

After some days developing, I've posted a beta version of control, waiting for a feedback from VFP community.

With a positive feedback, I start to improve the control and, after one month (in August), the control was completed.

Again, I've posted the control and publish them in a famous site about VFP.

With a great repercussion, the control was downloaded more than 3.000 times!

From the beggining, the only intent, was contribute with VFP community, by the fact that this community always help me.

So, to make the control more notorious and share his code with the community, I've submitted the project to VFPX managers.

VFPX is an effort from VFP community (mentioned in a monthly letter from VFP development team manager) to create open source "add-ins", complementing Microsoft efforts with Sedna code named project, to extend VFP9 functionalities.

The project was approved and receive a lot of recommendations from VFPX managers (community famous members: Craig Boyd, Doug Hennig and Rick Schummer) for your simple usage and polishedness.

Now, Outlook2003Bar control is part of VFPX and every member can suggest, test, report bugs and participate in development!

Recommendations:

Thanks for doing such a fine job on the Outlook 2003-styled Listbar.

It's very polished and it is simple to use (given your use of pageframe and pages with just a few simple properties to set).

I look forward to seeing more of your work.

I am quite impressed.

Craig Boyd (SweetPotato Software CEO, Inc. and VFPX manager)

We think you and your team will do some really great things with this project, and provide a great deal of value for the Visual FoxPro Community.
Rick Schummer (VFPX manager)

O projeto "Outlook2003Bar" do nosso colega Emerson Santon Reed acaba de ser aprovado e incluído ao VFP-X.
Isso confirma a excelente idéia e ótima qualidade na execução do projeto que o Emerson lidera, ratificando todos os elogios que a classe tem recebido.
Estando no VFP-X, garante visibilidade ao projeto, abrindo-o para receber a contribuição da comunidade.
Parabéns Emerson !
César Chalom (Member of VFPX team and FoxBrasil user group)

Links:

VFPX

A Visual FoxPro Community effort to create open source add-ons for Visual FoxPro 9.0. The code, classes, and libraries made available here will complement Microsoft's continuing efforts to improve and extend Visual FoxPro with the code named Sedna project which is outlined at http://msdn.com/vfoxpro/roadmap

Foxite

Home of the Visual FoxPro Experts

Universal Thread

Worldwide Developers Community

A sample on how to add features to Report Listener

2006-09-13T19:23:00Z

VFP 9 introduces a new reporting system based on listeners (object-assisted output).

Listeners can be customized in a variety of ways and there's a lot of amazing things you can do with it.

If you combine the power of GDI+ with customized listeners you can highly increase the reporting capabilities.

I'll show how you can customize the Report Listener to create a watermark in all report pages and how you can customize Report Preview to change the language of report preview toolbar buttons and display the preview window maximized.

Set Classlib To (Addbs(Home()) + "FFC\_GDIPlus.vcx") Additive

* Create a Report Listener object
Local loReportListener
loReportListener = Newobject("MyReportListener")
With loReportListener
   .ListenerType = 1 && Preview
   * Set the Watermark properties: text, font and style
   .cWatermark = "Watermark demo"
   .cFontName = "Verdana"
   .nFontStyle = 1 && Bold
Endwith

* Create a cursor that will be the report data source and insert some records
Create Cursor curTest (field1 c(100))
Local i
For i=1 To 640
   Insert Into curTest Values (Str(i)+" test, test, test, test, test, test, test, test, test, test, test, test, test")
Endfor
Select curTest
Go Top

* Create a report on the fly
Create Report Test From curTest

* Run the report using the new report engine (object-assisted output)
Report Form Test Object loReportListener

* Close cursor and delete the report file
Use In curTest
Delete File Test.fr?
Return

* Create a class derived from _ReportListener base class and add some features
Define Class MyReportListener As _ReportListener Of Addbs(Home()) + "FFC\_ReportListener.VCX"
   * Internal to the class
   Hidden nAngle, oBrush, oColor, oFont, oGDIGraphics, oRect, oStringFormat
   Hidden ResourceStatus
   nAngle = 0
   oBrush = Null
   oColor = Null
   oFont = Null
   oGDIGraphics = Null
   oRect = Null
   oStringFormat = Null
   cResourceStatus = Set("Resource")
   * Public
   cWatermark = ""
   cFontName = ""
   nFontStyle = 0
   *
   Procedure Init
      Lparameters cWatermark, cFontName, cFontStyle
      Set Resource Off
      With This
         .cWatermark = Evl(cWatermark,"")
         .cFontName = Evl(cFontName,"")
         .nFontStyle = Evl(cFontStyle,0)
      Endwith
      DoDefault()
   Endproc
   *
   Procedure Destroy
      Local lcResourceStatus
      lcResourceStatus = This.cResourceStatus
      Set Resource &lcResourceStatus
      DoDefault()
   Endproc
   *
   Procedure LoadReport
      DoDefault()
      With This
         If .ListenerType==1 And Not Vartype(.PreviewContainer)=="O"
            .ExtendPreviewContainer()
         Endif
      Endwith
   Endproc
   *
   Procedure BeforeReport
      DoDefault()
      With This
         If Not Empty(.cWatermark)
            .oGDIGraphics = Createobject('GPGraphics')
            .SetWatermarkFontSize()
         Endif
      Endwith
   Endproc
   *
   Procedure AfterBand(nBandObjCode, nFRXRecNo)
      If nBandObjCode==7 && Page footer
         With This
            If Not Empty(.cWatermark)
               .AddWatermark()
            Endif
         Endwith
      Endif
      DoDefault(nBandObjCode, nFRXRecNo)
   Endproc
   *
   Function SetWatermarkFontSize
      With This
         .SetoGDIGraphicsHandle()

         * Create a semi transparent Grey Color
         .oColor = Createobject('gpColor',128,128,128,127)

         * Create a SolidBrush with Grey Color
         .oBrush = Createobject("gpSolidBrush", .oColor)

         * Create a StringFormat
         #Define StringAlignmentNear 0
         #Define StringAlignmentCenter 1
         #Define StringAlignmentFar  2
         .oStringFormat = Createobject('gpStringFormat')
         With .oStringFormat
            .Create()
            .Alignment = StringAlignmentCenter
            .LineAlignment = StringAlignmentCenter
         Endwith

         * Create a Font object
         Local loFont
         loFont = Createobject("GpFont")

         Local lnFactor, lnMaxWidth
         lnFactor = 0.80
         lnMaxWidth = (Sqrt((.SharedPageHeight ^ 2) + (.SharedPageWidth ^ 2))) * lnFactor

         * To bypass GDI+ MeasureString bug to obtain the correct size
         Local loStringFormat As 'GpStringFormat' Of Home() + 'FFC\_gdiplus.vcx'
         loStringFormat = Newobject('GpStringFormat',Home() + 'FFC\_gdiplus.vcx')
         loStringFormat.Create()
         loStringFormat.GetGenericTypographic()

         Local loSize, lnSize, lnCharsFitted, lnLinesFilled, lnPerc
         lnSize = 1500

         loFont.Create(.cFontName,lnSize,.nFontStyle,2)
         lnCharsFitted = 0
         lnLinesFilled = 0
         loSize = .oGDIGraphics.MeasureStringA(.cWatermark,loFont, ,;
            loStringFormat, @lnCharsFitted, @lnLinesFilled)

         If Vartype(loSize)=="O"
            If loSize.W > lnMaxWidth
               lnPerc = loSize.W / lnMaxWidth
               lnSize = Int(lnSize / lnPerc)
            Endif
         Endif

         loFont.Create(.cFontName,lnSize,.nFontStyle,2)
         .oFont = loFont

         * Calculate the rotation angle
         .nAngle = Rtod(Atan(.SharedPageHeight / .SharedPageWidth ))

         * Create a rectangle with special dimensions
         .oRect = Createobject("gpRectangle", ;
            -.SharedPageWidth/2, -.SharedPageHeight/2, ;
            .SharedPageWidth*2, .SharedPageHeight*2)
      Endwith
   Endfunc
   *
   Function AddWatermark
      With This
         .SetoGDIGraphicsHandle()

         * Prepare transformation
         .oGDIGraphics.TranslateTransform(.SharedPageWidth/2, ;
            .SharedPageHeight/2)
         .oGDIGraphics.RotateTransform(-.nAngle)
         .oGDIGraphics.TranslateTransform(-.SharedPageWidth/2, ;
            -.SharedPageHeight/2)

         * Draw a string
         .oGDIGraphics.DrawStringA(.cWatermark, .oFont, .oRect, .oStringFormat, .oBrush)

         * Reset Rotation
         .oGDIGraphics.ResetTransform()
      Endwith
   Endfunc
   *
   Function SetoGDIGraphicsHandle
      With This
         If Not .IsSuccessor
            .SharedGDIPlusGraphics = .GDIPlusGraphics
         Endif
         .oGDIGraphics.SetHandle(.SharedGDIPlusGraphics)
         .oGDIGraphics.TextRenderingHint = 3 && AntiAlias
      Endwith
   Endfunc
   *
   Function ExtendPreviewContainer
      Local loPreviewContainer
      loPreviewContainer = Null
      Do (_ReportPreview) With loPreviewContainer
      loPreviewContainer.SetExtensionHandler(Newobject("MyExtensionHandler"))
      This.PreviewContainer = loPreviewContainer
   Endfunc
Enddefine

* Create a class that will extend Report Preview
Define Class MyExtensionHandler As Custom
   *
   Procedure Show(iStyle)
      With This.PreviewForm
         With .Toolbar
            * Translate toolbar buttons ToolTips to Brazilian Portugese language
            .cboZoom.ToolTipText = "Zoom"
            .cmdClose.ToolTipText = "Fechar a visualização"
            .cmdGoToPage.ToolTipText = "Ir para a página"
            .cmdPrint.ToolTipText = "Imprimir"
            With .cntNext
               .cmdBottom.ToolTipText = "Última página"
               .cmdForward.ToolTipText = "Próxima página"
            Endwith
            With .cntPrev
               .cmdBack.ToolTipText = "Página anterior"
               .cmdTop.ToolTipText = "Primeira página"
            Endwith
            With .opgPageCount
               .opt1.ToolTipText = "Uma página"
               .opt2.ToolTipText = "Duas páginas"
               .opt3.ToolTipText = "Quatro páginas"
            Endwith
            *
         Endwith
         .WindowState = 2 && Maximize report preview
      Endwith
      DoDefault(iStyle)
   Endproc
   *
Enddefine

To know more about the new VFP 9 reporting system and GDI+, I recomend you to:

read VFP 9 help topics: Understanding Visual FoxPro Object-Assisted Reporting and Using GDI+ in Reports;
take a look at VFPX website and search for GDIPlusX class that extends GDI+ capabilities;
visit César Chalom's blog. He is involved in GDIPlusX project from VFPX team. His blog has great GDI+ samples.

One more time, thanks to César Chalom for develop the code to do the watermark. Congratulations for your great job!

Outlook2003Bar New Version 1.0.0

2006-08-21T16:11:00Z

In the last days, I worked on a new version of the Outlook2003Bar control, making some adjusts and adding new features.

The look has minor changes...

New features:

1) Now you don't need to add the buttons manually! The only thing you need to do is add the pages in the Panes pageframe control inside Outlook2003Bar and set: Caption, Picture16 and Picture24 page's properties and the control will automatically create the buttons at runtime.

2) Added predefined color schemes that follows Blue, Silver and Olive Windows XP Themes. If you change the active Windows XP theme, the control color scheme is changed too! Also, you can manually change the control's colors.

3) Outlook2003Bar help file is avaiable in Vcx directory.

Note that the size of the image used in PanelButtons changed from 32x32 to 24x24!

After download Outlook2003Bar attached, open Sample.pjx, compile them and run Sample.exe.

Please, feel free to make comments, send suggestions or request bug fixes.

VFP rocks!

Outlook2003Bar control

2006-07-25T16:04:00Z

Here is the beta version of my Outlook2003Bar control (that has the same look and features found in Microsoft Outlook 2003 left bar), entirely written in VFP 9.

If you have any suggestion or wants to report a bug, contact me.

As soon as I can, I'll post a help and more details on how to use Outlook2003Bar.

Thanks to Cesar Chalom for your help with gradient background images and Gérald Santerre (developer of Active-X friendly Splitter control used in this project).

Log code coverage

2006-01-23T19:18:00Z

Do you want to refine your code for performance and ensure that you've adequately tested the code?

The easiest way to track wich lines of code have been executed and how long it took to execute them is logging code coverage information.

This information can help you identify areas of code that aren't being executed and therefore aren't being tested, as well as areas of the code that you might want to fine tune for performance.

You can toggle coverage logging on and off programmatically (at design time and runtime) by using the SET COVERAGE TO command.

You could, for example, include the following command in your application just before a piece of code you want to investigate:
SET COVERAGE TO mylog.log
After the section of code you want to log coverage for, you could include the following command to set code coverage off:
SET COVERAGE TO

When you've specified a file for the coverage information, for every line of code that is executed, the following information is written to the log file:
- How long in seconds the line took to execute.
- The class, if any, that the code belongs to.
- The method or procedure the line of code is in.
- The number of the line of code.
- The file that the code is in.
- Call stack level in which the line of code executes.

For more information, see help topic: "How to: Log Code Coverage".