home *** CD-ROM | disk | FTP | other *** search
/ Software Recommendations - 1998 Season 1 / DNBCD4.iso / develop / lib / addzip / ADDZIP.ZIP / VB / QUICKZIP / COLOUR.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-08-15  |  7.8 KB  |  224 lines
  1. '*************************************************************************************************
  2. '
  3. '     Author: Charles Williams CIS:100334,677
  4. '
  5. '     Created: 20/01/96
  6. '
  7. '     Revised:
  8. '
  9. '     Description of Module: COLOUR.BAS will convert all the controls on your
  10. '     Form to the current Windows colour scheme. To use it, simply make the
  11. '     following call from the Form_Load procedure: Form_Colour Me
  12. '
  13. '     Syntax: Form_Colour Form-name
  14. '
  15. '*************************************************************************************************
  16.  
  17. Declare Function GetSysColor Lib "User" (ByVal nIndex%) As Long
  18.  
  19. Global Const COLOR_ACTIVEBORDER = 10        'Active window border.
  20. Global Const COLOR_ACTIVECAPTION = 2        'Active window title.
  21. Global Const COLOR_APPWORKSPACE = 12        'Background color of multiple document interface (MDI) applications.
  22. Global Const COLOR_BACKGROUND = 1           'Desktop.
  23. Global Const COLOR_BTNFACE = 15             'Face shading on push buttons.
  24. Global Const COLOR_BTNHIGHLIGHT = 20        'Selected button in a control.
  25. Global Const COLOR_BTNSHADOW = 16           'Edge shading on push buttons.
  26. Global Const COLOR_BTNTEXT = 18             'Text on push buttons.
  27. Global Const COLOR_CAPTIONTEXT = 9          'Text in title bar, size button, scroll-bar arrow button.
  28. Global Const COLOR_GRAYTEXT = 17            'Grayed (dimmed) text. This color is zero if the current display driver does not support a solid gray color.
  29. Global Const COLOR_HIGHLIGHT = 13           'Background of selected item in a control.
  30. Global Const COLOR_HIGHLIGHTTEXT = 14       'Text of selected item in a control.
  31. Global Const COLOR_INACTIVEBORDER = 11      'Inactive window border.
  32. Global Const COLOR_INACTIVECAPTION = 3      'Inactive window title.
  33. Global Const COLOR_INACTIVECAPTIONTEXT = 19 'Color of text in an inactive title.
  34. Global Const COLOR_MENU = 4                 'Menu background.
  35. Global Const COLOR_MENUTEXT = 7             'Text in menus.
  36. Global Const COLOR_SCROLLBAR = 0            'Scroll-bar gray area.
  37. Global Const COLOR_WINDOW = 5               'Window background.
  38. Global Const COLOR_WINDOWFRAME = 6          'Window frame.
  39. Global Const COLOR_WINDOWTEXT = 8           'Text in windows.
  40.  
  41. Sub Colour_CheckBox (Ctrl As Control)
  42.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  43.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  44. End Sub
  45.  
  46. Sub Colour_ComboBox (Ctrl As Control)
  47.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  48.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  49. End Sub
  50.  
  51. Sub Colour_CommandButton (Ctrl As Control)
  52.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  53. End Sub
  54.  
  55. Sub Colour_Control (Ctrl As Control)
  56.     If TypeOf Ctrl Is CheckBox Then
  57.         Colour_CheckBox Ctrl
  58.     ElseIf TypeOf Ctrl Is ComboBox Then
  59.         Colour_ComboBox Ctrl
  60.     ElseIf TypeOf Ctrl Is CommandButton Then
  61.         Colour_CommandButton Ctrl
  62.     ElseIf TypeOf Ctrl Is Data Then
  63.         Colour_Data Ctrl
  64.     ElseIf TypeOf Ctrl Is DirListBox Then
  65.         Colour_DirListBox Ctrl
  66.     ElseIf TypeOf Ctrl Is DriveListBox Then
  67.         Colour_DriveListBox Ctrl
  68.     ElseIf TypeOf Ctrl Is FileListBox Then
  69.         Colour_FileListBox Ctrl
  70.     ElseIf TypeOf Ctrl Is Frame Then
  71.         Colour_Frame Ctrl
  72.     ElseIf TypeOf Ctrl Is Label Then
  73.         Colour_Label Ctrl
  74.     ElseIf TypeOf Ctrl Is Line Then
  75.         Colour_Line Ctrl
  76.     ElseIf TypeOf Ctrl Is ListBox Then
  77.         Colour_ListBox Ctrl
  78.     ElseIf TypeOf Ctrl Is OptionButton Then
  79.         Colour_OptionButton Ctrl
  80.     ElseIf TypeOf Ctrl Is PictureBox Then
  81.         Colour_PictureBox Ctrl
  82.     ElseIf TypeOf Ctrl Is Shape Then
  83.         Colour_Shape Ctrl
  84.     'ElseIf TypeOf Ctrl Is SSCheck Then
  85.         'Colour_SSCheck Ctrl
  86.     'ElseIf TypeOf Ctrl Is SSCommand Then
  87.         'Colour_SSCommand Ctrl
  88.     'ElseIf TypeOf Ctrl Is SSFrame Then
  89.         'Colour_SSFrame Ctrl
  90.     'ElseIf TypeOf Ctrl Is SSRibbon Then
  91.         'Colour_SSRibbon Ctrl
  92.     'ElseIf TypeOf Ctrl Is SSOption Then
  93.         'Colour_SSOption Ctrl
  94.     'ElseIf TypeOf Ctrl Is SSPanel Then
  95.         'Colour_SSPanel Ctrl
  96.     ElseIf TypeOf Ctrl Is TextBox Then
  97.         Colour_TextBox Ctrl
  98.     'ElseIf Add more controls in the list if needed...
  99.     End If
  100.     'Colour Form...
  101.     If TypeOf Ctrl.Parent Is Form Then
  102.         Colour_Form Ctrl.Parent
  103.     End If
  104. End Sub
  105.  
  106. Sub Colour_Data (Ctrl As Control)
  107.     Ctrl.ForeColor = GetSysColor(COLOR_CAPTIONTEXT)
  108.     Ctrl.BackColor = GetSysColor(COLOR_ACTIVECAPTION)
  109. End Sub
  110.  
  111. Sub Colour_DirListBox (Ctrl As Control)
  112.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  113.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  114. End Sub
  115.  
  116. Sub Colour_DriveListBox (Ctrl As Control)
  117.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  118.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  119. End Sub
  120.  
  121. Sub Colour_FileListBox (Ctrl As Control)
  122.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  123.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  124. End Sub
  125.  
  126. Sub Colour_Form (Ctrl As Form)
  127.     Ctrl.FillColor = GetSysColor(COLOR_CAPTIONTEXT)
  128. '    Ctrl.ForeColor = getsyscolor(COLOR_WINDOWTEXT)
  129. '    Ctrl.BackColor = getsyscolor(COLOR_WINDOW)
  130.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  131.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  132. End Sub
  133.  
  134. Sub Colour_Frame (Ctrl As Control)
  135.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  136.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  137. End Sub
  138.  
  139. Sub Colour_Label (Ctrl As Control)
  140. '    Ctrl.ForeColor = getsyscolor(COLOR_WINDOWTEXT)
  141. '    Ctrl.BackColor = getsyscolor(COLOR_WINDOW)
  142.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  143.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  144. End Sub
  145.  
  146. Sub Colour_Line (Ctrl As Control)
  147. '    Alter this for your own needs...
  148. '    Ctrl.BorderColor = GetSysColor(COLOR_ACTIVEBORDER)
  149. End Sub
  150.  
  151. Sub Colour_ListBox (Ctrl As Control)
  152.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  153.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  154. End Sub
  155.  
  156. Sub Colour_OptionButton (Ctrl As Control)
  157.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  158.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  159. End Sub
  160.  
  161. Sub Colour_PictureBox (Ctrl As Control)
  162.     Ctrl.FillColor = GetSysColor(COLOR_CAPTIONTEXT)
  163. '    Ctrl.ForeColor = getsyscolor(COLOR_WINDOWTEXT)
  164. '    Ctrl.BackColor = getsyscolor(COLOR_WINDOW)
  165.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  166.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  167. End Sub
  168.  
  169. Sub Colour_Shape (Ctrl As Control)
  170.     Ctrl.FillColor = GetSysColor(COLOR_CAPTIONTEXT)
  171.     Ctrl.BorderColor = GetSysColor(COLOR_BTNSHADOW)
  172.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  173. End Sub
  174.  
  175. Sub Colour_SSCheck (Ctrl As Control)
  176.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  177. End Sub
  178.  
  179. Sub Colour_SSCommand (Ctrl As Control)
  180.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  181. End Sub
  182.  
  183. Sub Colour_SSFrame (Ctrl As Control)
  184.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  185.     If GetSysColor(COLOR_BTNSHADOW) = &H808080 Then
  186.         'Ctrl.ShadowColor = 0 'Dark Grey
  187.     Else
  188.         'Ctrl.ShadowColor = 1 'Black
  189.     End If
  190. End Sub
  191.  
  192. Sub Colour_SSOption (Ctrl As Control)
  193.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  194. End Sub
  195.  
  196. Sub Colour_SSPanel (Ctrl As Control)
  197.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  198.     'Ctrl.FloodColor = GetSysColor(COLOR_ACTIVECAPTION)
  199.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  200.     If GetSysColor(COLOR_BTNSHADOW) = &H808080 Then
  201.         'Ctrl.ShadowColor = 0 'Dark Grey
  202.     Else
  203.         'Ctrl.ShadowColor = 1 'Black
  204.     End If
  205. End Sub
  206.  
  207. Sub Colour_SSRibbon (Ctrl As Control)
  208.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  209. End Sub
  210.  
  211. Sub Colour_TextBox (Ctrl As Control)
  212. '    Ctrl.ForeColor = getsyscolor(COLOR_WINDOWTEXT)
  213. '    Ctrl.BackColor = getsyscolor(COLOR_WINDOW)
  214.     Ctrl.ForeColor = GetSysColor(COLOR_BTNTEXT)
  215.     Ctrl.BackColor = GetSysColor(COLOR_BTNFACE)
  216. End Sub
  217.  
  218. Sub Form_Colour (Frm As Form)
  219.     For i = 0 To (Frm.Controls.Count - 1)
  220.         Colour_Control Frm.Controls(i)
  221.     Next
  222. End Sub
  223.  
  224.