home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / grafik / backgr / backgrnd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-09-22  |  2.8 KB  |  89 lines
  1. VERSION 2.00
  2. Begin Form frmBackGround 
  3.    BackColor       =   &H00004000&
  4.    ClientHeight    =   2748
  5.    ClientLeft      =   3024
  6.    ClientTop       =   2736
  7.    ClientWidth     =   4368
  8.    Height          =   3168
  9.    Left            =   2976
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   BACKGRND.FRX:0000
  14.    ScaleHeight     =   2748
  15.    ScaleWidth      =   4368
  16.    Top             =   2364
  17.    Width           =   4464
  18. Option Explicit
  19. Dim mblnIncode%
  20. Dim mintColor%
  21. Dim mintStyle%
  22. Dim mintGradiant%
  23. Sub Form_Click ()
  24. On Error Resume Next
  25. frmChooser.optColor(mintColor).Value = True
  26. frmChooser.optStyle(mintStyle).Value = True
  27. frmChooser.txtGradiant = mintGradiant
  28. If mintStyle Mod 2 Then frmChooser.chkInvert.Value = True
  29. frmChooser.Show 1
  30. Screen.MousePointer = 11
  31. If frmChooser.fraColors.Tag = 4 Then
  32.     frmBackGround.Picture = LoadPicture("Custom.bmp")
  33. ElseIf frmChooser.chkPalette = 1 Then
  34.     frmBackGround.Picture = LoadPicture("59All.bmp")
  35.     Select Case frmChooser.fraColors.Tag
  36.         Case 0:
  37.             frmBackGround.Picture = LoadPicture("256Red.bmp")
  38.             glngFrom = RGB(255, 0, 0)
  39.             glngTo = 0
  40.         Case 1:
  41.             frmBackGround.Picture = LoadPicture("256Blue.bmp")
  42.             glngFrom = RGB(0, 0, 255)
  43.             glngTo = 0
  44.         Case 2:
  45.             frmBackGround.Picture = LoadPicture("256Green.bmp")
  46.             glngFrom = RGB(0, 255, 0)
  47.             glngTo = 0
  48.         Case 3:
  49.             frmBackGround.Picture = LoadPicture("256Prpl.bmp")
  50.             glngFrom = RGB(255, 0, 255)
  51.             glngTo = 0
  52.     End Select
  53. End If
  54. 'frmBackGround.Refresh
  55.     mintGradiant = frmChooser.txtGradiant
  56.     mintColor = Val(frmChooser.fraColors.Tag)
  57.     frmChooser.optColor(mintColor).Value = False
  58.     mintStyle = Val(frmChooser.fraStyle.Tag)
  59.     If frmChooser.chkInvert.Value Then
  60.         Call DrawBackGround(Me, "BackGround Style", glngTo, glngFrom, mintStyle, mintGradiant)
  61.     Else
  62.         Call DrawBackGround(Me, "BackGround Style", glngFrom, glngTo, mintStyle, mintGradiant)
  63.     End If
  64. Screen.MousePointer = 0
  65. End Sub
  66. Sub Form_KeyPress (keyascii As Integer)
  67. If keyascii = 27 Then Unload Me
  68. End Sub
  69. Sub Form_Load ()
  70. Dim i%
  71. mblnIncode = True
  72.     mintColor = 0
  73.     mintStyle = 0
  74.     mintGradiant = 64
  75.     Me.Left = 0
  76.     Me.Top = 0
  77.     Me.Width = Screen.Width
  78.     Me.Height = Screen.Height - Screen.TwipsPerPixelY * 100
  79.     glngFrom = RGB(0, 0, 0)
  80.     glngTo = RGB(255, 0, 0)
  81. mblnIncode = False
  82. End Sub
  83. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  84. Unload frmChooser
  85. End Sub
  86. Sub Form_Resize ()
  87. If Not mblnIncode Then Call DrawBackGround(Me, "BackGround Style ", glngFrom, glngTo, mintStyle, mintGradiant)
  88. End Sub
  89.