Showing posts with label FoxCharts. Show all posts
Showing posts with label FoxCharts. Show all posts

2020-04-12

VFP Paint Revisited - 2020


Here's a brand new version of VFPPAINT, a sample that I created using the GdiPlusX library that works much like MSPAINT, and creates a canvas that permits you to draw whatever you want with the mouse.

If you are not aware of what I'm talking about, you might be interested in checking this blog post..

VFPPAINT now has become much bigger than the original 50k SCX from the first version. Now it has become a VFP project, and received some important improvements, such as fast and reliable drawing, and the possibility to work with modal forms. many new and cool features were added too.

In this revamped version, I'm introducing the
   Paint Bucket - used to fill an area with single specific color. Select the bucket and position the cursor over the area to be filled and click with the Left mouse button to fill with the Primary color.

That's a cool feature that I introduced to GdiPlusX a long time ago, but forgot to document. I even think that the current release does not bring a sample dealing with it.





First of all, thanks for the positive feedback that many readers have sent, and all the suggestions.



Important requires VFP9 and GdiplusX to run.  
Please make sure that you have the latest version, because VFPPAINT uses some functions that were added recently.

http://www.codeplex.com/vfpx/wiki/view.aspx?title=gdiplusx&referringtitle=home


When you run VFPPAINT.scx it will ask you to select the folder where gdiplusx library is located.



What's new on this version:

1 - main screen may be modal, modeless, toplevel or inscreen - this was a problem in the first version. in that case, to obtain scrollbars in my canvas for the case that the image could not fit in the screen, I created a child form, that worked inside the main form. then the child form was configured to show scrollbars when needed. but working with this configuration, the main form had to be a toplevel form, and it was not possible to make that form modal.



Thanks to Carlos Alloatti and Malcolm Greene for their great "scrollablecontainer", I was able to use just a single control, and concentrate just on the drawing codes, I confess that it was a little bit complicated to control the form scrollbars and the image position in the original way. now this is all done by the scrollable container. Thanks very much Carlos for your support to make it work as I desired. Anyway, some tweaks were needed to be aplied in this control to make it behave exactly as I needed, and I created my customized version. Check the file SCONTAINERTWEAKS.TXT in the "source" folder.



2 - faster image drawing - I confess that the original version worked really sloooooow when direct drawing on the canvas. that's because vfp and gdiplusx has to work a lot in order to draw the image. After detecting the mouse position, cloning the original image for undo purposes, I used gdiplusx to obtain the pictureval of the bitmap, and then the image pictureval property was updated. obtaining the pictureval was the slowest operation. in this new version, I'm using gdi+ to draw du]irectly on the screen, using the hwnd of the form, when the left button of the mouse is pressed. only when the user releases the button or when he leaves the canvas surface is that the pictureval of the image object is updated, check it by yourself, this brought a huge performance gain !



3 - cut, copy and paste - these possibilities were added too. now you can select any portion of the image, cut or copy to the clipboard, and paste in any other application, or even inside vfppaint, moving pieces of images inside the canvas. it supports also that you paste any image from the clipboard. you can capture any screen using the prtscrn key and paste it there.



4 - drag and drop pieces of images. this brings the possibility to apply some effects in the whole image or just in the specified region.





5 - special color effects - there were lots of other cool things that I wanted to add, but no more space was available in the original form, so i've created a child form that agrupates some slidebars that will control the image colors, like: contrast, saturation, brightness, gamma, hue and adjusting each of the basic colors individually.





6 - other color effects - with just one click obtain monochrome, greyscale and invert the colors (negative)





7 - image transformations - another child form permits you to rotate the image by a desired angle, scale and shear vertically or horizontally.



8 - other tweaks, small fixes and optimizations. all methods were revised in order to enhance the performance and reliability.



Main features

- draw points, rectangles lines and ellipses with the mouse.

- text drawing, choose any font, size and style, and it will appear at the place that you click on the image. (drag and drop to choose the best place)

- choose any color, from the palette or directly from the loaded image or canvas and select the pen width that you want to draw.

- select the shape or type of drawing in the graphical option buttons, and then go to the canvas (image object) and click the left mouse button.

- drag and drop is available for rectangles, lines and ellipses.

- basic undo features

- rotate and flip images

- resizing images

- printing and saving images

- scale, shear and rotate images

- apply image effects, like greyscale, saturation, contrast, brightness, and more



