Programming Tool Box/SIMS_2.iso/code/system/callback/frmmain.frm

Visual Basic Form | 1995-02-27 | 9.8 KB | 304 lines

VERSION 2.00
Begin Form frmMain
   BackColor       =   &H00C0C0C0&
   Caption         =   "Main"
   ClientHeight    =   4980
   ClientLeft      =   612
   ClientTop       =   360
   ClientWidth     =   7728
   Height          =   5400
   Left            =   564
   LinkTopic       =   "Form1"
   ScaleHeight     =   4980
   ScaleWidth      =   7728
   Top             =   -12
   Width           =   7824
   Begin SSCommand cmdEnde
      Caption         =   "Ende"
      Height          =   312
      Left            =   6540
      TabIndex        =   21
      Top             =   4620
      Width           =   1092
   End
   Begin Frame fraComment
      BackColor       =   &H00C0C0C0&
      Height          =   1872
      Left            =   60
      TabIndex        =   17
      Top             =   2700
      Width           =   7632
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "(c) 1995, Bruno Jennrich CIS: 100277, 3274"
         Height          =   192
         Left            =   60
         TabIndex        =   20
         Top             =   1560
         Width           =   4632
      End
      Begin Label lblComment
         Alignment       =   2  'Center
         BackColor       =   &H00404040&
         Caption         =   "Kommentar:"
         ForeColor       =   &H00FFFFFF&
         Height          =   252
         Left            =   0
         TabIndex        =   19
         Top             =   60
         Width           =   7632
      End
      Begin Label lblCommentText
         BackColor       =   &H00C0C0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "Dieses Demo-Programm zeigt einige der F
higkeiten des Callback-Controls. Die QuickTips, die f
r die Steuerelemente dieses Formulars erscheinen wurden z.B. durch Abfangen der Maus- und Tastatturnachrichten mit Hilfe von Hooks realisiert. F
r die anderen Callback-Arten stehen Ihnen die Formular im Source-Code zur Verf
gung. "
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.6
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1212
         Left            =   60
         TabIndex        =   18
         Top             =   300
         Width           =   7512
      End
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      ForeColor       =   &H00000000&
      Height          =   852
      Left            =   3900
      TabIndex        =   13
      Top             =   120
      Width           =   3792
      Begin CommandButton cmdNotifyRegister
         BackColor       =   &H00C0C0C0&
         Caption         =   "NotifyRegister"
         Height          =   375
         Left            =   960
         TabIndex        =   14
         Top             =   360
         Width           =   2055
      End
      Begin Label Label1
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   "Notification:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   15
         Top             =   0
         Width           =   3795
      End
   End
   Begin Frame fraGDI
      BackColor       =   &H00C0C0C0&
      ForeColor       =   &H00000000&
      Height          =   792
      Left            =   3900
      TabIndex        =   8
      Top             =   1020
      Width           =   3792
      Begin CommandButton cmdGrayString
         BackColor       =   &H00C0C0C0&
         Caption         =   "GrayString"
         Height          =   375
         Left            =   1980
         TabIndex        =   11
         Top             =   300
         Width           =   1455
      End
      Begin CommandButton cmdLineDDA
         BackColor       =   &H00C0C0C0&
         Caption         =   "LineDDA"
         Height          =   375
         Left            =   360
         TabIndex        =   10
         Top             =   300
         Width           =   1455
      End
      Begin Label lblGDI
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   "GDI-Callbacks:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   9
         Top             =   0
         Width           =   3795
      End
   End
   Begin Frame fraSubclass
      BackColor       =   &H00C0C0C0&
      ForeColor       =   &H00000000&
      Height          =   1272
      Left            =   60
      TabIndex        =   4
      Top             =   1380
      Width           =   3792
      Begin CommandButton cmdWordBreak
         BackColor       =   &H00C0C0C0&
         Caption         =   "WordBreakProc"
         Height          =   375
         Left            =   960
         TabIndex        =   16
         Top             =   780
         Width           =   2055
      End
      Begin CommandButton cmdSubclassWnd
         BackColor       =   &H00C0C0C0&
         Caption         =   "WM_MENUSELECT"
         Height          =   375
         Left            =   960
         TabIndex        =   7
         Top             =   360
         Width           =   2055
      End
      Begin Label lblSubclassing
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   "Subclassing:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   6
         Top             =   0
         Width           =   3795
      End
   End
   Begin Frame fraEnums
      BackColor       =   &H00C0C0C0&
      Height          =   1215
      Left            =   60
      TabIndex        =   0
      Top             =   120
      Width           =   3795
      Begin CommandButton cmdEnumObjects
         BackColor       =   &H00C0C0C0&
         Caption         =   "EnumObjects"
         Height          =   375
         Left            =   1920
         TabIndex        =   5
         Top             =   720
         Width           =   1695
      End
      Begin CommandButton cmdEnumMetaFile
         BackColor       =   &H00C0C0C0&
         Caption         =   "EnumMetaFile"
         Height          =   375
         Left            =   1920
         TabIndex        =   12
         Top             =   315
         Width           =   1725
      End
      Begin CommandButton cmdEnumFonts
         BackColor       =   &H00C0C0C0&
         Caption         =   "EnumFonts"
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   300
         Width           =   1695
      End
      Begin CommandButton cmdEnumWindows
         BackColor       =   &H00C0C0C0&
         Caption         =   "EnumWindows"
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   720
         Width           =   1710
      End
      Begin Label lblEnumerators
         Alignment       =   2  'Center
         BackColor       =   &H00000000&
         Caption         =   "Enumerators:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   0
         TabIndex        =   3
         Top             =   0
         Width           =   3795
      End
   End
