Error BASE/1004 No exported method: NEW
Called from NEW(0)
Called from ADORECCOUNT(1028)
...
Talvez AppConexao() tenha retornado NIL...ADOClass():New( AppConexao() )
Error BASE/1081 Argument error: +
Called from SETCOLORTBROWSE(72)
Called from TOBROWSE(858)
Called from BROWSEADORC(36)
Called from BROWSEADO(204)
Código: Selecionar todos
FUNCTION SetColorFocus()
RETURN "15/9"
FUNCTION SetColorTbrowse()
RETURN "7/1," + SetColorFocus() + ",7/5,7/8,7/6,7/8,12/1,14/1,3/1"
Erro na janela de browse... A mesma janela usada em TODO aplicativo, para TODAS as bases de dados, TODO tempo, HÁ UM ANO....Compiler: MinGW GNU C 7.3 (32-bit)
GT: WVG
SYSTEM ERROR
Error BASE/1004 No exported method: SETCOLORBG
Called from SETCOLORBG(0)
Called from FRMGUICLASS:HSCROLL(447)
Called from BROWSEADO(194)
Called from JPTABCADGRUCLASS:GRIDSELECTION(45)
Código: Selecionar todos
CREATE CLASS WvgCrt INHERIT WvgWindow, WvgPartHandlerCódigo: Selecionar todos
METHOD HSCroll( nTop, nLeft, nHeight, nWidth ) CLASS frmGuiClass
LOCAL oControl
( nTop )
oControl := wvgScrollbar():New()
oControl:SetColorBG( "0/6" )
oControl:Create( , , { -( nTop + nHeight - 1 ), -nLeft }, { -1, -( nWidth - 2 ) } )
AAdd( ::aControlList, { CONTROL_TYPE_HSCROLL, oControl } )
RETURN Nil
Código: Selecionar todos
oControl := wvgScrollbar():New( wvgSetAppWindow() )
Application Internal Error - C:\jpa\JPA2.EXE
Terminated at: 2021-04-06 23:24:13
Info: JOSEJPA SERVERJPA joseq
Unrecoverable error 9006: hb_xgrab can't allocate memory
Called from SUBSTR(0)
Called from HBNFEDANFE:FORMATAMEMO(99)
Called from HBNFEDANFE:CALCULALAYOUT(931)
Called from HBNFEDANFE:GERAPDF(310)
Called from HBNFEDANFE:TOPDF(206)
Called from HBNFEDAGERAL:TOPDF(175)
Called from XMLPDFCLASS:GERAPDF(47)
Called from NFEEMAIL(229)
Called from (b)PDFESERVER(39)
Called from NFESELECT(196)
Called from PDFESERVER(53)
Called from DO(0)
Called from DOPRG(144)
Called from (b)RUNMODULE(109)
SET COLOR*
Define screen colors
------------------------------------------------------------------------------
Syntax
SET COLOR | COLOUR TO [[<standard>]
[,<enhanced>] [,<border>] [,<background>]
[,<unselected>]] | (<cColorString>)
Arguments
<standard> is the color that paints all console, full-screen, and
interface commands and functions when displaying to the screen. This
includes commands such as @...PROMPT, @...SAY, and ?; as well as
functions such as ACHOICE(), DBEDIT(), and MEMOEDIT().
<enhanced> is the color that paints highlighted displays. This
includes GETs with INTENSITY ON, the MENU TO, DBEDIT(), and ACHOICE()
selection highlight.
<border> is the color that paints the area around the screen that
cannot be written to.
<background> is not currently supported by any machines for which
Computer Associates provides drivers. This setting is supplied for
compatibility purposes only.
<unselected> is a color pair that provides input focus by displaying
the current GET in the enhanced color while other GETs are displayed in
this color.
<cColorString> is a character string enclosed in parentheses
containing the color settings. This facility lets you specify the color
settings as an expression in place of a literal string or macro
variable.
SET COLOR TO with no argument restores the default colors to W/N, N/W,
N, N, N/W.
Description
SET COLOR, a command synonym for the SETCOLOR() function, defines colors
for subsequent screen painting activity. Each SET COLOR command
specifies a list of color settings for the five types of screen painting
activity. Each setting is a foreground and background color pair
separated by the slash (/) character. Foreground defines the color of
characters displayed on the screen. Background defines the color
displayed behind the character. Spaces and nondisplay characters
display as background only.
In addition to color, a foreground setting can have an attribute, high
intensity or blinking. With a monochrome display, high intensity
enhances brightness of painted text. With a color display, high
intensity changes the hue of the specified color making it a different
color. For example, N displays foreground text as black where N+
displays the same text as gray. High intensity is denoted by +. The
blinking attribute causes the foreground text to flash on and off at a
rapid interval. Blinking is denoted with *. An attribute character can
occur anywhere in a setting, but is always applied to the foreground
color regardless where it occurs.
Each color can be specified using either a letter or a number, but
numbers and letters cannot be mixed within a setting. Note that numbers
are supplied for compatibility purposes and are not recommended.
All settings are optional. If a setting is skipped, its previous value
is retained with only new values set. Skipping a foreground or
background color within a setting sets the color to black.
The following colors are supported:
Color Table
------------------------------------------------------------------------
Color Letter Number Monochrome
------------------------------------------------------------------------
Black N, Space 0 Black
Blue B 1 Underline
Green G 2 White
Cyan BG 3 White
Red R 4 White
Magenta RB 5 White
Brown GR 6 White
White W 7 White
Gray N+ 8 Black
Bright Blue B+ 9 Bright Underline
Bright Green G+ 10 Bright White
Bright Cyan BG+ 11 Bright White
Bright Red R+ 12 Bright White
Bright Magenta RB+ 13 Bright White
Yellow GR+ 14 Bright White
Bright White W+ 15 Bright White
Black U Underline
Inverse Video I Inverse Video
Blank X Blank
------------------------------------------------------------------------
SET COLOR is a compatibility command and is not recommended. It is
superseded by the SETCOLOR() function which can return the current color
as well as set a new color.
Notes
. Monochrome monitors: Color is not supported on monochrome
monitors. CA-Clipper, however, supports the monochrome attributes
inverse video (I) and underlining (U).
. Screen drivers: SET COLOR TO, using numbers, may not be
supported by screen drivers other than the default screen driver.
Examples
. This example uses the unselected setting to make the current
GET red on white while the rest are black on white:
cColor:= "W/N,R/W,,,N/W"
SET COLOR TO (cColor)
cOne := cTwo := SPACE(10)
@ 1, 1 SAY "Enter One: " GET cOne
@ 2, 1 SAY "Enter Two: " GET cTwo
READ
. In this example a user-defined function gets a password from
the user using the blank (X) enhanced setting to hide the password as
the user types:
IF !DialogPassWord(12, 13, "W+/N", "FUNSUN", 3)
? "Sorry, your password failed"
QUIT
ENDIF
FUNCTION DialogPassWord( nRow, nCol, ;
cStandard, cPassword, nTries )
LOCAL nCount := 1, cColor := SETCOLOR()
SET COLOR TO (cStandard + ", X") // Blank input
//
DO WHILE nCount < nTries
cUserEntry:= SPACE(6)
@ nRow, nCol SAY "Enter password: " GET ;
cUserEntry
READ
//
IF LASTKEY() == 27
SET COLOR TO (cColor)
RETURN .F.
ELSEIF cUserEntry == cPassword
SET COLOR TO (cColor)
RETURN .T.
ELSE
nCount++
ENDIF
ENDDO
//
SET COLOR TO (cColor)
RETURN .F.
Files Library is CLIPPER.LIB.
See Also: @...GET @...SAY ISCOLOR() SETCOLOR() SETBLINK()