Lorsqu'on veut compiler un programme qui a beaucoup de fichier a inclure.
L'IDE scanne tout les fichiers du programme et récupère tout ce qui se trouve entre les balise ;[START HEADER] et ;[STOP HEADER]
et les places au tout début du programme avant de l'envoyer a la compilation.
exemple :
fichier : Font.pbi
Code : Tout sélectionner
;[START HEADER]
Structure font_param
Name.s ; Font Name
Size.l ; Font Size
Option.l; Font Option (#PB_Font_Bold,#PB_Font_Italic,#PB_Font_Underline,#PB_Font_StrikeOut,#PB_Font_HighQuality)
EndStructure
;
Global NewList Font.font_param()
;[STOP HEADER]
Procedure CheckFontExist(Name.s,Size.l,Option.l)
Debug "Check if i already use the font:"+Name
Found.l=-1
If ListSize(Font())>0
For z=0 To ListSize(Font())
SelectElement(Font(), z)
If Font()\Name=Name And Font()\Size=Size And Font()\Option=Option
Found=z;
EndIf
Next
EndIf
Debug "Use it ? :"+Str(Found)
ProcedureReturn Found
EndProcedure
Procedure AddFont(Name.s,Size.l,Option.l)
Found=CheckFontExist(Name.s,Size.l,Option.l)
If Found>-1
ProcedureReturn Found
Else
Prefs\NbFont+1
If LoadFont(Prefs\NbFont,Name,Size,Option)=0
Debug "I can't load this font"
Else
Debug "LoadFont:"+Str(Prefs\NbFont)
AddElement(Font())
Font()\Name=Name
Font()\Size=Size
Font()\Option=Option
EndIf
EndIf
ProcedureReturn Prefs\NbFont
EndProcedure
On pourrait aussi poussé le vis pour scanner automatique le reste du programme pour y inclure directement les "déclarations des procédures"
Alors ? vous trouvez ça une bonne idée ou je retourne me coucher ?
