Clipper On Line • Ver Tópico - Erro na compilação -w3 -es2

Erro na compilação -w3 -es2

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Erro na compilação -w3 -es2

Mensagempor Softwhouse » 26 Fev 2018 18:16

Já fritei os neurônios, compilando com -w3 -es2 essa rotina apresenta erro o parâmetro x do codeblock, sem -w3 -es2 compila normal, alguma idéia do que está errado?


#include "minigui.ch"

Memvar aHeaders
Memvar aItems

Function Main()
Local aHeadClick [2]

aHeaders := {'Nome','Sobrenome'}
aItems   := LoadItems()

   AEVAL(aHeadClick, {| x, i | aHeadClick[ i ] := { |n| SortColumn( n ) }})

   DEFINE WINDOW Form_Clientes;
      AT 0,0 ;
      WIDTH 550 ;
      HEIGHT 450 ;
      TITLE 'Grid' ;
      MAIN ;
      ON INIT SortColumn( 1 )

      DEFINE GRID Grid_Clientes
         ROW      10
         COL      10
         WIDTH      500
         HEIGHT      330
         HEADERS      aHeaders
         WIDTHS      {140,140}
         ITEMS      aItems
         VALUE      1
         ONHEADCLICK   aHeadClick
      END GRID
     
     
   END WINDOW

   Form_Clientes.Center

   Form_Clientes.Activate

Return Nil

Function LoadItems()
Local aRows [20] [2]

   aRows [1]    := { 'Simpson','Homer'}
   aRows [2]    := { 'Mulder','Fox'}
   aRows [3]    := { 'Smart','Max'}
   aRows [4]    := { 'Grillo','Pepe'}
   aRows [5]    := { 'Kirk','James'}
   aRows [6]    := { 'Barriga','Carlos'}
   aRows [7]    := { 'Flanders','Ned'}
   aRows [8]    := { 'Smith','John'}
   aRows [9]    := { 'Pedemonti','Flavio'}
   aRows [10] := { 'Gomez','Juan'}
   aRows [11] := { 'Fernandez','Raul'}
   aRows [12] := { 'Borges','Javier'}
   aRows [13] := { 'Alvarez','Alberto'}
   aRows [14] := { 'Gonzalez','Ambo'}
   aRows [15] := { 'Batistuta','Gol'}
   aRows [16] := { 'Vinazzi','Amigo'}
   aRows [17] := { 'Pedemonti','Flavio'}
   aRows [18] := { 'Samarbide','Armando'}
   aRows [19] := { 'Pradon','Alejandra'}
   aRows [20] := { 'Reyes','Monica'}

Return aRows

PROCEDURE SortColumn( nColumnNo )
ASORT( aItems, , , { | x, y | x[ nColumnNo ] < y[ nColumnNo ] })
Form_Clientes.Grid_Clientes.DeleteAllItems
AEVAL( aItems, { | x | Form_Clientes.Grid_Clientes.AddItem( x ) } )
RETURN

Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Erro na compilação -w3 -es2

Mensagempor MSDN » 26 Fev 2018 18:59

Parece tudo ok, mas tente com essas mudanças :

onde está :
Memvar aHeaders
Memvar aItems


mude para :
public aHeaders
public aItems


e onde está :
PROCEDURE SortColumn( nColumnNo )


mude para :
Function SortColumn( nColumnNo )
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 123 vezes

Erro na compilação -w3 -es2

Mensagempor Daniel » 26 Fev 2018 19:50

E só tirar o primeiro 'x,'
Eles estao sem uso
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 373
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 36 vezes

Erro na compilação -w3 -es2

Mensagempor Softwhouse » 27 Fev 2018 08:46

Marcelo,

Se declarar variáveis públicas, não compila com -w3 -es2, tem que declarar como Memvar.

Daniel,

Retirando o X compila mas dá erro no array na hora da execução. Não conseguí entender isso.
Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

Erro na compilação -w3 -es2

Mensagempor MSDN » 27 Fev 2018 08:49

Procure aqui no Fórum postagens contendo -w3 -es2 em que o Quintas tenha postado, ele só compila com esses parâmetros, com certeza vc vai entender e resolver seu problema.
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 123 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro