New FTDN April 2015 (FWH 15.04)

[Antonio Linares]

April 2015
==========

* New: Class TBar Method Redefine(). We explain here why this should not
be used, though anyhow we have implemented it in case someone needs it:

http://forums.fivetechsupport.com/viewt ... 12#p174212
Sample: barfrmrc.prg, barfrmrc.rc

* New: Buttonbar and buttons can now be defined along with defining dialog.
It is not any more necessary to define bar and buttons in ON INIT clause.
sample: barondlg.prg

* Enhancement: dialog.prg: Data or codeblocks assigned to lCentered, lCenterInWnd,
lModal, bLClicked, bRClicked, bWhen, bValid, bInit, bPainted are used by
Activate() method if not overriden in the ACTIVATE command.

* Enhancement: XBrowse MakeTotals(): It is now possible to total calculated
values of a column. If oCol:bSumCondition is assigned with a codeblock,
this block is evaluated with two parameters Column's Value and Column
Object. The value is considered for totalling only if the return value
is .T.. Now the codeblock can replace the value with a calculated value
In that case the replaced value is considered for totalling instead of
the original value.
Example:
oCol:nFooterType := AGGR_SUM
oCol:bSumCondition := { |nValue, o| If( oBrw:DRCR:Value == 'D', nValue := -nValue, nil ), .T. }

* New: XBrowse METHOD RefreshHeaders() to repaint Headers only.

* Fix: database.prg. Long fieldnames are not properly recoginized. now fixed.
http://forums.fivetechsupport.com/viewt ... =6&t=30447

* Improvement: TScrollPanel class (scrlpanl.prg) is now touch friendly.
User can push up or pull down the panel with finger or pressing the mouse
anywhere on the panel area (not occupied by controls)

* Enhancement: TMataFile class (tmetafil.prg) can now handle WMF files too

* Fix: Class TImage had some 64 bits bugs. Now it is ok:

http://forums.fivetechsupport.com/viewt ... 11#p174911

* Enhancement: TSwitch.prg: Now Checkbox style is painted using programmer
specified colors instead of using hardcoded colors.

* Enhancement: Pivot functions in adofuncs.prg now accept complex sql
select statements too instead of table names.

* New: function OfficeExtractImage( cOfficeFileX, [ lReExtract := .f. ] ).
--> cThumbNailFile ( Empty string when fails )
Similar to IExtractImage function, this function Extracts thumbnail
emf, wmf, jpg from docx,xlsx,pptx if the file is saved with thumbnail.
file \source\function\olefuncs.prg

* Enhancement: BtnBmp: COLOR clause added to BtnBmp command.

* Fix: Translate SQL UPDATE in fwsqlcmd.ch: Converting single quotes in
where clause to double quotes. Fixed now.

* New: TXBrowse and TXBrwColumn: Methods AddVar( uVar, uVal )
We can create new DATA for specific instances of browse or column.
Eg: oBrw:AddVar( "aMySelect", {} )
AAdd( oBrw:aMySelect, RECNO() )
We can also add codeblocks:
Eg:
oBrw:AddVar( "ToggleRec", ;
< |Self|
local nAt
if ( nAt := AScan( ::aMySelect, RECNO() ) ) > 0
ADel( ::aMySelect, nAt, .t. )
else
AAdd( ::aMySelect, RECNO() )
endif
return nil
> )
Now, we can use this like a method:
oBrw:ToggleRec()
This can also be used for any specific column

* Enhancement: XBrowse: Now support for viewing EMF files also as image files,
using oCol:cDataType := 'F'

* Enhancement: TRect():New(...) now accepts windows RECT structue as character
buffer, in addition to array or t,l,b,r coordinates.

* New function in TMetaFil.prg
GETEMFSIZE( hMeta/cMetaFile, [ hDC/lScreen/NIL ], [ @nWidth ], [ @nHeight ] )
--> { nWidth, nHeight }
If second parameter is omitted or NIL, width and height are returned in MM
If hDC or lScreen, width and height are in pixels for the device context

* New function ISENHMETA( hobj ) --> lIsEnhMeta

* New: Simple stack implementation though xcommand/xtranlate directives
in fivewin.ch:
StackPush( v1, v2, ... vn )
StackPeek() --> last item pushed
StackPop() --> Last Item pushed and removes it from stack
IsStachEmpty() --> logical
Example Usage:
StackPush( recno(), ordsetfocus(), select() )
...
Select( StackPop() )
OrdSetFocus( StackPop() )
DbGoTo( StackPop() )

[luisduque]

Maestro Antonio.

En windows XP al ejecutar un simple ejemplo TestGet me sale Aplicación WIN32 no es valida, trabajo con

if exist "%ProgramFiles%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat" call "%ProgramFiles%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat"
if exist "%ProgramFiles(x86)%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat" call "%ProgramFiles(x86)%\Microsoft Visual Studio 12.0\VC\vcvarsall.bat"

y bien en windows 7 y windows 8

es mas en 64bit me trabaja bien en windows 7 y windows 8

en 64bits en windows server 2012 tambien me da error

Gracias

Fivewin 15.04

[Antonio Linares]

New FWH 15.04 build 2:

* Fix: function OfficeExtractImage() in olefuncs.prg: This was not working
with Harbour due to some issues with the version of HB_UnzipFile() of
Harbour. Workaround implemented.

* Enhancement: TXImage class. New Method Rotate( nDegrees )

* Fix: XBrowse: OrdKeyGoTo(n) is not working for ADS when there is
no controlling index. Workaround implemented.

* Visual Studio Community Edition (free) is supported

[Antonio Linares]

Luis,

En windows XP al ejecutar un simple ejemplo TestGet me sale Aplicación WIN32 no es valida

He intentado usar XP en VirtualBox en Windows 10 (build 10074) pero no funciona asi que de momento no puedo probarlo.

Imagino que el EXE intentará usar alguna función de una DLL que no esté en Windows 10.

Si usas este programa podrás ver las referencias externas y te ayudará a identificar cual puede ser la que no proporciona XP:
https://bitbucket.org/fivetech/fivewin- ... peinfo.exe

[fgondi]

Luis,

Revisa esto:
http://forums.fivetechsupport.com/viewt ... da#p147836

[luisduque]

fgondi,

Efectivamente era eso, claro anteriormente con mi buildh32 servia porque tenia estos parametros
"%VCINSTALLDIR%"bin\link @msvc.tmp /nologo /subsystem:windows,5.01 /force:multiple /NODEFAULTLIB:msvcrt /machine:X86 /nxcompat:NO /Ignore:4006

Muchas gracias solucionado.

[Antonio Linares]

gracias Fernando!