Search found 65 matches

by WilliamAdami
Wed Jan 07, 2015 2:57 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Inserir linha en richedit pelo codigo
Replies: 5
Views: 805

Re: Inserir linha en richedit pelo codigo

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( StrTran( oRich:SaveAsRTF(), "<data>", Date() ) ) Hola Antonio muchas gracias pela resposta. En codigo anterior substitui-se o texto <data>...
by WilliamAdami
Tue Jan 06, 2015 2:42 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Inserir linha en richedit pelo codigo
Replies: 5
Views: 805

Re: Inserir linha en richedit pelo codigo

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?...
by WilliamAdami
Tue Jan 06, 2015 12:19 am
Forum: FiveWin para Harbour/xHarbour
Topic: Inserir linha en richedit pelo codigo
Replies: 5
Views: 805

Inserir linha en richedit pelo codigo

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
by WilliamAdami
Thu Nov 13, 2014 11:56 am
Forum: FiveWin para Harbour/xHarbour
Topic: PCs en la red
Replies: 14
Views: 3765

Re: PCs en la red

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 rede function main    local gg    gg:=l...
by WilliamAdami
Wed Nov 12, 2014 5:09 pm
Forum: FiveWin para Harbour/xHarbour
Topic: PCs en la red
Replies: 14
Views: 3765

Re: PCs en la red

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_B...
by WilliamAdami
Wed Nov 12, 2014 12:45 pm
Forum: FiveWin para Harbour/xHarbour
Topic: PCs en la red
Replies: 14
Views: 3765

Re: PCs en la red

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 (cAlias) NEW SH...
by WilliamAdami
Wed Nov 05, 2014 6:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic: PCs en la red
Replies: 14
Views: 3765

Re: PCs en la red

hola, mira mi funcion : Function qualmaq Local oDlg101,oWnd,ncodigo,cestacao,nquantas,ocoment,odlg2 local volta:="",obrw,area:=select() nquantas :=0 ferase("carimp.dbf") DbCreate( "CARIMP", { { "QUANTAS" , "N", 04, 0 },; { "NOME_IMP" , &quo...
by WilliamAdami
Wed Jan 15, 2014 8:38 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Cerrar Aplicación cuando no se use
Replies: 4
Views: 1429

Re: Cerrar Aplicación cuando no se use

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          //Tempo a ser es...
by WilliamAdami
Wed Aug 21, 2013 2:38 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Requerimiento de funcion: Equipos del grupo de trabajo
Replies: 2
Views: 736

Re: Requerimiento de funcion: Equipos del grupo de trabajo

hola , segue mi function que mostra as unidades , acho que lhe servirá. Saludos William Function qualcamired  Local oDlg101,oWnd,ncodigo,cestacao,nquantas,ocoment,odlg2  local volta:="",obrw,area:=select()  nquantas :=0  ferase("carimp.dbf")  DbCreate( "CARIMP", { { &qu...
by WilliamAdami
Wed Jul 11, 2012 9:30 am
Forum: FiveWin para Harbour/xHarbour
Topic: Adecuar un dialogo de recursos a la resolución del monitor.
Replies: 3
Views: 773

Re: Adecuar un dialogo de recursos a la resolución del monitor.

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
by WilliamAdami
Sat Mar 10, 2012 4:10 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Quit the program when time out (like screen saver)
Replies: 5
Views: 1104

Re: Quit the program when time out (like screen saver)

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...
by WilliamAdami
Mon Jan 23, 2012 12:12 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Idle Time Application Close
Replies: 2
Views: 690

Re: Idle Time Application Close

Hello , see my class Tinativo in link :

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

William
by WilliamAdami
Thu Jan 05, 2012 5:31 pm
Forum: FiveWin para Harbour/xHarbour
Topic: sobre Restaurar BACKUP.SQL
Replies: 4
Views: 688

Re: sobre Restaurar BACKUP.SQL

Paco y Armando muchas gracias por responder. Yo estoy a desenvolver uno sistema de Backup proprio, para ser utilizado juntamente con mis programas. Ja encontra-se quasi terminado, pode-se verificar lo funcionamento en el link : http://www.4shared.com/rar/Ajxd2i99/backup.html Mas en la restauracion d...
by WilliamAdami
Thu Jan 05, 2012 12:48 pm
Forum: FiveWin para Harbour/xHarbour
Topic: sobre Restaurar BACKUP.SQL
Replies: 4
Views: 688

sobre Restaurar BACKUP.SQL

Hola, existe una forma de restaurar parcialmente lo BACKUP.SQL ? Backup.sql es gerado con MysqlDump.exe y grava todo lo banco de dados. lo comando que uso para restaurar es: mysql.exe -u root -psenha banco < backup.sql y para generar lo backup: mysqldump.exe --opt -h localhost -u root -psenha banco ...