[Astuce]Connaitre taille des bordure et de la barre de titre

label border_size:dim border_size%
label title_size:dim title_size%

hide 0

DIM w,h
label redraw
width 0,600:height 0,100
left 0,screen_x-width(0)-10
top 0,screen_y-height(0)-60

show 0

gosub border_size
gosub title_size

caption 0,"taille bordure:"+str$(border_size%)+" Taille barre de titre:"+str$(title_size%)

2d_pen_color 255,0,0
timer 1:timer_interval 1,100:on_timer 1,redraw

end

' pour l'exemple, on trace un rectangle qui fait les dimensions du formulaire
redraw:
 if w<>width(0) or h<>height(0)
  w=width(0):h=height(0)
  2d_rectangle 0,0,width(0)-border_size%,height(0)-title_size%
 end_if
return


border_size:
  border_size%=0
  while COLOR_PIXEL_RED(0,width(0)-border_size%,height(0)/2)=0
    border_size%=border_size%+1
  end_while
  border_size%=(border_size%-1)
return

title_size:
 title_size%=0
 while COLOR_PIXEL_RED(0,WIDTH(0)/2,height(0)-title_size%)=0
  title_size%=title_size%+1
 end_while
 title_size%=title_size%-1
return

width 0,500:height 0,100
dim h%
picture 1:full_space 1:h%=height(1):delete 1
caption 0, "hauteur de la barre:"+str$(100-h%)

width 0,500:height 0,100
dim h%, w%
picture 1:full_space 1:h%=height(1):w% = width(1): delete 1
caption 0, "hauteur de la barre: "+str$(100-h%)+" largeur bordures: " + str$(500-w%)