FiveTech Software tech support forums

Sorry,

Alert messages for debug removed


https://bitbucket.org/fivetech/fivewin- ... ivedit.exe

Sorry,

Alert messages for debug removed



https://bitbucket.org/fivetech/fivewin- ... ivedit.exe

... previous error, but I found other minor bug

----------------------------------------------------- NEW VERSION 11/10/2017 ----------------------------------
- Change style MENUS: fixed ( You need to restart the editor , for now )

https://s1.postimg.org/56gvmd9yb3/Small_Logo1.png

m

... previous error, but I found other minor bug

----------------------------------------------------- NEW VERSION 11/10/2017 ----------------------------------
- Change style MENUS: fixed ( You need to restart the editor , for now )

https://s1.postimg.org/56gvmd9yb3/Small_Logo1.png

m

... Into this version if you press CTRL+SHIFT list of all symbols defined ( fivewin, harbour and of you program ) is shown
Also, if you beginining one word and you CTRL+SHIFT, this list is shown also, but with this characters selected

https://s1.postimg.org/56gvmd9yb3/Small_Logo1.png

m

... Into this version if you press CTRL+SHIFT list of all symbols defined ( fivewin, harbour and of you program ) is shown
Also, if you beginining one word and you CTRL+SHIFT, this list is shown also, but with this characters selected

https://s1.postimg.org/56gvmd9yb3/Small_Logo1.png

m

... 46;pflegeplus.com/pictures/project.jpg

3 Samples : combination of Calendar with LOGO

http://www.pflegeplus.com/pictures/C_Logo1.jpg

I added optional 2 extra textlines

http://www.pflegeplus.com/pictures/C_Logo2.jpg

http://www.pflegeplus&#46 ...

... with Gradient-bruch ) :

Download ( everything included ) 1.9 MB :
m

The Logo :
REDEFINE IMAGE oImg1 ID 300 OF oCust FILENAME c_path + "\Images\Logo1.png"
// Perform a Action or Info :
oImg1:bLDblClick := {|| Msgalert( "Logo-Info","Information" ) }

Resource :
CONTROL "", 300, "TImage", 0 | WS ...

... 0)->TGET:COMMAND(1051)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1499)->TGET:HANDLEEVENT(598)->_FWH(3409)->DIALOGBOX(0)->TDIALOG:ACTIVATE(273)->TAPPLICATION:ACCESSCONTROL(1296)->MAIN(66)

y asi lo defino en el xbrowse
oBrw:SetBackGround( oApp:cDirBmps+"Logo1.jpg", BCK_STRETCH )
saludos
paco

... ResizeBmp in ABPaint like :

The Original uses :
ABPaint( hDC, 10, 10, oAlpha:hBitmap, 255 ) // Left / Top

Resized uses the Function :
FUNCTION LOGO1()
LOCAL hDC, oAlpha

hDC := oWnd:GetDC
DEFINE IMAGE oAlpha FILENAME c_Path + "\Images\" + cWLogo
nWidth := oAlpha:nWidth
nHeight := oAlpha:nHeight ...

... DEFINE WINDOW oWnd TITLE "RibbonBar Test " + FWVERSION from 1,1 to 600,600 pixel //brush oBrush1
@ 150, 10 BITMAP oBmp FILENAME c_path + "\bitmaps\Logo1.bmp" OF oWnd SIZE 550, 350 PIXEL SCROLL

http://www.pflegeplus.com/pictures/bmptest1.jpg

Added Bitmaps to sample ribbon.prg ...

... BRUSH oBrush style borlad
DEFINE BRUSH oBrush style null

//DEFINE ICON oIcono FILENAME "C:\FW24\ICOns\FIVEWIN.ico"

DEFINE ICON oIcono resource "LOGO1"

DEFINE BITMAP oBmp1 resource "cortina"

//MSGLOGO("C:\harb904\FWH\bitmaps\VISUAL.BMP",2)
msglogo("visual.bmp",1)

DEFINE WINDOW oVentana ...

... of charge

A sample :
same name with new format and resize ( TIFF to JPG ) :

cSCRIPT := "NCONVERT -out jpeg -resize 100 100 d:\T_VIEWER\IMAGE\A_LOGO1.TIFF"
WINEXEC ( "&cSCRIPT", 0 )

Download
m

Regards
Uwe

Thanks ukoening but nconvert dont makes pdf.


Sorry, i tried: nconvert -out pdf myjpg ...

... in Command-line-mode
NCONVERT is free of charge

A sample :
same name with new format and resize ( TIFF to JPG ) :

cSCRIPT := "NCONVERT -out jpeg -resize 100 100 d:\T_VIEWER\IMAGE\A_LOGO1.TIFF"
WINEXEC ( "&cSCRIPT", 0 )

Download
m

Regards
Uwe

Thanks ukoening but nconvert dont makes pdf.

Hello,

You can use NCONVERT inside Your application in Command-line-mode
NCONVERT is free of charge

A sample :
same name with new format and resize ( TIFF to JPG ) :

cSCRIPT := "NCONVERT -out jpeg -resize 100 100 d:\T_VIEWER\IMAGE\A_LOGO1.TIFF"
WINEXEC ( "&cSCRIPT", 0 )

Download
m

Regards
Uwe