Overloading - With TailBite when i did XConsole I had this bit of code:
Code: Select all
ProcedureDLL XOpenConsole()
Flags=#PB_Window_TitleBar|#PB_Window_SystemMenu|#PB_Window_BorderLess|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget
CX=80
CY=25
FontH=24
Intensity=128
result=XGlobalOpenConsole(50,50,640,480,"ConsoleX")
XGlobalConsoleColor(#MyWhite,#MyBlack)
XGlobalClearConsole()
ProcedureReturn result
EndProcedure
ProcedureDLL XOpenConsole2(sizex,sizey)
Flags=#PB_Window_TitleBar|#PB_Window_SystemMenu|#PB_Window_BorderLess|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget
CX=sizex
CY=sizey
FontH=24
Intensity=128
result=XGlobalOpenConsole(50,50,640,480,"ConsoleX")
XGlobalConsoleColor(#MyWhite,#MyBlack)
XGlobalClearConsole()
ProcedureReturn result
EndProcedure
ProcedureDLL XOpenConsole3(sizex,sizey,sized,fontname$,fontsize,title$)
Itensity=128
result=XFullOpenConsole(sizex,sizey,sized,fontname$,fontsize,title$)
XGlobalConsoleColor(#MyWhite,#MyBlack)
XGlobalClearConsole()
ProcedureReturn result
EndProcedure
ProcedureDLL XOpenConsole4(sizex,sizey,x,y,w,h,title$)
Flags=#PB_Window_TitleBar|#PB_Window_SystemMenu|#PB_Window_BorderLess|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget
CX=sizex
CY=sizey
FontH=24
Intensity=128
result=XGlobalOpenConsole(x,y,w,h,title$)
XGlobalConsoleColor(#MyWhite,#MyBlack)
XGlobalClearConsole()
ProcedureReturn result
EndProcedure
ProcedureDLL XOpenConsole5(sizex,sizey,x,y,w,h,title$,Flgs)
Flags=Flgs
CX=sizex
CY=sizey
FontH=24
Intensity=128
result=XGlobalOpenConsole(x,y,w,h,title$)
XGlobalConsoleColor(#MyWhite,#MyBlack)
XGlobalClearConsole()
ProcedureReturn result
EndProcedure