Search found 157 matches

by Euclides
Fri Feb 21, 2025 12:20 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Copy Paste problem in TGet (Fwh 24.02)
Replies: 6
Views: 8224

Re: Copy Paste problem in TGet (Fwh 24.02)

Hi, this problem exists a long time ago... :(
When I have to paste something in the GET I do the following:

DEFINE CLIPBOARD oClp OF oDlg FORMAT TEXT
...
@ 30, 20 GET oGet VAR cGet BITMAP "..\bitmaps\paste20.bmp" SIZE 120, 22 PIXEL OF oDlg ;
ACTION (cGet := oClp:GetText(), oGet:Refresh ...
by Euclides
Tue Jul 30, 2024 5:22 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Switching from memo fields to files -
Replies: 9
Views: 4255

Re: Switching from memo fields to files -

Hi Otto.
I am going in the other way... I use memo fields (CDX/FPT) wether I can...
I store complex arrays, store images, stor PDFs and lately I store those uncommon fields that some user have.
In this case , you have to define this fields in the DBF file, even when it have only one or two fields ...
by Euclides
Wed Jun 12, 2024 11:45 am
Forum: FiveWin para Harbour/xHarbour
Topic: Tema calendario nuevamente.
Replies: 19
Views: 3122

Re: Tema calendario nuevamente.

Wonderful!... But... Here in Brazil (and other places in the world) the name of the week days are at the top.
And the week numbers are at left. Could show the number of the week in the year.
Just my 2 cents.
Regards, Euclides.
by Euclides
Fri Mar 29, 2024 8:32 pm
Forum: FiveWin for Harbour/xHarbour
Topic: EXCEL CREATE HYPERLINK
Replies: 3
Views: 1513

Re: EXCEL CREATE HYPERLINK

Thanks Marco!
Here is: oAs2:Range("A1"):value := [=COLLEG.IPERTESTUALE("#UNO!A1";"MARCO")]
Note: Some sites: (https://pt.excelfunctions.eu/) translate COLLEG.IPERTESTUALE (HYPERLINK) to HIPERLIGAÇÃO that gives ERROR.
The correct is (here in Brazil): oAs2:Range("A1"):value := [=HIPERLINK("#UNO!A1 ...
by Euclides
Wed Feb 28, 2024 11:17 am
Forum: FiveWin for Harbour/xHarbour
Topic: COMBOBOX
Replies: 7
Views: 1240

Re: COMBOBOX

Hi Ruth.
You can do...

Code: Select all | Expand

   REDEFINE COMBOBOX oCbx VAR cItem ... ID 100 ...
   oCbx:SetFont(oFont)
 
Regards, Euclides
by Euclides
Sat Jun 24, 2023 8:42 pm
Forum: FiveWin for Harbour/xHarbour
Topic: read a big xml file
Replies: 11
Views: 1536

Re: read a big xml file

Hi... (sorry... I was out for a while...)
Kajot,
10Gb XML should be an issue even for Chrome or IE(Edge)
Can you post the XML in soma place for download? (or give an URL)
Regards, Euclides
by Euclides
Sat Jul 30, 2022 4:26 pm
Forum: FiveWin for Harbour/xHarbour
Topic: FIELD Selector for FiveWin ?
Replies: 6
Views: 1971

Re: FIELD Selector for FiveWin ?

Hi Jimmy.
There is a FWH function: cGetExpression()
It user \fwh\samples\expbuild.rc and \fwh\samples\ExpBuild.ch. The use is for expressions.
I made a very simple routine (back in fw 2.0 - Just transalte it from Portugese)
Function MOVFIELDS()local oDlg1, oLbx1, oLbx2, aItm2:={&#125 ...
by Euclides
Thu May 19, 2022 3:42 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Redondear centena
Replies: 8
Views: 1278

Re: Redondear centena

Hola, mas simples...

nAproximar := 50
nRedondear := 47085
? round(nRedondear / nAproximar, 0) * nAproximar

Saludos, Euclides
by Euclides
Fri Sep 17, 2021 7:52 pm
Forum: FiveWin para Harbour/xHarbour
Topic: PAGE DOWN, no funciona?
Replies: 5
Views: 722

Re: PAGE DOWN, no funciona?

Ó Joãozinho...
Coloque isto abaixo do DEFINE DIALOG ... de ..\SAMPLES\TESTFOLD.PRG
   nY := 1   oDlg:bKeyDown := {|nKey| iif( nKey = 33, (nY:=iif(nY=4, 1, nY+1), oFld:SetOption(nY)), iif( nKey = 34, (nY:=iif(nY=1, 4, nY-1), oFld ...
by Euclides
Tue Jun 08, 2021 12:16 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Print Problem with FWH2104
Replies: 27
Views: 4425

Re: Print Problem with FWH2104

Hi! Sorry for jumping in...
With FWH 18.01 the printing works as Vilian expects.
Regrds, Euclides
by Euclides
Tue May 25, 2021 12:47 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Editcol de twbrowse
Replies: 2
Views: 502

Re: Editcol de twbrowse

Hola!
..\SAMPLES\BROWSE.PRG
..\SOURCE\FUNCTION\BROWSE.PRG
Saludos, Euclides
by Euclides
Wed Apr 21, 2021 1:21 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Question about WinExec()
Replies: 10
Views: 1265

Re: Question about WinExec()

Hi Otto.
The same way...
  nkdnr := 10  WinExec("CMD /C start chrome --new-window --app=https://test.com.space/formular/index.prg?recnr=" + ALLTRIM(STR( nkdnr )) + " --window-position=600,300  --window-size=1500,730",0) 
It opened the window with the ...
by Euclides
Tue Apr 20, 2021 12:54 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Question about WinExec()
Replies: 10
Views: 1265

Re: Question about WinExec()

Hi to all.

WinExec("TASKKILL.EXE /IM NOTEPAD.EXE /F",0)
did not work im my computer (W 8.1)
but...

WinExec("CMD /C TASKKILL.EXE /IM NOTEPAD.EXE /F",0)
did the job.
Regards, Euclides
by Euclides
Wed Apr 01, 2020 8:15 pm
Forum: FiveWin for Harbour/xHarbour
Topic: very slow sample program xbrbckg1.prg
Replies: 14
Views: 4996

Re: very slow sample program xbrbckg1.prg

Ciao Marco...
Use this image: https://imagizer.imageshack.com/img923/276/DFYUs0.jpg
Is a quite faster... olga1.jpg is resized and is slow
regards, Euclides
by Euclides
Sat Mar 28, 2020 9:44 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Resultado interesante
Replies: 3
Views: 814

Re: Resultado interesante

... matando pulgas a cañonazos...
#include "fivewin.ch"Function Main&#40;&#41; ? str&#40;11111111^2, 15&#41; // 123456787654321 ? str&#40;111111111^2, 18&#41; // 12345678987654320 <- Limitación de Harbour/* 11111111 * 11111111 = 11111111+ 111111110+ 1111111100+ 11111111000+ 111111110000 ...