Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
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
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