Anonymous
04-17-2006, 09:02 AM
compile this in FB:
Code:
Option Explicit
Screen 18, 32, 2
'' 80 x 30 text
Const fbfont_FilledBox As Integer = 219
Const fbfont_QuarFilledBox As Integer = 176
Const fbfont_HalfFilledBox As Integer = 177
Const fbfont_MostFilledBox As Integer = 178
Const fbfont_ThinMenuUpperLeft As Integer = 218
Const fbfont_ThinMenuUpperRight As Integer = 191
Const fbfont_ThinMenuLowerLeft As Integer = 192
Const fbfont_ThinMenuLowerRight As Integer = 217
Const fbfont_ThinMenuTop As Integer = 196
Const fbfont_ThinMenuSide As Integer = 179
Const fbfont_ThinMenuRightHoriz As Integer = 180
Const fbfont_ThinMenuLeftHoriz As Integer = 195
Type _ChIde_Fonts
As Integer MenuBG, MenuFont, EditBG, FooterBG
End Type
Dim Shared As _ChIde_Fonts ChIde_Fonts
Sub ChIde_InitializeFont()
ChIde_Fonts.MenuBG = Rgb( 168, 168, 168 )
ChIde_Fonts.MenuFont = Rgb( 0, 0, 0 )
' ChIde_Fonts.MenuFont = Rgb( 254, 254, 254 )
ChIde_Fonts.EditBG = Rgb( 0, 0, 168 )
ChIde_Fonts.FooterBG = Rgb( 0, 168, 168 )
End Sub
Sub ChIde_RenderMenu()
Color ChIde_Fonts.MenuBG
? String( 80, fbfont_FilledBox )
Color ChIde_Fonts.MenuFont, ChIde_Fonts.MenuBG
Locate 1, 4
? "File"
Locate 1, 10
? "Edit"
Locate 1, 16
? "View"
Locate 1, 22
? "Search"
Locate 1, 30
? "Run"
Locate 1, 35
? "Debug"
Locate 1, 42
? "Calls"
Locate 1, 49
? "Options"
Locate 1, 75
? "Help"
End Sub
Sub ChIde_Render()
Dim As Integer i
ChIde_RenderMenu()
Color ChIde_Fonts.MenuBG, ChIde_Fonts.EditBG
Locate 2
? Chr( fbfont_ThinMenuUpperLeft );
? String( 74, fbfont_ThinMenuTop );
? Chr( fbfont_ThinMenuRightHoriz );
Color ChIde_Fonts.EditBG, ChIde_Fonts.MenuBG
? Chr( 24 ); '' up arrow
Color ChIde_Fonts.MenuBG, ChIde_Fonts.EditBG
? Chr( fbfont_ThinMenuLeftHoriz );
? Chr( fbfont_ThinMenuTop );
? Chr( fbfont_ThinMenuUpperRight );
For i = 0 To 19
? Chr( fbfont_ThinMenuSide );
? space( 78 );
? Chr( fbfont_ThinMenuSide );
Next
? Chr( fbfont_ThinMenuLeftHoriz );
? String( 78, fbfont_ThinMenuTop );
? Chr( fbfont_ThinMenuRightHoriz );
For i = 0 To 5
? Chr( fbfont_ThinMenuSide );
? space( 78 );
? Chr( fbfont_ThinMenuSide );
Next
'' render bottom bar
Color ChIde_Fonts.MenuFont, ChIde_Fonts.FooterBG
? " <Shift+F1=Help> <F6=Window> (F2=Subs> <F5=Run> <F8=Step> "; Chr( fbfont_ThinMenuSide ); " 00001:001 ";
Color ChIde_Fonts.MenuFont, ChIde_Fonts.MenuBG
Locate 22, 2
? Chr( 27 ); '' left arrow
? Chr( fbfont_FilledBox );
? String( 75, Chr( fbfont_QuarFilledBox ) );
? Chr( 26 ); '' right arrow
Locate 3, 80
? Chr( 24 ); '' up arrow
Locate 4, 80
? Chr( fbfont_FilledBox );
For i = 5 To 20
Locate i, 80
? Chr( fbfont_QuarFilledBox );
Next
Locate 21, 80
? Chr( 25 ); '' down arrow
Locate 2, 36
Color ChIde_Fonts.EditBG, ChIde_Fonts.MenuBG
? " Untitled ";
Locate 23, 35
Color ChIde_Fonts.MenuBG, ChIde_Fonts.EditBG
? " Immediate ";
End Sub
ChIde_InitializeFont()
ChIde_Render()
Sleep