FiveTech Software tech support forums

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local aText[ 3 ], aGet[ 3 ]
   local oDlg, oFont, oClp

   AFill( aText, Space( 40 ) )
   SetGetColorFocus()

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 400,230 PIXEL TRUEPIXEL
   DEFINE CLIPBOARD oClp OF oDlg FORMAT TEXT

   @  60,20 GET aGet[ 1 ] VAR aText[ 1 ] SIZE 360,26 PIXEL OF oDlg
   @  95,20 GET aGet[ 2 ] VAR aText[ 2 ] SIZE 360,26 PIXEL OF oDlg
   @ 130,20 GET aGet[ 3 ] VAR aText[ 3 ] SIZE 360,26 PIXEL OF oDlg

   @ 170,20 BUTTON "OK" SIZE 100,30 PIXEL OF oDlg ACTION oDlg:End()

   AEval( aGet, { |oGet| oGet:bGotFocus := { |o|FnGotFocus( o, oClp ) } } )

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

   XBROWSER aText

return nil

//----------------------------------------------------------------------------//

static function FnGotFocus( o, oClp )

   local cText

   if oClp:Open()
      cText    := oClp:GetText()
      if cText != nil
         if CHR( 10 ) $ cText
            cText    := StrTran( cText, CRLF, CHR(10) )
            cText    := StrTran( cText, CHR(10), ", " )
            oClp:Clear()
            oClp:SetText( cText )
         endif
      endif
      oClp:Close()
   endif

return nil

//----------------------------------------------------------------------------//