Well... I've fixed, but since the fix could have undesirable side effects
, I'm posting it here for testing prior to create a full new build.
Any reports are welcome.
Code: Select all
/*----------------------------------------------------------------------------
MINIGUI - Harbour Win32 GUI library source code
Copyright 2002-2008 Roberto Lopez <harbourminigui@gmail.com>
http://harbourminigui.googlepages.com/
This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with
this software; see the file COPYING. If not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA (or
visit the web site http://www.gnu.org/).
As a special exception, you have permission for additional uses of the text
contained in this release of Harbour Minigui.
The exception is that, if you link the Harbour Minigui library with other
files to produce an executable, this does not by itself cause the resulting
executable to be covered by the GNU General Public License.
Your use of that executable is in no way restricted on account of linking the
Harbour-Minigui library code into it.
Parts of this project are based upon:
"Harbour GUI framework for Win32"
Copyright 2001 Alexander S.Kresin <alex@belacy.belgorod.su>
Copyright 2001 Antonio Linares <alinares@fivetech.com>
www - http://www.harbour-project.org
"Harbour Project"
Copyright 1999-2003, http://www.harbour-project.org/
"WHAT32"
Copyright 2002 AJ Wos <andrwos@aust1.net>
"HWGUI"
Copyright 2001-2007 Alexander S.Kresin <alex@belacy.belgorod.su>
---------------------------------------------------------------------------*/
// DECLARE WINDOW Translate Map (Semi-OOP Properties/Methods Access)
// 01-01 -> Window Property Get
// 02-02 -> Window Property Set
// 03-03 -> Window Methods
// 04-18 -> Standard Controls
// 19-20 -> ToolBar Child Buttons
// 21-33 -> Tab Child COntrols
// 34-48 -> SplitBox Child Controls
// 49-50 -> SplitBox Child ToolBar Buttons
#xcommand DECLARE WINDOW <w> ;
=>;
#xtranslate <w> . \<p:Name,Title,Height,Width,Col,Row,NotifyIcon,NotifyToolTip,FocusedControl> => GetProperty ( <"w">, \<"p"\> ) ;;
#xtranslate <w> . \<p:Name,Title,Height,Width,Col,Row,NotifyIcon,NotifyToolTip,FocusedControl,Cursor> := \<n\> => SetProperty ( <"w">, \<"p"\> , \<n\> ) ;;
#xtranslate <w> . \<p:Activate,Center,Release,Maximize,Minimize,Restore,Show,Hide,SetFocus,Print,Capture> \[()\] => DoMethod ( <"w">, \<"p"\> ) ;;
#xtranslate <w> . \<c\> . \<p:Value,Name,Value,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,Object,InputItems,DisplayItems\> => GetProperty ( <"w">, \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<c\> . \<p:Value,Name,Value,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,InputItems,DisplayItems\> := \<n\> => SetProperty ( <"w">, \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . \<c\> . \<p:AllowAppend,AllowDelete,ReadOnly> => GetProperty ( <"w">, \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<c\> . \<p:AllowAppend,AllowDelete,ReadOnly> := \<n\> => SetProperty ( <"w">, \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . \<c\> . \<p:Caption,Header,Item,Icon,HeaderImages> (\<arg\>) => GetProperty ( <"w">, \<"c"\> , \<"p"\> , \<arg\> ) ;;
#xtranslate <w> . \<c\> . \<p:Caption,Header,Item,Icon,HeaderImages> (\<arg\>) := \<n\> => SetProperty ( <"w">, \<"c"\> , \<"p"\> , \<arg\> , \<n\> ) ;;
#xtranslate <w> . \<c\> . \<p:Cell> (\<arg1\>,\<arg2\>) => GetProperty ( <"w">, \<"c"\> , \<"p"\> , \<arg1\> , \<arg2\> ) ;;
#xtranslate <w> . \<c\> . \<p:Cell> (\<arg1\>,\<arg2\>) := \<n\> => SetProperty ( <"w">, \<"c"\> , \<"p"\> , \<arg1\> , \<arg2\> , \<n\> ) ;;
#xtranslate <w> . \<c\> . \<p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick> \[()\] => Domethod ( <"w">, \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<c\> . \<p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek> (\<a\>) => Domethod ( <"w">, \<"c"\> , \<"p"\> , \<a\> ) ;;
#xtranslate <w> . \<c\> . \<p:AddItem,AddPage> (\<a1\> , \<a2\>) => Domethod ( <"w">, \<"c"\> , \<"p"\> , \<a1\> , \<a2\> ) ;;
#xtranslate <w> . \<c\> . \<p:AddItem,AddPage> (\<a1\> , \<a2\> , \<a3\> ) => Domethod ( <"w">, \<"c"\> , \<"p"\> , \<a1\> , \<a2\> , \<a3\> ) ;;
#xtranslate <w> . \<c\> . \<p:AddItem,AddColumn,AddControl\> (\<a1\> , \<a2\> , \<a3\> , \<a4\> ) => Domethod ( <"w">, \<"c"\> , \<"p"\> , \<a1\> , \<a2\> , \<a3\> , \<a4\> ) ;;
#xtranslate <w> . \<c\> . \<p:Name,Length\> => GetProperty ( <"w">, \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<c\> . \<p:ReadOnly,Speed,Volume,Zoom\> := \<n\> => SetProperty ( <"w">, \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . \<x\> . \<c\> . \<p:Caption,Enabled,Value> => GetProperty ( <"w"> , \<"x"\> , \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<x\> . \<c\> . \<p:Caption,Enabled,Value> := \<n\> => SetProperty ( <"w"> , \<"x"\> , \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Value,Name,Value,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor\> => GetProperty ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Value,Name,Value,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor\> := \<n\> => SetProperty ( <"w"> , \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Caption,Header,Item,Icon> (\<arg\>) => GetProperty ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<arg\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Caption,Header,Item,Icon> (\<arg\>) := \<n\> => SetProperty ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<arg\> , \<n\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick\> \[()\] => Domethod ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek\> (\<a\>) => Domethod ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<a\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:AddItem,AddPage> (\<a1\> , \<a2\>) => Domethod ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<a1\> , \<a2\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:AddItem,AddPage> (\<a1\> , \<a2\> , \<a3\> ) => Domethod ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<a1\> , \<a2\> , \<a3\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:AddItem,AddColumn,AddControl> (\<a1\> , \<a2\> , \<a3\> , \<a4\> ) => Domethod ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<a1\> , \<a2\> , \<a3\> , \<a4\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Name,Length> => GetProperty ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:ReadOnly,Speed,Volume,Zoom> := \<n\> => SetProperty ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Cell> (\<arg1\>,\<arg2\>) => GetProperty ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<arg1\> , \<arg2\> ) ;;
#xtranslate <w> . \<x\> (\<k\>) . \<c\> . \<p:Cell> (\<arg1\>,\<arg2\>) := \<n\> => SetProperty ( <"w">, \<"x"\> , \<k\> , \<"c"\> , \<"p"\> , \<arg1\> , \<arg2\> , \<n\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Value,Name,Value,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,Object,InputItems,DisplayItems\> => GetProperty ( <"w">, "SplitBox" , \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Value,Name,Value,Address,BackColor,FontColor,Picture,ToolTip,FontName,FontSize,FontBold,FontItalic,FontUnderline,FontStrikeOut,Caption,Row,DisplayValue,Col,Width,Height,Visible,Enabled,Checked,ItemCount,RangeMin,RangeMax,Position,CaretPos,ForeColor,AllowEdit,InputItems,DisplayItems\> := \<n\> => SetProperty ( <"w">, "SplitBox" , \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:AllowAppend,AllowDelete,ReadOnly> => GetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:AllowAppend,AllowDelete,ReadOnly> := \<n\> => SetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Caption,Header,Item,Icon,HeaderImages> (\<arg\>) => GetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<arg\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Caption,Header,Item,Icon,HeaderImages> (\<arg\>) := \<n\> => SetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<arg\> , \<n\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Cell> (\<arg1\>,\<arg2\>) => GetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<arg1\> , \<arg2\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Cell> (\<arg1\>,\<arg2\>) := \<n\> => SetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<arg1\> , \<arg2\> , \<n\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Refresh,SetFocus,DeleteAllItems,Release,Show,Save,Hide,Play,Stop,Close,Pause,Eject,OpenDialog,Resume,Action,OnClick> \[()\] => Domethod ( <"w">, "SplitBox", \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:AddItem,DeleteItem,Open,DeletePage,DeleteColumn,Expand,Collapse,Seek> (\<a\>) => Domethod ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<a\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:AddItem,AddPage> (\<a1\> , \<a2\>) => Domethod ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<a1\> , \<a2\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:AddItem,AddPage> (\<a1\> , \<a2\> , \<a3\> ) => Domethod ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<a1\> , \<a2\> , \<a3\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:AddItem,AddColumn,AddControl\> (\<a1\> , \<a2\> , \<a3\> , \<a4\> ) => Domethod ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<a1\> , \<a2\> , \<a3\> , \<a4\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:Name,Length\> => GetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . SplitBox . \<c\> . \<p:ReadOnly,Speed,Volume,Zoom\> := \<n\> => SetProperty ( <"w">, "SplitBox", \<"c"\> , \<"p"\> , \<n\> ) ;;
#xtranslate <w> . SplitBox . \<x\> . \<c\> . \<p:Caption,Enabled,Value> => GetProperty ( <"w"> , "SplitBox" , \<"x"\> , \<"c"\> , \<"p"\> ) ;;
#xtranslate <w> . SplitBox . \<x\> . \<c\> . \<p:Caption,Enabled,Value> := \<n\> => SetProperty ( <"w"> , "SplitBox", \<"x"\> , \<"c"\> , \<"p"\> , \<n\> )
#xcommand DEFINE WINDOW <w> ;
AT <row>,<col> ;
WIDTH <wi> ;
HEIGHT <h> ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
[ ICON <icon> ] ;
[ <main: MAIN> ] ;
[ <child: CHILD> ] ;
[ <noshow: NOSHOW> ] ;
[ <topmost: TOPMOST> ] ;
[ <noautorelease: NOAUTORELEASE> ] ;
[ <nominimize: NOMINIMIZE> ] ;
[ <nomaximize: NOMAXIMIZE> ] ;
[ <nosize: NOSIZE> ] ;
[ <nosysmenu: NOSYSMENU> ] ;
[ <nocaption: NOCAPTION> ] ;
[ CURSOR <cursor> ] ;
[ ON INIT <InitProcedure> ] ;
[ ON RELEASE <ReleaseProcedure> ] ;
[ ON INTERACTIVECLOSE <interactivecloseprocedure> ] ;
[ ON MOUSECLICK <ClickProcedure> ] ;
[ ON MOUSEDRAG <MouseDragProcedure> ] ;
[ ON MOUSEMOVE <MouseMoveProcedure> ] ;
[ ON SIZE <SizeProcedure> ] ;
[ ON MAXIMIZE <MaximizeProcedure> ] ;
[ ON MINIMIZE <MinimizeProcedure> ] ;
[ ON PAINT <PaintProcedure> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONT <FontName> SIZE <FontSize> ] ;
[ NOTIFYICON <NotifyIcon> ] ;
[ NOTIFYTOOLTIP <NotifyIconTooltip> ] ;
[ ON NOTIFYCLICK <NotifyLeftClick> ] ;
[ ON GOTFOCUS <GotFocusProcedure> ] ;
[ ON LOSTFOCUS <LostFocusProcedure> ] ;
[ ON SCROLLUP <scrollup> ] ;
[ ON SCROLLDOWN <scrolldown> ] ;
[ ON SCROLLLEFT <scrollleft> ] ;
[ ON SCROLLRIGHT <scrollright> ] ;
[ ON HSCROLLBOX <hScrollBox> ] ;
[ ON VSCROLLBOX <vScrollBox> ] ;
[ <helpbutton: HELPBUTTON> ] ;
=>;
DECLARE WINDOW <w> ;;
DECLARE CUSTOM COMPONENTS <w> ;;
_DefineWindow ( <"w">, <title>, <col>, <row>, <wi>, <h>, <.nominimize.>, <.nomaximize.>, <.nosize.>, <.nosysmenu.>, <.nocaption.>,.F., '',<{InitProcedure}>, <{ReleaseProcedure}> , <{MouseDragProcedure}>, <{SizeProcedure}> , <{ClickProcedure}> , <{MouseMoveProcedure}>, <backcolor> , <{PaintProcedure}> , <.noshow.> , <.topmost.> , <.main.> , <icon> , <.child.> , <FontName> , <FontSize>, <NotifyIcon> , <NotifyIconTooltip> , <{NotifyLeftClick}> , <{GotFocusProcedure}>, <{LostFocusProcedure}> , <vHeight> , <vWidth> , <{scrollleft}> , <{scrollright}> , <{scrollup}> , <{scrolldown}> , <{hScrollBox}> , <{vScrollBox}> , <.helpbutton.> , <{MaximizeProcedure}> , <{MinimizeProcedure}> , <cursor> , <.noautorelease.> , <{interactivecloseprocedure}> )
#xcommand DEFINE WINDOW <w> ;
AT <row>,<col> ;
WIDTH <wi> ;
HEIGHT <h> ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
[ ICON <icon> ] ;
MODAL ;
[ <noshow: NOSHOW> ] ;
[ <noautorelease: NOAUTORELEASE> ] ;
[ <nosize: NOSIZE> ] ;
[ <nosysmenu: NOSYSMENU> ] ;
[ <nocaption: NOCAPTION> ] ;
[ CURSOR <cursor> ] ;
[ ON INIT <InitProcedure> ] ;
[ ON RELEASE <ReleaseProcedure> ] ;
[ ON INTERACTIVECLOSE <interactivecloseprocedure> ] ;
[ ON MOUSECLICK <ClickProcedure> ] ;
[ ON MOUSEDRAG <MouseDragProcedure> ] ;
[ ON MOUSEMOVE <MouseMoveProcedure> ] ;
[ ON SIZE <SizeProcedure> ] ;
[ ON PAINT <PaintProcedure> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONT <FontName> SIZE <FontSize> ] ;
[ ON GOTFOCUS <GotFocusProcedure> ] ;
[ ON LOSTFOCUS <LostFocusProcedure> ] ;
[ ON SCROLLUP <scrollup> ] ;
[ ON SCROLLDOWN <scrolldown> ] ;
[ ON SCROLLLEFT <scrollleft> ] ;
[ ON SCROLLRIGHT <scrollright> ] ;
[ ON HSCROLLBOX <hScrollBox> ] ;
[ ON VSCROLLBOX <vScrollBox> ] ;
[ <helpbutton: HELPBUTTON> ] ;
=>;
DECLARE WINDOW <w> ;;
_DefineModalWindow ( <"w">, <title>, <col>, <row>, <wi>, <h>, "" , <.nosize.>, <.nosysmenu.>, <.nocaption.> ,.F., '',<{InitProcedure}>, <{ReleaseProcedure}> , <{MouseDragProcedure}> , <{SizeProcedure}> , <{ClickProcedure}> , <{MouseMoveProcedure}>, [<backcolor>] , <{PaintProcedure}> , <icon> , <FontName> , <FontSize> , <{GotFocusProcedure}>, <{LostFocusProcedure}> , <vHeight> , <vWidth> , <{scrollleft}> , <{scrollright}> , <{scrollup}> , <{scrolldown}> , <{hScrollBox}> , <{vScrollBox}> , <.helpbutton.> , <cursor> , <.noshow.> , <.noautorelease.> , <{interactivecloseprocedure}> )
#xcommand DEFINE WINDOW <w> ;
WIDTH <wi> ;
HEIGHT <h> ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
SPLITCHILD ;
[ <nocaption: NOCAPTION> ] ;
[ CURSOR <cursor> ] ;
[ FONT <FontName> SIZE <FontSize> ] ;
[ GRIPPERTEXT <grippertext> ] ;
[ <break: BREAK> ] ;
[ <focused: FOCUSED> ] ;
[ ON GOTFOCUS <GotFocusProcedure> ] ;
[ ON LOSTFOCUS <LostFocusProcedure> ] ;
[ ON SCROLLUP <scrollup> ] ;
[ ON SCROLLDOWN <scrolldown> ] ;
[ ON SCROLLLEFT <scrollleft> ] ;
[ ON SCROLLRIGHT <scrollright> ] ;
[ ON HSCROLLBOX <hScrollBox> ] ;
[ ON VSCROLLBOX <vScrollBox> ] ;
=> ;
DECLARE WINDOW <w> ;;
_DefineSplitChildWindow ( <"w">, <wi>, <h> , <.break.> , <grippertext> , <.nocaption.> , <title> , <FontName> , <FontSize> , <{GotFocusProcedure}>, <{LostFocusProcedure}> , <vHeight> , <vWidth> , <.focused.> , <{scrollleft}> , <{scrollright}> , <{scrollup}> , <{scrolldown}> , <{hScrollBox}> , <{vScrollBox}> , <cursor> ) ;;
#xcommand LOAD WINDOW <w> ;
=> ;
DECLARE WINDOW <w> ;;
_HMG_SYSDATA \[ 214 \] := <"w"> ;;
#include \<<w>.fmg\>
#xcommand LOAD WINDOW <ww> AS <w> ;
=> ;
DECLARE WINDOW <w> ;;
_HMG_SYSDATA \[ 214 \] := <"w"> ; #include \<<ww>.fmg\>
#command RELEASE WINDOW <name> ;
=>;
DoMethod ( <"name"> , 'Release' )
#command RELEASE WINDOW ALL ;
=>;
ReleaseAllWindows()
#command RELEASE WINDOW MAIN ;
=>;
ReleaseAllWindows()
#xtranslate EXIT PROGRAM ;
=>;
ReleaseAllWindows()
#command ACTIVATE WINDOW <name, ...> ;
=>;
_ActivateWindow ( \{<"name">\} )
#command ACTIVATE WINDOW ALL ;
=>;
_ActivateAllWindows()
#command CENTER WINDOW <name> ;
=>;
DoMethod ( <"name"> , 'Center' )
#command MAXIMIZE WINDOW <name> ;
=>;
DoMethod ( <"name"> , 'Maximize' )
#command MINIMIZE WINDOW <name> ;
=>;
DoMethod ( <"name"> , 'Minimize' )
#command RESTORE WINDOW <name> ;
=>;
DoMethod ( <"name"> , 'Restore' )
#command SHOW WINDOW <name> ;
=>;
DoMethod ( <"name"> , 'Show' )
#command HIDE WINDOW <name> ;
=>;
DoMethod ( <"name"> , 'Hide' )
#command END WINDOW ;
=>;
_EndWindow ()
#xcommand DO EVENTS => ProcessMessages()
#xtranslate FETCH [ PROPERTY ] [ WINDOW ] <Arg1> <Arg2> TO <Arg3> ;
=> ;
<Arg3> := GetProperty ( <"Arg1"> , <"Arg2"> )
#xtranslate MODIFY [ PROPERTY ] [ WINDOW ] <Arg1> <Arg2> <Arg3> ;
=> ;
SetProperty ( <"Arg1"> , <"Arg2"> , <Arg3> )
#command DEFINE WINDOW TEMPLATE ;
AT <row>,<col> ;
WIDTH <wi> ;
HEIGHT <h> ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
[ ICON <icon> ] ;
[ <main: MAIN> ] ;
[ <child: CHILD> ] ;
[ <noshow: NOSHOW> ] ;
[ <topmost: TOPMOST> ] ;
[ <noautorelease: NOAUTORELEASE> ] ;
[ <nominimize: NOMINIMIZE> ] ;
[ <nomaximize: NOMAXIMIZE> ] ;
[ <nosize: NOSIZE> ] ;
[ <nosysmenu: NOSYSMENU> ] ;
[ <nocaption: NOCAPTION> ] ;
[ CURSOR <cursor> ] ;
[ ON INIT <InitProcedure> ] ;
[ ON RELEASE <ReleaseProcedure> ] ;
[ ON INTERACTIVECLOSE <interactivecloseprocedure> ] ;
[ ON MOUSECLICK <ClickProcedure> ] ;
[ ON MOUSEDRAG <MouseDragProcedure> ] ;
[ ON MOUSEMOVE <MouseMoveProcedure> ] ;
[ ON SIZE <SizeProcedure> ] ;
[ ON MAXIMIZE <MaximizeProcedure> ] ;
[ ON MINIMIZE <MinimizeProcedure> ] ;
[ ON PAINT <PaintProcedure> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONT <FontName> SIZE <FontSize> ] ;
[ NOTIFYICON <NotifyIcon> ] ;
[ NOTIFYTOOLTIP <NotifyIconTooltip> ] ;
[ ON NOTIFYCLICK <NotifyLeftClick> ] ;
[ ON GOTFOCUS <GotFocusProcedure> ] ;
[ ON LOSTFOCUS <LostFocusProcedure> ] ;
[ ON SCROLLUP <scrollup> ] ;
[ ON SCROLLDOWN <scrolldown> ] ;
[ ON SCROLLLEFT <scrollleft> ] ;
[ ON SCROLLRIGHT <scrollright> ] ;
[ ON HSCROLLBOX <hScrollBox> ] ;
[ ON VSCROLLBOX <vScrollBox> ] ;
[ <helpbutton: HELPBUTTON> ] ;
=>;
_DefineWindow ( , <title>, <col>, <row>, <wi>, <h>, <.nominimize.>, <.nomaximize.>, <.nosize.>, <.nosysmenu.>, <.nocaption.>,.F., '',<{InitProcedure}>, <{ReleaseProcedure}> , <{MouseDragProcedure}>, <{SizeProcedure}> , <{ClickProcedure}> , <{MouseMoveProcedure}>, [<backcolor>] , <{PaintProcedure}> , <.noshow.> , <.topmost.> , <.main.> , <icon> , <.child.> , <FontName> , <FontSize>, <NotifyIcon> , <NotifyIconTooltip> , <{NotifyLeftClick}> , <{GotFocusProcedure}>, <{LostFocusProcedure}> , <vHeight> , <vWidth> , <{scrollleft}> , <{scrollright}> , <{scrollup}> , <{scrolldown}> , <{hScrollBox}> , <{vScrollBox}> , <.helpbutton.> , <{MaximizeProcedure}> , <{MinimizeProcedure}> , <cursor> , <.noautorelease.> , <{interactivecloseprocedure}> )
#command DEFINE WINDOW TEMPLATE ;
AT <row>,<col> ;
WIDTH <wi> ;
HEIGHT <h> ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
[ ICON <icon> ] ;
MODAL ;
[ <noshow: NOSHOW> ] ;
[ <noautorelease: NOAUTORELEASE> ] ;
[ <nosize: NOSIZE> ] ;
[ <nosysmenu: NOSYSMENU> ] ;
[ <nocaption: NOCAPTION> ] ;
[ CURSOR <cursor> ] ;
[ ON INIT <InitProcedure> ] ;
[ ON RELEASE <ReleaseProcedure> ] ;
[ ON INTERACTIVECLOSE <interactivecloseprocedure> ] ;
[ ON MOUSECLICK <ClickProcedure> ] ;
[ ON MOUSEDRAG <MouseDragProcedure> ] ;
[ ON MOUSEMOVE <MouseMoveProcedure> ] ;
[ ON SIZE <SizeProcedure> ] ;
[ ON PAINT <PaintProcedure> ] ;
[ BACKCOLOR <backcolor> ] ;
[ FONT <FontName> SIZE <FontSize> ] ;
[ ON GOTFOCUS <GotFocusProcedure> ] ;
[ ON LOSTFOCUS <LostFocusProcedure> ] ;
[ ON SCROLLUP <scrollup> ] ;
[ ON SCROLLDOWN <scrolldown> ] ;
[ ON SCROLLLEFT <scrollleft> ] ;
[ ON SCROLLRIGHT <scrollright> ] ;
[ ON HSCROLLBOX <hScrollBox> ] ;
[ ON VSCROLLBOX <vScrollBox> ] ;
[ <helpbutton: HELPBUTTON> ] ;
=>;
_DefineModalWindow ( , <title>, <col>, <row>, <wi>, <h>, "" , <.nosize.>, <.nosysmenu.>, <.nocaption.> ,.F., '',<{InitProcedure}>, <{ReleaseProcedure}> , <{MouseDragProcedure}> , <{SizeProcedure}> , <{ClickProcedure}> , <{MouseMoveProcedure}>, [<backcolor>] , <{PaintProcedure}> , <icon> , <FontName> , <FontSize> , <{GotFocusProcedure}>, <{LostFocusProcedure}> , <vHeight> , <vWidth> , <{scrollleft}> , <{scrollright}> , <{scrollup}> , <{scrolldown}> , <{hScrollBox}> , <{vScrollBox}> , <.helpbutton.> , <cursor> , <.noshow.> , <.noautorelease.> , <{interactivecloseprocedure}> )
#xcommand DEFINE WINDOW TEMPLATE ;
WIDTH <wi> ;
HEIGHT <h> ;
[ VIRTUAL WIDTH <vWidth> ] ;
[ VIRTUAL HEIGHT <vHeight> ] ;
[ TITLE <title> ] ;
SPLITCHILD ;
[ <nocaption: NOCAPTION> ] ;
[ CURSOR <cursor> ] ;
[ FONT <FontName> SIZE <FontSize> ] ;
[ GRIPPERTEXT <grippertext> ] ;
[ <break: BREAK> ] ;
[ <focused: FOCUSED> ] ;
[ ON GOTFOCUS <GotFocusProcedure> ] ;
[ ON LOSTFOCUS <LostFocusProcedure> ] ;
[ ON SCROLLUP <scrollup> ] ;
[ ON SCROLLDOWN <scrolldown> ] ;
[ ON SCROLLLEFT <scrollleft> ] ;
[ ON SCROLLRIGHT <scrollright> ] ;
[ ON HSCROLLBOX <hScrollBox> ] ;
[ ON VSCROLLBOX <vScrollBox> ] ;
=> ;
_DefineSplitChildWindow ( , <wi>, <h> , <.break.> , <grippertext> , <.nocaption.> , <title> , <FontName> , <FontSize> , <{GotFocusProcedure}>, <{LostFocusProcedure}> , <vHeight> , <vWidth> , <.focused.> , <{scrollleft}> , <{scrollright}> , <{scrollup}> , <{scrolldown}> , <{hScrollBox}> , <{vScrollBox}> , <cursor> ) ;;
#xcommand SET TOOLTIPSTYLE BALLOON ;
=> ;
_HMG_SYSDATA \[55\] := .T.
#xcommand SET TOOLTIPSTYLE STANDARD ;
=> ;
_HMG_SYSDATA \[55\] := .F.
#xcommand SET TOOLTIPBACKCOLOR <aColor> ;
=> ;
_HMG_SYSDATA \[56\] := <aColor>
#xcommand SET TOOLTIPFORECOLOR <aColor> ;
=> ;
_HMG_SYSDATA \[57\] := <aColor>
Roberto.