You can subscribe to this list here.
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(3) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2012 |
Jan
(12) |
Feb
(3) |
Mar
|
Apr
|
May
|
Jun
(2) |
Jul
(24) |
Aug
(17) |
Sep
(31) |
Oct
(1) |
Nov
(9) |
Dec
(46) |
| 2013 |
Jan
(8) |
Feb
(13) |
Mar
(11) |
Apr
(13) |
May
(27) |
Jun
(64) |
Jul
(59) |
Aug
(2) |
Sep
(5) |
Oct
(5) |
Nov
(13) |
Dec
(5) |
| 2014 |
Jan
(8) |
Feb
(7) |
Mar
|
Apr
(25) |
May
(22) |
Jun
(9) |
Jul
(16) |
Aug
|
Sep
(2) |
Oct
(27) |
Nov
|
Dec
(75) |
| 2015 |
Jan
(21) |
Feb
(8) |
Mar
(1) |
Apr
(36) |
May
(42) |
Jun
(58) |
Jul
(26) |
Aug
(13) |
Sep
(5) |
Oct
|
Nov
(7) |
Dec
(15) |
| 2016 |
Jan
(20) |
Feb
(12) |
Mar
|
Apr
|
May
|
Jun
(10) |
Jul
(8) |
Aug
(29) |
Sep
(42) |
Oct
(11) |
Nov
(3) |
Dec
(1) |
| 2017 |
Jan
(1) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
(5) |
Jul
|
Aug
|
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2018 |
Jan
(4) |
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
(14) |
Sep
(13) |
Oct
(13) |
Nov
(32) |
Dec
(47) |
| 2019 |
Jan
(10) |
Feb
(9) |
Mar
|
Apr
(5) |
May
(2) |
Jun
(2) |
Jul
(1) |
Aug
|
Sep
(7) |
Oct
|
Nov
|
Dec
(7) |
| 2020 |
Jan
(2) |
Feb
|
Mar
(14) |
Apr
(12) |
May
(13) |
Jun
(10) |
Jul
(6) |
Aug
(11) |
Sep
(14) |
Oct
(9) |
Nov
(10) |
Dec
(14) |
| 2021 |
Jan
(11) |
Feb
(16) |
Mar
(15) |
Apr
(20) |
May
(13) |
Jun
(1) |
Jul
(1) |
Aug
(1) |
Sep
(3) |
Oct
(14) |
Nov
(4) |
Dec
(5) |
| 2022 |
Jan
(14) |
Feb
(12) |
Mar
(2) |
Apr
(2) |
May
(7) |
Jun
(16) |
Jul
(8) |
Aug
(12) |
Sep
(10) |
Oct
(14) |
Nov
(23) |
Dec
(17) |
| 2023 |
Jan
(9) |
Feb
|
Mar
|
Apr
(4) |
May
(8) |
Jun
|
Jul
(29) |
Aug
(43) |
Sep
(32) |
Oct
(28) |
Nov
(27) |
Dec
(27) |
| 2024 |
Jan
(5) |
Feb
(11) |
Mar
(2) |
Apr
|
May
(3) |
Jun
|
Jul
(3) |
Aug
(10) |
Sep
(7) |
Oct
(6) |
Nov
(10) |
Dec
(7) |
| 2025 |
Jan
(19) |
Feb
(14) |
Mar
(12) |
Apr
(21) |
May
(3) |
Jun
(7) |
Jul
(2) |
Aug
(8) |
Sep
|
Oct
|
Nov
|
Dec
|
|
From: <alk...@us...> - 2012-06-06 11:11:35
|
Revision: 1844
http://hwgui.svn.sourceforge.net/hwgui/?rev=1844&view=rev
Author: alkresin
Date: 2012-06-06 11:11:24 +0000 (Wed, 06 Jun 2012)
Log Message:
-----------
2012-06-06 15:10 UTC+0300 Alexander Kresin <al...@be...>
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/xml/hxmldoc.prg
trunk/hwgui/source/xml/xmlparse.c
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-06-06 08:51:02 UTC (rev 1843)
+++ trunk/hwgui/Changelog 2012-06-06 11:11:24 UTC (rev 1844)
@@ -8,6 +8,13 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-06-06 15:10 UTC+0300 Alexander Kresin <al...@be...>
+ * source/xml/hxmldoc.prg
+ * source/xml/xmlparse.c
+ * Errors handling has been improved.
+ * HXMLDoc():Read() returns Nil if an error had been occured and the
+ HXMLDoc:nLastErr keeps the error code.
+
2012-06-06 12:50 UTC+0300 Alexander Kresin <al...@be...>
* source/xml/hxmldoc.prg
! Small fixes and additions, which I've made earlier
Modified: trunk/hwgui/source/xml/hxmldoc.prg
===================================================================
--- trunk/hwgui/source/xml/hxmldoc.prg 2012-06-06 08:51:02 UTC (rev 1843)
+++ trunk/hwgui/source/xml/hxmldoc.prg 2012-06-06 11:11:24 UTC (rev 1844)
@@ -19,6 +19,7 @@
CLASS HXMLNode
+ CLASS VAR nLastErr SHARED
DATA title
DATA type
DATA aItems INIT {}
@@ -215,15 +216,15 @@
IF fname != Nil
han := FOpen( fname, FO_READ )
IF han != -1
- hbxml_GetDoc( Self,han )
+ ::nLastErr := hbxml_GetDoc( Self,han )
FClose( han )
ENDIF
ELSEIF buffer != Nil
- hbxml_GetDoc( Self,buffer )
+ ::nLastErr := hbxml_GetDoc( Self,buffer )
ELSE
Return Nil
ENDIF
-Return Self
+Return Iif( ::nLastErr == 0, Self, Nil )
METHOD Save( fname,lNoHeader ) CLASS HXMLDoc
Local handle := -2
Modified: trunk/hwgui/source/xml/xmlparse.c
===================================================================
--- trunk/hwgui/source/xml/xmlparse.c 2012-06-06 08:51:02 UTC (rev 1843)
+++ trunk/hwgui/source/xml/xmlparse.c 2012-06-06 11:11:24 UTC (rev 1844)
@@ -48,13 +48,13 @@
static int nParseError;
static HB_ULONG ulOffset;
+#define HBXML_PREDEFS_KOL 6
static unsigned char *predefinedEntity1[] =
{ ( unsigned char * ) "lt;", ( unsigned char * ) "gt;",
( unsigned char * ) "amp;", ( unsigned char * ) "quot;",
- ( unsigned char * ) "apos;" };
-static unsigned char *predefinedEntity2 = ( unsigned char * ) "<>&\"\'";
+ ( unsigned char * ) "apos;", ( unsigned char * ) "nbsp;" };
+static unsigned char *predefinedEntity2 = ( unsigned char * ) "<>&\"\' ";
-
void hbxml_error( int nError, unsigned char *ptr )
{
nParseError = nError;
@@ -119,11 +119,6 @@
PHB_ITEM hbxml_pp( unsigned char *ptr, HB_ULONG ulLen )
{
unsigned char *ptrStart = ptr;
- unsigned char *predefinedEntity1[] =
- { ( unsigned char * ) "lt;", ( unsigned char * ) "gt;",
- ( unsigned char * ) "amp;", ( unsigned char * ) "quot;",
- ( unsigned char * ) "apos;" };
- unsigned char *predefinedEntity2 = ( unsigned char * ) "<>&\"\'";
int i, nlen;
HB_ULONG ul = 0, ul1;
@@ -147,7 +142,7 @@
}
else
{
- for( i = 0; i < 5; i++ )
+ for( i = 0; i < HBXML_PREDEFS_KOL; i++ )
{
nlen = strlen( ( char * ) predefinedEntity1[i] );
if( !memcmp( ptr + 1, predefinedEntity1[i], nlen ) )
@@ -159,7 +154,7 @@
break;
}
}
- if( i == 5 )
+ if( i == HBXML_PREDEFS_KOL )
hbxml_error( HBXML_ERROR_WRONG_ENTITY, ptr );
}
}
@@ -394,7 +389,7 @@
( *pBuffer )--;
if( **pBuffer == '?' )
( *pBuffer )--;
- if( ( pArray = hbxml_getattr( pBuffer, &lSingle ) ) == NULL )
+ if( ( pArray = hbxml_getattr( pBuffer, &lSingle ) ) == NULL || nParseError )
{
hb_itemRelease( pNode );
return HB_FALSE;
@@ -431,12 +426,21 @@
hb_objSendMsg( pNode, "AITEMS", 0 );
hb_arrayAdd( hb_param( -1, HB_IT_ANY ), pTemp );
hb_itemRelease( pTemp );
+ if( nParseError )
+ {
+ hb_itemRelease( pNode );
+ return HB_FALSE;
+ }
}
if( *( *pBuffer + 1 ) == '/' )
{
if( memcmp( *pBuffer + 2, cNodeName, nLenNodeName ) )
+ {
hbxml_error( HBXML_ERROR_WRONG_TAG_END, *pBuffer );
+ hb_itemRelease( pNode );
+ return HB_FALSE;
+ }
else
{
while( **pBuffer != '>' )
@@ -520,6 +524,15 @@
{
HB_BOOL lSingle;
PHB_ITEM pArray = hbxml_getattr( &ptr, &lSingle );
+ if( !pArray || nParseError )
+ {
+ if( bFile )
+ hb_xfree( cBuffer );
+ if( pArray )
+ hb_itemRelease( pArray );
+ hb_retni( nParseError );
+ return;
+ }
hb_objSendMsg( pDoc, "_AATTR", 1, pArray );
hb_itemRelease( pArray );
HB_SKIPTABSPACES( ptr );
@@ -553,8 +566,6 @@
if( bFile )
hb_xfree( cBuffer );
- if( nParseError )
- hb_retni( nParseError );
- else
- hb_retni( 0 );
+ hb_retni( nParseError );
}
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <alk...@us...> - 2012-06-06 08:51:13
|
Revision: 1843
http://hwgui.svn.sourceforge.net/hwgui/?rev=1843&view=rev
Author: alkresin
Date: 2012-06-06 08:51:02 +0000 (Wed, 06 Jun 2012)
Log Message:
-----------
2012-06-06 12:50 UTC+0300 Alexander Kresin <al...@be...>
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/xml/hxmldoc.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-02-11 14:35:18 UTC (rev 1842)
+++ trunk/hwgui/Changelog 2012-06-06 08:51:02 UTC (rev 1843)
@@ -7,6 +7,11 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+
+2012-06-06 12:50 UTC+0300 Alexander Kresin <al...@be...>
+ * source/xml/hxmldoc.prg
+ ! Small fixes and additions, which I've made earlier
+
2012-02-11 12:00 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
- samples/image/BUILD.BMP
samples/image/DOOR.BMP
Modified: trunk/hwgui/source/xml/hxmldoc.prg
===================================================================
--- trunk/hwgui/source/xml/hxmldoc.prg 2012-02-11 14:35:18 UTC (rev 1842)
+++ trunk/hwgui/source/xml/hxmldoc.prg 2012-06-06 08:51:02 UTC (rev 1843)
@@ -23,11 +23,13 @@
DATA type
DATA aItems INIT {}
DATA aAttr INIT {}
+ DATA cargo
METHOD New( cTitle, type, aAttr )
METHOD Add( xItem )
METHOD GetAttribute( cName )
METHOD SetAttribute( cName,cValue )
+ METHOD DelAttribute( cName )
METHOD Save( handle,level )
METHOD Find( cTitle,nStart )
ENDCLASS
@@ -63,10 +65,23 @@
Return .T.
+METHOD DelAttribute( cName ) CLASS HXMLNode
+Local i := Ascan( ::aAttr,{|a|a[1]==cName} )
+
+ IF i != 0
+ Adel( ::aAttr, i )
+ Asize( ::aAttr, Len( ::aAttr ) - 1 )
+ ENDIF
+Return .T.
+
METHOD Save( handle,level ) CLASS HXMLNode
-Local i, s, lNewLine
+Local i, s := Space(level*2)+'<', lNewLine
- s := Space(level*2) + '<'
+ IF !__mvExist( "HXML_NEWLINE" )
+ __mvPrivate( "HXML_NEWLINE" )
+ __mvPut( "HXML_NEWLINE", .T. )
+ ENDIF
+ lNewLine := m->hxml_newline
IF ::type == HBXML_TYPE_COMMENT
s += '!--'
ELSEIF ::type == HBXML_TYPE_CDATA
@@ -81,20 +96,20 @@
s += ' ' + ::aAttr[i,1] + '="' + HBXML_Transform(::aAttr[i,2]) + '"'
NEXT
ENDIF
- IF ::type == HBXML_TYPE_COMMENT
- s += '-->' + Chr(10)
- ELSEIF ::type == HBXML_TYPE_PI
+ IF ::type == HBXML_TYPE_PI
s += '?>' + Chr(10)
+ m->hxml_newline := .T.
ELSEIF ::type == HBXML_TYPE_SINGLE
s += '/>' + Chr(10)
+ m->hxml_newline := .T.
ELSEIF ::type == HBXML_TYPE_TAG
s += '>'
- IF Len(::aItems) == 1 .AND. Valtype(::aItems[1]) == "C" .AND. ;
- Len(::aItems[1]) + Len(s) < 80
- lNewLine := .F.
+ IF Empty( ::aItems ) .OR. ( Len(::aItems) == 1 .AND. ;
+ Valtype(::aItems[1]) == "C" .AND. Len(::aItems[1]) + Len(s) < 80 )
+ lNewLine := m->hxml_newline := .F.
ELSE
s += Chr(10)
- lNewLine := .T.
+ lNewLine := m->hxml_newline := .T.
ENDIF
ENDIF
IF handle >= 0
@@ -104,33 +119,45 @@
FOR i := 1 TO Len( ::aItems )
IF Valtype( ::aItems[i] ) == "C"
IF handle >= 0
- IF ::type == HBXML_TYPE_CDATA
+ IF ::type == HBXML_TYPE_CDATA .OR. ::type == HBXML_TYPE_COMMENT
FWrite( handle, ::aItems[i] )
ELSE
FWrite( handle, HBXML_Transform( ::aItems[i] ) )
ENDIF
+ IF lNewLine
+ FWrite( handle, Chr(10) )
+ ENDIF
ELSE
- IF ::type == HBXML_TYPE_CDATA
+ IF ::type == HBXML_TYPE_CDATA .OR. ::type == HBXML_TYPE_COMMENT
s += ::aItems[i]
ELSE
s += HBXML_Transform( ::aItems[i] )
ENDIF
+ IF lNewLine
+ s += Chr(10)
+ ENDIF
ENDIF
+ m->hxml_newline := .F.
ELSE
s += ::aItems[i]:Save( handle, level+1 )
ENDIF
NEXT
+ m->hxml_newline := .T.
IF handle >= 0
IF ::type == HBXML_TYPE_TAG
FWrite( handle, Iif(lNewLine,Space(level*2),"") + '</' + ::title + '>' + Chr(10 ) )
ELSEIF ::type == HBXML_TYPE_CDATA
FWrite( handle, ']]>' + Chr(10) )
+ ELSEIF ::type == HBXML_TYPE_COMMENT
+ FWrite( handle, '-->' + Chr(10) )
ENDIF
ELSE
IF ::type == HBXML_TYPE_TAG
s += Iif(lNewLine,Space(level*2),"") + '</' + ::title + '>' + Chr(10 )
ELSEIF ::type == HBXML_TYPE_CDATA
s += ']]>' + Chr(10)
+ ELSEIF ::type == HBXML_TYPE_COMMENT
+ s += '-->' + Chr(10)
ENDIF
Return s
ENDIF
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <lc...@us...> - 2012-02-11 14:35:25
|
Revision: 1842
http://hwgui.svn.sourceforge.net/hwgui/?rev=1842&view=rev
Author: lculik
Date: 2012-02-11 14:35:18 +0000 (Sat, 11 Feb 2012)
Log Message:
-----------
Modified Paths:
--------------
trunk/hwgui/Changelog
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-02-11 14:21:57 UTC (rev 1841)
+++ trunk/hwgui/Changelog 2012-02-11 14:35:18 UTC (rev 1842)
@@ -7,7 +7,29 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-02-11 12:00 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
+ - samples/image/BUILD.BMP
+ samples/image/DOOR.BMP
+ samples/image/Exit_m.bmp
+ samples/image/LOGO.BMP
+ samples/image/NEW.BMP
+ samples/image/New_m.bmp
+ samples/image/Open_m.bmp
+ samples/image/PIM.ICO
+ samples/image/SAVE.BMP
+ ! removed to renamed to lowecase
+ + samples/image/exit_m.bmp
+ samples/image/open_m.bmp
+ samples/image/build.bmp
+ samples/image/door.bmp
+ samples/image/logo.bmp
+ samples/image/new.bmp
+ samples/image/new_m.bmp
+ samples/image/pim.ico
+ samples/image/save.bmp
+ ! added lower case file name of removed files
+
2012-01-30 09:05 UTC+0200 Alexey Myronenko <vatzct < at > polly.com.ua>
* source/hpanel.prg
* commented processing wm_keyup which made it impossible to move
@@ -13628,4 +13650,4 @@
* source/window.c
* source/Makefile
+ source/misc.c
- * Committed changes, included in the patch (29.10.2003)
\ No newline at end of file
+ * Committed changes, included in the patch (29.10.2003)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <lc...@us...> - 2012-02-11 14:22:04
|
Revision: 1841
http://hwgui.svn.sourceforge.net/hwgui/?rev=1841&view=rev
Author: lculik
Date: 2012-02-11 14:21:57 +0000 (Sat, 11 Feb 2012)
Log Message:
-----------
renamed upper case files names to lower case, and removed upper cases
file names
Added Paths:
-----------
trunk/hwgui/samples/image/exit_m.bmp
trunk/hwgui/samples/image/open_m.bmp
Removed Paths:
-------------
trunk/hwgui/samples/image/BUILD.BMP
trunk/hwgui/samples/image/DOOR.BMP
trunk/hwgui/samples/image/Exit_m.bmp
trunk/hwgui/samples/image/LOGO.BMP
trunk/hwgui/samples/image/NEW.BMP
trunk/hwgui/samples/image/New_m.bmp
trunk/hwgui/samples/image/Open_m.bmp
trunk/hwgui/samples/image/PIM.ICO
trunk/hwgui/samples/image/SAVE.BMP
Deleted: trunk/hwgui/samples/image/BUILD.BMP
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/DOOR.BMP
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/Exit_m.bmp
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/LOGO.BMP
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/NEW.BMP
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/New_m.bmp
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/Open_m.bmp
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/PIM.ICO
===================================================================
(Binary files differ)
Deleted: trunk/hwgui/samples/image/SAVE.BMP
===================================================================
(Binary files differ)
Added: trunk/hwgui/samples/image/exit_m.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/exit_m.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/image/open_m.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/open_m.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <lc...@us...> - 2012-02-11 14:16:15
|
Revision: 1840
http://hwgui.svn.sourceforge.net/hwgui/?rev=1840&view=rev
Author: lculik
Date: 2012-02-11 14:16:08 +0000 (Sat, 11 Feb 2012)
Log Message:
-----------
renamed uppercase file names to lower case
Added Paths:
-----------
trunk/hwgui/samples/image/build.bmp
trunk/hwgui/samples/image/door.bmp
trunk/hwgui/samples/image/logo.bmp
trunk/hwgui/samples/image/new.bmp
trunk/hwgui/samples/image/new_m.bmp
trunk/hwgui/samples/image/pim.ico
trunk/hwgui/samples/image/save.bmp
Added: trunk/hwgui/samples/image/build.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/build.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/image/door.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/door.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/image/logo.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/logo.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/image/new.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/new.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/image/new_m.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/new_m.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/image/pim.ico
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/pim.ico
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/image/save.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/image/save.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <om...@us...> - 2012-01-30 07:03:46
|
Revision: 1839
http://hwgui.svn.sourceforge.net/hwgui/?rev=1839&view=rev
Author: omm
Date: 2012-01-30 07:03:38 +0000 (Mon, 30 Jan 2012)
Log Message:
-----------
2012-01-30 09:05 UTC+0200 Alexey Myronenko <vatzct < at > polly.com.ua>
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/hpanel.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-28 18:38:57 UTC (rev 1838)
+++ trunk/hwgui/Changelog 2012-01-30 07:03:38 UTC (rev 1839)
@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-01-30 09:05 UTC+0200 Alexey Myronenko <vatzct < at > polly.com.ua>
+ * source/hpanel.prg
+ * commented processing wm_keyup which made it impossible to move
+ controls in designer of reports
+
2012-01-28 19:40 UTC+0100 Maurizio la Cecilia <m.l...@gm...>
* changelog
! translated previous message to be correctly in english
@@ -15,8 +20,8 @@
! fixed method declaration causding warning
* hwgui.hbc
* changed to contain the source names and no more the hbm reference
- this way the xbIDE users will open the sources in the editor
- directly from the project tree
+ this way the xbIDE users will open the sources in the editor
+ directly from the project tree
2012-01-28 10:00 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
* source/hcombo.prg
@@ -25,12 +30,12 @@
* source/hdatepicker.prg
! parametrized the displaying of the hour
* include/guilib.ch
- ! changed hcombo redefine method adding ledit and ltext clauses
+ ! changed hcombo redefine method adding ledit and ltext clauses
2012-01-23 08:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* FUNCTION NextFocus
- ! minor fix in DIALOGS RESOURCE
+ ! minor fix in DIALOGS RESOURCE
2012-01-21 10:40 UTC+0100 Maurizio la Cecilia <m.l...@gm...>
* source/hedit.prg
@@ -39,94 +44,92 @@
+ added system metrics constants
* source/drawtext.c
+ added four items to the returned array from GetTextMetrics()
- function: InternalLeading, Ascent, Descent, Weight
- This values would be useful to better tailor controls in base of
- font properties
-
+ function: InternalLeading, Ascent, Descent, Weight
+ This values would be useful to better tailor controls in base of
+ font properties
+
2012-01-20 21:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* FUNCTION NextFocus
- ! minor fix in DIALOGS RESOURCE
+ ! minor fix in DIALOGS RESOURCE
2012-01-20 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* samples
+ folder Resource
* samples/browse/browse_2.prg
- ! fix in pictures
+ ! fix in pictures
* source/hbrowse.prg
- + STATIC axPosMouseOver
+ + STATIC axPosMouseOver
METHOD onEvent()
- METHOD MouseMove()
+ METHOD MouseMove()
METHOD ButtomDown()
- ! fix in header with themed
+ ! fix in header with themed
* source/hownbtn.prg
* METHOD MUp()
- ! minor fix
+ ! minor fix
-
2012-01-12 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/commond.c
* HB_FUNC( SAVEFILE )
- + parameters sixth
- < .T. OR .F. > confirmation OVERWRITEPROMPT in write file If the file already exists
+ + parameters sixth
+ < .T. OR .F. > confirmation OVERWRITEPROMPT in write file If the file already exists
-
2012-01-03 20:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* METHOD GetApplyKey
- ! fixed picture when PICFUNC "@Z" If 0, converts currency or numeric values to spaces.
- in case if the number is less than 1.
-
+ ! fixed picture when PICFUNC "@Z" If 0, converts currency or numeric values to spaces.
+ in case if the number is less than 1.
+
2012-01-02 09:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hhyper.prg
! minor fix in Method Init to work in MAIN MDICHILD and DIALOG
- * source/htool.prg
+ * source/htool.prg
* CLASS HToolButton
- * METHOD New
- - // ::oParent:oParent:AddEvent( BN_CLICKED, Self, {|| ::ONCLICK()},,"click" )
- event Click is triggered in Method Notify
+ * METHOD New
+ - // ::oParent:oParent:AddEvent( BN_CLICKED, Self, {|| ::ONCLICK()},,"click" )
+ event Click is triggered in Method Notify
* CLASS HTool
- * METHOD Notifify
- ! minor fix in NM_CLICK
+ * METHOD Notifify
+ ! minor fix in NM_CLICK
2011-12-29 13:42 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
! changelog
! apenas um teste para ser se o email automatico esta funcionando
-
+
2011-12-28 08:20 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hbrowse.prg
* CLASS HBrowse
- + METHOD onClick( )
- * METHOD Edit( )
- ! changed valdidation bEnter to Method onClick
+ + METHOD onClick( )
+ * METHOD Edit( )
+ ! changed valdidation bEnter to Method onClick
* source/hcontrol.prg
* CLASS HStatic
- * METHOD Init( )
- ! minor fix to work hhyperlink
+ * METHOD Init( )
+ ! minor fix to work hhyperlink
* source/hhyper.prg
- * METHOD INIT
- * METHOD onEvent
- * METHOD OnMouseMove
- * METHOD PAint
- ! fixed to work in MAIN and DIALOGS
+ * METHOD INIT
+ * METHOD onEvent
+ * METHOD OnMouseMove
+ * METHOD PAint
+ ! fixed to work in MAIN and DIALOGS
* source/hedit.prg
- * METHOD NEW
- ! minor fix in maxlenght
-
+ * METHOD NEW
+ ! minor fix in maxlenght
+
2011-12-26 09:10 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hhyper.prg
* METHOD PAINT
- ! minor fix
+ ! minor fix
2011-12-25 18:50 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hcontrol.prg
* CLASS HControl
* METHOD SetFocus( lValid )
- + add parameter lValid
- Fixed SetFocus event when he was fired from inside the event WHEN or GetFocus
+ + add parameter lValid
+ Fixed SetFocus event when he was fired from inside the event WHEN or GetFocus
* source/hedit.prg
+ FUNCTION WhenSetFocus( oCtrl, nSkip )
- sets the Control focus when in the Event WHEN or GetFocus is returned false
+ sets the Control focus when in the Event WHEN or GetFocus is returned false
* source/hbrowse.prg
* source/hcheck.prg
* source/hcombo.prg
@@ -137,30 +140,30 @@
* source/hradio.prg
* METHOD WHEN and VALID
! changed the handles comparisons between focus for the use of function SELFFOCUS
- * source/hcwindow.prg
+ * source/hcwindow.prg
* source/hwindow.prg
! minor fix
* source/window.c
+ HB_FUNC( SELFFOCUS )
- compares two handlers returning logical values. When only one parameter is passed, the comparison is made as GetFocus()
-
+ compares two handlers returning logical values. When only one parameter is passed, the comparison is made as GetFocus()
+
2011-12-25 18:30 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* include/guilib.ch
* xcommand MENU [ OF <oWnd> ] [ ID <nId> ] [ TITLE <cTitle> ]
- + [ COLOR <bcolor> ] [ BMPSIZE <nWidthBmp>, <nHeighBmp> ]
+ + [ COLOR <bcolor> ] [ BMPSIZE <nWidthBmp>, <nHeighBmp> ]
* source/menu.prg
- + STATIC s_nWidthBmp, s_nHeightBmp,s_nbkColor
+ + STATIC s_nWidthBmp, s_nHeightBmp,s_nbkColor
* FUNCTION BuildMenu
- ! suport to bcolor
+ ! suport to bcolor
* FUNCTION Hwg_BeginMenu
- + parameters nbkColor, nWidthBmp, nHeightBmp
+ + parameters nbkColor, nWidthBmp, nHeightBmp
* source/menu_c.c
+ HB_FUNC( HWG_SETMENUINFO )
- * source/misc.c
+ * source/misc.c
+ HB_FUNC( HWG_ISWIN7 )
2011-12-19 08:20 UTC+0200 Alexey Myronenko <vatzct < at > polly.com.ua>
- * source\hriched.prg
+ * source\hriched.prg
* fix build for unicode, suggested by Tom
2011-12-13 10:15 UTC+0100 Giuseppe Mastrangelo <giu...@ti...>
Modified: trunk/hwgui/source/hpanel.prg
===================================================================
--- trunk/hwgui/source/hpanel.prg 2012-01-28 18:38:57 UTC (rev 1838)
+++ trunk/hwgui/source/hpanel.prg 2012-01-30 07:03:38 UTC (rev 1839)
@@ -67,9 +67,9 @@
IF Hwg_Bitand( nStyle,WS_HSCROLL ) > 0
::nScrollBars ++
ENDIF
- IF Hwg_Bitand( nStyle,WS_VSCROLL ) > 0
- ::nScrollBars += 2
- ENDIF
+ IF Hwg_Bitand( nStyle,WS_VSCROLL ) > 0
+ ::nScrollBars += 2
+ ENDIF
hwg_RegPanel()
::Activate()
@@ -183,6 +183,7 @@
RETURN 0
ELSEIF msg = WM_SETFOCUS
getskip( ::oParent, ::handle, , ::nGetSkip )
+/*
ELSEIF msg = WM_KEYUP
IF wParam = VK_DOWN
getskip( ::oparent, ::handle, , 1 )
@@ -192,6 +193,7 @@
GetSkip( ::oParent, ::handle, , iif( IsCtrlShift(.f., .t.), -1, 1) )
ENDIF
RETURN 0
+*/
ELSE
IF msg == WM_HSCROLL .OR. msg == WM_VSCROLL .or. msg == WM_MOUSEWHEEL
IF ::nScrollBars != -1 .AND. ::bScroll = Nil
@@ -284,12 +286,12 @@
ENDIF
ENDIF
ENDIF
- Super:Hide()
- IF ::oParent:type == WND_MDI
+ Super:Hide()
+ IF ::oParent:type == WND_MDI
SENDMESSAGE( ::oParent:Handle, WM_SIZE, 0, MAKELPARAM( ::nWidth, ::nHeight ) )
InvalidateRect( ::oParent:handle, 1, ::nLeft, ::nTop + 1, ::nLeft + ::nWidth, ::nTop + ::nHeight )
- ENDIF
- RETURN Nil
+ ENDIF
+ RETURN Nil
METHOD Show() CLASS HPanel
@@ -308,12 +310,12 @@
ENDIF
ENDIF
ENDIF
- Super:Show()
+ Super:Show()
IF ::oParent:type == WND_MDI
SENDMESSAGE( ::oParent:Handle, WM_SIZE, 0, MAKELPARAM( ::nWidth, ::nHeight ) )
nrePaint := -1
ENDIF
- RETURN Nil
+ RETURN Nil
METHOD Resize() CLASS HPanel
@@ -342,5 +344,5 @@
::nWidth := aCoors[3] - aCoors[1]
::nHeight := aCoors[4] - aCoors[2]
RedrawWindow( ::handle, RDW_ERASE + RDW_INVALIDATE + RDW_FRAME + RDW_INTERNALPAINT + RDW_UPDATENOW ) // Force a complete redraw
- RETURN Nil
-
+ RETURN Nil
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mla...@us...> - 2012-01-28 18:39:04
|
Revision: 1838
http://hwgui.svn.sourceforge.net/hwgui/?rev=1838&view=rev
Author: mlacecilia
Date: 2012-01-28 18:38:57 +0000 (Sat, 28 Jan 2012)
Log Message:
-----------
* changelog
! translated previous message to be correctly in english
* source/hdatepic.prg
! fixed method declaration causding warning
* hwgui.hbc
* changed to contain the source names and no more the hbm reference
this way the xbIDE users will open the sources in the editor
directly from the project tree
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/hwgui.hbp
trunk/hwgui/source/hdatepic.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-28 11:49:23 UTC (rev 1837)
+++ trunk/hwgui/Changelog 2012-01-28 18:38:57 UTC (rev 1838)
@@ -8,14 +8,24 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-01-28 19:40 UTC+0100 Maurizio la Cecilia <m.l...@gm...>
+ * changelog
+ ! translated previous message to be correctly in english
+ * source/hdatepic.prg
+ ! fixed method declaration causding warning
+ * hwgui.hbc
+ * changed to contain the source names and no more the hbm reference
+ this way the xbIDE users will open the sources in the editor
+ directly from the project tree
+
2012-01-28 10:00 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
* source/hcombo.prg
- ! ajuste no metodo redefine para suportar ledit e ltext
- ! habilitado o oninteractivechange para metodo redefine
+ ! changed redefine method adding ledit and ltext clauses
+ ! enabled the oninteractivechange parameter in redefine method
* source/hdatepicker.prg
- ! ajuste no metodo redefine para mostrar ou n\xE3o hora
+ ! parametrized the displaying of the hour
* include/guilib.ch
- ! ajustado o comando redefine get combobox para suportar clasulas text e edit
+ ! changed hcombo redefine method adding ledit and ltext clauses
2012-01-23 08:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
Modified: trunk/hwgui/hwgui.hbp
===================================================================
--- trunk/hwgui/hwgui.hbp 2012-01-28 11:49:23 UTC (rev 1837)
+++ trunk/hwgui/hwgui.hbp 2012-01-28 18:38:57 UTC (rev 1838)
@@ -16,6 +16,80 @@
-es2
-iinclude
-hwgui.hbm
+source/animat.c
+source/commond.c
+source/control.c
+source/cxshade.c
+source/dialog.c
+source/draw.c
+source/winreg.c
+source/drawtext.c
+source/freeimg.c
+source/grid.c
+source/media_c.c
+source/menu_c.c
+source/message.c
+source/misc.c
+source/nice.c
+source/resource.c
+source/richedit.c
+source/shellapi.c
+source/theme.c
+source/window.c
+source/wprint.c
+source/c_ipaddr.c
+source/listbox.c
+source/pager.c
+source/errorsys.prg
+
+source/hipedit.prg
+source/drawwidg.prg
+source/guimain.prg
+source/barcode.prg
+source/hbrowse.prg
+source/hcheck.prg
+source/hcombo.prg
+source/hcontrol.prg
+source/hcwindow.prg
+source/hdatepic.prg
+source/hdialog.prg
+source/hedit.prg
+source/hfreeimg.prg
+source/hfrmtmpl.prg
+source/hgraph.prg
+source/hgrid.prg
+source/hgridex.prg
+source/hlistbox.prg
+source/htool.prg
+source/hmonthc.prg
+source/htrackbr.prg
+source/hanimat.prg
+source/hnice.prg
+source/hownbtn.prg
+source/hpanel.prg
+source/hprinter.prg
+source/hprogres.prg
+source/hradio.prg
+source/hpager.prg
+source/hrebar.prg
+source/hriched.prg
+source/hsayimg.prg
+source/hshbtn.prg
+source/hsplash.prg
+source/hsplit.prg
+source/htab.prg
+source/htimer.prg
+source/htree.prg
+source/hrect.prg
+source/hupdown.prg
+source/hwindow.prg
+source/hwinprn.prg
+source/menu.prg
+source/repexec.prg
+source/printdos.prg
+source/hdc.prg
+source/hhyper.prg
+source/richtext.prg
+
Modified: trunk/hwgui/source/hdatepic.prg
===================================================================
--- trunk/hwgui/source/hdatepic.prg 2012-01-28 11:49:23 UTC (rev 1837)
+++ trunk/hwgui/source/hdatepic.prg 2012-01-28 18:38:57 UTC (rev 1838)
@@ -37,7 +37,7 @@
METHOD GetValue()
METHOD SetValue( xValue )
METHOD Redefine( oWndParent, nId, vari, bSetGet, oFont, bSize, bInit, ;
- bGfocus, bLfocus, bChange, ctooltip, tcolor, bcolor )
+ bGfocus, bLfocus, bChange, ctooltip, tcolor, bcolor, lShowTime )
METHOD onChange( nMess )
METHOD When( )
METHOD Valid( )
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <lc...@us...> - 2012-01-28 11:49:30
|
Revision: 1837
http://hwgui.svn.sourceforge.net/hwgui/?rev=1837&view=rev
Author: lculik
Date: 2012-01-28 11:49:23 +0000 (Sat, 28 Jan 2012)
Log Message:
-----------
2012-01-28 10:00 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
* source/hcombo.prg
! ajuste no metodo redefine para suportar ledit e ltext
! habilitado o oninteractivechange para metodo redefine
* source/hdatepicker.prg
! ajuste no metodo redefine para mostrar ou n?\195?\163o hora
* include/guilib.ch
! ajustado o comando redefine get combobox para suportar clasulas text e edit
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/include/guilib.ch
trunk/hwgui/source/hcombo.prg
trunk/hwgui/source/hdatepic.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-23 10:32:12 UTC (rev 1836)
+++ trunk/hwgui/Changelog 2012-01-28 11:49:23 UTC (rev 1837)
@@ -8,6 +8,15 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-01-28 10:00 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
+ * source/hcombo.prg
+ ! ajuste no metodo redefine para suportar ledit e ltext
+ ! habilitado o oninteractivechange para metodo redefine
+ * source/hdatepicker.prg
+ ! ajuste no metodo redefine para mostrar ou n\xE3o hora
+ * include/guilib.ch
+ ! ajustado o comando redefine get combobox para suportar clasulas text e edit
+
2012-01-23 08:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* FUNCTION NextFocus
Modified: trunk/hwgui/include/guilib.ch
===================================================================
--- trunk/hwgui/include/guilib.ch 2012-01-23 10:32:12 UTC (rev 1836)
+++ trunk/hwgui/include/guilib.ch 2012-01-28 11:49:23 UTC (rev 1837)
@@ -1270,10 +1270,12 @@
[ WHEN <bGfocus> ] ;
[ VALID <bLfocus> ] ;
[ ON INTERACTIVECHANGE <bIChange> ] ;
+ [ <edit: EDIT> ] ;
+ [ <text: TEXT> ] ;
=> ;
[<oCombo> := ] HComboBox():Redefine( <oWnd>,<nId>,<vari>, ;
{|v|Iif(v==Nil,<vari>,<vari>:=v)}, ;
- <aItems>,<oFont>,,,,<bChange>,<ctoolt>,<bGfocus>, <bLfocus>,<bIChange>,<nDisplay>, <nMaxLength>)
+ <aItems>,<oFont>,,,,<bChange>,<ctoolt>,<bGfocus>, <bLfocus>,<bIChange>,<nDisplay>, <nMaxLength>,<.edit.>,<.text.>)
#xcommand REDEFINE GET COMBOBOXEX [ <oCombo> VAR ] <vari> ;
ITEMS <aItems> ;
Modified: trunk/hwgui/source/hcombo.prg
===================================================================
--- trunk/hwgui/source/hcombo.prg 2012-01-23 10:32:12 UTC (rev 1836)
+++ trunk/hwgui/source/hcombo.prg 2012-01-28 11:49:23 UTC (rev 1837)
@@ -68,7 +68,7 @@
aItems, oFont, bInit, bSize, bPaint, bChange, ctooltip, lEdit, lText, bGFocus, tcolor, ;
bcolor, bLFocus, bIChange, nDisplay, nhItem, ncWidth, nMaxLength )
METHOD Activate()
- METHOD Redefine( oWndParent, nId, vari, bSetGet, aItems, oFont, bInit, bSize, bPaint, bChange, ctooltip, bGFocus, bLFocus, bIChange, nDisplay, nMaxLength )
+ METHOD Redefine( oWndParent, nId, vari, bSetGet, aItems, oFont, bInit, bSize, bPaint, bChange, ctooltip, bGFocus, bLFocus, bIChange, nDisplay, nMaxLength, ledit, ltext )
METHOD INIT()
METHOD onEvent( msg, wParam, lParam )
METHOD Requery()
@@ -194,10 +194,19 @@
RETURN Nil
METHOD Redefine( oWndParent, nId, vari, bSetGet, aItems, oFont, bInit, bSize, bPaint, ;
- bChange, ctooltip, bGFocus, bLFocus, bIChange, nDisplay, nMaxLength ) CLASS HComboBox
+ bChange, ctooltip, bGFocus, bLFocus, bIChange, nDisplay, nMaxLength,ledit, ltext ) CLASS HComboBox
HB_SYMBOL_UNUSED( bLFocus)
- HB_SYMBOL_UNUSED( bIChange )
+// HB_SYMBOL_UNUSED( bIChange )
+ IF lEdit == Nil
+ lEdit := .f.
+ ENDIF
+ IF lText == Nil
+ lText := .f.
+ ENDIF
+
+ ::lEdit := lEdit
+ ::lText := lText
//::nHeightBox := INT( 22 * 0.75 ) // Meets A 22'S EDITBOX
IF !Empty( nDisplay ) .AND. nDisplay > 0
@@ -248,12 +257,18 @@
IF bGFocus != Nil .AND. bSetGet == Nil
::oParent:AddEvent( CBN_SETFOCUS, self, { | o, id | ::When( o:FindControl( id ) ) },, "onGotFocus" )
ENDIF
+ IF bIChange != Nil .AND. ::lEdit
+ ::bchangeInt := bIChange
+ // ::oParent:AddEvent( CBN_EDITUPDATE, Self, { | o, id | __InteractiveChange( o:FindControl( id ) ) },, "interactiveChange" )
+ ::oParent:AddEvent( CBN_EDITUPDATE, Self, { | o, id | ::InteractiveChange( o:FindControl( id ) ) },, "interactiveChange" )
+ ENDIF
+
::oParent:AddEvent( CBN_SELENDOK, Self, { | o, id | ::onSelect( o:FindControl( id ) ) },,"onSelect" )
//::Refresh() // By Luiz Henrique dos Santos
::oParent:AddEvent( CBN_DROPDOWN, Self, { | o, id | ::onDropDown( o:FindControl( id ) ) },,"ondropdown" )
::oParent:AddEvent( CBN_CLOSEUP, Self, {|| ::ldropshow := .F. }, ,)
- ::Requery()
+ //::Requery()
RETURN Self
Modified: trunk/hwgui/source/hdatepic.prg
===================================================================
--- trunk/hwgui/source/hdatepic.prg 2012-01-23 10:32:12 UTC (rev 1836)
+++ trunk/hwgui/source/hdatepic.prg 2012-01-28 11:49:23 UTC (rev 1837)
@@ -83,7 +83,7 @@
RETURN Self
METHOD Redefine( oWndParent, nId, vari, bSetGet, oFont, bSize, bInit, ;
- bGfocus, bLfocus, bChange, ctooltip, tcolor, bcolor ) CLASS HDatePicker
+ bGfocus, bLfocus, bChange, ctooltip, tcolor, bcolor, lShowTime ) CLASS HDatePicker
Super:New( oWndParent, nId, 0, 0, 0, 0, 0, oFont, bInit, ;
bSize,, ctooltip, tcolor, bcolor )
HWG_InitCommonControlsEx()
@@ -91,7 +91,7 @@
::tValue := IIF( vari == Nil .OR. Valtype( vari ) != "C", SPACE(6), vari )
::bSetGet := bSetGet
::bChange := bChange
-
+ ::lShowTime := lShowTime
IF bGfocus != Nil
::oParent:AddEvent( NM_SETFOCUS, Self, bGfocus, .T., "onGotFocus" )
ENDIF
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-23 10:32:19
|
Revision: 1836
http://hwgui.svn.sourceforge.net/hwgui/?rev=1836&view=rev
Author: LFBASSO
Date: 2012-01-23 10:32:12 +0000 (Mon, 23 Jan 2012)
Log Message:
-----------
2012-01-23 08:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* FUNCTION NextFocus
! minor fix in DIALOGS RESOURCE
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/hedit.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-21 09:37:51 UTC (rev 1835)
+++ trunk/hwgui/Changelog 2012-01-23 10:32:12 UTC (rev 1836)
@@ -8,6 +8,10 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-01-23 08:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
+ * source/hedit.prg
+ * FUNCTION NextFocus
+ ! minor fix in DIALOGS RESOURCE
2012-01-21 10:40 UTC+0100 Maurizio la Cecilia <m.l...@gm...>
* source/hedit.prg
Modified: trunk/hwgui/source/hedit.prg
===================================================================
--- trunk/hwgui/source/hedit.prg 2012-01-21 09:37:51 UTC (rev 1835)
+++ trunk/hwgui/source/hedit.prg 2012-01-23 10:32:12 UTC (rev 1836)
@@ -1470,7 +1470,6 @@
nextHandle := IIF( oParent:className == "HTAB", NextFocusTab( oParent, hCtrl, nSkip), ;
IIF( oParent:className == oForm:ClassName, NextFocus( oParent, hCtrl, nSkip ),;
NextFocuscontainer( oParent, hCtrl, nSkip ) ) )
-
//nextHandle := IIf( oParent:className == "HTAB", NextFocusTab( oParent, hCtrl, nSkip ), ;
// NextFocus( oParent, hCtrl, nSkip ) )
ELSE
@@ -1501,7 +1500,7 @@
ENDIF
ENDIF
- IF nSkip != 0 .AND. PtrtouLong( hctrl ) == PtrtouLong( nextHandle ) .AND. oCtrl != Nil
+ IF nSkip != 0 .AND. SELFFOCUS( hctrl, nextHandle ) .AND. oCtrl != Nil
// necessario para executa um codigo do lostfcosu
IF __ObjHasMsg(oCtrl,"BLOSTFOCUS") .AND. oCtrl:blostfocus != Nil
sendmessage( nexthandle, WM_KILLFOCUS, 0, 0)
@@ -1570,9 +1569,9 @@
Local lnoTabStop := .T.
oParent := IIF( oParent:Type = Nil, oParent:GetParentForm(), oParent )
- nWindow := IIF( oParent:Type < WND_DLG_RESOURCE, oParent:Handle, GetActiveWindow() )
+ nWindow := IIF( oParent:Type <= WND_DLG_RESOURCE, oParent:Handle, GetActiveWindow() )
- i := AScan( oparent:acontrols, { | o | PtrtouLong( o:Handle ) == PtrtouLong( hCtrl ) } )
+ i := AScan( oparent:acontrols, { | o | SelfFocus( o:Handle, hCtrl ) } )
IF i > 0 .and. Len( oParent:acontrols[ i ]:aControls ) > 0 .AND.;
oParent:aControls[ i ]:className != "HTAB" .AND. ( PtrtouLong( hCtrl ) != PtrtouLong( nextHandle ) )
nextHandle := NextFocusContainer( oParent:aControls[ i ], hCtrl , nSkip )
@@ -1582,9 +1581,9 @@
ENDIF
lHradio := i > 0 .AND. oParent:acontrols[ i ]:CLASSNAME = "HRADIOB"
// TABs DO resource
- IF oParent:Type = WND_DLG_RESOURCE
+ //IF oParent:Type = WND_DLG_RESOURCE
nextHandle := GetNextDlgTabItem( nWindow , hctrl,( nSkip < 0 ) )
- ELSE
+ //ELSE
IF lHradio .OR. lGroup
nexthandle := GetNextDlgGroupItem( nWindow , hctrl,( nSkip < 0 ) )
i := AScan( oParent:aControls, { | o | PtrtouLong( o:Handle ) == PtrtouLong( nextHandle ) } )
@@ -1597,22 +1596,13 @@
ELSE
lnoTabStop := .F.
ENDIF
- i := AScan( oParent:aControls, { | o | PtrtouLong( o:Handle ) == PtrtouLong( nextHandle ) } )
+ i := AScan( oParent:aControls, { | o | SelfFocus( o:Handle, nextHandle ) } )
- IF ( lnoTabStop .AND. i > 0 .AND.PtrtouLong( hCtrl ) != PtrtouLong( NextHandle ) ) .OR. ( i > 0 .AND. i <= LEN( oParent:aControls ).AND. ;
+ IF ( lnoTabStop .AND. i > 0 .AND. !SelfFocus( hCtrl, NextHandle ) ) .OR. ( i > 0 .AND. i <= LEN( oParent:aControls ).AND. ;
oparent:acontrols[ i ]:classname = "HGROUP") .OR. ( i = 0 .AND. !Empty( nextHandle ) )
RETURN NextFocus( oParent, nextHandle, nSkip )
ENDIF
- /*
- nextHandle := GetNextDlgTabItem ( nWindow , nextHandle, ( nSkip < 0 ) )
- i := AScan( oparent:aControls, { | o | o:Handle == nextHandle } )
- ENDIF
- IF i > 0 .AND. LEN( oParent:aControls[ i ]:aControls ) > 0 .AND. nSkip > 0 .AND. ;
- oParent:aControls[ i ]:className != "HTAB"
- RETURN NextFocus( oParent, nextHandle, nSkip )
- ENDIF
- */
- ENDIF
+ //ENDIF
RETURN nextHandle
STATIC FUNCTION NextFocusContainer(oParent,hCtrl,nSkip)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <mla...@us...> - 2012-01-21 09:38:02
|
Revision: 1835
http://hwgui.svn.sourceforge.net/hwgui/?rev=1835&view=rev
Author: mlacecilia
Date: 2012-01-21 09:37:51 +0000 (Sat, 21 Jan 2012)
Log Message:
-----------
* source/hedit.prg
* deleted unused assignment causing warning with -w3 compile flag
* include/windows.ch
+ added system metrics constants
* source/drawtext.c
+ added four items to the returned array from GetTextMetrics()
function: InternalLeading, Ascent, Descent, Weight
This values would be useful to better tailor controls in base of
font properties
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/include/windows.ch
trunk/hwgui/source/drawtext.c
trunk/hwgui/source/hedit.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-21 00:02:00 UTC (rev 1834)
+++ trunk/hwgui/Changelog 2012-01-21 09:37:51 UTC (rev 1835)
@@ -8,6 +8,18 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+
+2012-01-21 10:40 UTC+0100 Maurizio la Cecilia <m.l...@gm...>
+ * source/hedit.prg
+ * deleted unused assignment causing warning with -w3 compile flag
+ * include/windows.ch
+ + added system metrics constants
+ * source/drawtext.c
+ + added four items to the returned array from GetTextMetrics()
+ function: InternalLeading, Ascent, Descent, Weight
+ This values would be useful to better tailor controls in base of
+ font properties
+
2012-01-20 21:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* FUNCTION NextFocus
Modified: trunk/hwgui/include/windows.ch
===================================================================
--- trunk/hwgui/include/windows.ch 2012-01-21 00:02:00 UTC (rev 1834)
+++ trunk/hwgui/include/windows.ch 2012-01-21 09:37:51 UTC (rev 1835)
@@ -1152,16 +1152,101 @@
// GETSYSTEMMETRICS constants
//--------------------------
-#define SM_CXVSCROLL 2
-#define SM_CYHSCROLL 3
-#define SM_CYCAPTION 4
-#define SM_CYMENU 15
-#define SM_CYSMCAPTION 51
-#define SM_CXMENUSIZE 54
-#define SM_CYMENUSIZE 55
-#define SM_CXMENUCHECK 71
-#define SM_CYMENUCHECK 72
+#define SM_CXSCREEN 0
+#define SM_CYSCREEN 1
+#define SM_CXVSCROLL 2
+#define SM_CYHSCROLL 3
+#define SM_CYCAPTION 4
+#define SM_CXBORDER 5
+#define SM_CYBORDER 6
+#define SM_CXDLGFRAME 7
+#define SM_CXFIXEDFRAME 7
+#define SM_CYDLGFRAME 8
+#define SM_CYFIXEDFRAME 8
+#define SM_CYVTHUMB 9
+#define SM_CXHTHUMB 10
+#define SM_CXICON 11
+#define SM_CYICON 12
+#define SM_CXCURSOR 13
+#define SM_CYCURSOR 14
+#define SM_CYMENU 15
+#define SM_CXFULLSCREEN 16
+#define SM_CYFULLSCREEN 17
+#define SM_CYKANJIWINDOW 18
+#define SM_MOUSEPRESENT 19
+#define SM_CYVSCROLL 20
+#define SM_CXHSCROLL 21
+#define SM_DEBUG 22
+#define SM_SWAPBUTTON 23
+#define SM_RESERVED1 24
+#define SM_RESERVED2 25
+#define SM_RESERVED3 26
+#define SM_RESERVED4 27
+#define SM_CXMIN 28
+#define SM_CYMIN 29
+#define SM_CXSIZE 30
+#define SM_CYSIZE 31
+#define SM_CXSIZEFRAME 32
+#define SM_CXFRAME 32
+#define SM_CYSIZEFRAME 33
+#define SM_CYFRAME 33
+#define SM_CXMINTRACK 34
+#define SM_CYMINTRACK 35
+#define SM_CXDOUBLECLK 36
+#define SM_CYDOUBLECLK 37
+#define SM_CXICONSPACING 38
+#define SM_CYICONSPACING 39
+#define SM_MENUDROPALIGNMENT 40
+#define SM_PENWINDOWS 41
+#define SM_DBCSENABLED 42
+#define SM_CMOUSEBUTTONS 43
+#define SM_SECURE 44
+#define SM_CXEDGE 45
+#define SM_CYEDGE 46
+#define SM_CXMINSPACING 47
+#define SM_CYMINSPACING 48
+#define SM_CXSMICON 49
+#define SM_CYSMICON 50
+#define SM_CYSMCAPTION 51
+#define SM_CXSMSIZE 52
+#define SM_CYSMSIZE 53
+#define SM_CXMENUSIZE 54
+#define SM_CYMENUSIZE 55
+#define SM_ARRANGE 56
+#define SM_CXMINIMIZED 57
+#define SM_CYMINIMIZED 58
+#define SM_CXMAXTRACK 59
+#define SM_CYMAXTRACK 60
+#define SM_CXMAXIMIZED 61
+#define SM_CYMAXIMIZED 62
+#define SM_NETWORK 63
+#define SM_CLEANBOOT 67
+#define SM_CXDRAG 68
+#define SM_CYDRAG 69
+#define SM_SHOWSOUNDS 70
+#define SM_CXMENUCHECK 71
+#define SM_CYMENUCHECK 72
+#define SM_SLOWMACHINE 73
+#define SM_MIDEASTENABLED 74
+#define SM_MOUSEWHEELPRESENT 75
+#define SM_XVIRTUALSCREEN 76
+#define SM_YVIRTUALSCREEN 77
+#define SM_CXVIRTUALSCREEN 78
+#define SM_CYVIRTUALSCREEN 79
+#define SM_CMONITORS 80
+#define SM_SAMEDISPLAYFORMAT 81
+#define SM_IMMENABLED 82
+#define SM_CXFOCUSBORDER 83
+#define SM_CYFOCUSBORDER 84
+#define SM_TABLETPC 86
+#define SM_MEDIACENTER 87
+#define SM_STARTER 88
+#define SM_SERVERR2 89
+
+
+
+
//--------------
// Font Weights
//--------------
Modified: trunk/hwgui/source/drawtext.c
===================================================================
--- trunk/hwgui/source/drawtext.c 2012-01-21 00:02:00 UTC (rev 1834)
+++ trunk/hwgui/source/drawtext.c 2012-01-21 09:37:51 UTC (rev 1835)
@@ -105,7 +105,7 @@
HB_FUNC( GETTEXTMETRIC )
{
TEXTMETRIC tm;
- PHB_ITEM aMetr = hb_itemArrayNew( 4 );
+ PHB_ITEM aMetr = hb_itemArrayNew( 8 );
PHB_ITEM temp;
GetTextMetrics( ( HDC ) HB_PARHANDLE( 1 ), // handle of device context
@@ -128,6 +128,22 @@
hb_itemArrayPut( aMetr, 4, temp );
hb_itemRelease( temp );
+ temp = hb_itemPutNL( NULL, tm.tmInternalLeading );
+ hb_itemArrayPut( aMetr, 5, temp );
+ hb_itemRelease( temp );
+
+ temp = hb_itemPutNL( NULL, tm.tmAscent );
+ hb_itemArrayPut( aMetr, 6, temp );
+ hb_itemRelease( temp );
+
+ temp = hb_itemPutNL( NULL, tm.tmDescent );
+ hb_itemArrayPut( aMetr, 7, temp );
+ hb_itemRelease( temp );
+
+ temp = hb_itemPutNL( NULL, tm.tmWeight );
+ hb_itemArrayPut( aMetr, 8, temp );
+ hb_itemRelease( temp );
+
hb_itemReturn( aMetr );
hb_itemRelease( aMetr );
}
Modified: trunk/hwgui/source/hedit.prg
===================================================================
--- trunk/hwgui/source/hedit.prg 2012-01-21 00:02:00 UTC (rev 1834)
+++ trunk/hwgui/source/hedit.prg 2012-01-21 09:37:51 UTC (rev 1835)
@@ -1482,7 +1482,7 @@
oCtrl:oParent:lGetSkipLostFocus := .T.
ENDIF
IF ! Empty( nextHandle )
- i := AScan( oparent:acontrols, { | o | o:handle == nextHandle } )
+ //i := AScan( oparent:acontrols, { | o | o:handle == nextHandle } )
//oCtrl := IIF( i > 0, oparent:acontrols[i], oParent)
IF oForm:classname == oParent:classname .OR. oParent:className != "HTAB"
IF oParent:Type = Nil .OR. oParent:Type < WND_DLG_RESOURCE
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-21 00:02:07
|
Revision: 1834
http://hwgui.svn.sourceforge.net/hwgui/?rev=1834&view=rev
Author: LFBASSO
Date: 2012-01-21 00:02:00 +0000 (Sat, 21 Jan 2012)
Log Message:
-----------
2012-01-20 21:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* FUNCTION NextFocus
! minor fix in DIALOGS RESOURCE
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/hedit.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-20 14:10:05 UTC (rev 1833)
+++ trunk/hwgui/Changelog 2012-01-21 00:02:00 UTC (rev 1834)
@@ -8,6 +8,10 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-01-20 21:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
+ * source/hedit.prg
+ * FUNCTION NextFocus
+ ! minor fix in DIALOGS RESOURCE
2012-01-20 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* samples
Modified: trunk/hwgui/source/hedit.prg
===================================================================
--- trunk/hwgui/source/hedit.prg 2012-01-20 14:10:05 UTC (rev 1833)
+++ trunk/hwgui/source/hedit.prg 2012-01-21 00:02:00 UTC (rev 1834)
@@ -1465,6 +1465,7 @@
ENDIF
i := AScan( oParent:acontrols, { | o | PtrtouLong( o:handle ) == PtrtouLong( hCtrl ) } )
oCtrl := IIf( i > 0, oParent:acontrols[ i ], oParent )
+
IF nSkip != 0
nextHandle := IIF( oParent:className == "HTAB", NextFocusTab( oParent, hCtrl, nSkip), ;
IIF( oParent:className == oForm:ClassName, NextFocus( oParent, hCtrl, nSkip ),;
@@ -1481,13 +1482,13 @@
oCtrl:oParent:lGetSkipLostFocus := .T.
ENDIF
IF ! Empty( nextHandle )
- // i := AScan( oparent:acontrols, { | o | o:handle == nextHandle } )
+ i := AScan( oparent:acontrols, { | o | o:handle == nextHandle } )
//oCtrl := IIF( i > 0, oparent:acontrols[i], oParent)
IF oForm:classname == oParent:classname .OR. oParent:className != "HTAB"
IF oParent:Type = Nil .OR. oParent:Type < WND_DLG_RESOURCE
SetFocus( nextHandle )
ELSE
- PostMessage( oParent:handle, WM_NEXTDLGCTL, nextHandle , 1 )
+ PostMessage( oParent:handle, WM_NEXTDLGCTL, nextHandle , 1 )
ENDIF
ELSE
IF oForm:Type < WND_DLG_RESOURCE .AND. PtrtouLong( oParent:handle ) = PtrtouLong( getFocus() ) //oParent:oParent:Type < WND_DLG_RESOURCE
@@ -1582,7 +1583,7 @@
lHradio := i > 0 .AND. oParent:acontrols[ i ]:CLASSNAME = "HRADIOB"
// TABs DO resource
IF oParent:Type = WND_DLG_RESOURCE
- nextHandle := GetNextDlgGroupItem( oParent:handle , hctrl,( nSkip < 0 ) )
+ nextHandle := GetNextDlgTabItem( nWindow , hctrl,( nSkip < 0 ) )
ELSE
IF lHradio .OR. lGroup
nexthandle := GetNextDlgGroupItem( nWindow , hctrl,( nSkip < 0 ) )
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-20 14:10:17
|
Revision: 1833
http://hwgui.svn.sourceforge.net/hwgui/?rev=1833&view=rev
Author: LFBASSO
Date: 2012-01-20 14:10:05 +0000 (Fri, 20 Jan 2012)
Log Message:
-----------
Added Paths:
-----------
trunk/hwgui/samples/resource/bmp/cancel.bmp
trunk/hwgui/samples/resource/bmp/hwg.ico
trunk/hwgui/samples/resource/bmp/ok.bmp
trunk/hwgui/samples/resource/bmp/smadd.bmp
trunk/hwgui/samples/resource/bmp/smbrowse.bmp
trunk/hwgui/samples/resource/bmp/smcancel.bmp
trunk/hwgui/samples/resource/bmp/smexit.bmp
trunk/hwgui/samples/resource/bmp/smexit3.bmp
trunk/hwgui/samples/resource/bmp/smfirst.bmp
trunk/hwgui/samples/resource/bmp/smgrid.bmp
trunk/hwgui/samples/resource/bmp/smhelp.bmp
trunk/hwgui/samples/resource/bmp/smlast.bmp
trunk/hwgui/samples/resource/bmp/smnew.bmp
trunk/hwgui/samples/resource/bmp/smnext.bmp
trunk/hwgui/samples/resource/bmp/smok.bmp
trunk/hwgui/samples/resource/bmp/smopen.bmp
trunk/hwgui/samples/resource/bmp/smprev.bmp
trunk/hwgui/samples/resource/bmp/smpreview.bmp
trunk/hwgui/samples/resource/bmp/smprinter.bmp
trunk/hwgui/samples/resource/bmp/smproprie.bmp
trunk/hwgui/samples/resource/bmp/smsave.bmp
Added: trunk/hwgui/samples/resource/bmp/cancel.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/cancel.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/hwg.ico
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/hwg.ico
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/ok.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/ok.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smadd.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smadd.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smbrowse.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smbrowse.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smcancel.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smcancel.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smexit.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smexit.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smexit3.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smexit3.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smfirst.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smfirst.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smgrid.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smgrid.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smhelp.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smhelp.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smlast.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smlast.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smnew.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smnew.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smnext.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smnext.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smok.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smok.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smopen.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smopen.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smprev.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smprev.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smpreview.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smpreview.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smprinter.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smprinter.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smproprie.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smproprie.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: trunk/hwgui/samples/resource/bmp/smsave.bmp
===================================================================
(Binary files differ)
Property changes on: trunk/hwgui/samples/resource/bmp/smsave.bmp
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-20 14:07:41
|
Revision: 1832
http://hwgui.svn.sourceforge.net/hwgui/?rev=1832&view=rev
Author: LFBASSO
Date: 2012-01-20 14:07:30 +0000 (Fri, 20 Jan 2012)
Log Message:
-----------
Added Paths:
-----------
trunk/hwgui/samples/resource/
trunk/hwgui/samples/resource/bmp/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-20 11:49:29
|
Revision: 1831
http://hwgui.svn.sourceforge.net/hwgui/?rev=1831&view=rev
Author: LFBASSO
Date: 2012-01-20 11:49:21 +0000 (Fri, 20 Jan 2012)
Log Message:
-----------
2012-01-20 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* samples
+ folder Resource
* samples/browse/browse_2.prg
! fix in pictures
* source/hbrowse.prg
+ STATIC axPosMouseOver
METHOD onEvent()
METHOD MouseMove()
METHOD ButtomDown()
! fix in header with themed
* source/hownbtn.prg
* METHOD MUp()
! minor fix
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/samples/browse/browse_2.prg
trunk/hwgui/source/hbrowse.prg
trunk/hwgui/source/hownbtn.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-12 12:47:11 UTC (rev 1830)
+++ trunk/hwgui/Changelog 2012-01-20 11:49:21 UTC (rev 1831)
@@ -8,6 +8,23 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+
+2012-01-20 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
+ * samples
+ + folder Resource
+ * samples/browse/browse_2.prg
+ ! fix in pictures
+ * source/hbrowse.prg
+ + STATIC axPosMouseOver
+ METHOD onEvent()
+ METHOD MouseMove()
+ METHOD ButtomDown()
+ ! fix in header with themed
+ * source/hownbtn.prg
+ * METHOD MUp()
+ ! minor fix
+
+
2012-01-12 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/commond.c
* HB_FUNC( SAVEFILE )
Modified: trunk/hwgui/samples/browse/browse_2.prg
===================================================================
--- trunk/hwgui/samples/browse/browse_2.prg 2012-01-12 12:47:11 UTC (rev 1830)
+++ trunk/hwgui/samples/browse/browse_2.prg 2012-01-20 11:49:21 UTC (rev 1831)
@@ -19,48 +19,48 @@
MENU OF oMain
MENUITEM "&Exit" ACTION oMain:Close()
- MENUITEM "&Browse" ACTION BrowseTest()
+ MENUITEM "&Browse" ACTION BrowseTest_2()
ENDMENU
ACTIVATE WINDOW oMain
Return Nil
-Function BrowseTest()
+Function BrowseTest_2()
+
Local oForm, oFont
+ PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -10
- PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -10
-
INIT DIALOG oForm CLIPPER NOEXIT TITLE "DBNavigator";
FONT oFont ;
AT 0, 0 SIZE 700, 435 ;
STYLE DS_CENTER + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU
-
+
@ 5, 5 BROWSE oBrowse DATABASE OF oForm SIZE 690,380 STYLE WS_VSCROLL + WS_HSCROLL APPEND;
- ON CLICK {|| ReplaceIndex(oBrowse:colpos)}
+ ON CLICK {|| ReplaceIndex(oBrowse:colpos)}
ADD COLUMN FieldBlock('field_1') TO oBrowse HEADER 'Field 1' EDITABLE
ADD COLUMN FieldBlock('field_2') TO oBrowse HEADER 'Field 2' EDITABLE LENGTH 30
-
- DBNavigator( oBrowse, 5, 400 )
-
+
+ DBNavigator( oBrowse, 5, 400 )
+
@ 530, 400 OWNERBUTTON OF oForm SIZE 80,25 ;
TEXT "Ok" FONT oFont COORDINATES 0,0,0,0 ;
- BITMAP "b_ok" FROM RESOURCE COORDINATES 5,2,21,20 ;
+ BITMAP "b_ok" FROM RESOURCE COORDINATES 5,2,21,20 TRANSPARENT;
ON CLICK {|| oForm:close() }
@ 615, 400 OWNERBUTTON OF oForm SIZE 80,25 ;
- TEXT "Cancel" FONT oFont COORDINATES 21,0,60,0 ;
- BITMAP "b_cancel" FROM RESOURCE COORDINATES 5,2,21,20 ;
+ TEXT "Cancel" FONT oFont COORDINATES 31,0,60,0 ;
+ BITMAP "b_cancel" FROM RESOURCE COORDINATES 5,2,21,20 TRANSPARENT;
ON CLICK {|| oForm:close() }
-
+
ACTIVATE DIALOG oForm
Return Nil
Static Function CreateDB()
Local i, letra:=100
-
+
if file('test.dbf')
FErase('test.dbf')
end
@@ -70,10 +70,10 @@
if file("index02.ntx")
fErase("index02.ntx")
endif
-
+
DBCreate('test', {{'field_1', 'N', 6, 0},;
{'field_2', 'C', 40, 0}})
-
+
USE test EXCLUSIVE
if !file("index01.ntx")
index on field_1 to index01
@@ -82,14 +82,14 @@
index on field_2 to index02
endif
set index to index01, index02
-
+
For i := 1 to 100
APPEND BLANK
REPLACE Field_1 WITH i
REPLACE Field_2 WITH Str(letra)+' Test' + Str(i)
--letra
- Next
-
+ Next
+
DBGotop()
Return Nil
@@ -99,8 +99,8 @@
Default aAction To {},;
aHide To {}
-
+
ASize( aAction, 10 )
ASize( aHide, 10 )
@@ -109,7 +109,7 @@
if Empty(aHide[1])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_first" FROM RESOURCE ;
+ BITMAP "t_first" FROM RESOURCE TRANSPARENT;
TOOLTIP "First Record" ;
ON CLICK iif( Empty(aAction[1]), {|| oCtrl:Top() }, aAction[1] )
@@ -122,7 +122,7 @@
if Empty(aHide[2])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_prior" FROM RESOURCE ;
+ BITMAP "t_prior" FROM RESOURCE TRANSPARENT;
TOOLTIP "Prior" ;
ON CLICK iif( Empty(aAction[2]), {|| oCtrl:LineUp() }, aAction[2] )
@@ -135,7 +135,7 @@
if Empty(aHide[3])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_next" FROM RESOURCE ;
+ BITMAP "t_next" FROM RESOURCE TRANSPARENT;
TOOLTIP "Next" ;
ON CLICK iif( Empty(aAction[3]), {|| oCtrl:LineDown() }, aAction[3] )
@@ -148,7 +148,7 @@
if Empty(aHide[4])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_last" FROM RESOURCE ;
+ BITMAP "t_last" FROM RESOURCE TRANSPARENT;
TOOLTIP "Last Record" ;
ON CLICK iif( Empty(aAction[4]), {|| oCtrl:Bottom() }, aAction[4] )
@@ -161,7 +161,7 @@
if Empty(aHide[5])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_append" FROM RESOURCE ;
+ BITMAP "t_append" FROM RESOURCE TRANSPARENT;
TOOLTIP "New" ;
ON CLICK iif( Empty(aAction[5]), {|| oCtrl:Append() }, aAction[5] )
@@ -174,7 +174,7 @@
if Empty(aHide[6])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_delete" FROM RESOURCE ;
+ BITMAP "t_delete" FROM RESOURCE TRANSPARENT ;
TOOLTIP "Delete" ;
ON CLICK iif( Empty(aAction[6]), {|| IIF( Msgyesno("Confirma exclus\xE3o ?", "Exclus\xE3o"), DBDelete(), NIL ), oCtrl:top(), oCtrl:refresh() }, aAction[6] )
@@ -187,7 +187,7 @@
if Empty(aHide[7])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_edit" FROM RESOURCE ;
+ BITMAP "t_edit" FROM RESOURCE TRANSPARENT ;
TOOLTIP "Edit" ;
ON CLICK iif( Empty(aAction[7]), {|| oCtrl:edit()}, aAction[7] )
@@ -200,7 +200,7 @@
if Empty(aHide[8])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_commit" FROM RESOURCE ;
+ BITMAP "t_commit" FROM RESOURCE TRANSPARENT;
TOOLTIP "Commit" ;
ON CLICK aAction[8]
@@ -213,7 +213,7 @@
if Empty(aHide[9])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_cancel" FROM RESOURCE ;
+ BITMAP "t_cancel" FROM RESOURCE TRANSPARENT;
TOOLTIP "Cancel" ;
ON CLICK aAction[9]
@@ -226,7 +226,7 @@
if Empty(aHide[10])
@ nLeft, nTop OWNERBUTTON SIZE 24,25 ;
- BITMAP "t_refresh" FROM RESOURCE ;
+ BITMAP "t_refresh" FROM RESOURCE TRANSPARENT ;
TOOLTIP "Refresh" ;
ON CLICK iif( Empty(aAction[10]), {|| oCtrl:refresh()}, aAction[10] )
@@ -237,15 +237,15 @@
Return Nil
Function ReplaceIndex(oPos)
-Msginfo("Key press in col "+str(oPos))
-if oPos==1
- Set Order to 1
-Else
- Set Order to 2
-EndIf
+
+if ! oBrowse:lAppMode
+ Msginfo("Key press in col "+str(oPos))
+ if oPos==1
+ Set Order to 1
+ Else
+ Set Order to 2
+ EndIf
+endif
oBrowse:Refresh()
-Return Nil
-
-
-
+Return Nil
\ No newline at end of file
Modified: trunk/hwgui/source/hbrowse.prg
===================================================================
--- trunk/hwgui/source/hbrowse.prg 2012-01-12 12:47:11 UTC (rev 1830)
+++ trunk/hwgui/source/hbrowse.prg 2012-01-20 11:49:21 UTC (rev 1831)
@@ -52,6 +52,7 @@
STATIC oPen64
STATIC xDrag
STATIC xDragMove := 0
+STATIC axPosMouseOver := {0,0}
STATIC xToolTip
//----------------------------------------------------//
@@ -541,36 +542,43 @@
RETURN 1
ELSEIF msg == WM_ERASEBKGND
- ::isMouseOver := .F.
RETURN 0
ELSEIF msg = WM_SIZE
+ ::oParent:lSuspendMsgsHandling := .F.
+ ::lRepaintBackground := .T.
+ ::isMouseOver := .F.
IF ::AutoColumnFit = 1
+ IF ! isWindowVisible( ::oParent:Handle )
+ ::Rebuild()
+ ::lRepaintBackground := .F.
+ ENDIF
::AutoFit()
ENDIF
- ::lRepaintBackground := .T.
- ELSEIF msg = WM_SETFONT .AND. ::oHeadFont = Nil .AND. isWindowVisible( ::Handle )
+
+ ELSEIF msg = WM_SETFONT .AND. ::oHeadFont = Nil .AND. ::lInit
::nHeadHeight := 0
::nFootHeight := 0
- ELSEIF msg == WM_SETFOCUS .AND. ! ::oParent:lSuspendMsgsHandling
+ ELSEIF msg == WM_SETFOCUS .AND. ! ::lSuspendMsgsHandling
::When()
/*
IF ::bGetFocus != Nil
Eval( ::bGetFocus, Self )
ENDIF
*/
- ELSEIF msg == WM_KILLFOCUS .AND. ! ::oParent:lSuspendMsgsHandling
+ ELSEIF msg == WM_KILLFOCUS .AND. ! ::lSuspendMsgsHandling
::Valid()
/*
IF ::bLostFocus != Nil
Eval( ::bLostFocus, Self )
ENDIF
- */
+
IF ::GetParentForm( self ):Type < WND_DLG_RESOURCE
SendMessage( ::oParent:handle, WM_COMMAND, makewparam( ::id, 0 ), ::handle )
ENDIF
+ */
::internal[ 1 ] := 15 //force redraw header,footer and separator
ELSEIF msg == WM_HSCROLL
@@ -584,7 +592,7 @@
nShiftAltCtrl := IIF( IsCtrlShift( .F., .T. ), 1 , 0 )
nShiftAltCtrl += IIF( IsCtrlShift( .T., .F. ), 2 , nShiftAltCtrl )
//nShiftAltCtrl += IIF( wParam > 111, 4, nShiftAltCtrl )
- IF ::bKeyDown != Nil .and. ValType( ::bKeyDown ) == 'B'
+ IF ::bKeyDown != Nil .and. ValType( ::bKeyDown ) == 'B' .AND. wParam != VK_TAB .AND. wParam != VK_RETURN
IF EMPTY( Eval( ::bKeyDown, Self, wParam, nShiftAltCtrl, msg ) )
RETURN 0
ENDIF
@@ -616,7 +624,7 @@
DlgCommand( Self, wParam, lParam )
ENDIF
- ELSEIF msg == WM_KEYUP .AND. ! ::oParent:lSuspendMsgsHandling
+ ELSEIF msg == WM_KEYUP //.AND. ! ::oParent:lSuspendMsgsHandling
IF wParam == 17
::lCtrlPress := .F.
ENDIF
@@ -634,7 +642,7 @@
::DoHScroll( iif( IsCtrlShift( .F., .T. ), SB_LINELEFT, SB_LINERIGHT ) )
ENDIF
*/
- ENDIF
+ ENDIF
IF wParam != VK_SHIFT .AND. wParam != VK_CONTROL .AND. wParam != 18
oParent := ::oParent
DO WHILE oParent != Nil .AND. ! __ObjHasMsg( oParent, "GETLIST" )
@@ -662,7 +670,8 @@
RETURN 0
ENDIF
ENDIF
- IF wParam == 33 .OR. wParam == 34 .OR. wParam == 38 .OR. wParam == 40
+ ::isMouseOver := .F.
+ IF wParam == VK_PRIOR .OR. wParam == VK_NEXT .OR. wParam == VK_UP .OR. wParam == VK_DOWN
IF ! ::ChangeRowCol( 1 )
RETURN -1
ENDIF
@@ -830,9 +839,10 @@
ELSEIF ( msg = WM_MOUSELEAVE .OR. msg = WM_NCMOUSELEAVE ) //.AND.! ::oParent:lSuspendMsgsHandling
IF ::allMouseOver
- ::MouseMove( 0, 0 )
+ //::MouseMove( 0, 0 )
+ ::MouseMove( wParam, lParam )
::allMouseOver := .F.
- ::isMouseOver := .F.
+ //::isMouseOver := .F.
ENDIF
ELSEIF msg == WM_MBUTTONUP
@@ -850,6 +860,10 @@
LOWORD( lParam ), HIWORD( lParam ) )
*/
ELSEIF msg == WM_DESTROY
+ IF ValType( ::hTheme ) == "P"
+ HB_CLOSETHEMEDATA( ::htheme )
+ ::hTheme := nil
+ ENDIF
::END()
ENDIF
@@ -1312,7 +1326,7 @@
LOCAL pps, hDC
LOCAL oldfont, aMetrHead, nRecFilter
- IF ! ::active .OR. Empty( ::aColumns ) .OR. ::lHeadClick .OR. ::isMouseOver //.AND. ::internal[ 1 ] = WM_MOUSEMOVE )
+ IF ! ::active .OR. Empty( ::aColumns ) .OR. ::lHeadClick //.OR. ::isMouseOver //.AND. ::internal[ 1 ] = WM_MOUSEMOVE )
pps := DefinePaintStru()
hDC := BeginPaint( ::handle, pps )
IF ::lHeadClick .OR. ::isMouseOver
@@ -1321,6 +1335,7 @@
::oParent:lSuspendMsgsHandling := .F.
ENDIF
EndPaint( ::handle, pps )
+ ::isMouseOver := .F.
RETURN Nil
ENDIF
IF ( ::m_bFirstTime ) .AND. ::Themed
@@ -1735,6 +1750,7 @@
IF ! oColumn:lHeadClick
state := IIF( ::hTheme != Nil, IIF( ::xPosMouseOver > x .AND. ::xPosMouseOver < x + xsize - 3,;
PBS_HOT, PBS_NORMAL ), PBS_NORMAL )
+ axPosMouseOver := IIF( ::xPosMouseOver > x .AND. ::xPosMouseOver < x + xsize - 3,{x, x + xsize },axPosMouseOver )
ELSE
state := IIF( ::hTheme != Nil, PBS_PRESSED, 6 )
InflateRect( @aItemRect, - 1, - 1 )
@@ -2500,16 +2516,22 @@
::lAppMode := .T.
ELSE
Eval( ::bSkip, Self, - 1 )
- ::SetFocus()
+ IF !SELFFOCUS( ::handle )
+ ::SetFocus()
+ ENDIF
RETURN Nil
ENDIF
ENDIF
::rowPos ++
IF ::rowPos > ::rowCount
::rowPos := ::rowCount
- //FP InvalidateRect( ::handle, 0 )
- //::Refresh()
- ::Refresh( .F. ) //::nFootRows > 0 )
+ IF ::lAppMode
+ //::nLeftCol := ::freeze + 1
+ RedrawWindow( ::handle, RDW_INVALIDATE + RDW_UPDATENOW + RDW_NOERASE )
+ ELSE
+ RedrawWindow( ::handle, RDW_INVALIDATE + RDW_INTERNALPAINT )
+ ENDIF
+ //::Refresh( .F. ) //::nFootRows > 0 )
::internal[ 1 ] := 14
ELSE
::internal[ 1 ] := 0
@@ -2531,7 +2553,9 @@
IF ::rowPos > 1
::rowPos --
ENDIF
- ::colPos := ::nLeftCol := 1
+ //::colPos := ::nLeftCol := 1
+ ::colPos := Max( 1, Ascan( ::aColumns, {| c | c:lEditable } ) )
+ ::nLeftCol := ::freeze + 1
ENDIF
IF ! ::lAppMode .OR. ::nLeftCol == 1
::internal[ 1 ] := SetBit( ::internal[ 1 ], 1, 0 )
@@ -2649,9 +2673,9 @@
IF lPaint == Nil .OR. lPaint
::Refresh( ::nFootRows > 0 )
- ::SetFocus( )
+ //::SetFocus( )
ELSE
- InvalidateRect( ::handle, 0 )
+ //InvalidateRect( ::handle, 0 )
::internal[ 1 ] := SetBit( ::internal[ 1 ], 1, 0 )
ENDIF
RETURN Nil
@@ -2783,17 +2807,18 @@
::isMouseOver := .F.
Hwg_SetCursor( oCursor )
xDrag := LOWORD( lParam )
- xDragMove := 0
+ xDragMove := xDrag
InvalidateRect( ::handle, 0 )
- ELSEIF ::lDispHead .AND. ;
- nLine >= - ::nHeadRows .AND. ;
+ ELSEIF ::lDispHead .AND. nLine >= - ::nHeadRows .AND. ;
fif <= Len( ::aColumns ) //.AND. ;
//::aColumns[ fif ]:bHeadClick != nil
::aColumns[ fif ]:lHeadClick := .T.
InvalidateRect( ::handle, 0, ::x1, ::y1 - ::nHeadHeight * ::nHeadRows, ::x2, ::y1 )
IF ::aColumns[ fif ]:bHeadClick != nil
::isMouseOver := .F.
+ ::oParent:lSuspendMsgsHandling := .T.
Eval( ::aColumns[ fif ]:bHeadClick, ::aColumns[ fif ], fif, Self )
+ ::oParent:lSuspendMsgsHandling := .F.
ENDIF
::lHeadClick := .T.
ENDIF
@@ -2830,7 +2855,7 @@
Hwg_SetCursor( arrowCursor )
oCursor := 0
::isMouseOver := .F.
- xDragMove := 0
+ //xDragMove := 0
InvalidateRect( ::handle, 0 )
::lResizing := .F.
ENDIF
@@ -2956,15 +2981,17 @@
IF ! ::active .OR. Empty( ::aColumns ) .OR. ::x1 == Nil
RETURN Nil
ENDIF
- IF ::lDispSep .AND. yPos <= ::nHeadHeight * ::nHeadRows + 1 .AND. ; // ::height*::nHeadRows+1
+ IF ::isMouseOver
+ InvalidateRect( ::handle, 0, axPosMouseOver[ 1 ], ::y1 - ::nHeadHeight * ::nHeadRows, axPosMouseOver[ 2 ] , ::y1 )
+ ENDIF
+ IF ::lDispHead .AND. ( yPos <= ::nHeadHeight * ::nHeadRows + 1 .OR.; // ::height*::nHeadRows+1
+ ( ::lResizing .AND. yPos > ::y1 ) ) .AND. ;
( xPos >= ::x1 .AND. xPos <= Max( xDragMove, ::xAdjRight ) + 4 )
IF wParam == MK_LBUTTON .AND. ::lResizing
Hwg_SetCursor( oCursor )
res := .T.
- InvalidateRect( ::handle, 1, xDragMove - 18 , ::y1 - ( ::nHeadHeight * ::nHeadRows ), xDragMove + 18 , ::y2 - ( ::nFootHeight * ::nFootRows ) - 1 )
xDragMove := xPos
- ::isMouseOver := .F.
- //::internal[ 1 ] := 2
+ ::isMouseOver := .T.
InvalidateRect( ::handle, 0, xPos - 18 , ::y1 - ( ::nHeadHeight * ::nHeadRows ), xPos + 18 , ::y2 - ( ::nFootHeight * ::nFootRows ) - 1 )
ELSE
i := IIf( ::freeze > 0, 1, ::nLeftCol )
@@ -2997,7 +3024,7 @@
::isMouseOver := IIF( ::hTheme != Nil .AND. ::xPosMouseOver != 0, .T., .F. )
ENDIF
IF ::isMouseOver
- InvalidateRect( ::handle, 1, ::x1, ::y1 - ::nHeadHeight * ::nHeadRows, ::xAdjRight, ::y1 )
+ InvalidateRect( ::handle, 0, ::xPosMouseOver-1, ::y1 - ::nHeadHeight * ::nHeadRows, ::xPosMouseOver + 1, ::y1 )
ENDIF
RETURN Nil
Modified: trunk/hwgui/source/hownbtn.prg
===================================================================
--- trunk/hwgui/source/hownbtn.prg 2012-01-12 12:47:11 UTC (rev 1830)
+++ trunk/hwgui/source/hownbtn.prg 2012-01-20 11:49:21 UTC (rev 1831)
@@ -440,9 +440,10 @@
METHOD MDown() CLASS HOwnButton
IF ::state != OBTN_PRESSED
::state := OBTN_PRESSED
- InvalidateRect( ::handle, 0 )
+ //InvalidateRect( ::handle, 0 )
//::SetFocus()
SendMessage( ::Handle, WM_SETFOCUS, 0, 0 )
+ InvalidateRect( ::handle, 0 )
RedrawWindow( ::handle, RDW_ERASE + RDW_INVALIDATE )
ELSEIF ::lCheck
::state := OBTN_NORMAL
@@ -469,10 +470,7 @@
Eval( ::bClick, ::oParent, ::id )
Release()
ENDIF
- InvalidateRect( ::handle, 0 )
- //SendMessage( ::handle, WM_PAINT, 0, 0 )
- RedrawWindow( ::handle, RDW_ERASE + RDW_INVALIDATE )
-// ENDIF
+ RedrawWindow( ::handle, RDW_ERASE + RDW_INVALIDATE + RDW_FRAME + RDW_INTERNALPAINT + RDW_UPDATENOW )
RETURN Nil
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-12 12:47:20
|
Revision: 1830
http://hwgui.svn.sourceforge.net/hwgui/?rev=1830&view=rev
Author: LFBASSO
Date: 2012-01-12 12:47:11 +0000 (Thu, 12 Jan 2012)
Log Message:
-----------
2012-01-12 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/commond.c
* HB_FUNC( SAVEFILE )
+ parameters sixth
< .T. OR .F. > confirmation OVERWRITEPROMPT in write file If the file already exists
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/commond.c
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-03 22:38:09 UTC (rev 1829)
+++ trunk/hwgui/Changelog 2012-01-12 12:47:11 UTC (rev 1830)
@@ -8,6 +8,13 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-01-12 10:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
+ * source/commond.c
+ * HB_FUNC( SAVEFILE )
+ + parameters sixth
+ < .T. OR .F. > confirmation OVERWRITEPROMPT in write file If the file already exists
+
+
2012-01-03 20:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* METHOD GetApplyKey
Modified: trunk/hwgui/source/commond.c
===================================================================
--- trunk/hwgui/source/commond.c 2012-01-03 22:38:09 UTC (rev 1829)
+++ trunk/hwgui/source/commond.c 2012-01-12 12:47:11 UTC (rev 1830)
@@ -248,6 +248,8 @@
ofn.lpstrInitialDir = HB_PARSTR( 4, &hInitDir, NULL );
ofn.lpstrTitle = HB_PARSTR( 5, &hTitle, NULL );
ofn.Flags = OFN_FILEMUSTEXIST | OFN_EXPLORER;
+ if ( HB_ISLOG( 6 ) && hb_parl( 6 ) )
+ ofn.Flags = ofn.Flags | OFN_OVERWRITEPROMPT;
if( GetSaveFileName( &ofn ) )
HB_RETSTR( ofn.lpstrFile );
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-03 22:38:16
|
Revision: 1829
http://hwgui.svn.sourceforge.net/hwgui/?rev=1829&view=rev
Author: LFBASSO
Date: 2012-01-03 22:38:09 +0000 (Tue, 03 Jan 2012)
Log Message:
-----------
2012-01-03 20:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hedit.prg
* METHOD GetApplyKey
! fixed picture when PICFUNC "@Z" If 0, converts currency or numeric values to spaces.
in case if the number is less than 1.
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/hedit.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2012-01-02 11:39:29 UTC (rev 1828)
+++ trunk/hwgui/Changelog 2012-01-03 22:38:09 UTC (rev 1829)
@@ -8,6 +8,12 @@
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+2012-01-03 20:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
+ * source/hedit.prg
+ * METHOD GetApplyKey
+ ! fixed picture when PICFUNC "@Z" If 0, converts currency or numeric values to spaces.
+ in case if the number is less than 1.
+
2012-01-02 09:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hhyper.prg
! minor fix in Method Init to work in MAIN MDICHILD and DIALOG
Modified: trunk/hwgui/source/hedit.prg
===================================================================
--- trunk/hwgui/source/hedit.prg 2012-01-02 11:39:29 UTC (rev 1828)
+++ trunk/hwgui/source/hedit.prg 2012-01-03 22:38:09 UTC (rev 1829)
@@ -964,8 +964,9 @@
ENDIF
//IF ! Empty( ::cPicFunc ) .OR. ! Empty( ::cPicMask )
IF ( ! Empty( ::cPicFunc ) .OR. ! Empty( ::cPicMask ) ) .AND. ;
- ( ! cKey $ ",." .OR. RIGHT( TRIM( ::title ), 1 ) = '.' )
- ::title := Transform( vari, ::cPicFunc + IIf( Empty( ::cPicFunc ), "", " " ) + ::cPicMask )
+ ( ! cKey $ ",." .OR. RIGHT( TRIM( ::title ), 1 ) = '.' )
+ *-::title := Transform( vari, ::cPicFunc + IIf( Empty( ::cPicFunc ), "", " " ) + ::cPicMask )
+ ::title := Transform( vari, STRTRAN(::cPicFunc, "Z", "" ) + IIf( Empty( ::cPicFunc ), "", " " ) + ::cPicMask )
IF lSignal
::title := "-" + substr( ::title, 2 )
ENDIF
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2012-01-02 11:39:36
|
Revision: 1828
http://hwgui.svn.sourceforge.net/hwgui/?rev=1828&view=rev
Author: LFBASSO
Date: 2012-01-02 11:39:29 +0000 (Mon, 02 Jan 2012)
Log Message:
-----------
2012-01-02 09:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hhyper.prg
! minor fix in Method Init to work in MAIN MDICHILD and DIALOG
* source/htool.prg
* CLASS HToolButton
* METHOD New
- // ::oParent:oParent:AddEvent( BN_CLICKED, Self, {|| ::ONCLICK()},,"click" )
event Click is triggered in Method Notify
* CLASS HTool
* METHOD Notifify
! minor fix in NM_CLICK
Modified Paths:
--------------
trunk/hwgui/Changelog
trunk/hwgui/source/hhyper.prg
trunk/hwgui/source/htool.prg
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2011-12-30 08:52:36 UTC (rev 1827)
+++ trunk/hwgui/Changelog 2012-01-02 11:39:29 UTC (rev 1828)
@@ -7,6 +7,19 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <fo...@fo...>
*/
+
+2012-01-02 09:40 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
+ * source/hhyper.prg
+ ! minor fix in Method Init to work in MAIN MDICHILD and DIALOG
+ * source/htool.prg
+ * CLASS HToolButton
+ * METHOD New
+ - // ::oParent:oParent:AddEvent( BN_CLICKED, Self, {|| ::ONCLICK()},,"click" )
+ event Click is triggered in Method Notify
+ * CLASS HTool
+ * METHOD Notifify
+ ! minor fix in NM_CLICK
+
2011-12-29 13:42 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
! changelog
! apenas um teste para ser se o email automatico esta funcionando
Modified: trunk/hwgui/source/hhyper.prg
===================================================================
--- trunk/hwgui/source/hhyper.prg 2011-12-30 08:52:36 UTC (rev 1827)
+++ trunk/hwgui/source/hhyper.prg 2012-01-02 11:39:29 UTC (rev 1828)
@@ -155,7 +155,7 @@
IF ! ::lInit
::nWidth := Min( TxtRect( ::Title, Self )[ 1 ] + 5, ::nWidth )
::move( , , ::nWidth , , )
- IF ::GetParentForm():Type <= WND_MDI
+ IF ::GetParentForm():Type <= WND_MDICHILD
::nHolder := 1
SetWindowObject( ::handle, Self )
Hwg_InitWinCtrl( ::handle )
Modified: trunk/hwgui/source/htool.prg
===================================================================
--- trunk/hwgui/source/htool.prg 2011-12-30 08:52:36 UTC (rev 1827)
+++ trunk/hwgui/source/htool.prg 2012-01-02 11:39:29 UTC (rev 1828)
@@ -63,7 +63,7 @@
__objAddData(::oParent, cName)
::oParent:&(cName) := Self
- ::oParent:oParent:AddEvent( BN_CLICKED, Self, {|| ::ONCLICK()},,"click" )
+ // ::oParent:oParent:AddEvent( BN_CLICKED, Self, {|| ::ONCLICK()},,"click" )
RETURN Self
@@ -458,11 +458,11 @@
ELSE
TOOLBAR_SUBMENU( lParam, 1, ::oParent:handle )
ENDIF
- elseif nCode == NM_CLICK
+ elseif nCode == NM_CLICK //.AND. ::GetParentForm():Type <= WND_MAIN
nId := TOOLBAR_IDCLICK( lParam )
nPos := AScan( ::aItem, { | x | x[ 2 ] == nId } )
- if nPos > 0
- eval( ::aItem[nPos,7])
+ if nPos > 0 .AND. ::aItem[nPos,7] != NIL
+ Eval( ::aItem[nPos,7], ::aItem[nPos,11], nId )
endif
ENDIF
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <om...@us...> - 2011-12-30 08:52:43
|
Revision: 1827
http://hwgui.svn.sourceforge.net/hwgui/?rev=1827&view=rev
Author: omm
Date: 2011-12-30 08:52:36 +0000 (Fri, 30 Dec 2011)
Log Message:
-----------
2011-12-30 10:50 UTC+0200 Alexey Myronenko <vatzct < at > polly.com.ua>
Modified Paths:
--------------
trunk/hwgui/Suggestions
Modified: trunk/hwgui/Suggestions
===================================================================
--- trunk/hwgui/Suggestions 2011-12-29 22:15:47 UTC (rev 1826)
+++ trunk/hwgui/Suggestions 2011-12-30 08:52:36 UTC (rev 1827)
@@ -8,23 +8,24 @@
*
* Suggest By Name DATE UTC
* Suggestion
- * Analyzed for
+ * Analyzed for
* Made For
/
-
+2011-12-30 10:50 test
+
2011-09-04 07:33 UTC+0700 Richard Roesnadi <roe...@ya...>
-
+
1.HW_WEBCAM Class
- 2.HW_SMS Class
-
+ 2.HW_SMS Class
+
2010-10-16 21:57 UTC+0700 Richard Roesnadi <roe...@ya...>
DESIGNER has too buggy :((
2007-05-27 02-30 UTC+0700 Richard Roesnadi <roe...@ya...>
-DESIGNER :
+DESIGNER :
+ ADDITIONAL SOME HWGUI'S CONTROL LIKE:
1.REBAR
2.PAGER
@@ -37,13 +38,13 @@
9.ACTIVEX
* EDITOR :
- DISPLAY FIELD'S OF DBF WHEN TYPE DBFNAME->{SPACE} LIKE MULTI-EDIT EDITOR
-
- * MENU CONTROL :
- ADD BITMAP
-
+ DISPLAY FIELD'S OF DBF WHEN TYPE DBFNAME->{SPACE} LIKE MULTI-EDIT EDITOR
-
+ * MENU CONTROL :
+ ADD BITMAP
+
+
+
2004-09-08 14-00 UTC-0300 Sandro R. R. Freire <san...@ya...>
New class similar to TBROWSE
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <LF...@us...> - 2011-12-29 22:15:53
|
Revision: 1826
http://hwgui.svn.sourceforge.net/hwgui/?rev=1826&view=rev
Author: LFBASSO
Date: 2011-12-29 22:15:47 +0000 (Thu, 29 Dec 2011)
Log Message:
-----------
Modified Paths:
--------------
trunk/hwgui/source/hhyper.prg
Modified: trunk/hwgui/source/hhyper.prg
===================================================================
--- trunk/hwgui/source/hhyper.prg 2011-12-29 18:13:53 UTC (rev 1825)
+++ trunk/hwgui/source/hhyper.prg 2011-12-29 22:15:47 UTC (rev 1826)
@@ -155,13 +155,11 @@
IF ! ::lInit
::nWidth := Min( TxtRect( ::Title, Self )[ 1 ] + 5, ::nWidth )
::move( , , ::nWidth , , )
- /*
IF ::GetParentForm():Type <= WND_MDI
::nHolder := 1
SetWindowObject( ::handle, Self )
Hwg_InitWinCtrl( ::handle )
ENDIF
- */
Super:init()
IF ::Title != NIL
SETWINDOWTEXT( ::handle, ::title )
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <lc...@us...> - 2011-12-29 18:14:00
|
Revision: 1825
http://hwgui.svn.sourceforge.net/hwgui/?rev=1825&view=rev
Author: lculik
Date: 2011-12-29 18:13:53 +0000 (Thu, 29 Dec 2011)
Log Message:
-----------
Modified Paths:
--------------
trunk/hwgui/Changelog
Modified: trunk/hwgui/Changelog
===================================================================
--- trunk/hwgui/Changelog 2011-12-29 15:43:25 UTC (rev 1824)
+++ trunk/hwgui/Changelog 2011-12-29 18:13:53 UTC (rev 1825)
@@ -9,7 +9,7 @@
*/
2011-12-29 13:42 UTC-0300 Luiz Rafael Culik (luiz at xharbour.com)
! changelog
- !apenas um teste para ser se o email automatico esta funcionando
+ ! apenas um teste para ser se o email automatico esta funcionando
2011-12-28 08:20 UTC-0300 Luis Fernando Basso <lfbasso at via-rs.net>
* source/hbrowse.prg
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|