Menu
▾
▴
hwgui-developers — Discussing of HwGUI development
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
(64) |
Apr
(70) |
May
(54) |
Jun
(57) |
Jul
(34) |
Aug
(19) |
Sep
(28) |
Oct
(48) |
Nov
(42) |
Dec
(43) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(50) |
Feb
(19) |
Mar
(10) |
Apr
(5) |
May
(1) |
Jun
(14) |
Jul
(23) |
Aug
(6) |
Sep
(118) |
Oct
(110) |
Nov
(36) |
Dec
(6) |
| 2006 |
Jan
(19) |
Feb
(7) |
Mar
(4) |
Apr
(32) |
May
(6) |
Jun
(14) |
Jul
(42) |
Aug
(38) |
Sep
(88) |
Oct
(21) |
Nov
(40) |
Dec
(37) |
| 2007 |
Jan
(31) |
Feb
(20) |
Mar
(26) |
Apr
(38) |
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(8) |
Sep
(2) |
Oct
(3) |
Nov
(25) |
Dec
(9) |
| 2008 |
Jan
(7) |
Feb
(10) |
Mar
(16) |
Apr
(10) |
May
(25) |
Jun
(16) |
Jul
(27) |
Aug
(8) |
Sep
(20) |
Oct
(54) |
Nov
(11) |
Dec
(14) |
| 2009 |
Jan
(28) |
Feb
(22) |
Mar
(13) |
Apr
(70) |
May
(25) |
Jun
(23) |
Jul
(12) |
Aug
(18) |
Sep
(7) |
Oct
(4) |
Nov
(8) |
Dec
(36) |
| 2010 |
Jan
(58) |
Feb
(66) |
Mar
(3) |
Apr
(16) |
May
(9) |
Jun
(10) |
Jul
(6) |
Aug
(8) |
Sep
(17) |
Oct
(15) |
Nov
(12) |
Dec
(27) |
| 2011 |
Jan
(3) |
Feb
(17) |
Mar
(5) |
Apr
(12) |
May
(1) |
Jun
|
Jul
(1) |
Aug
(5) |
Sep
(56) |
Oct
(24) |
Nov
(8) |
Dec
(32) |
| 2012 |
Jan
(20) |
Feb
(3) |
Mar
|
Apr
|
May
|
Jun
(9) |
Jul
(29) |
Aug
(3) |
Sep
(17) |
Oct
(60) |
Nov
(17) |
Dec
(52) |
| 2013 |
Jan
(22) |
Feb
(35) |
Mar
(31) |
Apr
(5) |
May
(16) |
Jun
(108) |
Jul
(57) |
Aug
(2) |
Sep
(11) |
Oct
|
Nov
(3) |
Dec
(13) |
| 2014 |
Jan
(39) |
Feb
(15) |
Mar
|
Apr
(31) |
May
|
Jun
(9) |
Jul
(16) |
Aug
(1) |
Sep
(8) |
Oct
(51) |
Nov
(5) |
Dec
(119) |
| 2015 |
Jan
(78) |
Feb
(47) |
Mar
(25) |
Apr
(32) |
May
(34) |
Jun
(42) |
Jul
(62) |
Aug
(10) |
Sep
(11) |
Oct
(5) |
Nov
(13) |
Dec
(24) |
| 2016 |
Jan
(12) |
Feb
(1) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(12) |
Jul
(5) |
Aug
(32) |
Sep
(36) |
Oct
(34) |
Nov
(3) |
Dec
(1) |
| 2017 |
Jan
(2) |
Feb
(3) |
Mar
(2) |
Apr
|
May
(3) |
Jun
(5) |
Jul
(6) |
Aug
(5) |
Sep
|
Oct
|
Nov
|
Dec
(1) |
| 2018 |
Jan
(1) |
Feb
(1) |
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
(26) |
Sep
(24) |
Oct
(2) |
Nov
(6) |
Dec
(26) |
| 2019 |
Jan
(10) |
Feb
(5) |
Mar
|
Apr
(1) |
May
|
Jun
(1) |
Jul
(3) |
Aug
|
Sep
(2) |
Oct
(1) |
Nov
(1) |
Dec
(2) |
| 2020 |
Jan
(2) |
Feb
|
Mar
|
Apr
|
May
(5) |
Jun
(5) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2021 |
Jan
(1) |
Feb
|
Mar
|
Apr
(1) |
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(1) |
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
(4) |
Sep
|
Oct
(1) |
Nov
(1) |
Dec
(1) |
|
From: Alexander S.K. <al...@be...> - 2015-03-19 13:33:56
|
Itamar M. Lins Jr. Lins writes: > Hi! > When a @ ... GET ... receive focus of mouse cursor no go from position > initial of the string. Sorry, I didn't understand. When you click with mouse on the get item, the cursor stands at the place, where you clicked. Isn't this right ? Or you mean something other ? Regards, Alexander. |
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-18 21:51:14
|
Hi! GroupBox, the flags Color and BackColor not work on 2.19 Best regards, Itamar M. Lins Jr. |
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-03-17 16:35:35
|
Hi! When a @ ... GET ... receive focus of mouse cursor no go from position initial of the string. Best regards, Itamar M. Lins Jr. |
|
From: Alexander S.K. <al...@be...> - 2015-03-04 10:20:02
|
Itamar M. Lins Jr. Lins writes: > Hi! > > oBrw:nCurrent with BRW_DATABASE return 1 always > Yes, because it is intended for arrays. For the databases situation is more complicated. Using of Eval( :bRecnLog ) is preferred way. Regards, Alexander. |
|
From: Alexander S.K. <al...@be...> - 2015-03-04 10:07:51
|
ss...@ma... writes: > > Because MDICHILD Window not yet Activate and 'HBrowseEx' need ':Type' to work, > so, I suggest modify 'hwindow.prg' and add code to 'HMDIChildWindow' > //----------- > METHOD New(...) CLASS HMDIChildWindow > ::Super:new(...) > ::Type := WND_MDICHILD > RETURN Self > //----------- Thanks, added. Regards, Alexander. |
|
From: <ss...@ma...> - 2015-03-03 02:19:15
|
> > My problem is RETURN can't jump from 'HEDIT' to 'HBUTTON', > > I found solution: > modify HDIALOG.PRG > \FUNCTION onDlgCommand( oDlg, wParam, lParam ) > //----- old-code------------ > IF i != 0 .AND. oDlg:GetList[i]:handle == hCtrl > IF __ObjHasMsg( oDlg:GetList[i], "BVALID" ) > IF oDlg:lExitOnEnter .AND. ; > Eval( oDlg:GetList[i]:bValid, oDlg:GetList[i] ) > oDlg:GetList[i]:bLostFocus := Nil > oDlg:lResult := .T. > hwg_EndDialog( oDlg:handle ) > ENDIF > RETURN 1 > ENDIF > ENDIF > //-------------------------- > > fix to: > //----- new-code------------ > IF i != 0 .AND. oDlg:GetList[i]:handle == hCtrl > IF __ObjHasMsg( oDlg:GetList[i], "BVALID" ) > IF oDlg:lExitOnEnter .AND. ; > Eval( oDlg:GetList[i]:bValid, oDlg:GetList[i] ) > oDlg:GetList[i]:bLostFocus := Nil > oDlg:lResult := .T. > hwg_EndDialog( oDlg:handle ) > ELSE > IF oDlg:lClipper > IF !hwg_GetSkip( oDlg, hCtrl, 1 ) // Last Get > nextHandle := hwg_Getnextdlgtabitem ( hwg_Getactivewindow() , hwg_Getfocus() , .F. ) > hwg_Postmessage( oDlg:handle, WM_NEXTDLGCTL, nextHandle , 1 ) > ENDIF > RETURN 0 Sorry!! is 'RETURN 1' > ENDIF > ENDIF > RETURN 1 > ENDIF > ENDIF > //-------------------------- > > > > > > > Yes, I had add it to my prg, but no use. > > > > INIT DIALOG oDlg FROM RESOURCE "PRD_APP" FONT oFnt[3] CLIPPER NOEXIT NOEXITESC > > > > > > > Hi, > > > add CLIPPER to the DIALOG command as in hwgui\samples\testget2.prg. > > > Best regards. > > > -- > > > Maurizio > > > |
|
From: <ss...@ma...> - 2015-03-02 10:39:20
|
My problem is RETURN can't jump from 'HEDIT' to 'HBUTTON',
I found solution:
modify HDIALOG.PRG
\FUNCTION onDlgCommand( oDlg, wParam, lParam )
//----- old-code------------
IF i != 0 .AND. oDlg:GetList[i]:handle == hCtrl
IF __ObjHasMsg( oDlg:GetList[i], "BVALID" )
IF oDlg:lExitOnEnter .AND. ;
Eval( oDlg:GetList[i]:bValid, oDlg:GetList[i] )
oDlg:GetList[i]:bLostFocus := Nil
oDlg:lResult := .T.
hwg_EndDialog( oDlg:handle )
ENDIF
RETURN 1
ENDIF
ENDIF
//--------------------------
fix to:
//----- new-code------------
IF i != 0 .AND. oDlg:GetList[i]:handle == hCtrl
IF __ObjHasMsg( oDlg:GetList[i], "BVALID" )
IF oDlg:lExitOnEnter .AND. ;
Eval( oDlg:GetList[i]:bValid, oDlg:GetList[i] )
oDlg:GetList[i]:bLostFocus := Nil
oDlg:lResult := .T.
hwg_EndDialog( oDlg:handle )
ELSE
IF oDlg:lClipper
IF !hwg_GetSkip( oDlg, hCtrl, 1 ) // Last Get
nextHandle := hwg_Getnextdlgtabitem ( hwg_Getactivewindow() , hwg_Getfocus() , .F. )
hwg_Postmessage( oDlg:handle, WM_NEXTDLGCTL, nextHandle , 1 )
ENDIF
RETURN 0
ENDIF
ENDIF
RETURN 1
ENDIF
ENDIF
//--------------------------
>
> Yes, I had add it to my prg, but no use.
>
> INIT DIALOG oDlg FROM RESOURCE "PRD_APP" FONT oFnt[3] CLIPPER NOEXIT NOEXITESC
>
>
> > Hi,
> > add CLIPPER to the DIALOG command as in hwgui\samples\testget2.prg.
> > Best regards.
> > --
> > Maurizio
> >
> >
> > Il 02/03/2015 05:35, ss...@ma... ha scritto:
> >
> > Hi! as Title, I have many HEDIT to edit data and How to press VK_RETURN jump to next HEDIT ? Now only can use VK_TAB, I hope can simulation clipper can use VK_RETURN. ------------------------------------------------------------------------------ Dive into the World of Parallel Programming The Go Parallel Website, sponsored by Intel and developed in partnership with Slashdot Media, is your hub for all things parallel software development, from weekly thought leadership blogs to news, videos, case studies, tutorials and more. Take a look and join the conversation now. http://goparallel.sourceforge.net/ _______________________________________________ Hwgui-developers mailing list Hwg...@li...://lists.sourceforge.net/lists/listinfo/hwgui-developers
> >
>
>
> ------------------------------------------------------------------------------
> Dive into the World of Parallel Programming The Go Parallel Website, sponsored
> by Intel and developed in partnership with Slashdot Media, is your hub for all
> things parallel software development, from weekly thought leadership blogs to
> news, videos, case studies, tutorials and more. Take a look and join the
> conversation now. http://goparallel.sourceforge.net/
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers
Wang Ti information CO. of Taiwan
http://www.zzz.com.tw/
mailto:ss...@ma...
Yahoo: ssbbstw
MSN:ss...@ho...
Skype:ssbbstw
|
|
From: <ss...@ma...> - 2015-03-02 09:31:19
|
Yes, I had add it to my prg, but no use. INIT DIALOG oDlg FROM RESOURCE "PRD_APP" FONT oFnt[3] CLIPPER NOEXIT NOEXITESC > Hi, > add CLIPPER to the DIALOG command as in hwgui\samples\testget2.prg. > Best regards. > -- > Maurizio > > > Il 02/03/2015 05:35, ss...@ma... ha scritto: > > Hi! as Title, I have many HEDIT to edit data and How to press VK_RETURN jump to next HEDIT ? Now only can use VK_TAB, I hope can simulation clipper can use VK_RETURN. ------------------------------------------------------------------------------ Dive into the World of Parallel Programming The Go Parallel Website, sponsored by Intel and developed in partnership with Slashdot Media, is your hub for all things parallel software development, from weekly thought leadership blogs to news, videos, case studies, tutorials and more. Take a look and join the conversation now. http://goparallel.sourceforge.net/ _______________________________________________ Hwgui-developers mailing list Hwg...@li...://lists.sourceforge.net/lists/listinfo/hwgui-developers > |
|
From: Maurizio la C. <m.l...@ar...> - 2015-03-02 09:02:26
|
Hi, add CLIPPER to the DIALOG command as in hwgui\samples\testget2.prg. Best regards. -- Maurizio Il 02/03/2015 05:35, ss...@ma... ha scritto: > Hi! > as Title, I have many HEDIT to edit data and How to press VK_RETURN > jump to next HEDIT ? > > Now only can use VK_TAB, I hope can simulation clipper can use VK_RETURN. > > ------------------------------------------------------------------------------ > Dive into the World of Parallel Programming The Go Parallel Website, sponsored > by Intel and developed in partnership with Slashdot Media, is your hub for all > things parallel software development, from weekly thought leadership blogs to > news, videos, case studies, tutorials and more. Take a look and join the > conversation now. http://goparallel.sourceforge.net/ > _______________________________________________ > Hwgui-developers mailing list > Hwg...@li... > https://lists.sourceforge.net/lists/listinfo/hwgui-developers > |
|
From: <ss...@ma...> - 2015-03-02 04:35:19
|
Hi! as Title, I have many HEDIT to edit data and How to press VK_RETURN jump to next HEDIT ? Now only can use VK_TAB, I hope can simulation clipper can use VK_RETURN. |
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-28 17:14:03
|
Hi! oBrw:nCurrent with BRW_DATABASE return 1 always Best regards, Itamar M. Lins Jr. |
|
From: <ss...@ma...> - 2015-02-28 09:55:28
|
Hi!
I had test '%hwgdir%\contrib\ext_controls\hbrowsex.prg' and found some bug,
I'm write sample to test and 'WINDOW' is MDICHILD,
but occur error when run to HBrowseEx:InitBrw() ...
//----------
::nyHeight := iif( hwg_GetParentForm( Self ):Type < WND_DLG_RESOURCE , 1 , 0 )
//----------
Because MDICHILD Window not yet Activate and 'HBrowseEx' need ':Type' to work,
so, I suggest modify 'hwindow.prg' and add code to 'HMDIChildWindow'
//-----------
METHOD New(...) CLASS HMDIChildWindow
::Super:new(...)
::Type := WND_MDICHILD
RETURN Self
//-----------
|
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-26 12:35:20
|
#include "hwgui.ch"
Function main
local oDlg, oTab, cV01 := "", cV02:="",cV03:="", aItems:={"A","B","C"}
private oItemImg
INIT DIALOG oDlg CLIPPER NOEXIT TITLE "X" AT 100,100 SIZE 640,480
@ 10,10 TAB oTab ITEMS {} SIZE 400,200 OF oDlg
BEGIN PAGE "TAB A" OF oTAB //Focus here <tab> key not work and <return>
key not work
@ 010,030 get oV01 VAR cV01 size 40,20
@ 010,060 get ComboBox oV02 VAR cV02 ITEMS aITEMS TEXT size 100,30
//Here TAB key go to out of oTab object
@ 010,090 get oV03 VAR cV03 size 40,20
END PAGE OF oTAB
oDlg:Activate()
RETURN NIL
And many BUTTONS impossible to navigate, change focus(skip) between them
via K_UP, K_DOWN.
Best regards,
Itamar M. Lins Jr.
|
|
From: Alexander S.K. <al...@be...> - 2015-02-24 09:57:57
|
Itamar M. Lins Jr. Lins writes: > #include "hwgui.ch <http://hwgui.ch>" > Function main > LOCAL oDlg, nA:= 0, cPhantom:="" > > INIT DIALOG oDlg AT 100,100 SIZE 500,200 CLIPPER NOEXIT > > @ 10,10 get oA VAR nA SIZE 150,25 picture "99999,999.99999" //Please > type -0.5 > ... Fixed, and combobox problem, too. Regards, Alexander. |
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-22 02:19:10
|
Hi!
...
METHOD Init() CLASS HComboBox
Line: 144
IF hb_IsArray(::aItems) //IF ::aItems != Nil
IF empty(::aItems) //is empty array nothing to do return!
return nil
ENDIF
...
And
METHOD Refresh() CLASS HComboBox
LOCAL vari, i
/* This lines for empty array */
IF empty(::aItems)
RETURN nil
ENDIF
Best regards,
Itamar M. Lins Jr.
|
|
From: Baloghy G. <bal...@gm...> - 2015-02-21 12:11:37
|
Hi!
How can I change the backcolor of a button ( or buttonex). Backcolor with
button does not work, with buttonex is a runtime error.
I use hwgui 2.19 in windows environments. There is the same problem in.
2.18.
Best regards,
Gábor Baloghy
#include "windows.ch"
#include "guilib.ch"
#include "hwg_extctrl.ch"
function main
PREPARE FONT oFont name "MS Sans Serif" width 0 height -13
init window OMain title "Button backcolor" size 300,200 font oFont
@ 50,50 button oButton1 caption "Button" size 60,25 color 0x0088FF
backcolor 0x00FF00
@ 150,50 buttonex oButton2 caption "Buttonex" size 60,25 on click
{||oMain:close()} color 0x000000 //backcolor 0xFF00FF
activate window oMain center
return nil
|
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-21 00:57:54
|
Hi!
Error BASE/1132 Erro de limite: acesso de array
Called from ->HCOMBOBOX:INIT(160)
Called from ->HWG_INITCONTROLS(41)
Called from ->HWG_INITCONTROLS(39)
Called from ->INITMODALDLG(235)
Called from ->(b)(_INITSTATICS00003)(0)
Called from ->HDIALOG:ONEVENT(182)
Called from ->HWG_DLGBOXINDIRECT(0)
aEspecie := {}
...
@ 010,095 get ComboBox oEq03 VAR cEq03 ITEMS aEspecie TEXT SIZE 60,20
DisplayCount 6
//aEspecie is fill reading DBF. If empty DBF(eof) return empty
//Works fine with 2.17 while return none.
Best regards,
Itamar M. Lins Jr.
|
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-19 21:17:23
|
#include "hwgui.ch" Function main LOCAL oDlg, nA:= 0, cPhantom:="" INIT DIALOG oDlg AT 100,100 SIZE 500,200 CLIPPER NOEXIT @ 10,10 get oA VAR nA SIZE 150,25 picture "99999,999.99999" //Please type -0.5 @ 10,60 get oPhantom VAR cPhantom size 0,0 oDlg:Activate() Best regards, Itamar M. Lins Jr. |
|
From: Alexander S.K. <al...@be...> - 2015-02-19 05:57:57
|
Leonardo Machado writes: > Version 2.17 works well so why not inherit more TIMER objects? > I got an idea how to implement it without introducing new class variables and, probably, will do it soon. Regards, Alexander. |
|
From: Leonardo M. <leo...@ho...> - 2015-02-17 20:41:22
|
Version 2.17 works well so why not inherit more TIMER objects?
Leonardo Machado
> Date: Tue, 17 Feb 2015 11:19:04 +0400
> From: al...@be...
> To: hwg...@li...
> Subject: Re: [Hwgui-developers] Error Dialog objects.
>
> Itamar M. Lins Jr. Lins writes:
> > From user Leonardo Machado.
> >
> > Error HCUSTOMWINDOW/0 Invalid class member
> > Called from ->HDIALOG:OTIME_MSG(225)
> > Called from ->(b)MY_MSGINFO(48)
> > ...
>
> HwGUI 2.19 doesn't support names for timers as for controls (
> oDlg:oSay1 ... ).
>
> In this sample you need to change calls of Thisform:oTime_MSG:
>
> @ 150,40 BUTTONEX oButton1 Caption "&OK" ON CLICK {||(oTime_MSG:end()), ...
>
> SET TIMER oTIME_MSG OF oDlg ID 9007 VALUE 1000 ACTION {||
> ATUALIZA_TIMER(cTempo,oTime_MSG) }
>
> ...
>
>
> STATIC FUNCTION ATUALIZA_TIMER(cTempo,oTimer)
>
> nTempo++
> IF nTempo=cTempo
> oTimer:end()
> ...
>
>
> This will work in both 2.17 and 2.19.
>
>
> Regards, Alexander.
>
>
> ------------------------------------------------------------------------------
> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
> from Actuate! Instantly Supercharge Your Business Reports and Dashboards
> with Interactivity, Sharing, Native Excel Exports, App Integration & more
> Get technology previously reserved for billion-dollar corporations, FREE
> http://pubads.g.doubleclick.net/gampad/clk?id=190641631&iu=/4140/ostg.clktrk
> _______________________________________________
> Hwgui-developers mailing list
> Hwg...@li...
> https://lists.sourceforge.net/lists/listinfo/hwgui-developers
|
|
From: Alexander S.K. <al...@be...> - 2015-02-17 08:19:25
|
Itamar M. Lins Jr. Lins writes:
> From user Leonardo Machado.
>
> Error HCUSTOMWINDOW/0 Invalid class member
> Called from ->HDIALOG:OTIME_MSG(225)
> Called from ->(b)MY_MSGINFO(48)
> ...
HwGUI 2.19 doesn't support names for timers as for controls (
oDlg:oSay1 ... ).
In this sample you need to change calls of Thisform:oTime_MSG:
@ 150,40 BUTTONEX oButton1 Caption "&OK" ON CLICK {||(oTime_MSG:end()), ...
SET TIMER oTIME_MSG OF oDlg ID 9007 VALUE 1000 ACTION {||
ATUALIZA_TIMER(cTempo,oTime_MSG) }
...
STATIC FUNCTION ATUALIZA_TIMER(cTempo,oTimer)
nTempo++
IF nTempo=cTempo
oTimer:end()
...
This will work in both 2.17 and 2.19.
Regards, Alexander.
|
|
From: Alexander S.K. <al...@be...> - 2015-02-17 08:02:02
|
Leonardo Machado writes: > Hi, > It would be nice to have a Hwgui group on google. > This Sourceforge mail format the time is not enough posts. > Everyone is free to create it. But I can't promise that I will visit it every day :), because it's difficult for me to monitor regularly many different resources. Regards, Alexander. |
|
From: Alexander S.K. <al...@be...> - 2015-02-17 07:47:03
|
Leonardo Machado writes: > Hi, > Error compiling activex with HARBOUR SVN (night version) and HWGUI SVN > ... > In file included from ../../../../contrib/activex/htmlcore.c:40:0: > ../../../../contrib/activex/htmlcore.h:17:119: fatal error: mshtmhst.h: > No such > file or directory > compilation terminated. It says that the header file mshtmhst.h is absent. What Mingw version you use ? Check, if this file presents there. If no, maybe, you can copy it from other Mingw distribution. It is on the palce in my Mingw 4.8.2 Regards, Alexander. |
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-13 21:38:30
|
>From user Leonardo Machado. SetDisableBackColor(.T.) //USING THE DISABLED FIELDS WITH WHITE BACKGROUND Best regards, Itamar M. Lins Jr. |
|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-02-13 21:33:41
|
>From user Leonardo Machado.
Error HCUSTOMWINDOW/0 Invalid class member
Called from ->HDIALOG:OTIME_MSG(225)
Called from ->(b)MY_MSGINFO(48)
Called from ->HBUTTONEX:ONCLICK(401)
Called from ->(b)HBUTTONX_NEW(312)
Called from ->ONDLGCOMMAND(335)
Called from ->(b)(_INITSTATICS00003)(0)
Called from ->HDIALOG:ONEVENT(182)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)
Called from ->MY_MSGINFO(52)
Called from ->MAIN(17)
HWGUI 2.19 Build 1
Date:02/13/15
Time:18:31:16
-------------------------------->8-------------------
#pragma /w2
#pragma /es2
#include "hwgui.ch"
#include "hwg_extctrl.ch"
STATIC Thisform
STATIC nTempo := 0
FUNCTION MAIN()
MY_MSGINFO('test hwgui',30)
RETURN(.T.)
*******************************
FUNCTION MY_MSGINFO(cTIT,cTempo)
*******************************
Local oSAY, oButton1, oDlg
Local oTime_MSG
IF nTempo <> 0
nTempo :=0
ENDIF
IF cTempo=Nil
cTempo=30
ENDIF
INIT DIALOG oDlg TITLE "test hwgui" NOEXIT NOEXITESC ;
AT 0,0 SIZE 400,105 ;
ICON HIcon():AddResource(1001) ;
STYLE DS_CENTER +WS_VISIBLE
Thisform := oDlg
@ 10,15 SAY oSAY CAPTION cTIT SIZE 400,20;
STYLE SS_CENTER;
FONT HFont():Add( '',0,-11,400,,,)
@ 150,40 BUTTONEX oButton1 Caption "&OK" ON CLICK {||
(Thisform:oTime_MSG:end()), Thisform:Close() };
SIZE 60,22 STYLE WS_TABSTOP + DS_CENTER ;
FONT HFont():Add( '',0,-12,400,,,);
TOOLTIP "Clique Aqui Para Proseguir"
SET TIMER oTIME_MSG OF oDlg ID 9007 VALUE 1000 ACTION {||
ATUALIZA_TIMER(cTempo) }
ACTIVATE DIALOG oDlg
Return(.t.)
**************************************
STATIC FUNCTION ATUALIZA_TIMER(cTempo)
**************************************
nTempo++
IF nTempo=cTempo
Thisform:oTime_MSG:end()
Thisform:Close()
ENDIF
//HWG_DOEVENTS()
Thisform:oButton1:SETTEXT("&OK-"+alltrim(str(cTempo-nTempo)) )
Thisform:oButton1:REFRESH()
RETURN(.T.)
Best regards,
Itamar M. Lins Jr.
|
101 messages has been excluded from this view by a project administrator.
