PC Toledo

FFreire escreveu: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

Si no posteas un código funcional con el error es imposible saber.

Prezados...

Acho que resolvi parcialmente o problema da linha do frame sobrepor o titulo do frame... com auxilio do grande Marcelo Neves... eu coloquei no meu .hbp o minigui.rc... dai ficou ok... tanto no winxp quanto no win7... mas quando configuro, seja no XP ou no Win7..., como tema clássico... volta o problema... falando com o Marcelo, ele acha que deve ser bug da minigui extended... o que acham

F.Freire