Basic commands

    load image to canvas
    save image in desired image format
    print image
    undo last changes



  pick color from palette
   clear entire canvas with selected color
  rotate left (whole or selected image)
  rotate right (whole or selected image)
   flip image horizontally (whole or selected image)
  flip image vertically (whole or selected image)

   no action

   draw points

   draw rectangle

   draw ellipse

   draw line

   fill rectangle

   fill ellipse

   draw string

   select a piece of the image, to be cut, copied, dropped or receive an effect

   pick color from canvas

   select font, size and type


   convert to greyscale

   convert to monochrome

   convert to negative


   calls child form that enables different kinds of resizing






   calls child form that allows scaling, shearing and rotating the image




   calls child form that allows several color effects to the image

    



   send the selected piece of image to the clipboard
   copy the selected piece of image to the clipboard
   paste image from the clipboard to the canvas

   paste special, allowing to choose the destination of the image

   paint bucket is used to fill an area with single specific color. Select the bucket and position the cursor over the area to be filled and click with the Left mouse button to fill with the Primary color.


All images are generated without disk access, using the new pictureval property of the image control. For this specific case, I didn't use the imagecanvas that ships with gdiplusx because I needed some extra customization. after the latest release of gdiplusx, getting the pictureval property of an image has became very simplified, with the new methods added to the image class - getpictureval and getpicturevalfromhbitmap.

As sometimes we need to work with an image that is bigger than our screen, the drawing canvas was put in a "in toplevelform" that has scrollbars.

Another cool feature is the "undo" possibilities. vfppaint stores the previous bitmap in a cache. this can be improved too, maybe you need to "undo" in higher level. for this, very few code is needed.

When drawing on the canvas, try dragging and dropping the objects. for this, the "undo" feature was highly used, because the shape is drawn, and when the user moves the mouse, it restores the original image from the buffer and draws again in the new position.


When a big sized image is loaded, first it asks if the canvas needs to be resized.



Scrollbars appear in the image to help dealing with it. in a first moment, I thought of using the very nice ctl32 scrollable container from Carlos Aloatti and Malcolm Greene, but I gave up because I needed the pictureval property, that is present only in the default image control. So, there are currently 2 forms in the screenshot below. one is a "in TopLevel" form that contains just one image object, and resides in the main VFPPAINT form. the other form is a "TopLevel form". The image object from the "child form" changes its size automatically, depending on the image dimensions. When this object is resized, the child form automatically resizes itself, and shows and adjusts the scrollbars if needed.





Resizing sample:


VFPPAINT also accepts that you pass an image file as a parameter. this way, you'll be able to open the form loading automatically the desired image to edit. run the form like this:

do form vfppaint with "eyes.gif"

In case you pass a gif image as a parameter, it will be automatically converted to 24bpp. that's because gifs are indexed images. a classic example of indexed images are monochrome. pure monochrome images use only 1 bit per pixel. So, in just one byte you can store information of 8 pixels ! in the case of gifs, they are usually 8 bits per pixel, so in one bit we can have a value that ranges from 0 to 255 - that's exactly the quantity of colors supported by GIFs! Unfortunately, the redistributable version of GDI+ has a limitation when working with images created in indexed pixel formats, such as 1bppindexed (0x00030101), 4bppindexed (0x00030402) and 8bppindexed (0x00030803). If you try to draw on this kind of images you'll always receive an error message when you'll create the graphics object, that permits to you to draw on the image. more detailed info about this can be found in this post: drawing on gifs or indexed pixel format images with gdi+  http://weblogs.foxite.com/vfpimaging/archive/2006/03/18/1302.aspx . That's why gifs are converted to a 24bpp format before initializing the painting possibilities.

But the main thing is that this totally customizable. Study the technique that was used, and you'll see that there's not too much code there.




Download link
Download VFP PAINT REVISITED

2014-11-25

GdiPlusX v1.21

Our last OFFICIAL published version is v1.20, at CodePlex.

Recently I noticed that some very well known Foxers have published in CodePlex some fixes and patches for GdiPlusX. In most cases, the bugs are very simple, some variables that have not been defined, some API calls with a missing parameter, and small typos, like using "tnWidth" instead of "lnWidth". None of these fixes change the way the library was coded, or its structure. An API was declaring an INTEGER parameter, when the correct would be to use a STRING.

No new properties were introduced, nothing. I've been applying and testing them all, and all sounds good. In fact, these bugs appeared in methods that I did not test before wide smile

The fixes come from: Christian Ehlscheidt, Doug Hennig, Rick Schummer, Martina Jindrova, MReigler, Daveaswj and me.

