Afficher un texte sur l'écran total

DIM t$
' HIDE 0
WIDTH 0,200: HEIGHT 0,80: BORDER_SMALL 0
t$ = TIME$
Textecran(800,100,"Salut !","Arial",32,255*65536,"GI",2)
PRINT t$+" -> "+TIME$: ' pour voir la durée d'exécution
END

SUB Textecran(x1%,y1%,txt$,fnt$,sz%,rgb%,enr$,zoom%)
  ' Affichage en x1%,y1% absolus d'un texte txt$ sur tout l'écran
  ' Police fnt$, taille sz%, couleur rgb%, enrichissements 'GIS', facteur zoom zoom%
  DIM_LOCAL f%,p%,wt%,ht%,x%,y%,r%,g%,b%,e%,i%,j%,k%
  r% = INT(rgb%/65536): g% = BIN_AND(rgb%,65280)/256: b% = BIN_AND(rgb%,255)
  p%=900: PICTURE p%: HIDE p%: FONT_NAME p%,fnt$: FONT_SIZE p%,sz%: FONT_COLOR p%,r%,g%,b%
  IF INSTR(enr$,"G") > 0 THEN FONT_BOLD p%
  IF INSTR(enr$,"I") > 0 THEN FONT_ITALIC p%
  IF INSTR(enr$,"S") > 0 THEN FONT_UNDERLINE p%
  wt% = TEXT_WIDTH(txt$,p%): ht% = TEXT_HEIGHT(txt$,p%):WIDTH p%,wt%: HEIGHT p%,ht%
  PRINT_TARGET_IS p%: PRINT txt$
  f% = p%+1
  FOR y% = 0 TO ht%
      FOR x% = 0 TO wt%
          i% = COLOR_PIXEL_RED(p%,x%,y%): j% = COLOR_PIXEL_GREEN(p%,x%,y%)
          k% = COLOR_PIXEL_BLUE(p%,x%,y%)
          IF i% = r% AND j% = g% AND k% = b%
              FORM f%: BORDER_HIDE f%: WIDTH f%,zoom%: HEIGHT f%,zoom%
                       TOP f%,y1%+y%*zoom%: LEFT f%,x1%+x%*zoom%
                       COLOR f%,r%,g%,b%
              f% = f%+1
          END_IF
      NEXT x%
      caption 0,"y="+str$(y%)+"/"+str$(ht%): ' pour suivre la progresion
  NEXT y%
  caption 0,"Form= "+str$(f%): ' dernier Form généré
  PRINT_TARGET_IS 0: DELETE p%
END_SUB

dim res%

border_hide 0
full_space 0

font_size 0,24 : font_bold 0
print_locate 300,300
print "Panoramic"

dll_on "KGF.dll"
res% = dll_call2("WindowTranparency",handle(0),127)

end

dim res%

border_hide 0
full_space 0
color 0,255,255,255 : ' <========= couleur de transparence, à choisir librement !

font_size 0,24 : font_bold 0
print_locate 300,300
print "Panoramic"

dll_on "KGF.dll"
' 2ème paramètre: couleur de transparence hex("BBGGRR")
' 3ème paramètre: 0 (transparent) ... 255 (opaque)
res% = dll_call3("SetTranslucent",handle(0),hex("FFFFFF"),0)
res% = dll_call2("WindowTopMost",handle(0),1)
height 0,height(0) - 40

end

label sortir
dim res%

border_hide 0
full_space 0
color 0,255,255,255 : ' <========= couleur de transparence, à choisir librement !

font_size 0,24 : font_bold 0
print_locate 300,300
print "Panoramic"

dll_on "KGF.dll"
' 2ème paramètre: couleur de transparence hex("BBGGRR")
' 3ème paramètre: 0 (transparent) ... 255 (opaque)
res% = dll_call3("SetTranslucent",handle(0),hex("FFFFFF"),0)
res% = dll_call2("WindowTopMost",handle(0),1)
height 0,height(0) - 40
button 1 : caption 1,"Sortir" : on_click 1,sortir : width 1,150 : height 1,30

end
sortir:
terminate

color 0,255,255,254
...
res% = dll_call3("SetTranslucent",handle(0),hex("FEFFFF"),0)

label sortir, tick
dim res%

border_hide 0
color 0,255,255,255 : ' <========= couleur de transparence, à choisir librement !
timer 1 : timer_interval 1,1000 : on_timer 1,tick

font_size 0,24 : font_bold 0

dll_on "KGF.dll"
' 2ème paramètre: couleur de transparence hex("BBGGRR")
' 3ème paramètre: 0 (transparent) ... 255 (opaque)
res% = dll_call3("SetTranslucent",handle(0),hex("FFFFFF"),0)
res% = dll_call2("WindowTopMost",handle(0),1)
button 2 : caption 2,"Sortir" : on_click 2,sortir : width 2,150 : height 2,30

end
sortir:
terminate
tick:
print_locate 10,40
print time$
print_locate 10,80
print date$
return

