Fonte:
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=39420
Super many thanks mister Tim. Very good. Muy Bueno. Gracias.
// \SAMPLES\TBARTIM.PRG
#Include "FiveWin.ch"
MEMVAR aPubGrad
FUNCTION Main() // ExpandText( cLabTxt )
LOCAL oDlg, oGt1, oBarExp, oBrush, oFont, oBtnEx1, oBtnEx2
LOCAL cLabTxt := "TEST OF TBAR, MISTER TIM STONE"
aPubGrad := {| lInvert | If( ! lInvert, { { 0.50, 16776960, 16777215 }, ;
{ 0.50, 16777215, 16776960 } }, ;
{ { 0.50, 128, 16777215 }, ;
{ 0.50, 16777215, 128 } } ) } // HCYAN, WHITE ; RED, WHITE
DEFINE BRUSH oBrush STYLE BORLAND
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -12 BOLD
DEFINE DIALOG oDlg RESOURCE "EXPTXT" BRUSH oBrush TRANSPARENT FONT oFont
oDlg:lHelpIcon := .F.
REDEFINE GET oGt1 VAR cLabTxt MEMO ID 8522 OF oDlg
oDlg:bStart = { || oGt1:GoBottom() }
REDEFINE BUTTONBAR oBarExp ID 100 SIZE 60,60 OF oDlg 2015
oBarExp:bClrGrad := aPubGrad
DEFINE BUTTON oBtnEx1 OF oBarExp RESOURCE "SCULLY" PROMPT "OK" ;
ACTION ( oDlg:End() ) ;
MESSAGE "Make your changes and press OK"
DEFINE BUTTON oBtnEx2 OF oBarExp RESOURCE "SALVAR" PROMPT "Spell" ;
TOOLTIP "Spell check text" ;
ACTION ( cLabTxt := SpellOne( cLabTxt ), oGt1:Refresh( ) ) NOBORDER ;
TRANSPARENT
ACTIVATE DIALOG oDlg ON INIT ( oBarExp:lTransparent := .F. ) CENTERED
oBrush:End()
oFont:End()
RETURN( cLabTxt )
FUNCTION SpellOne( cLabTxt )
RETURN NIL
// TBARTIM.RC -> Modified - Very Show()
EXPTXT DIALOG 0, 0, 462, 300
STYLE DS_ABSALIGN | DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Text Editor"
{
CONTROL "", 100, "TBar", 0 | WS_CHILD | WS_VISIBLE, 0, 0, 450, 30
EDITTEXT 8522, 5, 40, 445, 252, ES_MULTILINE | ES_WANTRETURN | WS_VSCROLL
}
}
SCULLY BITMAP
{
'42 4D 36 08 00 00 00 00 00 00 36 04 00 00 28 00'
'00 00 20 00 00 00 20 00 00 00 01 00 08 00 00 00'
'00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 01'
'00 00 00 00 00 00 FF FF FF 00 00 00 00 00 00 00'
'18 00 00 00 10 00 F0 FF FF 00 F8 FF FF 00 00 08'
'00 00 00 00 20 00 10 00 10 00 00 00 30 00 00 00'
'28 00 A8 AC D8 00 10 00 00 00 00 00 40 00 20 54'
'80 00 58 70 60 00 40 50 60 00 A8 D4 B0 00 50 5C'
'50 00 00 74 F8 00 40 58 A0 00 00 00 38 00 70 9C'
'B0 00 FF FC FF 00 90 A4 F8 00 00 00 A8 00 00 1C'
'98 00 C0 D0 C0 00 C0 C4 A8 00 E0 FF FF 00 E8 FF'
'FF 00 00 4C E0 00 18 84 D8 00 00 00 68 00 00 00'
'60 00 28 40 90 00 00 00 78 00 10 08 60 00 20 50'
'B8 00 38 BC D8 00 80 B0 E8 00 78 84 C0 00 48 88'
'B8 00 78 90 D0 00 70 FF FF 00 10 10 80 00 30 40'
'C8 00 00 08 D8 00 40 70 F0 00 28 3C FF 00 48 80'
'D8 00 18 8C F8 00 50 68 E8 00 10 0C F0 00 30 60'
'F8 00 00 08 98 00 50 74 B8 00 00 00 80 00 28 28'
'C8 00 00 10 90 00 58 6C B0 00 00 00 50 00 38 40'
'A8 00 30 38 B0 00 70 9C E8 00 30 60 B8 00 10 28'
'50 00 10 28 68 00 00 38 98 00 FF F8 FF 00 90 FF'
'FF 00 FF FF F0 00 28 AC F8 00 10 38 FF 00 C8 D0'
'F8 00 68 D0 F0 00 88 FC FF 00 E8 FF F8 00 FF FF'
'F8 00 B8 FF FF 00 C0 FF FF 00 18 44 C0 00 28 D0'
'F8 00 20 18 C8 00 18 20 70 00 10 14 58 00 18 28'
'E8 00 70 88 F0 00 78 94 F0 00 18 1C 60 00 50 A8'
'E0 00 70 BC E8 00 A8 DC FF 00 00 28 FF 00 30 B4'
'E8 00 58 88 F0 00 60 84 F8 00 78 C8 E8 00 28 20'
'78 00 B0 F8 E8 00 20 38 C0 00 30 44 E0 00 90 DC'
'F0 00 28 38 E0 00 A8 BC FF 00 00 14 FF 00 A0 B8'
'F8 00 70 DC F8 00 B8 F4 F0 00 10 20 98 00 10 00'
'50 00 68 D8 FF 00 00 1C 38 00 00 00 D0 00 00 00'
'E0 00 98 C4 FF 00 00 00 F8 00 10 00 F8 00 00 18'
'60 00 00 08 F8 00 18 28 80 00 C0 D8 FF 00 20 1C'
'80 00 00 1C 80 00 00 00 58 00 40 78 E0 00 00 00'
'48 00 10 00 C0 00 10 24 F0 00 60 D0 FF 00 48 90'
'F8 00 00 0C C8 00 50 B4 F0 00 20 60 D8 00 20 30'
'98 00 48 78 E8 00 60 E8 FF 00 10 08 48 00 10 00'
'68 00 18 40 B0 00 78 94 98 00 88 94 98 00 00 24'
'88 00 60 C8 E8 00 68 AC D8 00 30 64 D8 00 18 44'
'E0 00 00 24 C0 00 10 00 20 00 20 58 E0 00 60 C0'
'F0 00 38 B8 F0 00 50 DC FF 00 40 B8 F8 00 80 BC'
'F8 00 A8 FF F8 00 88 E4 F8 00 78 D8 F0 00 38 CC'
'F8 00 F0 FC FF 00 A8 F0 F8 00 C8 FF F0 00 F8 FF'
'F8 00 B8 F8 FF 00 98 FF FF 00 70 F8 FF 00 38 C4'
'FF 00 10 14 78 00 00 0C 38 00 10 18 D0 00 00 2C'
'E0 00 10 08 E8 00 00 24 E8 00 38 A0 F0 00 C0 E8'
'FF 00 10 14 E8 00 20 4C D8 00 28 E4 FF 00 28 80'
'F0 00 10 18 E0 00 10 2C B8 00 00 14 D8 00 30 DC'
'FF 00 30 8C F0 00 10 24 C8 00 10 28 C0 00 20 14'
'B8 00 38 9C F8 00 30 88 F8 00 00 30 D8 00 20 34'
'D8 00 10 0C 98 00 30 60 E0 00 40 98 F0 00 C8 FC'
'FF 00 60 A8 E8 00 58 F8 FF 00 00 2C B8 00 18 24'
'A8 00 10 08 90 00 10 08 A0 00 E8 FC FF 00 98 E0'
'FF 00 C0 F8 FF 00 10 24 E0 00 80 C8 FF 00 B0 E8'
'FF 00 30 90 E8 00 10 58 D0 00 D0 FF FF 00 20 84'
'F0 00 68 BC FF 00 58 9C FF 00 50 CC FF 00 F8 FC'
'FF 00 10 64 D0 00 98 D4 FF 00 58 D8 F8 00 60 E4'
'F8 00 48 8C FF 00 68 FC FF 00 D0 F4 F8 00 38 94'
'FF 00 B8 E8 F8 00 50 9C F8 00 98 D8 F8 00 A0 FC'
'FF 00 D0 FC FF 00 D8 FF FF 00 10 00 38 00 00 08'
'50 00 10 00 28 00 28 58 E8 00 28 50 E8 00 18 28'
'B8 00 20 1C E0 00 10 0C C8 00 00 14 C0 00 00 08'
'90 00 18 38 D8 00 10 3C E0 00 18 38 A0 00 10 18'
'C0 00 10 08 70 00 68 AC FF 00 10 38 E8 00 18 28'
'90 00 30 6C D8 00 10 14 88 00 20 2C FF 00 30 74'
'D8 00 18 14 80 00 28 6C D8 00 30 58 C8 00 18 54'
'F8 00 00 30 A8 00 74 2F 21 E6 F8 02 03 0C 06 06'
'01 0C 01 01 01 01 E5 A7 A6 46 D1 05 00 00 00 4E'
'4E 00 00 00 04 1E 77 19 7E 2D 2D A8 01 09 0D 09'
'3D 25 E7 08 03 E6 6D 51 88 E2 D1 00 00 04 00 00'
'00 00 00 00 04 00 77 37 09 22 21 09 EE ED EC A9'
'EB F8 03 01 0D EA E9 E8 98 46 C2 D6 9F 04 00 45'
'45 00 00 00 00 00 AB 21 6E F3 39 2E 93 1F 13 AA'
'F2 15 01 02 F1 82 F0 EF 99 4C 4F 1D 4D 00 00 05'
'00 00 00 00 00 00 53 21 22 39 1A 20 52 B1 99 26'
'09 02 02 F6 AD AD CC 2F AC F5 F4 4F 1D 00 17 00'
'00 00 00 00 00 00 F8 7C F8 24 AD B1 B1 27 70 03'
'06 02 54 30 6F B0 37 AF AC 69 93 F7 AE 1E 4E 4E'
'00 00 04 00 00 00 FB 55 21 B2 33 48 0E 07 01 01'
'03 15 32 D3 FA 72 71 35 F9 31 68 28 D8 CB 1E 05'
'00 00 00 00 00 00 22 22 B4 FE CC 76 02 08 01 08'
'07 FD E0 D9 FC 2F 77 75 74 35 B3 34 73 9A E3 04'
'00 00 00 00 00 00 09 24 AA 56 22 02 01 06 01 02'
'78 82 A6 98 D5 AA B5 77 69 F9 77 2F B5 FF 2B C9'
'00 00 00 00 00 00 15 C8 EC 3B 0A 01 06 01 01 7C'
'91 99 B6 C4 D5 D5 DF 9A 58 57 18 6A 79 DD C9 00'
'00 00 00 00 00 00 F3 37 1A 59 07 01 06 02 0D EF'
'DE 99 9E 48 B7 DA 4F E2 1D C9 05 17 17 00 00 00'
'00 00 04 00 00 00 37 B9 24 7A 0A 01 06 0A EA 36'
'E0 BB B2 B8 3B 5A 9B C2 04 45 17 05 05 05 05 00'
'00 00 00 00 00 00 71 93 7C BA 0A 01 02 7B E8 DB'
'E0 FE 93 3B 38 5B A3 04 00 17 A2 00 00 00 17 17'
'00 00 00 00 00 00 80 83 24 7F 0A 03 7E 51 BC D3'
'BB F0 7D 5C CB A4 C2 C9 00 17 4E 00 00 00 17 00'
'00 00 00 00 00 00 5D 19 BA 19 07 02 F6 BC A6 98'
'BB BD CA 1D 1E D1 29 14 1D D6 17 00 00 00 00 00'
'00 00 00 00 00 00 49 19 3A 39 02 02 FD 81 88 C4'
'BC CC E2 05 04 04 9F AE 1D 05 05 00 00 00 00 00'
'00 00 00 00 00 00 AA 93 F2 3D 07 07 82 88 A5 DC'
'BB BE A3 05 05 04 1E 04 04 05 00 00 00 00 00 00'
'00 00 00 00 00 00 F5 83 BF 0A 07 E6 82 98 4C 4C'
'AD B0 C2 00 00 04 9F 04 05 00 00 00 00 00 00 00'
'00 00 00 00 00 00 F0 39 E5 03 03 86 85 98 2C 4C'
'84 C0 C2 00 00 05 05 05 00 00 00 00 00 00 00 00'
'00 00 00 00 00 00 EB 15 03 0C 02 BA 3B C1 88 2C'
'D5 87 C2 00 00 00 00 00 00 00 00 00 00 00 00 00'
'00 00 00 00 00 00 C8 03 01 01 15 C7 C6 C5 84 C4'
'5E C3 C2 00 00 00 00 00 00 00 00 00 00 00 00 00'
'00 00 00 00 00 00 8A 06 06 03 89 21 4A AE 2A AD'
'97 C3 E3 00 00 00 00 00 00 00 00 00 00 00 00 00'
'00 00 00 00 00 00 09 01 06 0D 0D 3C 1E 0F 8D 29'
'8B C3 E4 00 00 00 00 00 00 00 00 00 00 00 00 00'
'00 00 00 00 00 00 03 01 02 3E 8E 3D 0B 8D 8C 10'
'F1 C3 E4 04 00 00 17 00 05 00 00 00 00 00 00 00'
'00 00 00 00 00 00 01 03 09 5F 9D FA 1A 3B 23 3F'
'1A CA 1E 00 05 05 00 1E 50 E4 DD E4 C9 05 00 05'
'00 4E 00 00 00 00 01 08 0D 39 41 61 60 CC 19 19'
'40 E4 A2 4E 00 4D 50 CA 8F 6B 9C E2 CB 1E 9F 00'
'00 00 00 00 00 00 01 94 62 EE 24 EE 1A FF 91 D3'
'A3 04 45 05 00 E4 DC DE 9A CE CD 90 90 DF 4D 00'
'04 05 17 00 00 00 01 03 64 B2 CF E0 84 46 A4 50'
'1D 00 00 4E 05 E3 9E 92 1D 17 1B 11 63 9D E2 1D'
'05 45 00 00 00 00 03 07 65 D2 C4 2C E2 50 E3 00'
'47 00 D6 1D 6C D1 9C 93 2B 9F 8D 12 1C 16 D0 E2'
'D1 9F 04 00 00 00 94 25 67 E0 98 2C 50 A1 04 00'
'00 45 04 DF 66 A0 A4 CD 44 43 42 0A 0A 21 93 D5'
'A4 1D 04 00 00 04 07 F8 95 D5 88 E2 1D 1D 04 00'
'00 05 04 1E E1 4B A4 E2 46 9D F4 E0 D4 D3 9C 4F'
'50 C2 47 00 00 04 09 F2 D7 98 A5 4F 1E 00 D6 00'
'47 D6 00 04 E4 5A 97 96 A3 50 50 50 4F E3 1D 1D'
'1D 9F D6 00 00 04'
}
SALVAR BITMAP
{
'42 4D FA 0E 00 00 00 00 00 00 36 00 00 00 28 00'
'00 00 23 00 00 00 23 00 00 00 01 00 18 00 00 00'
'00 00 C4 0E 00 00 C3 0E 00 00 C3 0E 00 00 00 00'
'00 00 00 00 00 00 FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE 00'
'00 00 FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FB FB FB F3 F3 F3 E0 E0 DF C0 BE BE A0 9E'
'9D 99 98 97 A2 A1 A1 AF AD AC 9C 9A 99 B6 B6 B6'
'ED ED ED FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE 00 00 00 FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FB'
'FD FC F7 F7 F7 E7 E6 E5 D3 D3 D2 BA BA B9 A5 A3'
'A2 9B 9A 99 A2 A2 A2 B5 B4 B3 C1 BE BD C3 C2 C0'
'C9 C8 C7 CE CC CB A7 A5 A3 8B 89 88 DB DA DA FD'
'FD FD FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE 00 00 00 FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FC FC FC F2 F2 F2 E4 E4 E3 BF C0 BF AC AA'
'A9 A0 9F 9E 9A 99 98 9C 9A 99 9F 9E 9B A6 A5 A2'
'B2 B1 AF C1 C0 BE CE CC CB D2 D0 CF D6 D4 D3 D7'
'D6 D5 A7 A5 A3 70 6F 6E C7 C7 C7 F8 F8 F8 FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE 00 00 00 FE FE FE FE FE FE FE FE FE FC'
'FC FC F5 F5 F5 EA EA EA D8 D8 D8 C4 C4 C4 B4 B3'
'B2 A2 A1 A0 A2 A1 A0 A0 9F 9D 99 97 95 99 97 95'
'9C 9A 98 A6 A3 A1 AF AD AA B8 B7 B4 C1 C0 BE C9'
'C8 C6 D0 CF CD D3 D1 CF D3 D1 D0 CE CC CB A0 9E'
'9C 6D 6B 6A A6 A5 A5 E6 E7 E6 FD FE FD FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE 00'
'00 00 FE FE FE FC FC FC E7 E6 E6 CD CC CB B9 B8'
'B8 AA A9 A8 98 97 96 89 88 87 80 7F 7D 78 76 75'
'91 8F 8D 9F 9C 9A A2 A0 9E A6 A4 A2 AA A7 A5 B1'
'AE AC BB B9 B7 C4 C3 C1 C9 C8 C6 C8 C7 C5 C2 C1'
'BF BC BA B8 AE AC AA A4 A2 A0 94 91 90 70 6F 6E'
'84 83 82 CF D0 CF F9 FA F9 FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE 00 00 00 FE FE'
'FE D6 D6 D6 AB AA A9 8B 89 88 7A 78 77 73 71 70'
'6B 6A 69 6A 68 67 76 75 74 85 84 82 A1 9F 9E A7'
'A5 A3 AB A9 A7 B2 B0 AF B7 B4 B3 BA B8 B5 BB B9'
'B7 B8 B6 B4 B3 B1 AF AA A8 A6 A2 9F 9D A0 9E 9C'
'90 8E 8C 8F 8D 8B 8C 8A 89 77 75 74 72 70 6F B5'
'B4 B3 EE EE EE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE 00 00 00 FE FE FE 9D 9C 9C'
'76 74 73 67 66 65 64 62 62 68 66 66 68 66 65 6B'
'69 68 82 80 80 A1 9F 9E AF AD AB B4 B3 B2 B6 B4'
'B3 B8 B5 B4 B7 B5 B4 B2 B0 AE A5 A3 A2 97 95 93'
'8E 8B 8A 89 86 85 8A 88 86 94 92 90 95 93 91 9C'
'9A 98 90 8E 8C 84 81 80 70 6F 6D 98 97 96 DC DC'
'DB FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE 00 00 00 FE FE FE 85 83 82 6E 6D 6B 6A'
'69 67 6D 6B 6A 7A 79 77 88 87 84 94 92 90 A5 A3'
'A2 B8 B7 B5 B9 B7 B6 B3 B2 B1 AC AA A9 A2 A0 9F'
'99 97 96 93 91 90 90 8E 8D 8F 8D 8C 8E 8C 8B 8E'
'8C 8B 8E 8C 8B 8F 8D 8B 9C 99 97 9A 97 95 94 91'
'90 93 91 8F 78 77 76 80 7E 7D C8 C8 C7 FC FC FC'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE 00'
'00 00 FE FE FE 82 80 7F 7D 7C 7A 8C 8A 88 9C 9A'
'98 AB A9 A7 B7 B5 B2 B8 B6 B4 AF AD AB A3 A1 9F'
'9A 98 96 97 95 93 97 94 93 97 95 93 97 94 93 97'
'95 93 98 96 94 98 96 94 97 95 93 97 94 93 96 94'
'93 96 93 91 9A 98 96 9A 98 96 97 95 93 A2 9F 9E'
'87 85 84 71 6F 6E B2 B1 B0 F3 F4 F3 FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE 00 00 00 FE FE'
'FE 93 93 92 A6 A4 A1 AF AD AB AE AC A9 AA A8 A5'
'A5 A3 A1 A1 9E 9C 9E 9B 99 9F 9C 9A 9E 9B 99 9F'
'9D 9B 9E 9B 99 9F 9D 9B 9E 9B 99 9F 9C 9A 9E 9C'
'9A 9E 9C 9A 9E 9C 9A 9E 9C 9A 9E 9C 9A 9D 9A 99'
'9B 99 97 A1 9F 9D 9E 9B 99 A4 A1 9F 95 93 91 7D'
'7C 7A A1 A1 9F DF E0 DF FD FD FD FE FE FE FE FE'
'FE FE FE FE FE FE FE 00 00 00 FE FE FE B1 AF AE'
'AC AA A7 A2 A0 9D 9E 9C 9A A2 9F 9E A6 A3 A2 A6'
'A4 A2 A6 A4 A2 A6 A4 A2 A6 A4 A2 A6 A4 A2 A6 A4'
'A2 A6 A4 A2 A6 A4 A2 A6 A4 A2 A6 A4 A2 A6 A4 A2'
'A6 A4 A2 A6 A3 A2 A5 A2 A1 A5 A2 A1 A2 A0 9E A8'
'A6 A4 A5 A2 A1 A5 A2 A1 A7 A5 A3 94 92 90 88 86'
'84 B9 B8 B7 F6 F6 F6 FE FE FE FE FE FE FE FE FE'
'FE FE FE 00 00 00 FE FE FE E8 E8 E8 AA A8 A7 AC'
'AA A7 B2 B0 AE AE AC AA AC A9 A8 AC AA A8 AC AA'
'A8 AC AA A8 AC AA A8 AC AA A8 AC AA A8 AC AA A8'
'AC AA A8 AC AA A8 AB A8 A6 AB A8 A6 AB A8 A6 AA'
'A7 A5 A8 A6 A4 A7 A5 A3 A3 A1 9F AB A8 A6 A6 A4'
'A2 A7 A5 A3 AC AA A7 9C 99 97 86 83 81 A9 A7 A6'
'E8 E8 E7 FE FE FE FE FE FE FE FE FE FE FE FE 00'
'00 00 FE FE FE FB FB FB B7 B6 B5 AC AB AA B2 B0'
'AF B3 B1 AF B3 B1 AF B3 B1 AF B3 B1 AF B3 B1 AF'
'B3 B1 AF B3 B1 AF B3 B1 AF B1 AF AD B0 AE AC AF'
'AD AB AE AC AA AB A9 A6 A7 A5 A3 A4 A1 9F 9E 9B'
'99 99 97 95 92 90 8E 8E 8B 89 93 91 8F 94 92 90'
'99 97 95 94 92 90 82 80 7E 8D 8C 8B C7 C8 C7 FC'
'FD FC FE FE FE FE FE FE FE FE FE 00 00 00 FE FE'
'FE FE FE FE D7 D7 D6 B1 AF AE B1 AF AD B9 B7 B5'
'B9 B7 B5 B9 B7 B5 B9 B7 B5 B9 B7 B5 B8 B6 B4 B7'
'B5 B3 B7 B5 B3 B5 B3 B1 B3 B0 AE AF AD AB AB A9'
'A7 A5 A3 A1 9D 9B 9A 95 93 91 8B 89 87 81 80 7F'
'78 77 75 70 6E 6D 72 71 6F 72 71 6F 7B 79 77 80'
'7D 7B 78 76 74 76 75 73 A9 A9 A7 F4 F5 F4 FE FE'
'FE FE FE FE FE FE FE 00 00 00 FE FE FE FE FE FE'
'F4 F4 F4 BC BA B9 B5 B5 B3 BF BE BC BF BD BB BF'
'BD BB BF BD BB BF BD BB BE BC BA BC BA B8 BB B9'
'B7 B8 B6 B4 B3 B1 AF AD AB A8 A5 A3 A1 9A 98 96'
'8C 8B 89 7F 7E 7D 71 73 70 66 75 6A 5A 7F 64 52'
'84 63 4F 87 62 50 89 63 59 82 65 65 7C 6B 69 6F'
'6A 64 63 62 8C 8C 8B E0 E0 E0 FB FB FB FE FE FE'
'FE FE FE 00 00 00 FE FE FE FE FE FE FE FE FE DC'
'DC DB BD BD BB BC BB BA C4 C3 C1 C4 C2 C0 C4 C2'
'C0 C4 C2 C0 C3 C1 BF C0 BE BD BE BC BB B9 B7 B5'
'B3 B1 AF A9 A7 A6 9E 9C 9B 8F 8D 8C 7E 7D 7C 6D'
'7A 70 57 8D 68 45 A1 62 35 B3 5D 32 B8 5D 30 BA'
'5D 31 BB 5D 34 B5 5D 40 AA 63 51 93 67 5C 76 64'
'7C 80 7C C0 BF BF F5 F5 F5 FE FE FE FE FE FE 00'
'00 00 FE FE FE FE FE FE FE FE FE F7 F7 F7 C5 C4'
'C3 B6 B6 B4 C6 C5 C4 C9 C6 C5 C9 C6 C5 C9 C6 C5'
'C7 C5 C3 C4 C2 C0 C1 C0 BE BA B8 B6 B3 B1 AF A5'
'A4 A3 96 95 93 82 87 82 69 86 71 4D 9B 65 34 B8'
'5C 2B C6 59 26 D0 59 27 D0 5A 31 D2 61 2E D2 5E'
'28 D0 5A 29 CB 5A 31 BC 5C 41 A8 61 5E 93 6F 9A'
'A2 9C E8 E7 E7 FE FE FE FE FE FE 00 00 00 FE FE'
'FE FE FE FE FE FE FE FE FE FE D3 D3 D3 B8 B8 B7'
'C1 C0 BF CD CB CA CD CB CA CD CA C9 CB C9 C7 C8'
'C6 C4 C5 C3 C1 BC BA B8 B2 B0 AF A2 A0 9F 90 8E'
'8D 70 8E 78 48 A3 65 2C BC 56 21 C7 4F 27 C9 54'
'2F CB 5B 37 CD 60 74 DD 90 62 D9 81 3A CE 62 2A'
'CA 56 24 C8 51 24 C4 52 39 AC 5C 75 9D 81 D2 D3'
'D2 FE FE FE FE FE FE 00 00 00 FE FE FE FE FE FE'
'FE FE FE FE FE FE EB EC EB C2 C2 C1 BA B9 B8 D0'
'CF CE D0 CF CD D0 CF CD CF CD CB CB C9 C7 C7 C5'
'C3 BD BB BA B3 B1 AF A1 9F 9D 85 92 87 55 9F 6A'
'2B B4 50 22 BC 4A 2A C0 52 34 C4 5D 47 CA 6B 74'
'D8 8D D2 F3 DA BD ED C8 69 D4 85 3E C7 63 2E C1'
'55 24 BD 4A 26 B2 49 4D A6 65 A6 BB AD FD FD FD'
'FE FE FE 00 00 00 FE FE FE FE FE FE FE FE FE FE'
'FE FE FC FE FD D5 D5 D5 BF BD BD D0 CE CD D5 D3'
'D1 D4 D2 D1 D4 D2 D0 CE CD CB C9 C7 C6 C0 BE BC'
'B5 B3 B1 A0 A2 9E 6E A0 7C 36 A7 51 1E AC 3D 29'
'B3 49 34 B9 59 43 C0 69 7F D4 96 DB F3 E1 FB FD'
'FB FE FE FE B4 E6 C1 65 CB 81 3C BD 5F 2C B5 4E'
'21 AE 40 26 A3 42 67 A8 79 F0 F0 F0 FE FE FE 00'
'00 00 FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE F3 F3 F3 D1 D0 CF BF BD BB D7 D5 D4 D6 D5 D4'
'D6 D4 D3 D1 D0 CE CD CA C9 C4 C1 C0 B8 B6 B4 99'
'A8 9C 56 A2 69 26 A0 3F 21 A2 3A 2D AC 4C 3E B6'
'60 68 C6 82 D7 F0 DD F7 FB F8 E8 F4 EB F0 F8 F2'
'EB F7 EE A5 DD B4 58 C0 74 32 B0 54 25 A7 42 1C'
'9E 34 3F A5 55 C6 CC C8 FE FE FE 00 00 00 FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'D7 D6 D6 B4 B3 B2 D2 D1 CF D9 D8 D7 D9 D7 D6 D4'
'D2 D0 D1 CF CE C8 C6 C4 BD BB B9 8B AC 93 40 99'
'53 1C 91 33 21 97 3D 36 A6 55 6E BF 85 CF E9 D6'
'FB FC FB E1 F0 E5 6F BE 84 9B D1 AA E5 F3 E9 F4'
'FA F6 9C D4 AB 43 AD 61 26 9C 44 1C 93 33 2A 8E'
'3A 87 A4 90 FE FE FE 00 00 00 FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE EA E9 E9 C6'
'C4 C3 BD BD BC DA D9 D8 DA D9 D8 D8 D6 D5 D2 D2'
'D1 CD CA C9 C1 C0 BF 80 AA 8A 34 8E 45 18 86 2F'
'20 8E 3C 57 AB 6E C9 E3 D1 F7 FB F8 E1 F0 E5 77'
'BC 89 2E 9D 4E 39 A0 58 B4 DA BF F3 F9 F4 DC EE'
'E1 82 C3 95 30 99 4D 1A 88 33 23 82 33 6B 97 76'
'FE FE FE 00 00 00 FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FA FB FB D9 DA D9 B3 B3'
'B2 DD DD DC DD DB DA DC DA D9 D8 D6 D5 D2 D0 CF'
'C9 C8 C6 7C A7 85 2E 81 3F 17 77 2D 4F 9B 63 B4'
'D6 BD F6 FA F7 DB ED E0 69 AC 7D 65 AD 79 CA E5'
'D1 87 C1 98 5F AC 76 AA D2 B6 EA F3 ED D6 EA DB'
'74 B3 85 14 78 2D 1D 73 2E 5F 8D 67 FE FE FE 00'
'00 00 FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE F0 F0 F0 D2 D2 D1 C9 C8 C7'
'DE DD DC DD DC DA DA D9 D8 D6 D4 D3 CF CE CC 82'
'A9 8A 2F 7A 3E 15 6D 2A 58 99 6A C3 DA CA DB EA'
'E0 81 B8 91 2C 8C 4A 86 BC 96 EE F6 F1 AE D2 B9'
'43 9B 5F 53 A1 6B BC D8 C5 E5 EE E7 84 B5 92 10'
'6B 28 1C 69 2C 60 89 68 FE FE FE 00 00 00 FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FC FC FB E1 E1 E1 B0 AF AF DA D9 D8 DE'
'DD DC DC DB DA D8 D6 D5 D4 D2 D0 95 B1 9A 3A 79'
'47 10 60 23 23 72 3A 48 90 5F 51 9B 69 2A 88 48'
'1C 81 3D 8D BC 9C F3 F7 F4 B5 D2 BD 3A 92 56 1D'
'83 3E 43 95 5E 54 99 6A 33 80 4A 0C 60 23 1E 60'
'2E 75 90 7A FE FE FE 00 00 00 FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE EC EC EC BC BD BC C5 C4 C4 DD DD DB DE DD'
'DC DA D9 D8 D7 D5 D4 AC BE AE 4E 81 58 11 5A 24'
'0C 5F 26 16 71 34 1B 7E 3C 16 7E 39 1E 80 3F 90'
'BB 9E F3 F7 F4 B6 D1 BF 3C 90 58 16 7E 39 19 7E'
'3B 19 78 39 11 67 2C 08 54 1E 27 60 34 A0 AB A2'
'FE FE FE 00 00 00 FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE F7 F8'
'F7 DA DC DA AE AD AD DD DC DA CB CA C9 D1 D0 CF'
'D8 D7 D6 C7 CC C5 77 9A 7D 28 63 37 16 5B 2C 29'
'78 44 30 88 4E 30 8C 50 38 8D 56 9D C2 AA F4 F8'
'F6 BF D6 C7 52 9C 6C 30 8B 4F 30 89 4E 2E 82 4B'
'1E 69 37 0F 4E 21 4A 74 53 DB DF DC FE FE FE 00'
'00 00 FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FD FE FE F0 F1 F0'
'BF BE BD D2 D1 D0 C8 C7 C5 D4 D2 D1 DC DB DA D8'
'D7 D6 A2 B3 A4 4A 75 54 29 61 3A 4C 87 61 5A 9C'
'71 5A A1 73 60 A3 78 B0 CE BB F6 F9 F7 CC DE D3'
'75 AF 8A 5A A1 73 5A 9D 72 57 95 6D 3A 72 4D 2D'
'59 39 8C 9E 8F FC FE FD FE FE FE 00 00 00 FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FA FA FA E6 E6 E5 BC'
'BB BA C3 C1 C0 C6 C4 C4 CA CA CA D3 D2 D2 C9 CD'
'C9 8D A2 92 5A 7E 64 69 91 76 8B B5 9A 90 BD A1'
'93 BF A3 BF D8 C8 EF F5 F1 D1 E2 D8 9F C6 AE 90'
'BD A1 8C B7 9B 76 A0 84 5C 81 67 75 8C 7B D3 D7'
'D4 FE FE FE FE FE FE 00 00 00 FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE F8 F8 F8 C1 C2 C2 BD BB'
'BB BB BA BA C1 C1 C1 D6 D6 D5 EE EE ED E2 E4 E3'
'AB B6 AE 85 9C 8B A1 BA A9 B9 D2 C2 CB DF D2 D1'
'E2 D8 E5 EE E9 D7 E6 DD CC DF D4 C1 D7 C9 A6 BF'
'AE 83 9D 8A 8E A1 93 D2 D6 D3 FC FD FC FE FE FE'
'FE FE FE 00 00 00 FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FB FD FC F7 F7 F7 FD FD FD'
'FE FE FE FE FE FE FE FE FE FC FE FD EB EC EB BE'
'C3 BF 97 A8 9A B4 C6 B9 D3 DC D6 D5 DE D8 D5 DF'
'D8 D5 DF D8 D2 DB D4 C0 CE C3 9C B0 A1 9F AE A2'
'D3 D7 D4 FC FD FC FE FE FE FE FE FE FE FE FE 00'
'00 00 FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FD FD FD EE EE'
'EE BF C4 C1 8B 9B 8F 8B 9C 8D 8B 9D 8E 8B 9C 8D'
'8A 9A 8C A3 AC A5 DA DC DA FC FC FC FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE 00 00 00 FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE FE'
'FE FE FE FE FE FE FE 00 00 00'
}
Regards, saludos.
Quem tem que se preocupar é o COMERCIANTE, a LEI é para ele(s). Uma farmácia por exemplo, hoje em dia, com medo da multa de R$ 50.000.000,00 não pede mais os dados para "promoções", enfim você deve seguir o que o seu cliente solicitar. Se tiver dúvidas quanto a LEI, consulte um advogado se o seu CLIENTE solicitar algo que você não entenda na LEI, para aplicar em seu sistema. As empresas de INFORMÁTICA não tem nada a ver com isso. Leia a LEI, se não entender, não invente, consulte sempre um ABOGADO.
E chega de xurumelas. participação encerrada.
Abs
Calma Rochinha, minha flor de lis, por enquanto, esto simulando a classe MRBOLETO. Depois, eu vejo outras opções. Un xeiro no kangotyyy.... kkkkkkkkkkkkk
DEVCON é o aplicativo mais importante do Windows pois ele faz todo o trabalho transparente de manutenção, inclusão e exclusão de recursos periféricos do sistema operacional.
Seu uso não pode ser indiscriminado pois um erro pode detonar a instalação de forma que só uma re-instalação possa resolver.
Use com moderação. Eu mesmo nem uso, prefiro taskkill/, net start/stop para os meus afazeres.
Data:
08-07-2020 14:25:33
Nome:
Equipe de Suporte
Mensagem:
Prezado Sr. eduardo mazur traini,
Não sabemos dizer se funciona com a dll, pois a DLL só reconhece certificado do repositório my do usuário que está logado no windows, se o senhor tiver acesso ao certificado digital na nuvem, poderia efetuar os testes.
Resposta Flexdocs
Usando o FOX.EXE 2.1, ele te informará que estourou o limite de campos, não sei informar como é o cálculo dele.
Se usar o DBCREATE() para criar os CAMPOS em FiveWin, não tem limite pelo que eu pude observar, porém, não poderás mais abrir o BANCO pelo FOX.EXE, somente via programa for windows, pero não vejo motivo para que você não tenha quantos *.DBFS, sejam necessários para se ter um CONTROLE DE ACESSOS dos usuários por exemplo, bastando usar o SELECT() e ir incorporando nos bancos os dados necessários. Espero ter ajudado. Abs.
Boa tarde.
Resgatei esse tópico antigo somente para registrar que hoje tive esse erro E0032 porque no projeto novo que criei, que copiei de outro programa tinha um arquivo xxx.c que estava sendo direcionado a uma pasta \obj que não exestia.
Foi só criar a pasta que voltou ao normal.
Procurei pelo erro e só achei esse tópico. Fica a dica ai.
Obrigado
Isso mesmo.... Mas o problema não era fazer, isso eu já tinha conseguido desde o inicio, a rotina já funcionava bem.
O problema era a quantidade de requisições ao banco de dados por minuto, eram muitas requisições feitas ao SQL desnecessariamente. Então em vez de fazer 1 select por segundo eu passei a executar uma stored procedure que só me retorna quando tive novidade ou quando der o tempo de 1 minuto informando que não teve novidade.
Mas a rotina do seu post é bem semelhante porem possivelmente ele faz um desperdício de processamento da mesma forma que eu estava fazendo (como não postou a forma que ele busca novos pedidos só da pra deduzir). O problema não era desenvolver a rotina e sim evitar esse desperdício.
Júlio, que lindo!! Faço das suas as minhas palavras. Perdi meu mestre. O primeiro cara que me abriu as portas do FiveWin the best! Pessoalmente, ele era um doce de ser humano. E não digo isso porquê ele faleceu, digo, porquê sempre disse isso em vida. A primeira coisa que ele fazia de manhã, era me dar bom dia no skype, perguntava se eu estava bem, e me zoava com o Corinthians, ele era Palmeirense roxo. enfim, perdi um grande amigo e meu mestre eterno. No final, ele é quem me consultava, mandava os fontes para eu "dar uma aula" para ele. Nunca me negou nada. O que eu pedisse, no dia seguite, estava lá no Skype. Saudades imensas... Vida que segue. Abs.
Faz tempo que eu não navegava neste fórum e hoje calhou ver a notícia do falecimento do meu amigo Luis Carlos Nogueira. Quando estive no Brasil em Fevereiro de 2005 o acaso não quis que me encontrasse com ele pois tinhamos marcado um encontro, se não me engano em Mogi Mirim, cidade onde vivia. Ele foi uma pessoa que me ajudou muito quando me iniciei no Fivewin for xHarbour, Falávamos via Skype e ele resolvia os meus erros informáticos e ensinou-me muito. O Luis Carlos NOgueira foi-me apresentado por um outro meu grande amigo o Luis Augusto Martins (gunafe) ambos foram muito especiais na minha iniciação no FW. Bem haja por isso. Apesar de não o ter conhecido pessoalmente posso dizer, sem dúvida alguma, que ele era uma pessoa que qualquer ser humano gostaria de o ter como amigo. Sinto-me bafejado pela sorte em ter sido ajudado por ele. Muito obrigado. Que descanse em paz, até à eternidade, meu amigo.
Júlio Fernandes (jufer) - Portugal
Amiguinhos,
Estou tentando colocar minha foto de perfil no forum e não dá, da uma mensagem que não mostra texto, mas sei que é algum erro.
Acrescentei foto de perfil e imagem de capa, subiram mas não são apresentadas.
É preciso retirar a critica IF .not. LFeio senão não vai passar.
@braços.
Difícil.
Hoje tomei coragem de entrar no FW.
Recebi essa triste mensagem no dia pelo Facebook.
Ao longo do ano de 2019 conversei com ele algumas vezes pelo Skype. Mas tinha dias
em que ele relatava as fortes dores. Participei com ele de um último projeto do Frota... Sei
que ele não conseguiu terminar as alterações que pretendia.
Hoje tenho convicção que ele descansou. Assim quis o Senhor.
Abraços.
Amigo acho desnecessário também, pode-se usar vários .RES como por exemplo uso um para dialogs e o outro para bitmaps, icones, etc.
A única vantagem da DLL, é que se atualizar apenas o código, se atualiza apenas o .EXE e no caso do .RES vem dentro tudo do EXE "inchando" também o mesmo.