I've also included one single method in "xfcBitmap", that uses the API "ExtFloodFill", that resides in GDI32 (not Gdi+), and allows us to make fills in images. You tell the API the coordinates and the color to be used, and it fills the image till it finds a different color from the original. Very fast and cool! Me and Yosfi discussed about this API usage last month here at Foxite.



Another thing...

In the last version, we forgot to release the "samples" project, so people only had the SYSTEM.APP, and the samples project was somehow "hidden" at the old archives. New users could have difficulties with the library because of that.


So, I am preparing the release 2 distinct files:

1 - GdiPlusX v1.21 with the fixes above and the new function for "FloodFill".
2 - An updated "Samples" project, adding some few samples (4 or 5) using these new fixes and functions

VERY IMPORTANT:

This is not an official release !!!

This version is for testing purposes only.
I've submitted these files to Bo Durban, that is the project owner and manager. He is the person to decide to move it to production and to give the final words regarding it.

So, this is just for testing, ok? Or if you want to play with the samples, there are 2 that I think are realy very cool, the last in the list, one that uses the new "FloodFill" function and another that uses the "MeasureCharacterRanges" functions. I like specially the last sample, "MeasureCharacterRanges.scx". 
See at the image below why:



In summary, the "MeasureCharacterRanges" functions allow us to obtain VERY PRECISE measuring of strings, and getting the precise coordinates where each part of the text was rendered in the bitmap. Special thanks to Christian Ehlscheidt, the same author of VFP2C32 library from VFPX for the fixes in the functions related.
I've already updated VFPPaint to benefit from the new "FloodFill" function, and hope to publish it very soon.

http://vfpx.codeplex.com/releases/view/103462

2011-03-14

FoxCharts new release - with Double Y Axis

Just uploaded a new release of FoxCharts, a VFP-X project 

This version brings the so asked "double Y axis" charts as the main change.
  • Multicharts with negative values that were not being drawn correctly in some situations;
  • Line charts are drawn much faster (5x faster) when drawing with line caps (with shapes in the chart intersections);
  • Other small tweaks
        https://github.com/VFPX/FoxCharts/tree/master/FoxCharts_1.37b

        Have a look at the sample "chartssample_builder_2y.scx" in the samples folder of FoxCharts
        Just some few but important comments:
        1. needs to use depth = 0 (max 2)
        2. preferrably 2 data lines, one using the left axis and the other for the 2nd
        3. set the legends to the top

        Pay attention to the new properties:
        • ChartType = 18          && the newest chart type
        • Fields(n).AxisIndex = 2 && to what axis the data will correspond (1 = default)
        • LegendPosition = 6      && top center

        Having this, now you are able to create a chart like this, with no effort:



        Here is a simple script showing how to achieve the chart below directly:



        create cursor sales( ; 
            chart1 i null, ;
            chart2 i null, ;
            legend c (30) NULL)
        
        insert into sales values (130,      0, "jan")
        insert into sales values (120,  25000, "feb")
        insert into sales values ( 45,  50000, "mar")
        insert into sales values ( 60,  75000, "apr")
        insert into sales values ( 75, 100000, "may")
        insert into sales values (110, 135000, "jun")
        
        set classlib to locfile("foxcharts.vcx")
        
        public oform as form
        oform = createobject("form")
        oform.newobject("ochart","foxcharts","foxcharts.vcx")
        
        local loChart as Foxcharts of "foxcharts.vcx"
        loChart = oForm.oChart
        
        with loChart
             .Backcolor = rgb(255,255,255)
             .BrushType = 2
             .ChartsCount = 2
             .ChartType = 18
             .ColorType = 1
             .Depth = 0
             .FieldAxis2 = 'legend'
             .FieldLegend = 'legend'
             .FontName = 'verdana'
             .Height = 288
             .LegendPosition = 6
             .SourceAlias = 'sales'
             .Width = 732
        
             with .subtitle
                  .caption = 'chart subtitle'
             endwith
        
             with .title
                  .caption = 'testing 2nd y axis'
                  .forecolor = rgb(0,128,255)
             endwith
        
             with .fields(1)
                  .axisindex = 1
                  .color = rgb(255,0,191)
                  .fieldvalue = 'chart1'
                  .legend = 'gr1'
                  .shape = 5
             endwith
             with .fields(2)
                  .axisindex = 2
                  .color = rgb(0,142,146)
                  .fieldvalue = 'chart2'
                  .legend = 'gr2'
                  .shape = 2   && 'vfpxicon.png'
             endwith
             loChart.DrawChart()     loChart.Visible = .t.
        endwith
        
        oForm.Width  = loChart.Width
        oForm.Height = loChart.Height
        oForm.Show()