// C:\FWH\SAMPLES\LEANDGET.PRG - By Kapiaba.
#Include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg, oBtn, oBtn2, oFont, oBold, oSay
LOCAL oGet1, oGet2, oGet3, oGet4, oGet5
LOCAL cVar1, cVar2, cVar3, cVar4
cVar1 := 0
cVar2 := 0
cVar3 := 50000.00
cVar4 := 0
SkinButtons() // Problemas con este comando en versiones nuevas?
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -16 BOLD
DEFINE FONT oBold NAME 'Tahoma' SIZE 0, -14 BOLD
DEFINE DIALOG oDlg TITLE "Quitar o mostrar button action de un get" PIXEL ;
SIZE 320, 300 TRANSPARENT COLOR METRO_EMERALD, CLR_WHITE FONT oBold
oDlg:lHelpIcon := .F.
@ 56,10 SAY oSay PROMPT "José Alvares, ¡seguro que lo haces mejor!" ;
FONT oBold SIZE 155, 20 PIXEL OF oDlg TRANSPARENT UPDATE ;
COLORS METRO_ORANGE, CLR_WHITE
@ 10, 10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\on.bmp" ;
ACTION( msginfo( "With Transparent" ) ) OF oDlg PIXEL SIZE 60, 12
oGet1:lBtnTransparent := .T. // transparent button get oGet1
@ 40, 10 GET oGet2 VAR cVar2 bitmap "..\bitmaps\on.bmp" ;
ACTION( msginfo( "Without Transparent" ) ) of oDlg PIXEL SIZE 60, 12
// CON IMAGEN AL INICIO - SHOW() AL INICIO.
@ 70, 10 GET oGet3 VAR cVar3 bitmap "..\bitmaps\chkyes.bmp" OF oDlg ;
PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )
oGet3:lAdjustBtn := .T.
oGet3:nClrTextDis := CLR_WHITE // Color text disable status
oGet3:nClrPaneDis := CLR_BLUE // Color Pane disable status
// SIN IMAGEN - HIDE() AL INICIO.
@ 70, 10 GET oGet4 VAR cVar3 OF oDlg PIXEL SIZE 120, 12
oGet4:lDisColors := .F. // Deactive disable color
oGet4:nClrTextDis := CLR_WHITE // Color text disable status
oGet4:nClrPaneDis := CLR_BLUE // Color Pane disable status
@ 100, 10 GET oGet5 VAR cVar4 bitmap "..\bitmaps\chkyes.bmp" OF oDlg ;
PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )
oGet5:lAdjustBtn := .T.
oGet5:nClrTextDis := CLR_WHITE // Color text disable status
oGet5:nClrPaneDis := CLR_BLUE // Color Pane disable status
@ 130, 10 BTNBMP oBtn PROMPT "Con Image" CENTER SIZE 50, 14 PIXEL OF oDlg ;
NOROUND 2007 FONT oFont ;
ACTION( CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg ) )
@ 130, 80 BTNBMP oBtn2 PROMPT "Sin Image" CENTER SIZE 50, 14 PIXEL OF oDlg ;
NOROUND 2007 FONT oFont ;
ACTION( SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg ) )
ACTIVATE DIALOG oDlg CENTERED ON INIT( oGet4:Hide() )
oFont:End()
oBold:End()
RETURN NIL
FUNCTION CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg )
oGet4:Hide()
oDlg:Update()
oGet3:Show()
oDlg:Update()
// oBtn:Disable()
// oBtn:Refresh()
RETURN( .T. )
FUNCTION SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg )
oGet3:Hide()
oDlg:Update()
oGet4:Show()
oDlg:Update()
// oBtn2:Disable()
// oBtn2:Refresh()
RETURN( .T. )
// FIN / END - kapiabafwh@gmail.com
// C:\FWH\SAMPLES\LEANDGET.PRG - By Kapiaba. Version con GDIPLUS.
#Include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg, oBtn, oBtn2, oFont, oBold, oSay
LOCAL oGet1, oGet2, oGet3, oGet4, oGet5
LOCAL cVar1, cVar2, cVar3, cVar4
cVar1 := 0
cVar2 := 0
cVar3 := 50000.00
cVar4 := 0
SkinButtons() // en FWH19.05 funciona perfecto!
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -16 BOLD
DEFINE FONT oBold NAME 'Tahoma' SIZE 0, -14 BOLD
DEFINE DIALOG oDlg TITLE "Quitar o mostrar button action de un get - " + ;
FWVERSION PIXEL SIZE 320, 300 TRANSPARENT ;
COLOR METRO_EMERALD, CLR_WHITE FONT oBold
oDlg:lHelpIcon := .F.
@ 56,10 SAY oSay PROMPT "José Alvares, ¡seguro que lo haces mejor!" ;
FONT oBold SIZE 155, 20 PIXEL OF oDlg TRANSPARENT UPDATE ;
COLORS METRO_ORANGE, CLR_WHITE
@ 10, 10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\on.bmp" ;
ACTION( msginfo( "With Transparent" ) ) OF oDlg PIXEL SIZE 60, 12
oGet1:lBtnTransparent := .T. // transparent button get oGet1
@ 40, 10 GET oGet2 VAR cVar2 bitmap "..\bitmaps\on.bmp" ;
ACTION( msginfo( "Without Transparent" ) ) of oDlg PIXEL SIZE 60, 12
// CON IMAGEN AL INICIO - SHOW() AL INICIO.
@ 70, 10 GET oGet3 VAR cVar3 bitmap "..\bitmaps\chkyes.bmp" OF oDlg ;
PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )
oGet3:lAdjustBtn := .T.
oGet3:nClrTextDis := CLR_WHITE // Color text disable status
oGet3:nClrPaneDis := CLR_BLUE // Color Pane disable status
// SIN IMAGEN - HIDE() AL INICIO.
@ 70, 10 GET oGet4 VAR cVar3 OF oDlg PIXEL SIZE 120, 12
oGet4:lDisColors := .F. // Deactive disable color
oGet4:nClrTextDis := CLR_WHITE // Color text disable status
oGet4:nClrPaneDis := CLR_BLUE // Color Pane disable status
@ 100, 10 GET oGet5 VAR cVar4 bitmap "..\bitmaps\chkyes.bmp" OF oDlg ;
PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )
oGet5:lAdjustBtn := .T.
oGet5:nClrTextDis := CLR_WHITE // Color text disable status
oGet5:nClrPaneDis := CLR_BLUE // Color Pane disable status
@ 130, 10 BTNBMP oBtn PROMPT "&Con Image" CENTER SIZE 50, 14 PIXEL OF oDlg ;
NOROUND 2007 FONT oFont ;
ACTION( CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg ) ) GDIPLUS
@ 130, 80 BTNBMP oBtn2 PROMPT "&Sin Image" CENTER SIZE 50, 14 PIXEL OF oDlg;
NOROUND 2007 FONT oFont ;
ACTION( SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg ) ) GDIPLUS
ACTIVATE DIALOG oDlg CENTERED ON INIT( oGet4:Hide() )
oFont:End()
oBold:End()
RETURN NIL
FUNCTION CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg )
oGet4:Hide()
oDlg:Update()
oGet3:Show()
oDlg:Update()
// oBtn:Disable()
// oBtn:Refresh()
RETURN( .T. )
FUNCTION SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg )
oGet3:Hide()
oDlg:Update()
oGet4:Show()
oDlg:Update()
// oBtn2:Disable()
// oBtn2:Refresh()
RETURN( .T. )
// FIN / END - kapiabafwh@gmail.com
using GDIPLUS, see what the ampersand looks like.
MsgInfo( OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ), ;
OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ) )
karinha wrote:Master Nages, another problem reported. the OemToAnsi() command is not working correctly.
Maestro Nages, se informó otro problema. el comando OemToAnsi() no funciona correctamente.
- Code: Select all Expand view RUN
MsgInfo( OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ), ;
OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ) )
Regards, saludos.
// C:\FWH\SAMPLES\INDEXERR.PRG - error in OemtoAnsi() - by Kapiaba.
#include "FiveWin.ch"
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
ANNOUNCE RDDSYS
REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto // Para ListBox
REQUEST DBFCDX, DBFFPT
FUNCTION Main()
FIELD FIRST, LAST, STREET, CITY, STATE
HB_LANGSELECT( 'PT' ) // Default language is now Portuguese
HB_SETCODEPAGE( "PT850" )
RDDSETDEFAULT("DBFCDX")
RDDREGISTER( "DBFCDX", 1 )
USE CUSTOMER
INDEX ON FIRST TAG 01 TO CUSTOMER
INDEX ON LAST TAG 02 TO CUSTOMER
INDEX ON STREET TAG 03 TO CUSTOMER
INDEX ON CITY TAG 04 TO CUSTOMER
INDEX ON STATE TAG 05 TO CUSTOMER
SET ORDER TO 01
GO TOP
// *The word "INDICES" does not return accented correctly.*
MsgInfo( OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ), ;
OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ) )
BROWSE()
dbCloseArea()
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
#include "fivewin.ch"
function Main()
// before setting codepage
? GetOEMCP(), GetACP(), HBCDP()
HB_SETCODEPAGE( "PT850" )
? GetOEMCP(), GetACP(), HBCDP()
return nil
437, 1252, 0
437, 1252, 850
Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_GETOEMCP' referenced from C:\FWH1905\SAMPLES\CODEPL.OBJ
Error: Unresolved external '_HB_FUN_GETACP' referenced from C:\FWH1905\SAMPLES\CODEPL.OBJ
Error: Unresolved external '_HB_FUN_HBCDP' referenced from C:\FWH1905\SAMPLES\CODEPL.OBJ
Error: Unable to perform link
* Linking errors *
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 47 guests