FiveTech Software tech support forums

Hola maestro
Estoy feliz de contribuir a este foro que siempre me ha ayudado.
Gracias

good night

I managed to run Borland Resource WorkShop on windows 10 / 64 bits, follow the tip how to do it.

1- Download winevdm here (I downloaded version 0.7.0)

https://github.com/otya128/winevdm/releases


2- Download the content into the c:\emulator folder

3- assuming the workshop ...

hola

1- download winevdm (la version 0.7.0)
https://github.com/otya128/winevdm/releases

2- extract en folder c:\emulator

3- WorkShop en folder c:\workshop

4- para executar
C:\emulator\otvdmw.exe c:\workshop\workshop.exe

William,En tu texto richedit incluye este texto "<data>" y dale el font y atributos que quieras.Y desde tu código haz esto:oRich:LoadRTF&#40; StrTran&#40; oRich:SaveAsRTF&#40;&#41;, "<data>", Date&#40;&#41; &#41; &#41;

Hola Antonio muchas gracias pela resposta. En codigo anterior substitui-se o ...

Hola Antonio, gracias por la atencion

Lo que necessito es ir preenchendo lo richedit via codigo e non via keyboard. Exemplo:

Uno button que al pulsar , insere no richedit una linea contiendo la data atual. Mas la data deve ir con font "Tahoma" e size = 20

tudo isso via codigo, es possible?

Otra ...

Hola

Existe alguma forma de acrescentar una linha de texto en uno richedit , mas por codigo e non pelo Teclado ?

Ja tentei oRich:ctext = oRich:ctext +"Exemplo"

isto funciona, pero la linea acrescentada perde la font e sizes inicialmente ajustados.

Gracias

William

Olá João, segue nova função, totalmente reformulada. Testei com win7 e funcionou. Se puder testar com win8 avise se funcionou ou nao.

Abraço

William

***************************#Include "FiveWin.ch"* teste da fun‡Æo para mostrar * os dispositivos da redefunction main&nbsp; &nbsp;local gg&nbsp ...

coloque o #include "COMMON.CH" no inicio do programa.

O resource rede:


rede DIALOG 23, 24, 421, 172
STYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
FONT 8, "MS Sans Serif"
{
CONTROL "", 101, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS ...

Hola Joao , segue abaixo:


FUNCTION OpenFile( cFile, cAlias, nModo, lRetenta )

DEFAULT cAlias TO Subs( cFile, rAt( '\', cFile )+1), nModo TO 2
DEFAULT lRetenta TO nModo > 1

Do While .T.
DO CASE; Case nModo == 1
USE (cFile) ALIAS (cAlias) NEW EXCLUSIVE
Case nModo == 2
USE (cFile) ALIAS ...

hola, mira mi funcion :

Function qualmaq Local oDlg101,oWnd,ncodigo,cestacao,nquantas,ocoment,odlg2local volta:="",obrw,area:=select&#40;&#41;nquantas :=0ferase&#40;"carimp.dbf"&#41;DbCreate&#40; "CARIMP", &#123; &#123; "QUANTAS" , "N", 04, 0 &#125;,;&#123; "NOME_IMP" , "C", 14, 0 &#125;,;&#123 ...

Hola, mira mi classe tinativo:

Saludos

William Adami


* exemplo do uso da classe Tinativo* Apos um tempo de inatividade do mouse * e do teclado chama uma funcao qualquer.#include "fivewin.ch"static oWnd*************function main*************nTempo_espera:=10 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp ...

hola , segue mi function que mostra as unidades , acho que lhe servirá.

Saludos

William



Function qualcamired&nbsp;Local oDlg101,oWnd,ncodigo,cestacao,nquantas,ocoment,odlg2&nbsp;local volta:="",obrw,area:=select&#40;&#41;&nbsp;nquantas :=0&nbsp;ferase&#40;"carimp.dbf"&#41;&nbsp;DbCreate&#40 ...

Hola, en link abaixo segue mi function DISPLAY3, que faz o que necessitas. Mira lo exemplo que acompanha la function.

William


http://www.4shared.com/rar/NIwJho3C/DISPLAY3.html

hello, see my class tinativo()

William Adami


* exemplo do uso da classe Tinativo* Apos um tempo de inatividade do mouse * e do teclado chama uma funcao qualquer.#include "fivewin.ch"static oWnd*************function main*************nTempo_espera:=10 //Tempo a ser esperado ate chamar a ...

Hello , see my class Tinativo in link :

http://www.fivewin.com.br/forum/topic.a ... C_ID=17800

William