home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / vbdos / control / register.asm < prev    next >
Assembly Source File  |  1993-01-05  |  13KB  |  276 lines
  1. ; ----------------------------------------------------------------------------
  2. ; REGISTER.ASM: Initialisierungs- und IsHandler-Routinen für
  3. ; benutzerdefinierte Steuerelemente.
  4. ;
  5. ; Initialisierungssegment und IsHandler-Routine wurden vom
  6. ; Schablonengenerator für benutzerdefinierte Steuerelemente 
  7. ; CUSTGEN.EXE erzeugt.
  8. ;
  9. ; CUSTGEN.EXE ist ein Dienstprogramm, das die Erstellung von 
  10. ; benutzerdefinierten Steuerelementen erleichtert. Es ermöglicht 
  11. ; Ihnen, die Ereignisse auszuwählen, auf die Ihr benutzerdefiniertes 
  12. ; Steuerelement reagieren soll, und dann erzeugt es entsprechende 
  13. ; Code-Schablonen und eine Registerroutine für diese Ereignisse.
  14. ;
  15. ; Ändern Sie die Code-Schablonendatei wie erforderlich und 
  16. ; erstellen Sie dann Ihr benutzerdefiniertes Steuerelement wie folgt:
  17. ;    ML -c <RegisterFile>          ; Geht von einem Masm 6.0-Übersetzer aus
  18. ;    BC /o <TemplateFile>;         ; Verwendet den für den Schablonen-
  19. ;                                  ; Quellcode geeigneten Übersetzer.
  20. ;    DEL <TemplateFile.LIB>        ; Löscht evtl. vorhandene Bibliothek.
  21. ;    LIB <TemplateFile.LIB>+<RegisterFile.OBJ>+<TemplateFile.OBJ>
  22. ;    LINK /Q <TemplateFile.LIB>,<TemplateFile.QLB>,,VBDOSQLB.LIB;
  23. ; Sie können mehrere benutzerdefinierte Steuerelemente zu einer 
  24. ; einzelnen Quick-Bibliothek für den Einsatz in der Programmierumgebung 
  25. ; wie folgt kombinieren:
  26. ;    DEL <CombinedLib.LIB>         ; Löscht evtl. vorhandene Bibliothek.
  27. ;    LIB <CombinedLib.LIB>+<Cust1.LIB>+<Cust2.LIB>+<CustN.LIB>
  28. ;    LINK /Q <CombinedLib.LIB>,<CombinedLib.QLB>,,VBDOSQLB.LIB;
  29. ; Um eine Alternate Math-Bibliothek für benutzerdefinierte Steuerelemente
  30. ; (statt der oben angegebenen Emulator Math-Bibliothek für
  31. ; TemplateFile-Prozedur mit der /FPa-Option. Anmerkung: eine Altmath-
  32. ; Bibliothek kann nicht zur Erstellung einer Quick-Bibliothek verwendet 
  33. ;  werden.
  34. ;
  35. ;
  36. ; Copyright (C) 1991-1992 Microsoft Corporation
  37. ; 
  38. ; Sie haben das lizenzgebührfreie Recht, die mit Visual Basic 
  39. ; für MS-DOS gelieferten Beispielanwendungsdateien und 
  40. ; Werkzeugsammlungen (und/oder jede modifizierte Version) auf jede 
  41. ; Art und Weise, die Ihnen sinnvoll erscheint, zu benutzen, zu ändern, 
  42. ; zu vervielfältigen und zu verteilen unter der Bedingung, daß 
  43. ; Sie zustimmen, daß Microsoft keine Garantie, Verpflichtung oder Haftung 
  44. ; für irgendeine der Beispielanwendungsdateien oder Werkzeugsammlungen
  45. ; übernimmt.
  46. ; ----------------------------------------------------------------------------
  47.  
  48.  
  49. ; Speichermodell und Include-Dateien.
  50.  
  51. .MODEL    medium, basic
  52. INCLUDE   CUSTINCL.INC
  53. ; Far extern-Deklarationen für die Ereignisbehandlungsroutinen der 
  54. ; benutzerdefinierten Steuerelemente.
  55.  
  56. EXTRN   Uhr_CClick:FAR
  57. EXTRN   Uhr_CDblClick:FAR
  58. EXTRN   Uhr_CTimer:FAR
  59. EXTRN   Uhr_CLoad:FAR
  60. EXTRN   Uhr_CUnload:FAR
  61.  
  62.  
  63.    PUBLIC BCC$UHR                      ; Öffentliche Deklarationen zum 
  64.    BCC$UHR  EQU 5253H                  ; Einbinden des erforderlichen 
  65.                            ; Codes beim Verknüpfen der EXE-Datei. Muß aus 
  66.                            ; 'BCC$' plus der TypeID-Zeichenfolge bestehen, 
  67.                            ; sonst wird der Code mit dem Programm nicht 
  68.                            ; verknüpft.
  69.  
  70.  
  71. ; Initialisierungssegment für benutzerdefinierte Steuerelemente
  72. ;
  73. ; Beachten Sie: Dieses Segment kann Initialisierungsinformationen für 
  74. ; mehrere benutzerdefinierte Steuerelemente enthalten. Geben Sie 
  75. ; hierzu einfach die erforderlichen Informationen in der richtigen
  76. ; Reihenfolge für jedes benutzerdefinierte Steuerelement an.
  77.  
  78. DGROUP GROUP XECIB, XECI, XECIE
  79.  
  80. XECIB  SEGMENT WORD PUBLIC 'DATA'  ; Beginn des Initialisierungssegments
  81. XECIB  ENDS
  82.  
  83. XECI   SEGMENT WORD PUBLIC 'DATA'
  84.    DW OFFSET UhrType         ; ID-Zeichenfolge für 
  85.                            ; benutzerdefiniertes Steuerelement. Muß
  86.                            ; alphanumerisch sein und mit einem
  87.                            ; alphabetischen Zeichen beginnen. Near-Zeiger
  88.                            ; auf nullterminierte Zeichenfolge in
  89.                            ; Datensegment.
  90.    DW lenUhrType     ; Länge der Zeichenfolge (ausgehende 
  91.                            ; Null nicht eingeschlossen, Max = 25)
  92.    DD UhrIsHandler           ; Far-Zeiger auf IsHandler.
  93.    DW 0                    ; Attribut (0,1) legt fest, ob Steuerelement 
  94.                            ; ein umgebendes Objekt sein kann.
  95.  
  96.    BeginEventMasks         ; Ereignismasken
  97.       MaskItem EVENT_Click
  98.       MaskItem EVENT_Custom
  99.       MaskItem EVENT_DblClick
  100.       MaskItem EVENT_DragDrop
  101.       MaskItem EVENT_DragOver
  102.       MaskItem EVENT_DropDown
  103.       MaskItem EVENT_GotFocus
  104.       MaskItem EVENT_KeyDown
  105.       MaskItem EVENT_KeyPress
  106.       MaskItem EVENT_KeyUp
  107.       MaskItem EVENT_LostFocus
  108.       MaskItem EVENT_MouseDown
  109.       MaskItem EVENT_MouseMove
  110.       MaskItem EVENT_MouseUp
  111.       MaskItem EVENT_Paint
  112.       MaskItem EVENT_PathChange
  113.       MaskItem EVENT_PatternChange
  114.       MaskItem EVENT_Resize
  115.       MaskItem EVENT_Timer
  116.       MaskItem EVENT_Unload
  117.       MaskItem EVENT_Load
  118.    EndEventMasks
  119.    BeginPropertyMasks      ; Eigenschaftsmasken
  120.       MaskItem PROP_Action
  121.       MaskItem PROP_Alignment
  122.       MaskItem PROP_Archive
  123.       MaskItem PROP_AutoRedraw
  124.       MaskItem PROP_Caption
  125.       MaskItem PROP_Checked
  126.       MaskItem PROP_DragMode
  127.       MaskItem PROP_Column
  128.       MaskItem PROP_Drive
  129.       MaskItem PROP_Enabled
  130.       MaskItem PROP_Filename
  131.       MaskItem PROP_Hidden
  132.       MaskItem PROP_LargeChange
  133.       MaskItem PROP_Left
  134.       MaskItem PROP_ListCount
  135.       MaskItem PROP_ListIndex
  136.       MaskItem PROP_Max
  137.       MaskItem PROP_Min
  138.       MaskItem PROP_Mode
  139.       MaskItem PROP_MousePointer
  140.       MaskItem PROP_MultiLine
  141.       MaskItem PROP_Normal
  142.       MaskItem PROP_Path
  143.       MaskItem PROP_Pattern
  144.       MaskItem PROP_ReadOnly
  145.       MaskItem PROP_Row
  146.       MaskItem PROP_ScrollBars
  147.       MaskItem PROP_SelLength
  148.       MaskItem PROP_SelStart
  149.       MaskItem PROP_SelText
  150.       MaskItem PROP_SmallChange
  151.       MaskItem PROP_Sorted
  152.       MaskItem PROP_Style
  153.       MaskItem PROP_System
  154.       MaskItem PROP_TabIndex
  155.       MaskItem PROP_TabStop
  156.       MaskItem PROP_Tag
  157.       MaskItem PROP_Text
  158.       MaskItem PROP_Top
  159.       MaskItem PROP_Value
  160.    EndPropertyMasks
  161. XECI   ENDS
  162.  
  163. XECIE  SEGMENT WORD PUBLIC 'DATA'  ; Ende des Initialisierungssegments.
  164. XECIE  ENDS
  165.  
  166.  
  167. .DATA
  168.  
  169.    UhrType DB    "Uhr",0h        ; TypeID-Zeichenfolge für benutzerdefinierte 
  170.                            ; Steuerelemente. Muß alphanumerisch sein und 
  171.                            ; mit einem alphabetischen Zeichen beginnen.
  172.    lenUhrType = $ - UhrType - 1  ; Länge der Zeichenfolge 
  173.                            ; (ausgehende Null nicht eingeschlossen, 
  174.                            ; Max = 25)
  175.  
  176.  
  177. .CODE   Uhr_TEXT
  178.  
  179.    ; Behandlungsroutinen-Adressentabelle für benutzerdefinierte
  180.    ; Steuerelemente. Zur Verwendung mit einer tabellengesteuerten 
  181.    ; IsHandler-Routine. Die Tabelle enthält die Adresse der
  182.    ; Ereignisbehandlungsroutine für Ereignisse, die durch das 
  183.    ; benutzerdefinierte Steuerelement aufgefangen oder verarbeitet 
  184.    ; werden. Die Tabelle enthält ein Long 0 für Ereignisse, die vom
  185.    ; benutzerdefinierten Steuerelement nicht aufgefangen oder 
  186.    ; verarbeitet, sondern falls zutreffend direkt an den Benutzercode
  187.    ; übergeben werden.
  188.  
  189.    UhrTable LABEL DWORD
  190.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  191.         DD    Uhr_CClick                                    ;Click
  192.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  193.         DD    Uhr_CDblClick                                 ;DblClick
  194.         DD    0                                             ;DragDrop
  195.         DD    0                                             ;DragOver
  196.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  197.         DD    0                                             ;GotFocus
  198.         DD    0                                             ;KeyDown
  199.         DD    0                                             ;KeyPress
  200.         DD    0                                             ;KeyUp
  201.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  202.         DD    0                                             ;LostFocus
  203.         DD    0                                             ;MouseDown
  204.         DD    0                                             ;MouseMove
  205.         DD    0                                             ;MouseUp
  206.         DD    0                                             ;Paint
  207.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  208.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  209.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  210.         DD    Uhr_CTimer                                    ;Timer
  211.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  212.         DD    Uhr_CLoad                                     ;Load
  213.         DD    0                                             ;IntegerGet
  214.         DD    0                                             ;IntegerSet
  215.         DD    0                                             ;LongGet
  216.         DD    0                                             ;LongSet
  217.         DD    0                                             ;StringGet
  218.         DD    0                                             ;StringSet
  219.         DD    Uhr_CUnload                                   ;Unload
  220.         DD    0                                             ;MthAddItem
  221.         DD    0                                             ;MthCls
  222.         DD    0                                             ;MthHide
  223.         DD    0                                             ;MthMove
  224.         DD    0                                             ;MthPrint
  225.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  226.         DD    0                                             ;MthRefresh
  227.         DD    0                                             ;MthRemoveItem
  228.         DD    0                                             ;MthSetFocus
  229.         DD    0                                             ;MthShow
  230.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  231.         DD    0                                             ; Skipped table entry: DO NOT REMOVE
  232.         DD    0                                             ;MthDrag
  233.  
  234.     lenUhrTable = ($ - UhrTable)/4    ; Number of entries in table
  235.  
  236.  
  237.    ; IsHandler-Routine für das benutzerdefinierte Steuerelement. 
  238.    ; Visual Basic ruft diese Routine bei jedem Auftreten eines 
  239.    ; für das benutzerdefinierte Steuerelement bestimmten Ereignisses 
  240.    ; auf. Der Ereignisbezeichner (EventID) des Ereignisses wird 
  241.    ; an die IsHandler-Routine übergeben, welche die Adresse der
  242.    ; Ereignisbehandlungsroutine des benutzerdefinierten Steuerelements 
  243.    ; für das jeweilige Ereignis liefert. Falls das benutzerdefinierte 
  244.    ; Steuerelement nicht in der Lage ist, das Ereignis aufzufangen bzw. 
  245.    ; zu verarbeiten, liefert IsHandler ein Long 0 und das Ereignis wird 
  246.    ; falls zutreffend an den Code des Benutzers übergeben.
  247.    ; 
  248.    ; Diese IsHandler-Routine verwendet eine tabellengesteuerte Technik 
  249.    ; zum Liefern der Adresse einer Ereignisbehandlungsroutine oder 0 
  250.    ; (die Tabellendefinition ist oben angegeben) Es können jedoch auch 
  251.    ; andere Methoden zum hierzu verwendet werden.
  252.  
  253.     PUBLIC   UhrIsHandler
  254.    UhrIsHandler PROC , EventId:WORD
  255.  
  256.       MOV    bx, EventId                ;[bx] = event Id
  257.       CMP    bx, lenUhrTable   ; Ist Wert im zulässigen Bereich?
  258.       JAE    OutOfRange                ;Bricht ab und liefert 0:0
  259.       ADD    bx, bx
  260.       ADD    bx, bx                    ;[bx] = dword-Index
  261.       LES    ax, UhrTable[bx-4]   ;[es:ax] = Adresse der 
  262.                                                ; Behandlungsroutine
  263.       MOV    dx, es                    ;[dx:ax] = Adresse der 
  264.                                        ; Behandlungsroutine / 0
  265.       RET
  266.  
  267. OutOfRange:
  268.       XOR    ax, ax
  269.       CWD
  270.       RET
  271.  
  272.    UhrIsHandler ENDP
  273.  
  274. END
  275.  
  276.