Telas diferentes ??

FFreire · Mensagem por **FFreire** » 23 Fev 2015 16:31

Prezados...

Veja o que esta ocorrendo, no Windows 7, executando a aplicação as telas ficam assim:

Quando executo no XP, o mesmo executável e fica assim:

Claro que não me refiro ao padrão do windows, com relação a cor de título, esmaecimento e por ai vai...

Me refiro aos ícones que não aparecem no XP, e os frames que passam por cima do título, alguém poderia me ajudar !!!

F.Freire

sambomb · Mensagem por **sambomb** » 23 Fev 2015 17:22

Está utilizando Manifest?
Style 2007?

Obs.: Qual biblioteca visual?

FFreire · Mensagem por **FFreire** » 23 Fev 2015 17:33

Opa...desculpe...estou usando Harbour 3.4.0 + HWGui...Roberto Lopes...Sobre manifest ou style 2007...acredito que não...só se estiver e nem to sabendo...rs

Mensagem por **Toledo** » 23 Fev 2015 17:39

FFreire escreveu:estou usando Harbour 3.4.0 + HWGui...Roberto Lopes...

Amigo, HwGui ou HMG/MiniGui do Roberto Lopez?

Bom, pelo histórico das suas mensagens, acho que deve ser MiniGui.

Abraços,

FFreire · Mensagem por **FFreire** » 23 Fev 2015 17:56

Escrevi uma coisa, querendo dizer outra...desculpe novamente...é HMG 3.4.0, estava usando a Minigui Extend, mas resolvi voltar a MiniGui Clássica...

Pablo César · Mensagem por **Pablo César** » 23 Fev 2015 18:05

Ainda não entendi muito bem.. isso porque ambas são Minigui. Mas acredito que o seu problema é com a nova versão HMG 3.4.0.

QUando migramos de ANSI para UNICODE, os prgs devem ser gravados em UNICODE e os formulários também.

Um dos botões (o de Incluir) é notávelmente menor. Verifique o tamanho e se você não está tentando usar o ButtonEx ou algo assim.

Assim sem código não tem muito o que analisar...

FFreire · Mensagem por **FFreire** » 24 Fev 2015 10:09

Não estou usando ButonEx e quanto ao tamanho do botão, esta menor pq estava mexendo...o estranho mesmo é não aparecer os ícones e o título do frame se sobrepondo...mas vou trocar a versão do hmg e ver o que dá...dai posto aqui...

FFreire · Mensagem por **FFreire** » 24 Fev 2015 10:26

Estou baixando de http://www.hmgforum.com/site/index.php? ... e&Itemid=1

Qual versão recomendam ?

FFreire · Mensagem por **FFreire** » 24 Fev 2015 11:13

Compilei/linkei com as versões 3.3.1, a 3.2, a 3.0.46....e tudo ficou igual a 3.4.0...ou seja...no XP é uma coisa no Win7...outra...ninguém passou por isso ??

FFreire · Mensagem por **FFreire** » 25 Fev 2015 11:42

Enfim...compilei com Minigui Extend e funcionou normal, no Win7 e no XP....

Mensagem por **Claudio Soto** » 25 Fev 2015 20:21

FFreire escreveu:Prezados...

Veja o que esta ocorrendo, no Windows 7, executando a aplicação as telas ficam assim:

tela1 - win7.jpg

tela2 - win7.jpg
Quando executo no XP, o mesmo executável e fica assim:

tela1 - winXP.jpg

tela2 - winXP.jpg
Claro que não me refiro ao padrão do windows, com relação a cor de título, esmaecimento e por ai vai...

Me refiro aos ícones que não aparecem no XP, e os frames que passam por cima do título, alguém poderia me ajudar !!!

F.Freire

Podrías subir un pequeño ejemplo donde se produzca problema, incluyendo las imágenes de los botones.

FFreire · Mensagem por **FFreire** » 01 Mar 2015 11:06

Na verdade. não dá mais, pois quando compilo no minigui extend, uso o buttonex...dai para exibir o exemplo, teria que voltar como estava, ou seja, sem o buttonex...mas vou postar a tela do frame que ainda esta sobrepondo ao título...mesmo compilando no minigui extend...vejam...

Segue o fonte...

Código: Selecionar todos

//--------------------------
STATIC FUNCTION CfgLicenca()
//--------------------------

