Luiz Arruda (ICO)

Boa Tarde, nunca usei a xDev com Harbour, sempre usei xHarbour nos projetos.
sinto não poder ajuda-lo.

Em PDF:
https://fivewin-contributions.googlecode.com/files/xDevStudio_docs.pdf

Eu eu eu \o/

Convido os amigos a participarem deste grupo no Facebook. Basta pedir, que adiciono.
https://www.facebook.com/groups/112382682270253/
obg. abs.

#include "FiveWin.ch"

function CaptureSignature()

local oDlg, oSig, lPaint := .F., cFile := Lower( "signature.bmp" ), hDC
local lReset := .f.
local oBrush
local nPenWidth := 4, oPenSig
local nTop := 2, nBottom := 0
local aCoord
local nColor := CLR_WHITE

oBrush := TBrush():New( , nColor )
DEFINE DIALOG oDlg TITLE "Signature" PIXEL ;
RESOURCE "DLG_Sign"

DEFINE PEN oPenSig WIDTH nPenWidth COLOR CLR_BLACK

REDEFINE SAY oSig ID 200 PROMPT "" OF oDlg
oSig:nClrPane := nRgb( 255,255,255 )
oSig:oBrush := oBrush

redefine button prompt 'Save';
id 100 of oDlg update;
ACTION ( oSig:SaveToBmp( cFile ), oDlg:End() )

redefine button prompt 'Cancel';
id 101 of oDlg ;
action ( lReturn := .f., oDlg:End() )

redefine button prompt 'Clear';
id 102 of oDlg ;
action ( lPaint := .F., ;
FillRect( hDC, GetClientRect( oSig:hWnd ), oBrush:hBrush ), ;
oSig:refresh(.t.) )

oSig:lWantClick := .T.
// Fixed row, col to y, x conversion, x/y designation was reversed
oSig:bLButtonUp := { | y, x, z | DoDraw( hDC, x, y, lPaint := .F.,, oPenSig ) }
// Added limits to Top and Bottom in case users draw off canvas
oSig:bMMoved := { | y, x, z | ( ;
if( y >= nBottom .or. y <= nTop , lReset := .T., lReset := .f. ), ;
DoDraw( hDC, x, y , lPaint, lReset, oPenSig )) }
oSig:bLClicked := { | y, x, z | DoDraw( hDC, x, y, lPaint := .T., .t., oPenSig ) }
// If button released when not on Signature area
oDlg:bLButtonUp := { || lPaint := .F. }

ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( aCoord := GetCoors( oSig:hWnd ), ;
nBottom := aCoord[3]- aCoord[1]-2, ;
hDC := GetDC( oSig:hWnd ), oSig:nClrPane := nColor ) ;
VALID ( ReleaseDC( oSig:hWnd, hDC ), .T. )
RELEASE PEN oPenSig

return nil

static function DoDraw( hDc, x, y, lPaint, lReset, oPen )
if ! lPaint .or. ( lReset != nil .and. lReset )
MoveTo( hDC, x, y )
else
LineTo( hDc, x, y, oPen:hPen )
endIf
return nil

/* // .RC
DLG_Sign DIALOG -32768, 65, 204, 99
STYLE DS_SYSMODAL | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Signature"
FONT 12, "MS Sans Serif"
{
PUSHBUTTON "Save", 100, 6, 3, 46, 14
PUSHBUTTON "Cancel", 101, 84, 3, 35, 14
PUSHBUTTON "Clear", 102, 162, 3, 35, 14
GROUPBOX "", 104, 4, 17, 198, 68, BS_GROUPBOX
CONTROL "", 200, "STATIC", SS_WHITERECT | WS_CHILD | WS_VISIBLE, 5, 22, 196, 61
RTEXT "X", -1, 1, 78, 5, 9
CTEXT "I agree that this inspection is correct.", -1, 13, 88, 172, 9
}
*/

Não deveria aparecer: "editor desconhecido" , você fez corretamente? Mas...
http://www.baboo.com.br/geral/cancele-a-mensagem-de-editor-desconhecido-no-xp/
Vá em Iniciar > Executar e digite gpedit.msc...

No Diretivas de grupo, entre em Configurações do Usuario > Modelos Administrativos > Componentes do Windows > Gerenciador de Anexos > Lista de inclusão de tipos de arquivo de baixo risco...

Selecione a opção ativado e informe o nome do arquivo ou a extensão...
http://www.palpitedigital.com/desativar-aviso-de-seguranca-windows/
abs,

Kaskakakaaa pior q. eu tbem uso Ico.
Em algumas situações somente mas uso.

