Image-convert, crop and resize ( full source included )

Image-convert, crop and resize ( full source included )

Postby ukoenig » Fri Aug 26, 2011 9:30 pm

Hello,

a Part of my Image-converter, to include in Your Application
Format-convert, Crop and Resize.
Full Souce is included :

Download ( 3.4 MB ) :
http://www.pflegeplus.com/fw_downloads/imgcrop1.zip

The Dialogs ( Convert, Resize and Crop ) don't need any Exit/close-buttons.
Open Dialogs are closed automatically, as soon a Button is selected !!!.

Select a Image from subdirectory /Images/???

Image

Available format from FREEIMAGE

BMP Windows or OS/2 Bitmap File (*.BMP)
DDS DirectDraw Surface (*.DDS)
FAXG3 Raw Fax format CCITT G3 (*.G3)
GIF Graphics Interchange Format (*.GIF)
ICO Windows Icon (*.ICO)
IFF Amiga IFF (*.IFF, *.LBM)
JNG JPEG Network Graphics (*.JNG)
JPEG Independent JPEG Group (*.JPG, *.JIF, *.JPEG, *.JPE)
KOALA Commodore 64 Koala format (*.KOA)
MNG MNG
PBM Portable Bitmap (ASCII) (*.PBM)
PBMRAW Portable Bitmap (BINARY) (*.PBM)
PCD Kodak PhotoCD (*.PCD)
PCX Zsoft Paintbrush PCX bitmap format (*.PCX)
PGM Portable Graymap (ASCII) (*.PGM)
PGMRAW Portable Graymap (BINARY) (*.PGM)
PNG Portable Network Graphics (*.PNG)
PPM Portable Pixelmap (ASCII) (*.PPM)
PPMRAW Portable Pixelmap (BINARY) (*.PPM)
PSD Adobe Photoshop (*.PSD)
RAS Sun Rasterfile (*.RAS)
SGI Silicon Graphics SGI image format (*.SGI)
TARGA Truevision Targa files (*.TGA, *.TARGA)
TIFF Tagged Image File Format (*.TIF, *.TIFF)
WBMP Wireless Bitmap (*.WBMP)
XBM X11 Bitmap Format (*.XBM)
XPM X11 Pixmap Format (*.XPM)

Image

Resize horizontal, vertical or percent :

Image

Click Top/Left and Bottom/Right to Crop a Image-area

Image

From a Dialog, You can export to a defined Directory
View the created Script, restore to Original or View the Result

Image

Best Regards
Uwe :lol:
Last edited by ukoenig on Sat Aug 27, 2011 8:03 am, edited 2 times in total.
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Image-convert, crop and resize ( full source included )

Postby FranciscoA » Fri Aug 26, 2011 10:40 pm

Uwe, thanks.
Regards.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2114
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Image-convert, crop and resize ( full source included )

Postby Bayron » Sat Aug 27, 2011 1:44 am

Thanks Uwe!!!
=====>

Bayron Landaverry
(215)2226600 Philadelphia,PA, USA
+(502)46727275 Guatemala
MayaBuilders@gMail.com

FWH12.04||Harbour 3.2.0 (18754)||BCC6.5||UEstudio 10.10||
Windows 7 Ultimate

FiveWin, One line of code and it's done...
User avatar
Bayron
 
Posts: 815
Joined: Thu Dec 24, 2009 12:46 am
Location: Philadelphia, PA

Re: Image-convert, crop and resize ( full source included )

Postby ukoenig » Sat Aug 27, 2011 10:52 am

Thank You very much for the response.
I hope it will be useful.

Here is a multimedia-help for the Tool :

Download :
http://www.pflegeplus.com/fw_downloads/help1.zip

Image

Maybe You still need some more Scripts ?
It is easy to include more Filters.

Image

Flip and Rotate
-------------------
cScript1 := '-quiet -o ' + cNewfile + ' -rotate_flag smooth -rotate 90 -overwrite ' + cOrgfile
cScript1 := '-quiet -o ' + cNewfile + ' -rotate_flag smooth -rotate 180 -overwrite ' + cOrgfile
cScript1 := '-quiet -o ' + cNewfile + ' -rotate_flag smooth -rotate 270 -overwrite ' + cOrgfile
cScript1 := '-quiet -o ' + cNewfile + ' -rotate_flag smooth -yflip -overwrite ' + cOrgfile
cScript1 := '-quiet -o ' + cNewfile + ' -rotate_flag smooth -xflip -overwrite ' + cOrgfile


