Menu
▾
▴
hwgui-commits — hwgui commits
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
|
Sep
|
Oct
|
Nov
|
Dec
|
|
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.
|