Friends, eu já tentei de todas as formas aprender a usar o PELLESC.EXE, mas eu acho que sou o mais burro do forum, pois não consigo nem a pau Juvenal.
Tem algum tutorial para alguém que não manja e não gosta da ferramenta, tentar aprender a usar o bagulho?
Não gosto nem da tela dele, não consigo fazer nada do que eu faço com o WORKSHOP.EXE the best, única coisa que lamento no WORKSHOP.EXE é que a bósnia da Borland o descontinuou.
Mantenho em casa, meu WINDOWS XP, só para não ter de trocar de EDITOR e aqui no Trabalho, não troco o meu Windows 7 de 32 bits por nada deste mundo, pelo mesmo motivo. kkkkkkkkkkkkkkkkkkkkk
Obg. abs.

Acho que o unico que ainda usa o The Best, Maravilhoso, show de bola , exxxtraordinário, mega fantastic Ws
e ainda vive é o Kapiaba ...

Uai Kapi.
Somente no Pelles ? no The Best, Maravilhoso, show de bola , exxxxxtraordinário , fantastic Ws não daaaa ?
aaaaaaaa

Amigo, tem como mandar uma cópia do teu preview com miniaturas para meu e-mail?
ariston.ap@hotmail.com
Grato.

Veja se sua classe está assim, senão vais ter que atualizar tú vérsion.


METHOD BuildWindow() CLASS TPreview

local oIcon, cTitle := "FiveWin Printing Preview", oCursor, oBar, nCol := 325
local oThis := Self
local nRow := 7

DEFAULT ::oWndMain := WndMain()

::hOldRes := GetResources()

if ! File( ::cResFile )

#ifdef __CLIPPER__
::cResFile := "Preview.dll"
#else
if ! IsWin64()
::cResFile := "Prev32.dll"
else
::cResFile = "Prev64.dll"
endif
#endif

endif


abs,

Meu caro, isso ocorre pq no método SET do combobox tem um UPPER para fazer a busca do novo item, e os itens do combobox.
Uma maneira prática de resolver sem precisar alterar o tipo da sua variavel wCF, é ao setar um item no combobox ou entrar na tela, fazer manual utilizando o método SET passando o indice do item do combobox. Apenas verifique se o combobox não está com autosort para não setar o indice incorreto.
At.
Ana

id=quote>id=quote>KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK
João Santos - São Paulo.
joao@pleno.com.br
Fone: (11) 3106-2832 / 5150-7341 - TIM
https://www.facebook.com/kapiaba
FWH 2.7 - xHARBOUR WorkShop.Exe

o que a girafa disse para a outra quando viu um elefante cor de rosa subindo a montanha?
- Olha um elefante cor de rosa subindo a montanha!!
Abraços
Luiz Fernando

msn: empresoft@globo.com
skype:empresoft
empresoft@globo.com
FWH 9.12,XHARBOUR 1.2,ADS 9.0
FWH1104,XHARBOUR 1.2 Rev.6406, MYSQL c\ SQLLIB FREE

Três engenheiros da Apple e três da Microsoft estavam viajando para uma conferência, de trem. Na estacão, os três da Microsoft compraram as passagens e observaram que os três da Apple compraram apenas uma.
-"Como três pessoas podem viajar com apenas uma passagem? - pergunta o empregado da Microsoft.
-Observe e verá! - responde o engenheiro da Apple.Todos estão no trem. O pessoal da Microsoft tomam seus respectivos assentos, mas os três da Apple trancam-se no banheiro.
Quando o trem parte, o coletor de passagens bate na porta do banheiro e pede a passagem. Apenas uma mão é estendida para fora da porta do banheiro e entrega uma passagem. O coletor apanha e vai embora. Os empregados da Microsoft observam tudo e acreditam que é uma idéia inteligente.Após a conferência, os empregados da Microsoft decidem, como de costume, copiar a idéia da Apple e compram apenas uma passagem.
Eles observam, espantados, que os engenheiros da Apple não
compram nenhuma.
-Como vocês viajarão sem nenhuma passagem? - perguntam.
-Vocês verão! - responde um engenheiro da Apple.Quando o trem parte, os empregados da Microsoft trancam-se em um banheiro e os da Apple em outro. Um dos engenheiros da Apple sai do banheiro e bate na porta onde estava o pessoal da Microsoft e diz: "A passagem, por favor".
Vagner Wirts

"Ele não sabendo que era impossível, foi lá e fez"

Quem nunca leu o livro do Antonio Geraldo da Rocha Vidal.
procurando na net encontrei esse pagina:
http://www.fea.usp.br/perfil.php?u=14&tab=adm&i=27
aproveitando,
quem tem aqueles dois livros dele de clipper summer 87 e quiser vender tenho interesse.