Sharpen
---------
// nSharpen = %
cScript2 := '-quiet -o ' + cNewFile + ' -sharpen ' + ALLTRIM(STR(nSharpen)) + ' -overwrite ' + cOrgfile


Contrast
----------
// nContrast = %
cScript3 := '-quiet -o ' + cNewFile + ' -contrast ' + ALLTRIM(STR(nContrast)) + ' -overwrite ' + cOrgfile


Lens-effect
--------------
// nLens = % of Image ( 100 % = Circle fills complete )
cScript4 := '-quiet -o ' + cNewFile + ' -lens ' + ALLTRIM(STR(nLens)) + ' -overwrite ' + cOrgfile


Adding Watermark
----------------------
// cWBitmapL = Watermakfile
// nWLeft = Left
// nWTop = Top
// nWTransp = transparent-level

cScript5 := '-quiet -o ' + cNewFile + ' -wmfile ' + cWBitmapL + ' -wmpos ' + ALLTRIM(STR(nWLeft)) + ' ' + ALLTRIM(STR(nWTop)) + ' -wmopacity ' + ALLTRIM(STR(nWTransp)) + ' -overwrite ' + cOrgfile


Brightness
--------------
// -% = darker, +% = lighter
cScript6 := '-quiet -o ' + cNewFile + ' -brightness ' + ALLTRIM(STR(nBright)) + ' -overwrite ' + cOrgfile


Emboss-effect
-----------------
cScript7 := '-quiet -o ' + cNewFile + ' -emboss -overwrite ' + cOrgfile


Convert to Grey
-------------------
cScript8 := '-quiet -o ' + cNewFile + ' -grey ' + ALLTRIM(STR(nGray)) + ' -overwrite ' + cOrgfile


Mosaic-effect
-----------------
// nMosaic = %
cScript9 := '-quiet -o ' + cNewFile + ' -mosaic ' + ALLTRIM(STR(nMosaic)) + ' -overwrite ' + cOrgfile


Swirl-effect
-----------------
// nSwirl = %
cScript10 := '-quiet -o ' + cNewFile + ' -swirl ' + ALLTRIM(STR(nSwirl)) + ' -overwrite ' + cOrgfile


Best Regards
uwe :lol:
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Image-convert, crop and resize ( full source included )

Postby cuatecatl82 » Sat Aug 24, 2013 3:39 am

Greetings Uwe:

Excellent work i had been very useful, I liked about the entire help file, but i have a question: how can you that the images will take effect for passing from one to another?

I am working with images and i would like them to go aquick

Thanks.. :lol: :lol:
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Re: Image-convert, crop and resize ( full source included )

Postby cuatecatl82 » Wed Aug 28, 2013 12:34 am

Up +1 :oops: :oops: :cry:
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Re: Image-convert, crop and resize ( full source included )

Postby HunterEC » Wed Aug 28, 2013 5:01 am

Uwe:

Like always, superb job !
HunterEC
 
Posts: 723
Joined: Tue Sep 04, 2007 8:45 am

Re: Image-convert, crop and resize ( full source included )

Postby cuatecatl82 » Wed Aug 28, 2013 1:05 pm

Good Day Forum:

I found that with the example in made, unfortunately is not built with Fivewin, is an independent image editor:
Multimedia Builder 4.9.8.13, is very interesant and interactive..

Greetings. :oops: :oops:
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Re: Image-convert, crop and resize ( full source included )

Postby karinha » Wed Aug 28, 2013 2:01 pm

VERY GOOD!!!
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7339
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Image-convert, crop and resize ( full source included )

Postby Silvio.Falconi » Wed Sep 18, 2013 9:27 am

Uwe ,
where is the source code of help1.exe ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 6848
Joined: Thu Oct 18, 2012 7:17 pm

Re: Image-convert, crop and resize ( full source included )

Postby ukoenig » Wed Sep 18, 2013 10:42 am

Silvio,
Help-files, I'm creating with a external Multimedia Builder.
http://www.mediachance.com/mmb/
A compiler is included, to create a stand-alone EXE-file.
Many multimedia-effect are possible.

Víctor posted =>
I found that with the example in made, unfortunately is not built with Fivewin, is an independent image editor:
Multimedia Builder 4.9.8.13, is very interesant and interactive..


Best Regards
Uwe :lol:
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 49 guests