home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / FBR12C / FBRUNWAY.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-01-31  |  4.3 KB  |  123 lines
  1. DefInt A-Z
  2. Declare Function GetProfileString Lib "Kernel" (ByVal Appname$, ByVal lpKeyName$, ByVal DEFAULT$, ByVal RetString$, ByVal nSize%) As Integer
  3. Declare Function WriteProfileString Lib "Kernel" (ByVal Appname$, ByVal KeyName$, ByVal KeyValue As Any) As Integer
  4.  
  5. Sub FrameBarFrm (Frm As Form, BBar As Control)
  6.     tp = Frm.ScaleTop + BBar.Top + BBar.Height
  7.     lf = Frm.ScaleLeft + 7
  8.     bt = Frm.ScaleHeight - 8
  9.     rt = Frm.ScaleWidth - 15
  10.     Frm.Line (lf, bt)-(rt, bt), GREY
  11.     Frm.Line (rt, tp)-(rt, bt), GREY
  12.     Frm.Line (lf + 15, tp + 15)-(rt - 15, tp + 15), WHITE
  13.     Frm.Line (lf + 15, tp + 15)-(lf + 15, bt - 15), WHITE
  14.     Frm.Line (lf + 15, bt - 15)-(rt - 15, bt - 15), GREY
  15.     Frm.Line (rt - 15, tp + 15)-(rt - 15, bt - 15), GREY
  16. End Sub
  17.  
  18. Sub FrameCtrl (Frm As Form, CtlT As Control, CtlL As Control, CtlB As Control, CtlR As Control)
  19.     oot = CtlT.Top - 15
  20.     ool = CtlL.Left - 15
  21.     oob = CtlB.Top + CtlB.Height + 7
  22.     oor = CtlR.Left + CtlR.Width + 7
  23.     Frm.Line (ool, oot)-(oor, oot), GREY
  24.     Frm.Line (ool, oot)-(ool, oob), GREY
  25.     Frm.Line (ool - 15, oot - 15)-(oor + 15, oot - 15), GREY
  26.     Frm.Line (ool - 15, oot - 15)-(ool - 15, oob + 15), GREY
  27.     Frm.Line (ool - 15, oob + 15)-(oor + 17, oob + 15), WHITE
  28.     Frm.Line (oor + 15, oot - 15)-(oor + 15, oob + 17), WHITE
  29. End Sub
  30.  
  31. Sub FrameLeftStat (Frm As Form, Ctrl As Control)
  32.     l1t = Ctrl.Top - 30
  33.     l1l = Ctrl.Left - 15
  34.     l1b = Ctrl.Top + Ctrl.Height + 22
  35.     l1r = Ctrl.Left + Ctrl.Width + 7
  36.     Frm.Line (l1l, l1t)-(l1r, l1t), GREY
  37.     Frm.Line (l1l, l1t)-(l1l, l1b), GREY
  38.     Frm.Line (l1r, l1t)-(l1r, l1b), WHITE
  39.     Frm.Line (l1l - 15, l1t - 15)-(l1r + 15, l1t - 15), GREY
  40.     Frm.Line (l1l - 15, l1t - 15)-(l1l - 15, l1b + 15), GREY
  41.     Frm.Line (l1l - 15, l1b + 15)-(l1r + 15, l1b + 15), WHITE
  42. End Sub
  43.  
  44. Sub FrameMidStat (Frm As Form, Ctrl As Control)
  45.     l2t = Ctrl.Top - 30
  46.     l2l = Ctrl.Left - 15
  47.     l2b = Ctrl.Top + Ctrl.Height + 22
  48.     l2r = Ctrl.Left + Ctrl.Width + 7
  49.     Frm.Line (l2l, l2t)-(l2r, l2t), GREY
  50.     Frm.Line (l2l, l2t)-(l2l, l2b), GREY
  51.     Frm.Line (l2r, l2t)-(l2r, l2b), WHITE
  52.     Frm.Line (l2l - 15, l2t - 15)-(l2r + 15, l2t - 15), GREY
  53.     Frm.Line (l2l - 15, l2b + 15)-(l2r + 15, l2b + 15), WHITE
  54. End Sub
  55.  
  56. Sub FrameRightStat (Frm As Form, Ctrl As Control)
  57.     l3t = Ctrl.Top - 30
  58.     l3l = Ctrl.Left - 15
  59.     l3b = Ctrl.Top + Ctrl.Height + 22
  60.     l3r = Ctrl.Left + Ctrl.Width + 7
  61.     Frm.Line (l3l, l3t)-(l3r, l3t), GREY
  62.     Frm.Line (l3l, l3t)-(l3l, l3b), GREY
  63.     Frm.Line (l3l - 15, l3t - 15)-(l3r + 15, l3t - 15), GREY
  64.     Frm.Line (l3l - 15, l3b + 15)-(l3r + 17, l3b + 15), WHITE
  65.     Frm.Line (l3r + 15, l3t - 15)-(l3r + 15, l3b + 17), WHITE
  66. End Sub
  67.  
  68. Sub FrameFrm (Frm As Form)
  69.     tp = Frm.ScaleTop
  70.     lf = Frm.ScaleLeft + 7
  71.     bt = Frm.ScaleHeight - 8
  72.     rt = Frm.ScaleWidth - 15
  73.     Frm.Line (lf, bt)-(rt, bt), GREY
  74.     Frm.Line (rt, tp)-(rt, bt), GREY
  75.     Frm.Line (lf + 15, tp + 15)-(rt - 15, tp + 15), WHITE
  76.     Frm.Line (lf + 15, tp + 15)-(lf + 15, bt - 15), WHITE
  77.     Frm.Line (lf + 15, bt - 15)-(rt - 15, bt - 15), GREY
  78.     Frm.Line (rt - 15, tp + 15)-(rt - 15, bt - 15), GREY
  79. End Sub
  80.  
  81. Function GetWinStr (App As String, Key As String, Def As String) As String
  82.     Catch$ = Space$(255)
  83.     App = LTrim$(RTrim$(App))
  84.     Key = LTrim$(RTrim$(Key))
  85.     Def = LTrim$(RTrim$(Def))
  86.     ZZ = GetProfileString(App, Key, Def, Catch$, 255)
  87.     Catch$ = LTrim$(RTrim$(Left$(Catch$, ZZ)))
  88.     GetWinStr = Catch$
  89.     Catch$ = ""
  90. End Function
  91.  
  92. Function PutWinINI (App As String, Key As String, KeyVal As String) As Integer
  93.     App = LTrim$(RTrim$(App))
  94.     Key = LTrim$(RTrim$(Key))
  95.     KeyVal = LTrim$(RTrim$(KeyVal))
  96.     If Len(KeyVal) Then
  97.         XYZ = WriteProfileString(App, Key, ByVal KeyVal)
  98.     Else
  99.         XYZ = WriteProfileString(App, Key, ByVal 0&)
  100.     End If
  101.     Select Case XYZ
  102.         Case 0
  103.             PutWinINI = FALSE
  104.         Case Else
  105.             PutWinINI = TRUE
  106.     End Select
  107. End Function
  108.  
  109. Sub LeftLabel (Label$, Frm As Form, Ctrl As Control)
  110.    Y = Ctrl.Top + ((Ctrl.Height - Frm.TextHeight(Label$)) / 2)
  111.    X = Ctrl.Left - (Frm.TextWidth(Label$) + 45)
  112.    C& = Frm.ForeColor
  113.    Frm.ForeColor = WHITE
  114.    Frm.CurrentY = Y + 15
  115.    Frm.CurrentX = X + 15
  116.    Frm.Print Label$;
  117.    Frm.ForeColor = C&
  118.    Frm.CurrentY = Y' + 15
  119.    Frm.CurrentX = X' + 15
  120.    Frm.Print Label$;
  121. End Sub
  122.  
  123.