O caso é outro... no primeiro button eu confirmo o lancamento e tenho que voltar ao get[1], até ai tudo bem, já tá feito, só que ao mesmo tempo eu tenho que parar ou não o foco no segundo botão que tá configurado no recurso para não receber o foco porque da primeira dialog de entrada... mas se não tiver jeito de habilitar o tabstop via codigo eu vou fazer um pog com um button transparente mostrando ele na abertura e sumindo com o antigo...
valeu
PS: o que estão falando rsrsrsrrsr!!! não podemos dar beijinho no ombro como amigos mais
kkkkkkkkkkkkkkkkkkkkkkkkkkkk k k k k

kkkkkkkk, vê diretinho, que o povo tá falando... kkkkkkk

Veja exemplo de como eu controlo o foco no botão.. Ou em qualquer controle.


//-> Se for Varias Notas, o Foco Vai Para o Botao de Gerar Todas
IF lGeraVariasNotas
ACTIVATE DIALOG oDlg CENTERED ON INIT( XFOCUS( oGeraTodas ) )
ELSE //-> Somente uma Nota o Botao de Somente Uma NF, se liga
ACTIVATE DIALOG oDlg CENTERED ON INIT( XFOCUS( oImprimir ) ) //-> Somente Uma Nota
ENDIF

kkkkkkkkkkkkkkk, hoje é sexta-feira vey!! E eu não sou SÃO PAULINO, nem FLAMENGUISTA!!! KKKKKKKKKKKKKKKKK

// http://forums.fivetechsupport.com/viewtopic.php?f=6&t=9865&start=15
// By Marcelo Gomes e Yuri Marcelino

#include 'fivewin.ch'
#Include "dll.ch"
#Include "Struct.ch"

FUNCTION MAIN()

LOCAL nResoAncho := GetSysMetrics(0)

IF nResoAncho > 800

CamReso ( 1024, 768 )

MSGINFO('HECHO. AQUI PUEDES INICIAR TU PROGRAMA ELABORADO PARA 1024 X 768')

ELSEIF nResoAncho < 800 .AND. ISWINXP()

CamReso ( 800, 600 )

ENDIF

RETURN NIL

FUNCTION CamReso(nAncho, nAlto)

Local DM_PELSWIDTH := nHex("80000")
Local DM_PELSHEIGHT := nHex("100000")
Local oDevMode
Local lPosible
Local cBuffer
Local lCamReso := .f.

DEFAULT nAncho := GetSysMetrics(0), ;
nAlto := GetSysMetrics(1)

STRUCT oDevMode
MEMBER cDevName AS STRING LEN 32
MEMBER nSpecVer AS WORD
MEMBER nDrvVer AS WORD
MEMBER nSize AS WORD
MEMBER nDrvExtra AS WORD
MEMBER nFields AS DWORD
MEMBER nOrientat AS WORD
MEMBER nPaperSiz AS WORD
MEMBER nPaperLen AS WORD
MEMBER nPaperWid AS WORD
MEMBER nScale AS WORD
MEMBER nCopies AS WORD
MEMBER nDefSrc AS WORD
MEMBER nPrnQlty AS WORD
MEMBER nColor AS WORD
MEMBER nDuplex AS WORD
MEMBER nYResolut AS WORD
MEMBER nTTOpt AS WORD
MEMBER nCollate AS WORD
MEMBER cFormName AS STRING LEN 32
MEMBER nUnusePad AS WORD
MEMBER nBitsPPel AS DWORD
MEMBER nPelWidth AS DWORD
MEMBER nPelHeigh AS DWORD
MEMBER nDisFlags AS DWORD
MEMBER nDisFreq AS DWORD
ENDSTRUCT

cBuffer := oDevMode:cBuffer
lPosible := EnumDisplaySettings(0, 0, @cBuffer)

IF lPosible

oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT )
oDevMode:nPelWidth := nAncho
oDevMode:nPelHeigh := nAlto
cBuffer:=oDevMode:cBuffer

TRY
ChangeDisplaySettings(@cBuffer, 4)
lCamReso := .T.
CATCH
MsgAlert("Modo no soportado", "Error" )
END
else
MsgAlert("Modo no soportado", "Error" )
endif

return lCamReso

DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,;
iModeNum AS DWORD, ;
@lpDevMode AS LPSTR) AS BOOL PASCAL;
FROM "EnumDisplaySettingsA" LIB "User32.dll"

DLL32 STATIC FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,;
dwFlags AS DWORD) AS DWORD PASCAL;
FROM "ChangeDisplaySettingsA" LIB "User32.dll"

DLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,;
dwReserved AS DWORD) AS DWORD PASCAL;
LIB "user32.dll"

Olá! Que boa notícia!
Como sempre, dou a maior força!

Concordo como Tião.

Será que li errado no primeiro post ?
"Encontro de programadores Fivewin"

Luiz
Uso desta maneira para pegar a impressora padrão.
PrintFileRaw( GetDefaultPrinter(), textfile, "Impressão" )
Para listas as impressoras:
imp:=GetPrinters()
PrintFileRaw( imp, textfile, "Impressão" )
Att
João Bosco