dim txt$,fnt$,sz%,enr$,rgb%,rc$
rc$ = CHR$(13)+CHR$(10)
txt$ = "Bon Panoramic"+rc$+"      à tous !"
fnt$ = "Arial"
sz% = 128
enr$ = "BI"
rgb% = 65536*255+256*255: ' jaune
Text_Ecran(100,100,txt$,fnt$,sz%,enr$,rgb%): Terminate

' Horloge(100,100,"Arial",24,"G",rgb%)
End
' ==============================================================================
SUB Horloge(x%,y%,fnt$,sz%,enr$,rgb%)
  ' Afficher une horloge numérique en x% y% de l'écran total
  ' police fnt$, taille sz%,enrichissements enr$, couleur rgb% (65536*R+256*G+B)
  LABEL Tick,Finh
  DIM r%,g%,b%,yd%,lt%,ff%,res%
  r% = INT(rgb%/65536): g% = BIN_AND(rgb%,65280)/256: b% = BIN_AND(rgb%,255)
  BORDER_HIDE 0: FULL_SPACE 0: FONT_NAME 0,fnt$: FONT_SIZE 0,sz%: FONT_COLOR 0,r%,g%,b%
  COLOR 0,255,255,255
  IF INSTR(enr$,"G") > 0 THEN FONT_BOLD 0
  IF INSTR(enr$,"I") > 0 THEN FONT_ITALIC 0
  IF INSTR(enr$,"S") > 0 THEN FONT_UNDERLINE 0
  yd% = y%+TEXT_HEIGHT("1",0): lt% = TEXT_WIDTH(DATE$,0)
  DLL_ON "C:\PANORAMIC\KGF\KGF.dll"
  ' 2ème paramètre: couleur de transparence hex("BBGGRR")
  ' 3ème paramètre: 0 (transparent) ... 255 (opaque)
  res% = dll_call3("SetTranslucent",handle(0),hex("FFFFFF"),0)
  res% = dll_call2("WindowTopMost",handle(0),1)
  BUTTON 1: TOP 1,y%+7: LEFT 1,x%+lt%-20: WIDTH 1,20: HEIGHT 1,25: CAPTION 1,"X"
            FONT_SIZE 1,12: FONT_BOLD_OFF 1: ON_CLICK 1,Finh
  WHILE ff% = 0: GOSUB Tick: PAUSE 1000: END_WHILE
  DLL_OFF: TERMINATE
Tick:
  PRINT_LOCATE x%,y%: PRINT TIME$
  PRINT_LOCATE x%,yd%: PRINT DATE$
RETURN
Finh:
  ff% = 1
RETURN
END_SUB
' ==============================================================================
SUB Text_Ecran(x%,y%,txt$,fnt$,sz%,enr$,rgb%)
  ' Afficher le texte txt$ en x% y% de l'écran total
  ' Police fnt$, taille sz%,enrichissements enr$, couleur rgb% (65536*R+256*G+B)
  ' Texte multilignes éventuel -> chr$(13)+chr$(10)
  ' Cliquer sur la petite croix (en fin de texte) pour effacer
  LABEL Fintec
  DIM r%,g%,b%,lt%,ht%,ff%,res%,k%
  r% = INT(rgb%/65536): g% = BIN_AND(rgb%,65280)/256: b% = BIN_AND(rgb%,255)
  BORDER_HIDE 0: FULL_SPACE 0: FONT_NAME 0,fnt$: FONT_SIZE 0,sz%: FONT_COLOR 0,r%,g%,b%
  COLOR 0,255,255,255
  IF INSTR(enr$,"G") > 0 THEN FONT_BOLD 0
  IF INSTR(enr$,"I") > 0 THEN FONT_ITALIC 0
  IF INSTR(enr$,"S") > 0 THEN FONT_UNDERLINE 0
  ht% = TEXT_HEIGHT(txt$,0)
  DLL_ON "C:\PANORAMIC\KGF\KGF.dll"
  ' 2ème paramètre: couleur de transparence hex("BBGGRR")
  ' 3ème paramètre: 0 (transparent) ... 255 (opaque)
  res% = dll_call3("SetTranslucent",handle(0),hex("FFFFFF"),0)
  res% = dll_call2("WindowTopMost",handle(0),1)
  k% = INSTR(txt$,CHR$(13))
  WHILE k% > 0: ' si plusieurs lignes
      PRINT_LOCATE x%,y%: PRINT LEFT$(txt$,k%-1): txt$ = RIGHT_POS$(txt$,k%+2)
      k% = INSTR(txt$,CHR$(13)): y% = y%+ht%
  END_WHILE
  PRINT_LOCATE x%,y%: PRINT txt$: lt% = TEXT_WIDTH(txt$,0)
  BUTTON 1: TOP 1,y%+ht%-sz%/2: LEFT 1,x%+lt%: WIDTH 1,20: HEIGHT 1,25: CAPTION 1,"X"
            FONT_SIZE 1,12: FONT_BOLD_OFF 1: ON_CLICK 1,Fintec
  WHILE ff% = 0: PAUSE 1000: END_WHILE
  DLL_OFF: EXIT_SUB
Fintec:
  ff% = 1
RETURN
END_SUB
' ==============================================================================