New FTDN June/Junio 2016 (FWH 16.06)

[Antonio Linares]

June 2016
=========

* Menus
New features with new Clausules in menu.ch

[ ROUND <nRound> ] ;
- Percentage round box items: 1, 2, 3 ...
[ <lUpper: UPPERMNU> ] ;
- Say Prompt items UpperCase
[ <lAdjust: ADJUST> ] ;
- Adjust height Menu Bar proportional of height Font assigned
[ LEFTWIDTH <nLeftWidth> ] ;
- Spaces left rect of item ( logo Menu )
[ <file or resource: LOGOMENU> <cBmpLogo> ] ;
- Left Image Popup menu
[ <file or resource: IMGMENU> <cImg> ] ;
- Right Image Popup menu
[ <file: BRUSH> <cBrush> ] ;
- Image of Brush menu popup

IMPORTANT: Width and Height of Menu they are automatically adjusted
to the height and width of the cBmpLogo and cImg.

- File MNU01.PRG, sample news features

* CLASS TRichEdit5

- New: METHOD nPages( lRefresh )
- New: METHOD LastLineVisible()
- Updated: sample TESTRTF5.PRG

* CLASS TRibbon
- New: DATA nRoundSize INIT 7
- New: DATA l2015
Important: in style 2013 and 2015 assign ::nRoundSize := 0

Sample:
DEFINE RIBBONBAR oRBar WINDOW oWnd ;
PROMPT "Configuración", "Ficheros", "Informes", "Ayudas" ;
HEIGHT 133 TOPMARGIN 25 2013
oRBar:nRoundBox := 4

- New: DATA l2015
- Modified: style l2015 added of metacommand
#xcommand DEFINE RIBBONBAR [ <oRBar> ] ;
[ <of:OF, WINDOW> <oWnd> ] ;
[ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ;
[ <act: ACTION, EXECUTE, ON CHANGE> <uAction> ] ;
[ OPTION <nOption> ] ;
[ HEIGHT <nHeight> ] ;
[ TOPMARGIN <nTopMargin> ];
[ COLOR <nClrPane> ] ;
[ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ;
[ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ;
[ <l2010: 2010, _2010> ];
[ <l2013: 2013, _2013> ];
[ STARTBTN <nStart> ];
[ <l2015: 2015, _2015> ];

- Bug Fixed: when style is 2013 or 2015 and STARTBTN <> 0, folder say with white color

* XBrowse:
- Fix: A speed optimization introduced in FWH 16.05 is not compatible
with ADS. While this is taken care of in SetRDD(), it effected
navigation of ADS with TDatabase. Fixed now. Users of 16.05, not
upgrading to 16.06 can apply this fix by adding one line:
::lRelyOnKeyNo := .f.
anywhere in the method SetOdbf()

- Fix: There is a long standing bug in ADO seek. In case of ADO seek,
entering '*' results in runtime error. Fixed. Users not upgrading to
16.06 can apply the fix by adding the lines
if Right( uSeek, 1 ) == "*"
return .f.
endif
at the beginning of method AdoIncrSeek()

* ButtonBar
- Fix: Buttonbar is expected to be transparent only if the programmer
explicitly sets its ltransprent to .t.. But due to an ommission in
dialog.prg, when a dialog is declared transparent, buttonbar's lTransparent
was automatically set to .t. This is not expected or acceptable. This bug
effects 16.05. Fixed.
Users not upgrading to 16.06 can apply the fix by adding "TBAR;" to the
list of excepted clases in line 640 of dialog.prg( v16.05)

* New: Function FW_AdoApplyParams( cSql, aParams, [cDB] ) --> cSql
This function greatly simplifies ebedding constant values in
sql statements according to the syntax applicable to the database
in use. By default, the function uses the syntax for the database
opened with FW_OpenAdoConnection. Optionally, programmer can specify
a different database in the 3rd param eg "ORACLE".

Example:
a)cSql := "WHERE AGE > ? AND NAME = ?"
FW_AdoApplyParams( cSql, { 40, "John" } )
--> "WHERE AGE > 40 AND NAME = 'John'
b)FW_AdoApplyParams( "JGDATE > ?", { Date()-365 }, "MYSQL" )
--> "JGDATE > '205-08-04'"
c)FW_AdoApplyParams( "JGDATE > ?", { Date()-365 }, "ORACLE" )
--> "JGDATE > DATE '205-08-04'"
d)FW_AdoApplyParams( "JGDATE > ?", { Date()-365 }, "ADO" )
--> "JGDATE > #205-08-04#"

This function takes care of differences in syntax in WildCards
between SQL and ADO. Where as '?' and '*' are wildcards used
in ADO and DBF, '_' and '%' are the corresponding wild cards
in SQL.

e)FW_AdoApplyParams( "NAME LIKE ?", { "K?D%" }, "MYSQL" )
-> "NAME LIKE 'K_D%'"
f)FW_AdoApplyParams( "NAME LIKE ?", { "K?D%" }, "ADO" )
-> "NAME LIKE 'K?D*'"

Any number of parameters can be speicified. Different syntaxes are
? // standard sql
:1, :2, :3
&1, &2, $3
:name, :age, :jgdate // standard sql
&name, &age, &jgdate, etc
In case of named parameters the array should be a multi-dim array

Example"
FW_AdoApplyParams( "AGE BETWEEN :min AND :max AND DEPT = :dep", ;
{ { "min", 30 }, { "max", 40 }, { "dep", 'STORES' } } )

- Greatly enhanced MariaDB/MySql functionality. Details explained
in forums.

[Antonio Linares]

FWH 16.06 build 2 already available:


- Fix: xbrowser <datetimevalue> is producing runtime error. fixed.

- Fix: TSwich.prg: Pressing space key toggles switch only when
created in a Window but not in a dialog. fixed.

- Improvement: Dialog.prg. If the OSK covers controls on a dialog
it is also possible for the user to move the dialog with fingers
to bring the control in view.

- MariaDB: BackUp and Restore system enahanced to include all objects
of database like views, stored procedures, functions and triggers

* Enhancement: function GetSysFont() now returns "Segoe UI" if Windows
10 or 8 is being used:

viewtopic.php?p=193067

thanks to James!

[cnavarro]

And also include:

- Minor bug solved in TRibbonbar
viewtopic.php?f=3&t=32793#p192910

- Fix sample TestRtf5.prg
viewtopic.php?f=3&t=32793&start=15#p192980