topic-42442

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Light a Icon on Msgitem - Resolved -
Posted: Wed Nov 09, 2022 09:24 AM

When I activate the main windows I made

IF !CheckEstrazione()
          ::oMsgItem2:setBitmap("warning")
          ::oMsgItem2:cMsg:="Archivio non aggiornato"
       else
          ::oMsgItem2:setBitmap("check")
          ::oMsgItem2:cMsg:="Archivio aggiornato"
       Endif
        ::oMsgItem2:refresh()

How I can to flash the icon or bitmap?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Light a Icon on Msgitem
Posted: Wed Nov 09, 2022 03:31 PM

Dear Silvio: Maybe,

Code (fw): Select all Collapse

   IF !CheckEstrazione()
      ::oWnd:oMsgItem2:setBitmap("warning") // LoadBmp() ?
      ::oWnd:oMsgItem2:cMsg:="Archivio non aggiornato"
   ELSE
      ::oWnd:oMsgItem2:setBitmap("check")
      ::oWnd:oMsgItem2:cMsg:="Archivio aggiornato"
   ENDIF

   ::oWnd:oMsgItem2:Refresh()

   // If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),)

Regards, saludos.

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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Light a Icon on Msgitem
Posted: Wed Nov 09, 2022 03:50 PM

karinha wrote:Dear Silvio: Maybe,

Code (fw): Select all Collapse

   IF !CheckEstrazione()
      ::oWnd:oMsgItem2:setBitmap("warning") // LoadBmp() ?
      ::oWnd:oMsgItem2:cMsg:="Archivio non aggiornato"
   ELSE
      ::oWnd:oMsgItem2:setBitmap("check")
      ::oWnd:oMsgItem2:cMsg:="Archivio aggiornato"
   ENDIF

   ::oWnd:oMsgItem2:Refresh()

   // If( IsWindowVisible( ::oMsgBar:hWnd ), ::Paint(),)

Regards, saludos.

Karina,
are you running a competition to answer all my requests without reconnaissance on the forum? but did you understand my problem?
I want to display a bitmap but I want to make it flash that is to show and not to show, to show and not to show ... until infinity !!

I believe that you are making me so much teasing on the forum, you are answering my requests for help without a logical sense, maybe I'm wrong because I really don't really understand your answers !!!!

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

TimStone

Posts: 3022

Joined: Fri Oct 07, 2005 01:45 PM

Re: Light a Icon on Msgitem
Posted: Wed Nov 09, 2022 06:03 PM

Silvio,

First, I see lots of applications with those warning icons, but never flashing. I think to do that you would have to create a function that displays, removes, displays, removes the icon. That would certainly be a load on the CPU to constantly refresh the dialog to display it in a flash.

Icons, by nature, are not ( I think ) animated. Just thinking outloud, but can you insert a GIF for a flashing warning ? I really don't know if you can do it, but just sharing some thoughts.

Tim

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Light a Icon on Msgitem
Posted: Wed Nov 09, 2022 06:05 PM

Caro Silvio, tranquilo. Dear Silvio, calm down.

No sé por qué estás tan nervioso. I don't know why you're so nervous. hahahahahaha.

A ver si te ayuda:

C:\FWH..\SAMPLES\TESTMBAR.PRG

Regards, saludos.

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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Light a Icon on Msgitem
Posted: Thu Nov 10, 2022 09:43 AM

TimStone wrote:Silvio,

First, I see lots of applications with those warning icons, but never flashing. I think to do that you would have to create a function that displays, removes, displays, removes the icon. That would certainly be a load on the CPU to constantly refresh the dialog to display it in a flash.

Icons, by nature, are not ( I think ) animated. Just thinking outloud, but can you insert a GIF for a flashing warning ? I really don't know if you can do it, but just sharing some thoughts.

Tim

Tim,
I resolved!!!!

Two Bitmaps

warning1.bmp

warning2.bmp

If you save from forum you must rename the exstension of Bmps because postimages.org converte on Png

Code (fw): Select all Collapse

// Animations on MsgItem using Bmp and Timers

#include "FiveWin.ch"

static oWnd

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

function Main()

   local oBrush



   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 ;
      TITLE "msgitem"

   SET MESSAGE OF oWnd ;
      TO FWVERSION + FWCOPYRIGHT

      DEFINE MSGITEM oMsgItem1;
         OF oWnd:oMsgBar ;
           SIZE 170             ;
         ACTION NIL

   ACTIVATE WINDOW oWnd ;
      ON INIT DisplayIcons(oMsgItem1)

return nil

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

function DisplayIcons(oMsgItem1)

   local oIco, oTimer

   static nFrame := 1

    oMsgItem1:cMsg:="Archivio non aggiornato"

   DEFINE TIMER oTimer OF oWnd ;
      INTERVAL 400 ;
      ACTION ( nFrame := If( ++nFrame > 2, 1, nFrame ) , ;
               oMsgItem1:setBitmap( "warning" + AllTrim( Str( int(nFrame) ) )+".bmp" ) )

   ACTIVATE TIMER oTimer

return nil

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion