OTHER ERRORS:
FUNCTION TEST
INIT DIALOG oDlg TITLE "test" ;
AT 0,0 SIZE GETDESKTOPWIDTH(),GETDESKTOPHEIGHT()-50 ;
STYLE WS_POPUP+WS_CAPTION+DS_CENTER +WS_SYSMENU+WS_MINIMIZEBOX+WS_MAXIMIZEBOX+WS_VISIBLE
ACTIVATE DIALOG oDlg Show SW_SHOWMAXIMIZED // error
RETURN NIL
________________________________
De: Leonardo Machado <leo...@ho...>
Enviado: sexta-feira, 7 de outubro de 2016 12:17
Para: Alexander S.Kresin
Assunto: Re: [Hwgui-developers] Error
Understood, I will remove all.
Another error:
source\sagi_tanque.prg(1664) Error E0030 Syntax error "syntax error at '@'"
Sample:
.....
.....
@ 289,19 GET CHECKBOX oTodos_Datas VAR lTodas_Datas CAPTION 'Todos' SIZE 062,022;
ON INIT {|| if(lTodas_Datas, (dIni := ctod('01/01/1800'), dFim := ctod('31/12/4000'), oIni:Refresh(), oFim:Refresh(),oIni:Disable(), oFim:Disable()),;
(oIni:Enable(), oFim:Enable())) };
ON CLICK{|| msginfo('test') }
.....
.....
.....
________________________________
De: Alexander S.Kresin <al...@be...>
Enviado: sexta-feira, 7 de outubro de 2016 04:41
Para: Leonardo Machado
Assunto: Re: [Hwgui-developers] Error
Leonardo Machado ?????:
>
> STATIC Thisform
>
>
> FUNCTION TEST(nCODFOR)
>
> LOCAL oDLG
>
>
> INIT WINDOW oDlg MDICHILD VAR Thisform TITLE "Teste";
> ...
INIT WINDOW has not VAR clause.
As I understand this goes from 2.17 and is intended for 'thisform'
always point to currently active window.
If so, you can simply set this in ON GETFOCUS:
ON GETFOCUS {|o|thisform:=o}
Regards, Alexander.
|
