Label transparent

[radohabjan]

Hello,

I have problem with Label transparent function - it works just for the time() function.
picture.jpg is any valid jpg picture. I use HMG ver. 3.0.34 with win 7 Enterpreis

Best regards Rado

[Rathinagiri]

Hi Rado,

Just change your code like this.

Code: Select all

#include "minigui.ch"
  FUNCTION MAIN()
  REQUEST HB_CODEPAGE_SLWIN              
  HB_LANGSELECT( "SLWIN" )  
  SET CENTURY ON
  SET DATE GERMAN
  SET LANGUAGE TO SLOVENIAN  
                   DEFINE WINDOW Win_x                             ;
                      AT 26,25                                     ;    
                      WIDTH 334                                    ;   
                      HEIGHT 360                                   ;
                      BACKCOLOR {023,101,012}                      ;
                      TITLE ''                                     ;
                      MAIN NOSYSMENU CURSOR "" NOSIZE NOMAXIMIZE
                      ON KEY ESCAPE ACTION Win_x.Release
        SET LANGUAGE TO SLOVENIAN

        @ 028,029 IMAGE Image_1 PICTURE "picture.jpg" WIDTH 270 HEIGHT 270

        @ 031,039 LABEL Label_01 VALUE (DTOC(DATE())) CENTERALIGN ;
             FONT "Arial" SIZE 12  BOLD ITALIC TRANSPARENT BACKCOLOR {000,000,000} FONTCOLOR {255,255,255}WIDTH 210 HEIGHT 28

        @ 092,039 LABEL Label_02  CENTERALIGN ;
             FONT "Arial" SIZE 12 BOLD ITALIC TRANSPARENT BACKCOLOR {000,000,000} FONTCOLOR {255,255,255} WIDTH 210 HEIGHT 28
         
        @ 264,053 LABEL label_03 CENTERALIGN ;           
             FONT "Arial" SIZE 12 BOLD ITALIC TRANSPARENT BACKCOLOR {000,000,000} FONTCOLOR {255,255,255} WIDTH 210 HEIGHT 28                

        DEFINE TIMER Picture INTERVAL 1000 ACTION refresh() 

   END WINDOW
Win_x.Image_1.picture := "picture.jpg"
       CENTER WINDOW Win_x
       ACTIVATE WINDOW Win_x
RETURN NIL

procedure refresh()
Win_x.Label_01.value := DTOC(Date())
Win_x.Label_02.value := Time()
Win_x.label_03.value := "XXXXXXXX"
return

[radohabjan]

This is solution just for one picture.
I need to change the picture in Timer function ( each second ) in procedure refresh.

select pictures
Win_x.Image_1.picture := pictures->name * picture file path
skip


Best regards Rado

[Rathinagiri]

No problem. Is it ok now?!

Code: Select all

#include "minigui.ch"
  FUNCTION MAIN()
  REQUEST HB_CODEPAGE_SLWIN              
  HB_LANGSELECT( "SLWIN" )  
  SET CENTURY ON
  SET DATE GERMAN
  SET LANGUAGE TO SLOVENIAN  
                   DEFINE WINDOW Win_x                             ;
                      AT 26,25                                     ;    
                      WIDTH 334                                    ;   
                      HEIGHT 360                                   ;
                      BACKCOLOR {023,101,012}                      ;
                      TITLE ''                                     ;
                      MAIN NOSYSMENU CURSOR "" NOSIZE NOMAXIMIZE
                      ON KEY ESCAPE ACTION Win_x.Release
        SET LANGUAGE TO SLOVENIAN

        @ 028,029 IMAGE Image_1 PICTURE "picture.jpg" WIDTH 270 HEIGHT 270

        @ 031,039 LABEL Label_01 VALUE (DTOC(DATE())) CENTERALIGN ;
             FONT "Arial" SIZE 12  BOLD ITALIC TRANSPARENT BACKCOLOR {000,000,000} FONTCOLOR {255,255,255}WIDTH 210 HEIGHT 28

        @ 092,039 LABEL Label_02  CENTERALIGN ;
             FONT "Arial" SIZE 12 BOLD ITALIC TRANSPARENT BACKCOLOR {000,000,000} FONTCOLOR {255,255,255} WIDTH 210 HEIGHT 28
         
        @ 264,053 LABEL label_03 CENTERALIGN ;           
             FONT "Arial" SIZE 12 BOLD ITALIC TRANSPARENT BACKCOLOR {000,000,000} FONTCOLOR {255,255,255} WIDTH 210 HEIGHT 28                

        DEFINE TIMER Picture INTERVAL 1000 ACTION refresh() 

   END WINDOW
       CENTER WINDOW Win_x
       ACTIVATE WINDOW Win_x
RETURN NIL

procedure refresh()
Win_x.Image_1.picture := "picture.jpg"
Win_x.Label_01.value := ""
Win_x.label_03.value := ""
Win_x.Label_01.value := DTOC(Date())
Win_x.Label_02.value := Time()
Win_x.label_03.value := "XXXXXXXX"
return

[radohabjan]

Thanks Rathinagiri

Now it works.

Best regards Rado