Option Explicit
Dim ActWindow%
Dim ControlRect As Rect
Sub cmdEnde_Click ()
  End
End Sub
Sub cmdEnumFonts_Click ()
  frmEnumfonts.Show
End Sub
Sub cmdEnumFonts_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "Alle Zeichens
tze aufz
hlen", cmdEnumFonts
End Sub
Sub cmdEnumMetaFile_Click ()
  frmEnumMetaFile.Show 1
End Sub
Sub cmdEnumMetaFile_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
SetQuickTip "Metafile Kommandos aufz
hlen", cmdEnumMetaFile
End Sub
Sub cmdEnumObjects_Click ()
  frmEnumObjects.Show 1
End Sub
Sub cmdEnumObjects_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "Alle grafischen Objekte aufz
hlen", cmdEnumObjects
End Sub
Sub cmdEnumWindows_Click ()
  frmEnumWindows.Show
End Sub
Sub cmdEnumWindows_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "Alle Fenster aufz
hlen", cmdEnumWindows
End Sub
Sub cmdGrayString_Click ()
  frmGrayString.Show 1
End Sub
Sub cmdGrayString_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "Geisterschrift f
r Bitmaps", cmdGrayString
End Sub
Sub cmdLineDDA_Click ()
  frmLineDDA.Show 1
End Sub
Sub cmdLineDDA_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "benutzerdefinierte Linien", cmdLineDDA
End Sub
Sub cmdNotifyRegister_Click ()
  frmNotify.Show 1
End Sub
Sub cmdNotifyRegister_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "Segment Benachrichtigungen", cmdNotifyRegister
End Sub
Sub cmdSubclassWnd_Click ()
  frmSubclassWnd.Show
End Sub
Sub cmdSubclassWnd_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "F
ngt Menu-Select Nachrichten durch Subclassing ab", cmdSubclassWnd
End Sub
Sub cmdWordBreak_Click ()
  frmWordBreak.Show 1
End Sub
Sub cmdWordBreak_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  SetQuickTip "Wortumbruch f
r Eingabefelder", cmdWordBreak
End Sub
Sub Form_Load ()
  ActWindow = 0
  frmQuickHelp.Visible = False 'QuickTip laden
End Sub