home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / callback / linedda.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  2.8 KB  |  90 lines
  1. VERSION 2.00
  2. Begin Form frmLineDDA 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "LineDDA"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1425
  8.    ClientWidth     =   5055
  9.    Height          =   4425
  10.    Left            =   960
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   5055
  14.    Top             =   1080
  15.    Width           =   5175
  16.    Begin PictureBox Picture2 
  17.       Align           =   1  'Align Top
  18.       BackColor       =   &H00C0C0C0&
  19.       BorderStyle     =   0  'None
  20.       Height          =   3195
  21.       Left            =   0
  22.       ScaleHeight     =   3195
  23.       ScaleWidth      =   5055
  24.       TabIndex        =   2
  25.       Top             =   0
  26.       Width           =   5055
  27.    End
  28.    Begin PictureBox Picture1 
  29.       Align           =   2  'Align Bottom
  30.       BackColor       =   &H00C0C0C0&
  31.       BorderStyle     =   0  'None
  32.       Height          =   555
  33.       Left            =   0
  34.       ScaleHeight     =   555
  35.       ScaleWidth      =   5055
  36.       TabIndex        =   0
  37.       Top             =   3465
  38.       Width           =   5055
  39.       Begin Label Label1 
  40.          BackStyle       =   0  'Transparent
  41.          Caption         =   "Mit LineDDA werden Linien gezeichnet. Die Punkte dieser Linien werden in unterschiedlichen Farben gesetzt. "
  42.          FontBold        =   0   'False
  43.          FontItalic      =   0   'False
  44.          FontName        =   "MS Sans Serif"
  45.          FontSize        =   9.75
  46.          FontStrikethru  =   0   'False
  47.          FontUnderline   =   0   'False
  48.          Height          =   525
  49.          Left            =   15
  50.          TabIndex        =   1
  51.          Top             =   30
  52.          Width           =   7350
  53.       End
  54.       Begin Line Line1 
  55.          BorderColor     =   &H00FFFFFF&
  56.          Index           =   1
  57.          X1              =   0
  58.          X2              =   60030
  59.          Y1              =   15
  60.          Y2              =   15
  61.       End
  62.       Begin Line Line1 
  63.          Index           =   0
  64.          X1              =   0
  65.          X2              =   60030
  66.          Y1              =   0
  67.          Y2              =   0
  68.       End
  69.    End
  70.    Begin CBVBX ctlLineDDA 
  71.       CBType          =   10  ' 10 - LineDDAProc
  72.       Left            =   0
  73.       Top             =   0
  74.    End
  75. Option Explicit
  76. Dim col%
  77. Sub ctlLineDDA_LineDDAProc (x As Integer, y As Integer, lpData As Long)
  78.     Picture2.PSet (x, y), QBColor(col)
  79.     col = (col + 1) Mod 15
  80. End Sub
  81. Sub Form_Resize ()
  82.     Picture2.Height = Picture1.Top
  83. End Sub
  84. Sub Picture2_Paint ()
  85.     LineDDA 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, ctlLineDDA.CBAdress, 0&
  86. End Sub
  87. Sub Picture2_Resize ()
  88.     Picture2.Refresh
  89. End Sub
  90.