LOCAL xHost, xDB, xUser, xSenha, xPorta, xSenhaAC

Lic->( DBGOTO(1) )
IF Lic->Uso = 'S'
   MsgMenu('Configurações em uso !!!',{'OK'},,IM__ERRO,'ERRO',,,'32 ERR CAN',,,_branco_)
ELSE
   IF RegLock('LIC')
      Lic->Uso        := 'S'
      Lic->( DBCOMMIT() )
      Lic->( DBUNLOCK() )

      xHost    := ALLTRIM(Cripto(Lic->HL ,'R',xEncripta))
      xDB      := ALLTRIM(Cripto(Lic->DBL,'R',xEncripta))
      xUser    := ALLTRIM(Cripto(Lic->UL ,'R',xEncripta))
      xSenha   := ALLTRIM(Cripto(Lic->SL ,'R',xEncripta))
      xPorta   := ALLTRIM(Cripto(Lic->PL ,'R',xEncripta))
      xSenhaAC := IIF(EMPTY(Lic->SAL),"",ALLTRIM(Cripto(Lic->SAL,'R',xEncripta)))

      DEFINE WINDOW CfgLic;
         AT 0,0;
         WIDTH 250;
         HEIGHT 280;
         TITLE "Configuração";
         MODAL;
         NOSIZE;
         NOSYSMENU;
         BACKCOLOR _rosa_1

         DEFINE FRAME frCfgLic1
            ROW 10
            COL 10
            WIDTH 224
            HEIGHT 145
            CAPTION 'CONEXÃO AO BANCO DE DADOS'
            FONTBOLD .T.
            FONTNAME "Arial"
            FONTSIZE 9
            TRANSPARENT .T.
         END FRAME

         DEFINE LABEL LbHost
            ROW 30
            COL 48
            WIDTH 29
            HEIGHT 20
            VALUE "Host:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eHost
            ROW 30
            COL 82
            WIDTH 131
            HEIGHT 20
            VALUE xHost
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 20
            UPPERCASE .F.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.eBD.SetFocus }
         END TEXTBOX

         DEFINE LABEL LbBD
            ROW 55
            COL 19
            WIDTH 58
            HEIGHT 20
            VALUE "DataBase:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eBD
            ROW 55
            COL 82
            WIDTH 131
            HEIGHT 20
            VALUE xDB
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.eUsu.SetFocus }
         END TEXTBOX

         DEFINE LABEL LbUsu
            ROW 80
            COL 30
            WIDTH 48
            HEIGHT 20
            VALUE "Usuário:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eUsu
            ROW 80
            COL 82
            WIDTH 95
            HEIGHT 20
            VALUE xUser
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            ON ENTER { || CfgLic.eSen.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE LABEL LbSen
            ROW 105
            COL 38
            WIDTH 39
            HEIGHT 20
            VALUE "Senha:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eSen
            ROW 105
            COL 82
            WIDTH 90
            HEIGHT 20
            VALUE xSenha
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            PASSWORD .T.
            ON ENTER { || CfgLic.ePorta.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE LABEL LbPorta
            ROW 130
            COL 45
            WIDTH 34
            HEIGHT 20
            VALUE "Porta:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX ePorta
            ROW 130
            COL 82
            WIDTH 47
            HEIGHT 20
            VALUE xPorta
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 6
            UPPERCASE .F.
            ON ENTER { || CfgLic.eSenAc.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE FRAME frCfgLic2
            ROW 160
            COL 10
            WIDTH 224
            HEIGHT 45
            CAPTION 'ACESSO AO LICENCIAMENTO'
            FONTBOLD .T.
            FONTNAME "Arial"
            FONTSIZE 9
            TRANSPARENT .T.
         END FRAME

         DEFINE LABEL LbSenAc
            ROW 180
            COL 38
            WIDTH 39
            HEIGHT 20
            VALUE "Senha:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eSenAc
            ROW 180
            COL 82
            WIDTH 90
            HEIGHT 20
            VALUE xSenhaAc
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            PASSWORD .T.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.bt1.SetFocus }
         END TEXTBOX

         DEFINE BUTTONEX bt1
            ROW    218
            COL    69
            WIDTH  75
            HEIGHT 28
            CAPTION "&Grava"
            FONTNAME 'Arial'
            FONTSIZE 8
            PICTURE IM__OK
            ACTION { || GrvCfgLic(), CfgLic.RELEASE }
            NOTRANSPARENT .F.
         END BUTTONEX

         DEFINE BUTTONEX bt3
            ROW    218
            COL    159
            WIDTH  75
            HEIGHT 28
            CAPTION "&Cancela"
            FONTNAME 'Arial'
            FONTSIZE 8
            PICTURE IM__SAIDA2
            ACTION CfgLic.RELEASE
            NOTRANSPARENT .F.
         END BUTTONEX

      END WINDOW

      ON KEY ALT+F4 OF CfgLic ACTION { || CfgLic.RELEASE }
      ON KEY ESCAPE OF CfgLic ACTION { || CfgLic.RELEASE }

      CENTER WINDOW CfgLic
      ACTIVATE WINDOW CfgLic

      RELEASE KEY ALT+F4 OF CfgLic
      RELEASE KEY ESCAPE OF CfgLic

      IF RegLock('LIC')
         Lic->Uso        := 'N'
         Lic->( DBCOMMIT() )
         Lic->( DBUNLOCK() )
      END
   END
END

RETURN(NIL)

Fico lisonjeado...por ser atendido pelo Grande Dr.Claudio Soto....muchas gracias !!!!

F.Freire

FFreire · Mensagem por **FFreire** » 01 Mar 2015 11:09

Com relação a manifest ou style 2007...que o colega sambomb se referiu....não entendi...como sei se estou usando ou não...o que viria a ser isso ??

F.Freire

Mensagem por **Claudio Soto** » 01 Mar 2015 13:39

FFreire escreveu:Na verdade. não dá mais, pois quando compilo no minigui extend, uso o buttonex...dai para exibir o exemplo, teria que voltar como estava, ou seja, sem o buttonex...mas vou postar a tela do frame que ainda esta sobrepondo ao título...mesmo compilando no minigui extend...vejam...

WIN7.jpg

winxp.jpg

Segue o fonte...

Código: Selecionar todos

//--------------------------
STATIC FUNCTION CfgLicenca()
//--------------------------

LOCAL xHost, xDB, xUser, xSenha, xPorta, xSenhaAC

Lic->( DBGOTO(1) )
IF Lic->Uso = 'S'
   MsgMenu('Configurações em uso !!!',{'OK'},,IM__ERRO,'ERRO',,,'32 ERR CAN',,,_branco_)
ELSE
   IF RegLock('LIC')
      Lic->Uso        := 'S'
      Lic->( DBCOMMIT() )
      Lic->( DBUNLOCK() )

      xHost    := ALLTRIM(Cripto(Lic->HL ,'R',xEncripta))
      xDB      := ALLTRIM(Cripto(Lic->DBL,'R',xEncripta))
      xUser    := ALLTRIM(Cripto(Lic->UL ,'R',xEncripta))
      xSenha   := ALLTRIM(Cripto(Lic->SL ,'R',xEncripta))
      xPorta   := ALLTRIM(Cripto(Lic->PL ,'R',xEncripta))
      xSenhaAC := IIF(EMPTY(Lic->SAL),"",ALLTRIM(Cripto(Lic->SAL,'R',xEncripta)))

      DEFINE WINDOW CfgLic;
         AT 0,0;
         WIDTH 250;
         HEIGHT 280;
         TITLE "Configuração";
         MODAL;
         NOSIZE;
         NOSYSMENU;
         BACKCOLOR _rosa_1

         DEFINE FRAME frCfgLic1
            ROW 10
            COL 10
            WIDTH 224
            HEIGHT 145
            CAPTION 'CONEXÃO AO BANCO DE DADOS'
            FONTBOLD .T.
            FONTNAME "Arial"
            FONTSIZE 9
            TRANSPARENT .T.
         END FRAME

         DEFINE LABEL LbHost
            ROW 30
            COL 48
            WIDTH 29
            HEIGHT 20
            VALUE "Host:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eHost
            ROW 30
            COL 82
            WIDTH 131
            HEIGHT 20
            VALUE xHost
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 20
            UPPERCASE .F.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.eBD.SetFocus }
         END TEXTBOX

         DEFINE LABEL LbBD
            ROW 55
            COL 19
            WIDTH 58
            HEIGHT 20
            VALUE "DataBase:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eBD
            ROW 55
            COL 82
            WIDTH 131
            HEIGHT 20
            VALUE xDB
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.eUsu.SetFocus }
         END TEXTBOX

         DEFINE LABEL LbUsu
            ROW 80
            COL 30
            WIDTH 48
            HEIGHT 20
            VALUE "Usuário:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eUsu
            ROW 80
            COL 82
            WIDTH 95
            HEIGHT 20
            VALUE xUser
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            ON ENTER { || CfgLic.eSen.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE LABEL LbSen
            ROW 105
            COL 38
            WIDTH 39
            HEIGHT 20
            VALUE "Senha:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eSen
            ROW 105
            COL 82
            WIDTH 90
            HEIGHT 20
            VALUE xSenha
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            PASSWORD .T.
            ON ENTER { || CfgLic.ePorta.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE LABEL LbPorta
            ROW 130
            COL 45
            WIDTH 34
            HEIGHT 20
            VALUE "Porta:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX ePorta
            ROW 130
            COL 82
            WIDTH 47
            HEIGHT 20
            VALUE xPorta
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 6
            UPPERCASE .F.
            ON ENTER { || CfgLic.eSenAc.SetFocus }
            VCENTERALIGN .T.
         END TEXTBOX

         DEFINE FRAME frCfgLic2
            ROW 160
            COL 10
            WIDTH 224
            HEIGHT 45
            CAPTION 'ACESSO AO LICENCIAMENTO'
            FONTBOLD .T.
            FONTNAME "Arial"
            FONTSIZE 9
            TRANSPARENT .T.
         END FRAME

         DEFINE LABEL LbSenAc
            ROW 180
            COL 38
            WIDTH 39
            HEIGHT 20
            VALUE "Senha:"
            FONTNAME 'Arial'
            FONTSIZE 9
            TRANSPARENT .T.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TEXTBOX eSenAc
            ROW 180
            COL 82
            WIDTH 90
            HEIGHT 20
            VALUE xSenhaAc
            FONTNAME 'Arial'
            FONTSIZE 8
            MAXLENGTH 10
            UPPERCASE .F.
            PASSWORD .T.
            VCENTERALIGN .T.
            ON ENTER { || CfgLic.bt1.SetFocus }
         END TEXTBOX

         DEFINE BUTTONEX bt1
            ROW    218
            COL    69
            WIDTH  75
            HEIGHT 28
            CAPTION "&Grava"
            FONTNAME 'Arial'
            FONTSIZE 8
            PICTURE IM__OK
            ACTION { || GrvCfgLic(), CfgLic.RELEASE }
            NOTRANSPARENT .F.
         END BUTTONEX

         DEFINE BUTTONEX bt3
            ROW    218
            COL    159
            WIDTH  75
            HEIGHT 28
            CAPTION "&Cancela"
            FONTNAME 'Arial'
            FONTSIZE 8
            PICTURE IM__SAIDA2
            ACTION CfgLic.RELEASE
            NOTRANSPARENT .F.
         END BUTTONEX

      END WINDOW

      ON KEY ALT+F4 OF CfgLic ACTION { || CfgLic.RELEASE }
      ON KEY ESCAPE OF CfgLic ACTION { || CfgLic.RELEASE }

      CENTER WINDOW CfgLic
      ACTIVATE WINDOW CfgLic

      RELEASE KEY ALT+F4 OF CfgLic
      RELEASE KEY ESCAPE OF CfgLic

      IF RegLock('LIC')
         Lic->Uso        := 'N'
         Lic->( DBCOMMIT() )
         Lic->( DBUNLOCK() )
      END
   END
END

RETURN(NIL)

Fico lisonjeado...por ser atendido pelo Grande Dr.Claudio Soto....muchas gracias !!!!

F.Freire

Cambiando ButtonEx por Button tu ejemplo me funciona OK en Win XP (Profesional SP 3) con HMG.3.4.0

FFreire · Mensagem por **FFreire** » 01 Mar 2015 15:07

E com relação ao frame...porque sobrepõe a linha...será que é alguma configuração que faço nos iniciais...segue fonte...

Código: Selecionar todos

// Licenciamento dos Clientes
// 17/01/2015

#include "minigui.ch"
#include 'Inkey.ch'
#include 'NetWork.Ch'

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT('PT')
HB_SETCODEPAGE('PT850')

FUNCTION MAIN

PUBLIC  _branco_  := {255,255,255}
PUBLIC  _rosa_1   := {236,233,216}
PUBLIC  _gridCor  := { |val, CellRowIndex| IIF( CellRowIndex/2 == INT(CellRowIndex/2) , { 250,250,210 } , { 255,255,255 } ) }

PUBLIC  xEncripta := 68372

PRIVATE IM__PERGUNTA   := ".\IMG\PERGUNTA.JPG"
PRIVATE IM__ERRO       := ".\IMG\ERRO.JPG"
PRIVATE IM__LICENCA    := ".\IMG\LICENCIAMENTO1.BMP"
PRIVATE IM__SAIDA      := ".\IMG\LICENCIAMENTO2.BMP"
PRIVATE IM__ALTPAD     := ".\IMG\LICENCIAMENTO3.BMP"
PRIVATE IM__SAIDA2     := ".\IMG\SAIDA2.BMP"
PRIVATE IM__ORDUP      := ".\IMG\ORDEMUP.BMP"
PRIVATE IM__ORDDN      := ".\IMG\ORDEMDOWN.BMP"
PRIVATE IM__SAIR       := ".\IMG\SAIDA2.BMP"
PRIVATE IM__OK         := ".\IMG\OK.BMP"
PRIVATE IM__EXCLUIR    := ".\IMG\EXCLUIR.BMP"
PRIVATE IM__INCLUIR    := ".\IMG\INCLUIR.BMP"
PRIVATE IM__ALTERAR    := ".\IMG\ALTERAR.BMP"
PRIVATE IM__FINANCA    := ".\IMG\MOEDAS.BMP"
PRIVATE IM__CALENDARIO := ".\IMG\CALENDARIO.BMP"

PRIVATE IC__OK       := ".\IMG\OK.ICO"
PRIVATE IC__SAIDA    := ".\IMG\SAIDA.ICO"

// Define Ambiente
SETBLINK(.F.)
SET( _SET_DELETED,    .T. )
__SETCENTURY( .T. )
SET( _SET_DATEFORMAT, IIF( __SETCENTURY(), 'dd/mm/yyyy', 'dd/mm/yy' ) )
SET( _SET_EPOCH, 1950     )
SETCANCEL(.F.)
SET MULTIPLE OFF WARNING

DEFINE WINDOW Licenciamento;
   AT 0,0;
   WIDTH 446;
   HEIGHT 98;
   TITLE "SAGRIO - Licenciamento de Clientes";
   ICON "LICENCIAMENTO";
   MAIN;
   NOSIZE;
   NOMAXIMIZE;
   ON INTERACTIVECLOSE { || IIF( MsgMenu('Confirma SAÍDA ???',{'&Sim','&Não'},,IM__PERGUNTA,'Saída',,,'42 ASK CAN',,,_branco_) = 1, .T., .F. ) };
   ON INIT ChecaEnt()
   BACKCOLOR _rosa_1

   DEFINE BUTTONEX bt1
      ROW    5
      COL    5
      WIDTH  140
      HEIGHT 60
      CAPTION "&Clientes"
      FONTNAME "Arial"
      FONTSIZE 10
      PICTURE IM__LICENCA
      ACTION CliLicenca()
      NOTRANSPARENT .F.
   END BUTTONEX

   DEFINE BUTTONEX bt2
      ROW    5
      COL    150
      WIDTH  140
      HEIGHT 60
      CAPTION "Con&figuração"
      FONTNAME "Arial"
      FONTSIZE 10
      PICTURE IM__ALTPAD
      ACTION CfgLicenca()
      NOTRANSPARENT .F.
   END BUTTONEX

   DEFINE BUTTONEX bt3
      ROW    5
      COL    295
      WIDTH  140
      HEIGHT 60
      CAPTION "&Encerra"
      FONTNAME "Arial"
      FONTSIZE 10
      PICTURE IM__SAIDA
      ACTION ConfSaida()
      NOTRANSPARENT .F.
   END BUTTONEX

END WINDOW

ON KEY ESCAPE OF Licenciamento ACTION ConfSaida()

Licenciamento.Center
Licenciamento.Activate

RELEASE KEY ESCAPE OF Licenciamento

DBCLOSEALL()

RETURN( NIL )

Será que falta alguma ?? Ou sobra...rs...

F.Freire