topic-45718

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Clase tScrollMsg
Posted: Fri May 30, 2025 11:07 PM

Hola Fivewinners

Alguien ha podido hacer el ejemplo de scrollmsg.prg de la carpeta samples

Tengo FWH 24.9, uso MSVC

No he podido hacerlo funcionar, aparece todo en forma minuscula en el costado izquierdo.
Quiero usarlo en una ventana, pero no me ha funcionado, menos el ejemplo

Alguna sugerencia, idea.

Este es el ejemplo

Code: Select all Collapse

#include "fivewin.ch"

function Main()

   local cFile    := "maria01.prg"
   local cText    := MemoRead( cFile )
   local oDlg, oMsg, oFont, oBold

   DEFINE FONT oFont NAME "LUCIDA CONSOLE" SIZE 0,-14
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-32

   DEFINE DIALOG oDlg SIZE 800,500 PIXEL TRUEPIXEL

   @ 100,100 SCROLLMSG "FiveWin Power : New Scroll Msg class" ;
      SIZE 600,40 PIXEL OF oDlg ;
      FONT oBold COLOR CLR_BLACK,CLR_HGREEN HORIZONTAL ;
      SPEED 2

   @ 200,100 SCROLLMSG oMsg TEXT cText SIZE 600,200 PIXEL OF oDlg ;
      FONT oFont COLOR CLR_HRED, CLR_YELLOW SPEED 2

   @ 440,020 BTNBMP PROMPT "ChangeText" SIZE 150,40 PIXEL OF oDlg FLAT ;
      ACTION If( Empty( cFile := cGetFile( "File(*.prg)|*.prg|" ) ),, ;
                 oMsg:SetText( MEMOREAD( cFile ) ) )

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont, oBold

return nil

Saludos desde Chile

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: Clase tScrollMsg
Posted: Sat May 31, 2025 08:46 AM

Your sample works fine here using latest FWH.

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

FiveTech Support Forums

Continue the discussion