sobre workshop

[filizola]

quando defino no ws um botao com tamanho bem maior que o padrao, e dentro do programa defino uma fonte maior, o botao aparece grande como o esperado porem a letra aparece pequena, e outra coisa, quando digito o primeiro campo e teclo enter nao pula para o segundo. SINISTRO NÃO ???

quem pode me ajudar.

SEGUE PROGRMA:

#include "fivewin.ch"

function main()

local odlg, oprod, opeso, olbx, obtn, fntarial, osay

local vprod:=space(40), vpeso:=0.000

use cea402 index ceb402

hborland:=loadlibrary("bwcc.dll")

set 3dlook on

define font fntarial name "Arial" size 0,-45

define dialog odlg resource "emitir"

redefine say osay id 201 of odlg font fntarial color "b/wn"

redefine say osay id 202 of odlg font fntarial color "b/wn"

redefine get oprod var vprod picture "@!" id 101 of odlg font fntarial;

valid(temprod(vprod,olbx,odlg))

redefine get opeso var vpeso picture "@e 999.999" id 102 of odlg font fntarial

redefine listbox olbx fields cea402->descric headers oemtoansi("Descri‡Æo");

id 103 of odlg on change(mudavar())

redefine button obtn id 107 of odlg font fntarial

redefine button obtn id 108 of odlg action(limpa(oprod,odlg,opeso,vpeso));

font fntarial

activate dialog odlg centered

freelibrary()

return nil

*--------------------------------

function temprod(fprod,olbx,odlg)

set filter to alltrim(fprod)$cea402->descric

dbgotop()

if bof() .and. eof()

set filter to

return(.f.)

endif

olbx:refresh()

odlg:refresh()

return(.t.)

*-----------------

function mudavar()

msginfo("So Testando")

return(.t.)

*-------------------------

function limpa(oprod,odlg,opeso,vpeso)

set filter to

vpeso:=0

opeso:refresh()

oprod:setfocus()

odlg:refresh()

sysrefresh()

return(.t.)

E O ARQUIVO RC

/****************************************************************************

emitir.rc

produced by Borland Resource Workshop

*****************************************************************************/

#define DIALOG_1 1

#define emitir emitir

emitir DIALOG 6, 15, 432, 280

STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX

CAPTION "Emissão de Etiquetas"

FONT 8, "MS Sans Serif"

{

EDITTEXT 101, 144, 2, 230, 34, WS_BORDER | WS_GROUP | WS_TABSTOP

EDITTEXT 102, 144, 43, 97, 34, WS_BORDER | WS_GROUP | WS_TABSTOP

LISTBOX 103, 5, 83, 206, 48, LBS_STANDARD

DEFPUSHBUTTON "&Imprimir", 107, 232, 145, 129, 50

PUSHBUTTON "&Voltar", 108, 235, 211, 123, 49

RTEXT "PRODUTO", 201, 5, 2, 131, 34

RTEXT "PESO", 202, 5, 43, 130, 34

GROUPBOX "Etiqueta", 104, 5, 138, 206, 133, BS_GROUPBOX

}

[karinha]

Olá... O ke você está tentando fazer, só é possivel, usando a classe DBUTTONS

Veja exemplos ke eu postei em DICAS + dicas... Além da DBUTTONS, acho ke eu

postei outro exemplo usando botões com o WorkShop.Exe la nas DICAS. Mira lá!

//

Quanto ao 'pulo', verifique como está a configuração dos GET's, veja se a DLL

não está corrompida. Veja o <1,2>, faça TEST com o se 'pular' correto

com o , o tem ke funcionar também! Abraços.

//

SEGUNDO ENCONTRO DE FIVEWINNERS NO BRASIL - NOVEMBRO/2004 - Lula-lá... Maluf!

Não percam: DINOTOPIA no SBT hoje 22:30 hs. hehehehe. Show() de bola! Amei!

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br