topic-45439

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Copy Paste problem in TGet (Fwh 24.02)
Posted: Thu Feb 20, 2025 12:34 PM

Hi,

This is the sample app.

#include "FiveWin.ch"

function TestGetPic

   local oDlg, oGet
   local cGet  := "123456789012345"

   DEFINE DIALOG oDlg SIZE 200,200 PIXEL TRUEPIXEL
   @ 30,30 GET oGet VAR cGet ;
      SIZE 150,20 PIXEL OF oDlg
   @ 80,30 BUTTON "OK" SIZE 80,30 PIXEL OF oDlg ACTION (oDlg:End())

   ACTIVATE DIALOG oDlg CENTERED
   
   ? "cGet = ",cGet

return nil

1. Compile and run app.
2. "6789012345" copy this. (select numbers between quotation marks)
3. focus on app that is compiled before.
4. Select all in Get. and paste (selected text "6789012345" in 2. order)
5. The oGet shows only "6789012345" that is should be.
6. press OK button.
7. cGet variables says "678901234512345"

I think It should be "6789012345".

Any idea? (I use fwh 24.02 and harbour 32 bits)

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Copy Paste problem in TGet (Fwh 24.02)
Posted: Thu Feb 20, 2025 03:23 PM

Try,

Code: Select all Collapse

// C:\FWH\SAMPLES\PASTECOP.PRG

#Include "FiveWin.ch"

FUNCTION TestGetPic()

   LOCAL oDlg, oGet
   LOCAL cGet  := "123456789012345"

   DEFINE DIALOG oDlg SIZE 200, 200 PIXEL TRUEPIXEL

   oDlg:lHelpIcon := .F.
                                      // 16 digits
   @ 30, 30 GET oGet VAR cGet PICTURE "@R 999999999999999" SIZE 150, 20 ;
      RIGHT PIXEL OF oDlg

   @ 80, 60 BUTTON "OK" SIZE 80, 30 PIXEL OF oDlg ACTION ( oDlg:End() ) CANCEL

   ACTIVATE DIALOG oDlg CENTERED

   ? "cGet = ", VAL( cGet )

RETURN NIL

// FIN / END

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Euclides

Posts: 159

Joined: Wed Mar 28, 2007 01:19 PM

Re: Copy Paste problem in TGet (Fwh 24.02)
Posted: Fri Feb 21, 2025 12:20 PM

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

Code: Select all Collapse

   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()) 
   ...
   oClp:Close()

Regards, Saludos Euclides

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Copy Paste problem in TGet (Fwh 24.02)
Posted: Fri Feb 21, 2025 12:38 PM

Horizon wrote: Hi,

This is the sample app.
Code: Select all Collapse
#include "FiveWin.ch"

function TestGetPic

   local oDlg, oGet
   local cGet  := "123456789012345"

   DEFINE DIALOG oDlg SIZE 200,200 PIXEL TRUEPIXEL
   @ 30,30 GET oGet VAR cGet ;
      SIZE 150,20 PIXEL OF oDlg
   @ 80,30 BUTTON "OK" SIZE 80,30 PIXEL OF oDlg ACTION (oDlg:End())

   ACTIVATE DIALOG oDlg CENTERED
   
   ? "cGet = ",cGet

return nil
1. Compile and run app.
2. "6789012345" copy this. (select numbers between quotation marks)
3. focus on app that is compiled before.
4. Select all in Get. and paste (selected text "6789012345" in 2. order)
5. The oGet shows only "6789012345" that is should be.
6. press OK button.
7. cGet variables says "678901234512345"

I think It should be "6789012345".

Any idea? (I use fwh 24.02 and harbour 32 bits)

Here it is working fine with FWH 25.01

Please download the EXE from here and test it:
https://github.com/FiveTechSoft/FWH_tools/blob/master/horizon.exe

regards, saludos

Antonio Linares
www.fivetechsoft.com

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: Copy Paste problem in TGet (Fwh 24.02)
Posted: Fri Feb 21, 2025 03:50 PM

Antonio Linares wrote:
Hi,

This is the sample app.
Code: Select all Collapse
#include "FiveWin.ch"

function TestGetPic

   local oDlg, oGet
   local cGet  := "123456789012345"

   DEFINE DIALOG oDlg SIZE 200,200 PIXEL TRUEPIXEL
   @ 30,30 GET oGet VAR cGet ;
      SIZE 150,20 PIXEL OF oDlg
   @ 80,30 BUTTON "OK" SIZE 80,30 PIXEL OF oDlg ACTION (oDlg:End())

   ACTIVATE DIALOG oDlg CENTERED
   
   ? "cGet = ",cGet

return nil
1. Compile and run app.
2. "6789012345" copy this. (select numbers between quotation marks)
3. focus on app that is compiled before.
4. Select all in Get. and paste (selected text "6789012345" in 2. order)
5. The oGet shows only "6789012345" that is should be.
6. press OK button.
7. cGet variables says "678901234512345"

I think It should be "6789012345".

Any idea? (I use fwh 24.02 and harbour 32 bits)
Here it is working fine with FWH 25.01

Please download the EXE from here and test it:
https://github.com/FiveTechSoft/FWH_tools/blob/master/horizon.exe

Thank you Antonio.

I have downloaded and tried. It is working fine.

I use fwh 24.02. What should I do? (As you know, I could not use fwh 24.09)

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Copy Paste problem in TGet (Fwh 24.02)
Posted: Fri Feb 21, 2025 04:22 PM

Hakan, what version of xHarbour and BCC are you using with this FWH2402 version?

Tks.

Regards. saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Copy Paste problem in TGet (Fwh 24.02)
Posted: Fri Feb 21, 2025 04:29 PM

Horizon wrote:
Hi,

This is the sample app.
Code: Select all Collapse
#include "FiveWin.ch" function TestGetPic local oDlg, oGet local cGet := "123456789012345" DEFINE DIALOG oDlg SIZE 200,200 PIXEL TRUEPIXEL @ 30,30 GET oGet VAR cGet ; SIZE 150,20 PIXEL OF oDlg @ 80,30 BUTTON "OK" SIZE 80,30 PIXEL OF oDlg ACTION (oDlg:End()) ACTIVATE DIALOG oDlg CENTERED ? "cGet = ",cGet return nil
1. Compile and run app.
2. "6789012345" copy this. (select numbers between quotation marks)
3. focus on app that is compiled before.
4. Select all in Get. and paste (selected text "6789012345" in 2. order)
5. The oGet shows only "6789012345" that is should be.
6. press OK button.
7. cGet variables says "678901234512345"

I think It should be "6789012345".

Any idea? (I use fwh 24.02 and harbour 32 bits)
Here it is working fine with FWH 25.01

Please download the EXE from here and test it:
https://github.com/FiveTechSoft/FWH_tools/blob/master/horizon.exe

Thank you Antonio.

I have downloaded and tried. It is working fine.

I use fwh 24.02. What should I do? (As you know, I could not use fwh 24.09) Upgrade to FWH 25.01

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion