Category : Pascal Source Code
Archive : TPW2VB.ZIP
Filename : TPW2VB.HLP
Output of file : TPW2VB.HLP contained in archive : TPW2VB.ZIP
Tpw2VB Help =$ Ä5¬ÅE / & ;) z4 n. Include st ÿÿ ÿÿÿÿ|CTXOMAP ýÓ |FONT QÓ |KWBTREE ~Ô |KWDATA Ô |KWMAP mÔ |SYSTEM |TOMAP Ò |TOPIC u |TTLBTREE Ü NÙåÍØãÀóÀt á8ÉÅv
é~~~ÆFNÆFËÿ^[Y^_ Ý>
à S³öÄu8³öÄu1³¨u+³öÄu$³¨u ³¨u³¨u³ ¨u ³¨ u³¨@u . 0¹¡ u´LÍ![ÿ XÏ£ %<ÿ> t£ Ù. £
á Ã3À: t Ý> $? %ÿ £ Ã% > t Ù>
åó Á£ Ù. ÙüÙ.
Ã
Qåó
å& Uèê]
èg Ã% > t)Ù>
åó Á£ Ù. Û Ù.
¡ Ã
Qåó
å& Uèd]ÂÓè 6 ;6 uèæúî 6
à öÑ. ÍÂå?
ÍöÑ. ÷ÁÿßtÙéþûPU VìÅv ÀNNvÐèÐèÐèöÐ$ &Ä°S» ë ûP¸ ëûP¸ U VìÅvNNv)S3ÛTX;Äu(@%û0=Ù0u@<ðr@%ÿþ=Ûât @=ßàtÆ[^ ]XÏÆBÆpÆäÆÆDÆrÆäÆÆ4ÆbÆäÆÆ2Æ`ÆäÆÆJÆxÆäÆ ÆHÆvÆäÆÆ$ÆRÆäÆ ÆFÆtÆäÆfÉLÉ#Ù ÙFÉ@ÉTÉ^ÉVÈ9É`ÈjÈ9ÉÈ9ÉÈÈÉ/É É«ÈóÈÿÈ ÉÙÏåÔÂÑ0ÔÐ;ÕðÒÔÀØz×9ÉÕÉØzØÐØ÷Õ"Ú ÚÚÚÚÚ Ú9ÉsÞÞ¹ÝåÝ9É9É9É9ÉèÚAßþÛ9ÉÖ×Ø9É9ÉHÙÙÙÙÙoÙÙÙÙÙÙÙÙÙÙ¦ÙÙoÙÙÙ ÊÉÉÉÉÉÉÉÉÉÊÉÉÉÉöÉOˤÉɸɤɤÉÉÂÉÉÉÊɸÉÂÉɸÉÐ̤ÉɸɳɽÉɳÉÉÉÊɤɤÉÉÂÉ@B +Î "Î ÿÿÿÿ ÿÿÿÿ) ) ! ¨ ÿÿÿÿÿÿÿÿContents4 ) 4 & $ ° ÿ Tpw2VB api à 4 à - , $ á& ÿ The Index lists Help topics available for the Tpw2VB. Use the scollbar to see entries not currently visible in the help window. Tpw2VB About . c à c b ¾JP"{} á á á á á á$ á' ÿ Functions Tpw2VB API Functions Messages Tpw2VB API Messages Data Structures Tpw2VB API Data Structures Properties Tpw2VB API Properties Events Tpw2VB API Events Types Tpw2VB Pascal Types Registration Getting rid of the Registration Icon. % c % " $ ÿ ) % ) ! E ÿÿÿÿÿÿÿÿMessages% ) % " $ ÿ = % = & $ ° ÿ Tpw2VB API Messages ª = ª $ $ ÿ TPW2VB.TPU defines a number of messages that originate with Visual Basic. These messages are listed below, according to category: å ª : F ²JP"{} ÿ VBM_CANCELMODE Reset internal state. VBM_CHECKPROPERTY Check property value. VBM_COPY Copy data from Clipboard. VBM_CREATED Creation and loading of a control completed. VBM_DATA_AVAILABLE [3.0] Notification of data available from the data control. VBM_DATA_GET [3.0] Get data from the data control. VBM_DATA_METHOD [3.0] Send request to data control. VBM_DATA_REQUEST [3.0] Notification of data requested from the data control. VBM_DATA_SET [3.0] Send data to the data control. Ô > N ²JP"{} ÿ VBM_DRAGDROP Item dropped on control. VBM_DRAGOVER Item dragged over control. VBM_FIREEVENT Implement delayed event. VBM_GETDEFSIZE [2.0] Get default size. VBM_GETPALETTE [2.0] Request for palette. VBM_GETPROPERTY Get property value. VBM_GETPROPERTYHSZ Get string to display in Properties bar. VBM_HELP Process help request. VBM_HITTEST [2.0] Return mouse hit status. VBM_INITIALIZE HCTL allocated. VBM_INITPROPPOPUP Determine how value ié ´ s set in Properties bar. ã < J ²JP"{} ÿ VBM_ISMNEMONIC [2.0] Mnemonic entered. VBM_LINKENUMFORMATS [2.0] Enumerate DDE data formats. VBM_LINKGETDATA [2.0] Receive DDE data. VBM_LINKGETITEMNAME [2.0] Get DDE item name. VBM_LINKSETDATA [2.0] Send DDE data. VBM_LOADED All controls on form loaded, or control dynamically loaded. VBM_LOADPROPERTY Load property from disk. VBM_LOADTEXTPROPERTY [2.0] Load properties as text. VBM_METHOD One of control s methods used in a statement. VBM_MNEMONIC Respond to access key. á < J ²JP"{} ÿ VBM_PAINT [2.0] Repaint graphical control. VBM_PAINTMULTISEL [2.0] Respond to multiple selection. VBM_PAINTOUTLINE [2.0] Respond to moving. VBM_PALETTECHANGED [2.0] Request to select a palette. VBM_PASTE Paste data into Clipboard. VBM_QPASTEOK Determine if Paste or Paste Link should proceed. VBM_SAVEPROPERTY Save property to disk. VBM_SAVETEXTPROPERTY [2.0] Save properties as text. VBM_SELECTED [2.0] Control selected at design time. VBM_SETPROPERTY Set property value. [ 1 [ * & ¾JP"{} ÿ VBM_WANTSPECIALKEY [2.0] Virtual key entered. % [ % " $ ÿ R , % R & $ ÿ VB Notification messages: VBN_{Message}: % R % " $ ÿ { = % { > N ¾JP"{} ÿ VBN_CHARTOITEM [2.0] WM_CHARTOITEM VBN_COMMAND WM_COMMAND VBN_COMPAREITEM WM_COMPAREITEM VBN_CTLCOLOR WM_CTLCOLOR VBN_DELETEITEM WM_DELETEITEM VBN_DRAWITEM WM_DRAWITEM VBN_HSCROLL WM_HSCROLL VBN_MEASUREITEM WM_MEASUREITEM VBN_PARENTNOTIFY WM_PARENTNOTIFY VBN_VKEYTOITEM [2.0] WM_VKEYTOITEM VBN_VSCROLL WM_VSCROLL % { % " $ ÿ * % * ! »E ÿÿÿÿÿÿÿÿFunctions> * > & $ ÿ Tpw2VB API Functions ú > * $ $ ÿ The TPW2VB.DLL file provides access to a subset of the functions residing in VB.EXE and VBRUN100.DLL. These functions inc# a ù lude many of the same functions used internally to support standard controls. The functions are listed below alphabetically: @ * @ ' $ ÿ Function Description % @ % " $ ÿ R ( % R * & ²JP"{} ÿ VBAllocPic Allocate HPIC structure. R + R R ' $T !s ÿ function VBAllocPic(PntPic: PPIC): HPIC; T * R T * & ²JP"{} ÿ VBAllocPicEx [2.0] Extended VBAllocPic. g @ T g ' $T !s ÿ function VBAllocPicEx(PntPic: PPIC ; usVersion: Word ): HPic; ` 6 g ` * & ²JP"{} ÿ VBArrayBounds [2.0] Returns upper and lower bounds. j C ` j ' $T !s ÿ function VBArrayBounds(VBArray: HAD ; index: Integer ): LongInt; z P j z * & ²JP"{} ÿ VBArrayElement [2.0] Returns a pointer to the value of a Basic array element. ~ W z ~ ' $T !s ÿ function VBArrayElement(VBArray: HAD ; cIndex: Integer ;var lpi: Integer ): Pointer; t J ~ t * & ²JP"{} ÿ VBArrayElemSize [2.0] Returns the size of a single Basic array element. X 1 t X ' $T !s ÿ function VBArrayElemSize(VBArray: HAD ): Word; { Q X { * & ²JP"{} ÿ VBArrayFirstElem [2.0] Returns a ponter to the firdt element of a Basic array. \ 5 { \ ' $T !s ÿ function VBArrayFirstElem(VBArray: HAD ): Pointer; u K \ u * & ²JP"{} ÿ VBArrayIndexCount [2.0] Returns the number of indexes for a Basic array. ] 6 u ] ' $T !s ÿ function VBArrayIndexCount(VBArray: HAD ): Integer; j @ ] j * & ²JP"{} ÿ VBCbSaveFPState [2.0] Saves the current floating-point state. b ; j b ' $T !s ÿ function VBCbSaveFPState(pb: Pointer ; cb: Word ): Word; s I b s * & ²JP"{} ÿ VBClientToScreen [2.0] Converts the given point to screen coordinates. h A s t ' $T !s ÿ procedure VBClientTR Å ù oScreen(Control: HCtl ;var Point: TPoint ); t J t t * & ²JP"{} ÿ VBCoerceVariant [2.0] Cpies the value of a variant to a memory location Y t ' $T !s ÿ function VBCoerceVariant(Variant: PVariant ; vtype: Integer ; lpData: Pointer ): Word; V , V * & ²JP"{} ÿ VBCreateHlstr Allocate language string. b ; V b ' $T !s ÿ function VBCreateHlstr(pb: Pointer; cbLen: Word): HLStr; O % b O * & ²JP"{} ÿ VBCreateHsz Allocate HSZ string. _ 8 O _ ' $T !s ÿ function VBCreateHsz(Control: HCtl; Str: LPStr): HSZ; _ 5 _ _ * & ²JP"{} ÿ VBCreateTempHlstr [2.0] Creates temp Basic string. h A _ h ' $T !s ÿ function VBCreateTempHlstr(pb: Pointer ; cbLen: Word ): HLStr; [ 1 h [ * & ²JP"{} ÿ VBDefControlProc Default message processing. i [ ' $T !s ÿ function VBDefControlProc(Control: HCtl;Wnd: HWnd; Msg: Word; WParam: Word; LParam: LongInt): LongInt; j @ j * & ²JP"{} ÿ VBDerefControl Get pointer to programmer-defined structure. Z 3 j Z ' $T !s ÿ function VBDerefControl(Control: HCtl): LongInt; W - Z W * & ²JP"{} ÿ VBDerefHlstr Get pointer to string data. T - W T ' $T !s ÿ function VBDerefHlstr(HStr: HLStr): LPStr; C T C * & ²JP"{} ÿ VBDerefHlstrLen [2.0] j C C j ' $T !s ÿ function VBDerefHlstrLen(HStr: HLStr ;var pCbLen: Word ): PChar; U + j U * & ²JP"{} ÿ VBDerefHsz Get pointer to string data. R + U R ' $T !s ÿ function VBDerefHsz(HSZStr: HSZ): LPStr; l B R l * & ²JP"{} ÿ VBDerefZeroTermHlstr [2.0] Returns the pointer the string data. ] 6 l ] ' $T !s ÿ function VBDerefZeroTermHlstr(HStr: HLStr ): PChar; U + ] a * & ²JP"{} ÿ VBDet Ñ ù stroyHlstr Remove language string. P ) a P ' $T !s ÿ procedure VBDestroyHlstr(HStr: HLStr); J P J * & ²JP"{} ÿ VBDestroyHsz Remove string. R + J R ' $T !s ÿ function VBDestroyHsz(HSZStr: HSZ): HSZ; [ 1 R [ * & ²JP"{} ÿ VBDialogBoxParam Create a pop-up dialog box. p [ ' $T !s ÿ function VBDialogBoxParam(Instance: THandle; TemplateName: LPStr; DialogFunc: TFARPROC; lp: LongInt):Integer; Z 0 Z * & ²JP"{} ÿ VBDirtyForm [2.0] Indicate property change. O ( Z O ' $T !s ÿ procedure VBDirtyForm(Control: HCtl); S ) O S * & ²JP"{} ÿ VBFireEvent Execute event procedure. u N S u ' $T !s ÿ function VBFireEvent(Control: HCtl; IdEvent: Word; LPParams: Pointer): ERR; Z 0 u Z * & ²JP"{} ÿ VBFormat [2.0] converts a string to a format. j Z ' $T !s ÿ function VBFormat(vtype: Integer ; lpData: Pointer ; lpszFmt: PChar ;pb: Pointer ; cb: Word ): Integer; t J t * & ²JP"{} ÿ VBFreePic Decrement reference count and delete HPIC if count is zero. I " t I ' $T !s ÿ procedure VBFreePic(Pic: HPic); S ) I S * & ²JP"{} ÿ VBGetAppTitle Get application title. [ 4 S [ ' $T !s ÿ procedure VBGetAppTitle(Str: LPStr; cbMax: Word); y O [ y * & ²JP"{} ÿ VBGetCapture [2.0] Retrieves a handle to the control that has mouse capture. F y F ' $T !s ÿ function VBGetCapture: HCtl; w M F w * & ²JP"{} ÿ VBGetClientRect [2.0] copies the dimensions of the client area to a TRect. e > w e ' $T !s ÿ procedure VBGetClientRect(Control: HCtl ;var Rect: TRect ); W - e W * & ²JP"{} ÿ VBGetControl [2.0] Searches for a control. c < W o ' $T !s ÿ function VBGetCr' É' ù ontrol(Control: HCtl ; gc: WORD ): HCtl;); U + o U * & ²JP"{} ÿ VBGetControlHwnd Get handle to window. Y 2 U Y ' $T !s ÿ function VBGetControlHwnd(Control: HCtl): HWnd; U + Y U * & ²JP"{} ÿ VBGetControlModel Get model structure. ] 6 U ] ' $T !s ÿ function VBGetControlModel(Control: HCtl): LPModel; W - ] W * & ²JP"{} ÿ VBGetControlProperty Get property value. z S W z ' $T !s ÿ function VBGetControlProperty(Control: HCtl; IdProp: Word; PData: Pointer): ERR; R ( z R * & ²JP"{} ÿ VBGetControlName Get property name. k D R k ' $T !s ÿ function VBGetControlName(Control: HCtl; lpszName: LPStr): LPStr; v L k v * & ²JP"{} ÿ VBGetControlRect [2.0] Copies dimensions of bounding rect of the control. f ? v f ' $T !s ÿ procedure VBGetControlRect(Control: HCtl ;var Rect: TRect ); s I f s * & ²JP"{} ÿ VBGetDataSourceControl [3.0] Retrieve data control currently bound to. s L s s ' $T !s ÿ function VBGetDataSourceControl(Control: HCTL; blsRegistered: Bool):HCtl; m C s m * & ²JP"{} ÿ VBGetHInstance Get handle to current instance of Visual Basic. K $ m K ' $T !s ÿ function VBGetHInstance: THandle; h > K h * & ²JP"{} ÿ VBGetHlstr [2.0] Copies the string data to the dest buffer. n G h n ' $T !s ÿ function VBGetHlstr(HStr: HLStr ; pb: Pointer ; cbLen: Word ): Word; O % n O * & ²JP"{} ÿ VBGetHlstrLen Get string length. T - O T ' $T !s ÿ function VBGetHlstrLen(HStr: HLStr): Word; V , T V * & ²JP"{} ÿ VBGetHwndControl Get handle to control. U . V U ' $T !s ÿ function VBGetHwndControl(Wnd: HWnd): HCtl; i ? U u * & ²JP"{} ÿ VBGetMode Determio/ Ä/ ù ne whether in design, run, or break mode. C u C ' $T !s ÿ function VBGetMode: Word; Q ' C Q * & ²JP"{} ÿ VBGetPic Dereference picture data. [ 4 Q [ ' $T !s ÿ function VBGetPic(Pic: HPic; PntPic: PPic): HPic; Y / [ Y * & ²JP"{} ÿ VBGetPicEx [2.0] Extended VBGetPic function. q J Y q ' $T !s ÿ function VBGetPicEx(Pic: HPic ; PntPic: PPIC ; usVersion: Word ): HPic; H q H * & ²JP"{} ÿ VBGetRectInContainer [2.0] j C H j ' $T !s ÿ procedure VBGetRectInContainer(Control: HCtl ;var Rect: TRect ); b 8 j b * & ²JP"{} ÿ VBGetVariantType [2.0] Returns the Varaint data type. a : b a ' $T !s ÿ function VBGetVariantType(Variant: PVariant ): Integer; i ? a i * & ²JP"{} ÿ VBGetVariantValue [2.0] Gets the value of the given variant. r K i r ' $T !s ÿ function VBGetVariantValue(Variant: PVariant ; Value: PValue ): Integer; n D r n * & ²JP"{} ÿ VBGetVersion [2.0] Returns the version of the host environment. F n F ' $T !s ÿ function VBGetVersion: Word; s I F s * & ²JP"{} ÿ VBInvalidateRect [2.0] Adds a rectangle to the controls update region. s L s s ' $T !s ÿ procedure VBInvalidateRect(Control: HCtl ;var Rect: TRect ; fEraseBkGnd: g = s g * & ²JP"{} ÿ VBIsControlEnabled [2.0] Determines if control is Enabled. \ 5 g \ ' $T !s ÿ function VBIsControlEnabled(Control: HCtl ): BOOL; g = \ g * & ²JP"{} ÿ VBIsControlVisible [2.0] Determines if control is Visible. \ 5 g \ ' $T !s ÿ function VBIsControlVisible(Control: HCtl ): BOOL; U \ * & ²JP"{} ÿ VBLinkMakeItemName [2.0] Create item name that contains control array information. e > q ' $T !b7 á7 ù s ÿ procedure VBLinkMakeItemName(Control:HCTL; lpszBuf: PChar); c q * & ²JP"{} ÿ VBLinkPostAdvise [2.0] Sends notification to the DDE client that the link data has been changed. Z 3 Z ' $T !s ÿ function VBLinkPostAdvise(Control: HCtl ): Word; l B Z l * & ²JP"{} ÿ VBLockHsz Get pointer to data and prevent string from moving. Q * l Q ' $T !s ÿ function VBLockHsz(HSZStr: HSZ): LPStr; o E Q o * & ²JP"{} ÿ VBMoveControl [2.0] Changes position and dimensions of a control. r K o r ' $T !s ÿ procedure VBMoveControl(Control: HCtl; var Rect: TRect ; fRepaint: BOOL x N r x * & ²JP"{} ÿ VBPaletteChanged [2.0] Notifies Visual Basic that the pallette has changed. U . x U ' $T !s ÿ procedure VBPaletteChanged(Control: HCtl ); A U A * & ²JP"{} ÿ VBPasteLinkOk [2.0] p I A p ' $T !s ÿ function VBPasteLinkOk(var phTriplet: THANDLE ; Control: HCtl ): BOOL; V , p V * & ²JP"{} ÿ VBPicFromCF Get picture from Clipboard. u N V u ' $T !s ÿ function VBPicFromCF(PntHPic: Pointer; HData: THandle; WFormat: Word): ERR; N $ u N * & ²JP"{} ÿ VBReadBasicFile Read data file. n G N n ' $T !s ÿ function VBReadBasicFile(UsFileNo: Word; pb: Pointer; cb: Word):ERR; j @ n j * & ²JP"{} ÿ VBReadFormFile Read property value from disk during a load. r K j r ' $T !s ÿ function VBReadFormFile(FormFile: HFormFile; pb: Pointer; cb: Word):ERR; ~ T r ~ * & ²JP"{} ÿ VBRecreateControlHwnd Destroy and recreate window, to enable new window styles. \ 5 ~ \ ' $T !s ÿ function VBRecreateControlHwnd(Control: HCtl):ERR; R ( \ R * & ²JP"{} ÿ VBRefPic Increment reference count. M & R Y ' $T? ä? ù !s ÿ function VBRefPic(Pic: HPic): HPic; X . Y X * & ²JP"{} ÿ VBRegisterModel Register a control class. p I X p ' $T !s ÿ function VBRegisterModel(HMod: THandle ; var Model: TModel ): Boolean; o E p o * & ²JP"{} ÿ VBRelSeekBasicFile Move position in data file a relative distance. p I o p ' $T !s ÿ function VBRelSeekBasicFile(usFileNo: Word; offset: LongInt): LongInt; ? p ? * & ²JP"{} ÿ VBRelSeekFormFile s L ? s ' $T !s ÿ function VBRelSeekFormFile(FormFile: HFormFile; OffSet: LongInt):LongInt; h > s h * & ²JP"{} ÿ VBResizeHlstr [2.0] Reallocates the size of a given string. f ? h f ' $T !s ÿ function VBResizeHlstr(HStr: HLStr ; newCbLen: Word ): Word; f < f f * & ²JP"{} ÿ VBRestoreFPState [2.0] Restores the floating point state. S , f S ' $T !s ÿ procedure VBRestoreFPState(pb: Pointer ); \ 2 S \ * & ²JP"{} ÿ VBRuntimeError [2.0] Generates a runtime error. O ( \ O ' $T !s ÿ procedure VBRuntimeError(err: Word ); T * O T * & ²JP"{} ÿ VBScreenToClient [2.0] Converts points. g @ T g ' $T !s ÿ procedure VBScreenToClient(Control: HCtl;var Point: TPoint ); ^ 4 g ^ * & ²JP"{} ÿ VBSeekBasicFile [3.0] Move position in data file. m F ^ m ' $T !s ÿ function VBSeekBasicFile(usFileNo: Word; offset: LongInt): LongInt; j @ m j * & ²JP"{} ÿ VBSeekFormFile Moves the current position within a form file. q J j q ' $T !s ÿ function VBSeekFormFile(FormFile: HFormFile; OffSet: LongInt): LongInt; Z 0 q Z * & ²JP"{} ÿ VBSendControlMsg Send message to a control. Y Z ' $T !s ÿ function VBSendControlMsg(Control: HCtl; Msg, WParam: Word; LParam: LongInt): LongInt)G G ù ; u K u * & ²JP"{} ÿ VBSetControlFlags [2.0] Set and return the characteristics of a control. } V u } ' $T !s ÿ function VBSetControlFlags(Control: HCtl; mask: LongInt; value: LongInt ): LongInt; W - } W * & ²JP"{} ÿ VBSetControlProperty Set property value. y R W y ' $T !s ÿ function VBSetControlProperty(Control: HCtl; IdProp: Word; Data: LongInt): Err; ` 6 y ` * & ²JP"{} ÿ VBSetErrorMessage Set text of next error message. b ; ` b ' $T !s ÿ function VBSetErrorMessage(error: ERR; Str: LPStr): ERR; Q ' b Q * & ²JP"{} ÿ VBSetHlstr Assign new string data. m F Q m ' $T !s ÿ function VBSetHlstr(PHStr: Pointer; pb: Pointer; cbLen: Word): ERR; e ; m e * & ²JP"{} ÿ VBSetVariantValue [2.0] Sets a varaint to a given value. [ e ' $T !s ÿ function VBSetVariantValue(Variant: PVariant ; vtype: Integer ; lpData: Pointer ): Word; ] 3 ] * & ²JP"{} ÿ VBSuperControlProc Call parent class directly. [ ] ' $T !s ÿ function VBSuperControlProc(Control: HCtl; Msg, WParam: Word; LParam: LongInt): LongInt; h > h * & ²JP"{} ÿ VBTranslateColor [2.0] Converts a VB color to an RGB color. n G h n ' $T !s ÿ function VBTranslateColor(Control: HCtl ; Color: LongInt ): LongInt; Q ' n Q * & ²JP"{} ÿ VBUnlockHsz Unlock string address. S , Q S ' $T !s ÿ function VBUnlockHsz(HSZStr: HSZ): LPStr; U + S U * & ²JP"{} ÿ VBUpdateControl [2.0] Updates a control. T - U T ' $T !s ÿ procedure VBUpdateControl(Control: HCtl ); S ) T S * & ²JP"{} ÿ VBWriteBasicFile Write to data file. o H S ' $T !s ÿ function VBWriteBasicFile(UsFileNo: Word; pb: Pointer; cb: Word):ERR; XXXXO P ù j @ j * & ²JP"{} ÿ VBWriteFormFile Write property value to disk during a save. s L j s ' $T !s ÿ function VBWriteFormFile(FormFile: HFormFile; pb: Pointer; cb: Word):ERR; Y / s Y * & ²JP"{} ÿ VBXPixelsToTwips Convert X units to twips. ^ 7 Y ^ ' $T !s ÿ function VBYPixelsToTwips(Pixels: Integer): LongInt; Z 0 ^ Z * & ²JP"{} ÿ VBXTwipsToPixels Convert X units to pixels. ` 6 Z ` * & $T !s ÿ function VBXTwipsToPixels(Twips: LongInt):Integer; [ 0 ` [ + ( ²JP"{} ÿ VBYPixelsToTwips Convert Y units to twips. ^ 7 [ ^ ' $T !s ÿ function VBXPixelsToTwips(Pixels: Integer): LongInt; Z 0 ^ Z * & ²JP"{} ÿ VBYTwipsToPixels Convert Y units to pixels. \ 5 Z \ ' $T !s ÿ function VBYTwipsToPixels(Twips: LongInt):Integer; d : \ d * & ²JP"{} ÿ VBZOrder [2.0] Alters the drawing order of the control. b 7 d b + ( $T !s ÿ procedure VBZOrder(Control: HCtl ; zorder: WORD ); % b % " $ ÿ / % / ! Ø ÿÿÿÿÿÿÿÿDataStructures@ / @ & $ ° ÿ Tpw2VB Data Structures i ì @ i } Ì $ á á á á á á á á á á á! á" á# ÿ TMODELRecord MODELFlags TPROPINFORecord PropertyDataTypeFlags PropertyFlags TEVENTINFORecord ArgumentTypeFlags TPICRecord TDATASTRUCTRecord(PropertyArrays) TDRAGINFORecord TVBLinkData TModelInfo TDataAccess +
i + !
ÿÿÿÿÿÿÿÿProperties? + ? & $ ° ÿ Tpw2VB API Properties % ? % " $ ÿ P ( % P ( " $ ÿ Standard property constant Comments . ù P : 5 < ²JP"a£|a ÿ PPROPINFO_STD_ALIGN [2.0] Forces control to align with form. PPROPINFO_STD_BACKCOLOR BackColorW kW V . You must send a WM_CTLCOLOR message to get a brush that contains the background color. PPROPINFO_STD_BORDERSTYLEON BorderStyle: set to True by default. PPROPINFO_STD_BORDERSTYLEOFF BorderStyle: set to False by default. PPROPINFO_STD_CAPTION Caption. Requires that you respond to WM_SETTEXT, WM_GETTEXT, and WM_GETTEXTLENGTH messages. PPROPINFO_STD_CLIPCONTROLS [2.0] Sets or clears the windows child flag. Ó : 4 : ²JP"a£|a ÿ PPROPINFO_STD_CTLNAME CtlName. This property is required, and should be placed first in the list.. PPROPINFO_STD_DATACHANGED [3.0] Indicates the data in the bound control has changed by something other than getting the current record . PPROPINFO_STD_DATAFIELD [3.0] Allows the control to bind to a database field. PPROPINFO_STD_DATACHANGED [3.0] Allows the control to bind to a specific data control. PPROPINFO_STD_DRAGICON DragIcon PPROPINFO_STD_DRAGMODE DragMode ` ( ` 8 B ²JP"a£|a ÿ PPROPINFO_STD_ENABLED Enabled PPROPINFO_STD_FONTNAME FontName. Requires that you respond to WM_SETFONT and WM_GETFONT messages. Responding to these messages provides the support necessary for all the font properties. All font properties are saved and loaded together with FontName. PPROPINFO_STD_FONTBOLD FontBold PPROPINFO_STD_FONTITALIC FontItalic PPROPINFO_STD_FONTSIZE FontSize PPROPINFO_STD_FONTSTRIKE FontStrike PPROPINFO_STD_FONTUNDER FontUnder PPROPINFO_STD_FORECOLOR ForeColor. You must also send a WM_CTLCOLOR message to use this property. W ` c 8 B ²JP"a£|a ÿ PPROPINFO_STD_HEIGHT Height PPROPINFO_STD_HELPCONTEXTID [2.0] User defind help context id. PPROPINFO_STD_HWND The controls runtime window handle. PPROPINFO_STD_IMEMODE [2.0] See VB control Ref. PPROPINFO_STD_INDEX Index. This property is required, and should be placed second in the list. PPROPINFO_STD_LAST [2.0] Indicates the max value of a standard property. PPROPINFO_STD_LEFT Left. Top, Width, and Height are all saved and loaded together¬[ ^ V with Left. PPROPINFO_STD_LEFTNORUN [2.0] Use this prop instead of left for an invisible control. P c P < J ²JP"a£|a ÿ PPROPINFO_STD_LINKITEM [2.0] DDE property. PPROPINFO_STD_LINKMODE [2.0] DDE property. PPROPINFO_STD_LINKTIMEOUT [2.0] DDE property. PPROPINFO_STD_LINKTOPIC [2.0] DDE property. PPROPINFO_STD_MOUSEPOINTER Mousepointer. PPROPINFO_STD_NAME [2.0] Replaces CTLNAME. PPROPINFO_STD_NONE [2.0] Place holder for removed properties. PPROPINFO_STD_PARENT Parent PPROPINFO_STD_TABINDEX TabIndex. Should be supported if fFocusOk or fMnemonic flag is set. PPROPINFO_STD_TABSTOP TabStop. Should be supported if fFocusOk or fMnemonic flag is set. M P M 5 < ÂJP"a£|a ÿ PPROPINFO_STD_TAG Tag PPROPINFO_STD_TEXT Text. This property is the same as Caption, except for the property name. PPROPINFO_STD_TOP Top PPROPINFO_STD_TOPNORUN [2.0] Use this prop instead of top for an invisible control. PPROPINFO_STD_WIDTH Width PPROPINFO_STD_VISIBLE Visible ' M ' ! ÿÿÿÿÿÿÿÿEvents7 ' 7 & $ ° ÿ Tpw2VB Events % 7 % " $ ÿ O & % O ) $ $ ÿ Standard event constant Comments & õ O & 1 4 ²JP"a£|a ÿ PEVENTINFO_STD_CLICK Click. Fired when the control has captured the mouse, a WM_LBUTTONUP message is received, and the button is released over the control. This event is fired after the standard MouseDown and MouseUp events. PEVENTINFO_STD_DBLCLICK DblClick. Similar to Click, but fired when a WM_LBUTTONDBLCLK message is received. PEVENTINFO_STD_DRAGDROP DragDrop. Fired after a VBM_DRAGDROP message is received. PEVENTINFO_STD_DRAGOVER DragOver. Fired after a VBM_DRAGOVER message is received. > & J 0 2 ²JP"a£|a ÿ PEVENTINFO_STD_GOTFOCUS GotFous. After receiving a WM_GOTFOCUS message, the default message processor posts a VBM_FIREEVENT message. This is a mechanism that results in delayed firing of the event, whichÞd g d is processed after other pending messages are. PEVENTINFO_STD_KEYDOWN KeyDown. Fired when either a WM_KEYDOWN or a WM_SYSKEYDOWN message is received. PEVENTINFO_STD_KEYPRESS KeyPress. Fired when a WM_CHAR message is received. PEVENTINFO_STD_KEYUP KeyUp. Fired when either a WM_KEYUP or a WM_SYSKEYUP message is received W ! J W 6 > ²JP"a£|a ÿ PEVENTINFO_STD_LAST [2.0] Place holder for the last standard event. PEVENTINFO_STD_LINKCLOSE [2.0] DDE Event. PEVENTINFO_STD_LINKERROR [2.0] DDE Event. PEVENTINFO_STD_LINKNOTIFY [2.0] DDE Event. PEVENTINFO_STD_LINKOPEN [2.0] DDE Event. PEVENTINFO_STD_LOSTFOCUS LostFocus. Fire when a WM_LOSTFOCUS message is received. The same delayed-processing mechanism is used as for GotFocus. PEVENTINFO_STD_MOUSEDOWN MouseDown. Fired if any BUTTONDOWN (right, left, or middle button) message is received. The mouse is captured as a result of this event. g 8 W g / 0 ÂJP"a£|a ÿ PEVENTINFO_STD_MOUSEMOVE MouseMove. Fired when a WM_MOUSEMOVE message is received. PEVENTINFO_STD_MOUSEUP MouseDown. Fired if any BUTTONDOWN (right, left, or middle button) message is received. The mouse capture is released as a result of this event. PEVENTINFO_STD_NONE [2.0] Place holder for removed event. - g - ! x ÿÿÿÿÿÿÿÿTMODELRecord7 - 7 & $ ° ÿ TMODEL Record % 7 % " $ ÿ ² % T z $ ÿ type LPMODEL = ^TMODEL; TModel=Record usVersion: Word; {VB version used by control} fl: LongInt; { Bitfield structure} ctlproc: TFARPROC; {the control proc.} fsClassStyle: Word; { window class style} flWndStyle: LongInt; {default window style} cbCtlExtra: Word; { # bytes alloc'd for HCTL structure} idBmpPalette: Word; { BITMAP id for tool palette} DefCtlName: NPnt; {PSTR; { default control name prefix} Á $ W $ ÿ ClassName: m o m NPnt; {PSTR; { Visual Basic class name} ParentClassName: NPnt; { Parent window class if subclassed} proplist: NPPROPLIST; { Property list} eventlist: NPEVENTLIST; { Event list} nDefProp: Byte; { index of default property} nDefEvent: Byte; { index of default event} nValueProp: Byte; { Index of control value property} usCtlVersion: Word; { Identifies the current version of the custom control. The values i $ 7 @ $ ÿ 1 and 2 are reserved for custom controls created with VB 1.0 and VB 2.0.} end; % % " $ ÿ +
% + ! Ò ÿÿÿÿÿÿÿÿMODELFlags5 + 5 & $ ° ÿ MODEL Flags % 5 % " $ ÿ L % % L ' $ ÿ Flag Value Tells Visual Basic To: % L % " $ ÿ ¦ v % ¦ 0 2 ²JP"{} ÿ MODEL_fArrows Send to the control keyboard messages for arrow keys. If this flag is off, arrow keys are used to move between controls. MODEL_fFocusOk Enable the control to get the focus at run time. MODEL_fMnemonic Respond to the control s mnemonic key (access key) by moving the focus to the control and sending a VBM_MNEMONIC message. The control must support the standard Caption property to have a mnemonic key. MODEL_fChildrenOk Enable the Visual Basic developer to draw other controls on top of this control at design time. This lets the control function as a container of other controls, as picture boxes and frames can. î ¦ * 0 2 ²JP"{} ÿ MODEL_fLoadMsg Enable the control to get VBM_CREATED and VBM_LOADED messages. MODEL_fInitMsg Enable the control to get VBM_INITIALIZE messages. MODEL_fDesInteract Enable the control to get right-mouse-button messages at design time: WM_RBUTTONDOWN, WM_RBUTTONDBLCLK, WM_RBUTTONUP.By processing these messages at design time, the control procedure can provide special mechanisms for manipulating the control and its properties. MODEzs v r L_fGraphical [2.0] Indicate control is a graphical control. â * * & ÂJP"{} ÿ MODEL_fInvisAtRun [2.0] Specify that the control is invisible at run time. Visual Basic automatically handles the representation of the control on the form at design time it uses the same icon that appears in the Toolbox. 0 0 ! o ÿÿÿÿÿÿÿÿTPROPINFORecord: 0 : & $ ° ÿ TPROPINFO Record % : % " $ ÿ ¾ % \ $ ÿ type PPROPINFO = NPnt; TPROPINFO = record npszName: NPnt; fl: LongInt; {PF_ flags} offsetData: Byte; { Offset into static structure} infoData: Byte; { 0 or _INFO value for bitfield } dataDefault: LongInt; { 0 or _INFO value for bitfield} npszEnumList: NPnt; { For type == DT_ENUM, this is // a near ptr to a string containing // all the values to be displayed // in the popup enumeration listbox. Æ Æ 7 @ $ ÿ // Each value is an sz, with an // empty sz indicated the end of list. } enumMax: Byte; {Maximum legal value for enum.} end; 6 Æ 6 ! å ÿÿÿÿÿÿÿÿPropertyDataTypeFlagsB 6 B & $ ° ÿ Property Data Type Flags % B % " $ ÿ V / % V ' $ ÿ Flag value Resulting data type of property: % V % " $ ÿ ) ù % 5 0 2 ²JP"{} ÿ DT_HSZ String. The string data should bestored as an HSZ type. If the PF_fSetData flag is set, allocation and freeing of the HSZ string are handled by Visual Basic. DT_SHORT 16-bit signed integer. The data can be packed into a bit field from one to four bits wide. DT_LONG 32-bit signed integer. DT_BOOL Boolean. This is a short integer, though it can be packed into as little as one bit. Visual Basic converts all incoming and outgoing nonzero values are converted to -1 during a set or get operat¸} Ý} Å| ion. a 5 , * ²JP"{} ÿ DT_COLOR A long integer that holds a color value. This value is an RGB value, or (if the most significant bit is set) the lower three bytes contain a system-color number defined in WINDOWS.H. Visual Basic automatically validates numbers input for validity as color values. The value is displayed in the Properties bar using hexadecimal radix. DT_ENUM A short integer holding an enumerated value (0-255). Selection of this data type (as opposed to DT_SHORT) enables the npszEnumList and enumMax fields, described in the previous section. The data can be packed into a bit field from one to four bytes wide. ~ P ~ . . ²JP"{} ÿ DT_REAL Four-byte real. DT_PICTURE Picture structure. The picture should be stored as an HPIC handle. If the PF_fSetData flag is set, Visual Basic allocates HPIC handles as needed. The HPIC handle should be freed in response to WM_DESTROY. DT_XPOS Long integer expressing an X coordinate in twips. The data for a get or set operation is expressed in terms of the container's scale. The data gets converted, if necessary, so that the custom control code uses units expressed in twips, starting at the controls upper-left corner. Similar conversions are performed for the remaining types. ] ~ 0 2 ÂJP"{} ÿ DT_XSIZE Long integer expressing an X size in twips. Origin does not affect size conversions. DT_YPOS Long integer expressing a Y coordinate in twips. DT_YSIZE Long integer expressing a Y size in twips. DT_OBJECT [3.0] Points to an iDispatch interface. Refer to Technical Note 1: Support for DT_OBJECT Properties, TN001.TXT, in the CDK directory. .
. ! ÿÿÿÿÿÿÿÿPropertyFlags8 . 8 & $ ° ÿ Property Flags % 8 % " $ ÿ B % B ' $ ÿ Flag value Description: R # B ^ / 0 ²JP"{} ÿ PF_fGetData Indicates that Visual Basic gets the property value by directly copying data5 w ª from the programmer-defined structure. The offsetData and infoData fields of the PROPINFO table specify exactly where the data is located within the structure. PF_fGetMsg Causes Visual Basic to send a VBM_GETPROPERTY message when the property value is requested. Either this flag or the PF_fGetData flag should be used. PF_fSetCheck Causes Visual Basic to send a VBM_CHECKPROPERTY message before it sets the value of the property. This gives the custom control code a chance to check the validity of the property value. If the control procedure returns a nonzero error code in response to this message, Visual Basic reports an error to the user and will not proceed with setting the property to the new value. Ð ¢ ^ Ð . . ²JP"{} ÿ PF_fSetData Indicates that Visual Basic sets the value of the property by placing data directly in the programmer-defined structure. PF_fSetMsg Causes Visual Basic to send a VBM_SETPROPERTY message when setting of the property is attempted. Either this flag or the PF_fSetData flag should be used, unless the property is read-only. If both are used, then the data is transferred before the message is sent. PF_fSaveData When the form is being saved to a file, Visual Basic saves the property value by getting its value and then writing the data to disk directly. Similiarly, Visual Basic loads the property by reading its value directly from the disk and then setting it. + ý Ð + . . ²JP"{} ÿ PF_fSaveMsg Causes Visual Basic to send a VBM_SAVEPROPERTY message to the control whenever the form is being saved to a file, and a VBM_LOADPROPERTY message when the form is loaded from a file. These messages pass a handle to file location. It is then the responsibility of the control procedure to read or write from disk (using VBReadFormFile and VBWriteFormFile). PF_fNoShow Prevents the property from appearing in the Properties bar. PF_fNoRuntimeW Indicates that the property is read-only at run time. Û + , * ²JP"{} ÿ PF_¥ Ð ª fGetHszMsg Causes Visual Basic to send a VBM_GETPROPERTYHSZ message to the control whenever the property value is to be displayed in the Properties bar. If this flag is not used, then Visual Basic simply gets the property value and displays it in the Settings box. PF_fUpdateOnEdit Causes the property value to be set every time a character is typed in the Settings box of the Properties bar. If this flag is not used, the property is not set until change is committed. ã , * ²JP"{} ÿ PF_fEditable Enables the Visual Basic developer to edit text in the Settings box directly, even if a list box or pop-up window is used. If neither is used, this flag has no effect. PF_fPreHwnd Causes the property to be loaded before the controls window structure is created. A property should be pre-hwnd if it affects a window style. The actual setting of the window style (that is, the style altered by the pre-hwnd property) should be made in response to a WM_NCCREATE message. ò * & ²JP"{} ÿ PF_fDefVal Causes Visual Basic to avoid saving and loading the property to disk when the value is equal to the dataDefault value in the PROPINFO structure. This flag affects only loading and saving, not default values of newly created controls. During saving, the property value is not written to disk if equal to the dataDefault value. Then, during loading, if the property was not saved to disk, it is set to the dataDefault value. (But PF_fNoInitDef, described next, alters loading behavior.) Ñ ¥ Ý , * ²JP"{} ÿ PF_fNoInitDef Prevents Visual Basic from setting the property to the dataDefault value during loading of the control (though you can still initailize the property by responding to messages). If PF_fDefVal is not used, PF_fNoInitDef has no effect. PF_fPropArray Specifies that the property is an array. When this flag is used, you must use a DATASTRUCT structure to implement all getting and setting of the property. Any type supported as a simple (scalaò ª r) property can also be used as the base type of a property array. Important: when this flag is used, the following flags must also be used: PF_fSetMsg, PF_fGetMsg, and PF_fNoShow. The PF_fSaveData flag must not be used. / Ý / , * ²JP"{} ÿ PF_fLoadMsgOnly [2.0] Causes Visual Basic to send VBM_LOADPROPERTY messages when the form is loaded from a file. These messages pass a handle to file location. It is then the responsibility of the control procedure to read from disk (using the VBReadFormFile function). This property is similar to PF_fSaveMsg, except that a VBM_SAVEPROPERTY messages are not generated. This allows custom controls to be backward compatible by loading properties in previous versions that are no longer supported in newer ones. c / . . ²JP"{} ÿ PF_fLoadDataOnly [2.0] Causes Visual Basic to load the property from a form file, but prevents the property from being written back out to the form file. This property is similar to PF_fSaveData, except that properties are not written out to the form file. This allows custom controls to be compatible with Visual Basic version 1.0. PF_fNoMultiSelect [2.0] Specifies that any given custom property NOT be displayed in the Properties window when that control is part of a selected group. Currently, no properties of type DT_PICTURE are included in a multiple selection. However, if PF_fNoMultiSelect is not present, a future version of Visual Basic may include a given property of type DT_PICTURE in a multiple selection. If you must guarantee that a property is never placed in a multiple selection (even if it is DT_PICTURE), then PF_fNoMultiSelect must be set. U * & ÂJP"{} ÿ PF_fNoRuntimeR [2.0] Indicates that the property is write-only at run time. Any attempt to read the property generates a runtime error. When combined with PF_fNoRuntimeW, it indicates that the property is not available at all at run time (a design-time-only property), and references to it are fla « ª gged as Visual Basic compilation errors. 1 1 ! Í ÿÿÿÿÿÿÿÿTEVENTINFORecord; 1 ; & $ ° ÿ TEVENTINFO Record % ; % " $ ÿ < ÷ % < E \ $ ÿ type TEVENTINFO=record npszName: NPnt; cParms: Word; cwParms: Word; { # words of parameters } npParmTypes: NPnt; { list of parameter types} npszParmProf: NPnt; { event parameter profile string} fl: LongInt; { EF_ flags} end; 2 < 2 ! ÿÿÿÿÿÿÿÿArgumentTypeFlags= 2 = & $ ° ÿ Argument Type Flags % = % " $ ÿ < % < ' $ ÿ Value Description % < % " $ ÿ ø À % ø 8 B ¾JP"{} ÿ ET_I2 16-bit signed integer ET_I4 32-bit signed integer ET_R4 4-byte real ET_R8 8-byte real ET_CY 8-byte currency ET_HLSTR new name for ET_SD ET_SD string ET_FS fixed-length string variable % ø % " $ ÿ +
% + ! õ ÿÿÿÿÿÿÿÿTPICRecord5 + 5 & $ ° ÿ TPIC Record % 5 % " $ ÿ < % U | $ ÿ type TPicData = record case Byte of PICType_BitMap: (BitMap: HBitMap; hpal: HPalette); PICType_MetaFile: (Meta: THandle; xExt, yExt: Integer); PICType_Icon : (Icon: HIcon); end; PPIC = ^TPIC; TPIC = record picType: Byte; picData: TPicData; picReserved: array[0..3]of Byte; end; P - P # $ ÿ The use of each field is described below: O $ P O + ( $ ÿ Data path to field Description % O % " $ ÿ a % * & ¾JP"{} ÿ picType Enumerated type specifying the format of picture. Can be set to any of the following: % % " $ ÿ { G % 4 : ¾JP"{} ÿ PICTYPE_NONE PICTYPE_BITMAP PICTYPE_z§ § ¤ METAFILE PICTYPE_ICON % % " $ ÿ ¿ % ¿ 6 > ÂJP"{} ÿ picData.bmp.hbitmap Handle to a bitmap. picData.bmp.hpal [2.0] Handle to a palette. picData.wmf.hmeta Handle to a metafile. picData.wmf.xExt Width of the area to contain the picture. picData.wmf.yExt Height of the area to contain the picture. picData.icon.hicon Handle to an icon. picData.icon.hcursor Handle to a cursor; can be NULL if you don t wish to specify a drag cursor for the icon. ! ¿ ! ! F ÿÿÿÿÿÿÿÿ% ! % " $ ÿ 2 % 2 ! ø ÿÿÿÿÿÿÿÿTDATASTRUCTRecord< 2 < & $ ° ÿ TDATASTRUCT Record % < % " $ ÿ e % % e @ R $ ÿ type TIndex = record datatype: Word; { Type of nth index (Currently always DT_SHORT)} data: LongInt { Value of nth index} end; type TDataStruct = record data: LongInt; { Data for Get/Set } cindex: Word; {Number of indecies } index : array[0..0]of TIndex end; 0 e 0 ! H ÿÿÿÿÿÿÿÿTDRAGINFORecord: 0 : & $ ° ÿ TDRAGINFO Record % : % " $ ÿ ¹ % ¹ 6 > $ ÿ type TDRAGINFO=record Control: HCTL; pt: TPOINT; state: Word; { Enter, Over, Exit; only used for VBM_DRAGOVER} end; , ¹ , ! ÿÿÿÿÿÿÿÿTVBLinkData< , < & $ ° ÿ TVBLinkData Record c ? < c $ $ ÿ Data xfer structure for VBM_LINKGETDATA or VBM_LINKSETDATA Ê c Ê : F $ ÿ type LPLinkData = ^TVBLinkData; TVBLinkData = record wReserved: Word; cb: LongInt; HData: THandle; dwReserved: LongInt; end; +
Ê + ! 0 ÿÿÿÿÿÿÿÿTModelInfo; + ; & $ ° ÿ TModelInfo Record % ; % " $ ÿ h % ¥ 1 4 $ ÿ type LPModelInfo = ^TModelInf¯ °¯ %¯ o; TModelInfo = record usVersion: Word; lplpmodel: ^LPMODEL; end; , ¥ , ! Î ÿÿÿÿÿÿÿÿTDataAccess< , < & $ ° ÿ TDataAccess Record v < ' $ ÿ DA structure used for conversations with the data control} type LPDataAccess = ^TDataAccess; TDataAccess = record ( × ( Q t $ ÿ usVersion: Word; { VB version of structure filled in when structure is created} sAction: Integer; { on VBM_DATA_GET/SET specifies what to get/set on VBM_DATA_AVAILABLE/REQUEST tells why } hctlData: HCtl; { the data control providing data } hctlBound: HCtl; { the bound control receiving data} hszDataField: HSZ; {the name of the field to get value of } sDataFieldIndex: Integer; { the field index used when FieldName is null} ¡ _ ( ¡ B V $ ÿ usDataType: Word; { the property datatype to convert data to } hlstrBookMark: HLStr; { used when getting multirow data } fs: Word; { Bitfield structure} lData: LongInt; { the data } ulChunkOffset: LongInt; { the offset to start at for GetChunk} ulChunkNumBytes: LongInt; { the number of bytes for GetChunk/SetChunk } end; & ¡ & ! ÿÿÿÿÿÿÿÿTypes6 & 6 & $ ° ÿ Tpw2VB Types + 6 + # $ ÿ type
Å +
H b ÂJP" ~ á% ÿ BOOL= WordBool; Enum= Byte; NPnt = Word; LPnt= Pointer; LPStr = PChar; Hsz= LPHandle; PHSZ = ^HSZ; HLSTR= LPHandle; HCtl= LPHandle; HFormFile= PHandle; ERR= Word; HPIC= Word; Float= Single; %
% ! ÿÿÿÿÿÿÿÿNPnt. % . & $ ° ÿ NPnt ¸ . ¸ % $ ÿ TPW doesn't support a near(16 bit) pointer. You must TypeCast any pointers VB expects as near pointers to NPnt(). example: NPnt(LongPointer); & ¸ J ! } ÿÿÿÿÿÿÿÿAboutXXXXXXXXXXXXXXXXXXXXXXXX· ¸ · + J + # $ ° ÿ About J # + J ' $ ÿ TPW2VB ver 3.0 Opaque Software ù J % $ ÿ Why waste your time trying to learn 'C' just to be able to write VB controls ? Tpw2VB allows programmers to write Visual Basic Custom Controls with Turbo Pascal for Windows. No more writing in cryptic 'C' just to be able to write VB Controls. The Tpw2VB dynamic link library ( TPW2VB.DLL ) provides for all the access to the Visual Basic API using Turbo Pascal for Windows. Writing custom controls for Visual Basic has just been reduced to less then half the time using Turbo Pascal Win and TPW2VB. % % " $ ÿ = % = & $ ÿ Included in TPW2VB: á = 0 2 $ ÿ 1) TPW2VB.TPU The TPW unit that provides access to the dynamic link library and provides the constant and type declarations ( w/ TPW source code ). 2) Documentation The included docs. show the CDK's type and constant declaration in Pascal. Plus the differences using TPW to make custom controls. 3) Sample Controls The sample controls provided with Microsoft's CDK have been translated to TPW to provide the programmer with working examples. 4) Tpw2VB - Dynamic Link Library Õ « Õ * & $ ÿ The included TPW2VB.DLL can be distributed free with any custom controls you write. TPW2VB is only $25. TPW2VB is a suppliment to Microsoft's CDK not a replacement. Although controls could be made with out the CDK, I do not provide a replacement for the CDK documentation. TPW2VB does not use the OWL framework library ( OWL cannot be used in a DLL ). Users should be familiar with event driven programing, pointers, type casting and the Windows API. The above paragraph might have just convinced you not to try TPW2VB,but using Pascal is much easier and faster than 'C'. If your familiar with TPW, TPW2VB is currently the easiest and fastest way to make VB custom controls. \ Õ 4 : ½ ç¿ Â· $ ÿ Opaque Software Brett Liddicoet PO Box 2483 Napa, CA 94558 CIS# 70621,3034 SOFTWARE LICENSE Tpw2VB is not and has never been public domain software, nor is it free software or shareware. A single user license permits a user to use Tpw2VB only on a single computer. Licensed users may use the program on different computers, but may not use the program on more than one computer at the same time. No one may modify or patch the Tpw2VB.DLL dynamic link library file in any way, including but not limited to decompiling, disassembling, or otherwise reverse engineering the program. ë Å ë & $ ÿ Licensed users may distribute only the TPW2VB.DLL with their completed Custom Controls or Applications. No Tpw2VB source code may be copied except for back up purposes. LIMITED WARRANTY EXCEPT AS PROVIDED ABOVE, OPAQUE SOFTWARE DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, WITH RESPECT TO THE PRODUCT. SHOULD THE PROGRAM PROVE DEFECTIVE, THE PURCHASER ASSUMES THE RISK OF PAYING THE ENTIRE COST OF ALL NECESSARY SERVICING, REPAIR, OR CORRECTION AND ANY INCIDENTAL OR CONSEQUENTIAL DAMAGES. IN NO EVENT WILL OPAQUE SOFTWARE BE LIABLE FOR ANY DAMAGES WHATSOEVER (INCLUDING WITHOUT LIMITATION DAMAGES FOR LOSS OF BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION AND THE LIKE) ARISING OUT OF THE USE OR THE INABILITY TO USE THIS PRODUCT EVEN IF OPAQUE SOFTWARE HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. Å ë Ñ ( " $ ÿ Use of this product for any period of time constitutes your acceptance of this agreement and subjects you to its contents. U.S. GOVERNMENT RESTRICTED RIGHTS Use, duplication, or disclosure by the Government is subject to restrictions as set forth in subdivision (b)(3)(ii) of the Rights in Technical Data and Computer Software clause at 252.227-70 nÆ Â· 13. Contractor/manufacturer is Opaque Software - Ñ - ! | ÿÿÿÿÿÿÿÿRegistration6 - 6 & $ ° ÿ Registration Ú 6 . . $ á& ÿ An unregistered copy of Tpw2VB still contains all the necessary calls to Visual Basic and is no way disabled in any form. It may be used only for evaluation prior to registering it. Upon registering Tpw2VB you will be given a code to get rid of the icon at the bottom of the screen. After including your code in your compiled VB Custom Control the Tpw2VB icon will never show its face again, not even after you distibute your control to other users. See also. About d % $ ÿ To get rid of the registration Icon at the bottom of you screen you must first register Tpw2VB. After making a call to VBRegisterModel in the VBINITCC function you must call Tpw2VBRegInfo() to get rid of the Tpw2VB icon at the bottom of the screen. Each time a new Control model is registered just call Tpw2VB again. The function is called as below: p E p + ( $T !s ÿ function Tpw2VBRegInfo(RegUser: PChar; RegNum: LongInt):LongInt; 8 p 8 " $ ÿ Here is an example: à 8 à 3 8 $T !s ÿ function VBINITCC(usVersion: Word; fRunTime: Boolean): Boolean; export; begin VBINITCC := VBRegisterModel(HInstance, modelInfo); Tpw2VBRegInfo('RegName', 12345); end; ! à ! ! F ÿÿÿÿÿÿÿÿ% ! % " $ ÿ ! % ! ! ÿÿÿÿÿÿÿÿ± ¨ ´ ù ´T V d m r Vy Å| ª 6 ¢ ¤
ª Pª H¬ %¯ U° #µ ·¶ · ?È »Í Î ¬ £ l Helv Pø¯ Àu,ÿvÿvTimes New Roman o¯ Symbol P¯ Äé"ÿArial ¦¯ ÄFÀPÿvCourier New ÿÿ F ÿ e \ ´ ù ´T V d m r Vy Å| ª 6 ¢ ¤ Pª H¬ %¯ U° #µ ·¶ · ?È / & ;) i24 ange overlap ÿÿ T ÿÿÿÿAbout T ArgumentTypeFlags 0 Contents DataStructures Events Functions Messages MODELFlags NPnt P Properties PropertyDataTypeFlags $ PropertyFlags ( Registration X TDataAccess H TDATASTRUCTRecord 8 TDRAGINFORecord < TEVENTINFORecord , TModelInfo D TMODELRecord TPICRecord 4 TPROPINFORecord TVBLinkData @ Types L number already defined in topic %d of file %s. Build tag too long. Title string null in topic %d of file %s. Title too long in topic %d of file %s. Title '%s' in topic %d of file %s used previously. Title defined more than once in topic %d of file %s. Using old key-phrase table. Out of memory during text compression. File environment error during text compression. DOS file error during text compression. Error during text compression. Internal error. Internal error. Internal error. Internal error. Internal error. Error R Warning R
%s%d: Ñÿÿ Óÿÿ Õÿÿ Ùÿÿ Ýÿÿ ßÿÿ áÿÿ ãÿÿ åÿÿ çÿÿ éÿÿ ëÿÿ ñÿÿ óÿÿ õÿÿ ÷ÿÿ ùÿÿ ûÿÿ ýÿÿ ÿÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ
ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ ÿÿ !ÿÿ #ÿÿ %ÿÿ 'ÿÿ )ÿÿ +ÿÿ -ÿÿ /ÿÿ Å ÿÿ Ç ÿÿ É ÿÿ Ë ÿÿ Í ÿÿ
ÿÿ
ÿÿ
ÿÿ
ÿÿ
ÿÿ ÿÿ ÿÿ Lz |TTLBTREE z4 |Phrases |Phrases error: Out of memory.
|Phrases
rb {}\' par {}\' }\' ' * - : _ annotation ansi atnid author b bin bkmkend bkmkstart blue box brdrb brdrbar brdrdb brdrdot brdrhair brdrl brdrr brdrs brdrsh brdrt brdrth brsp buptim bxe caps cb cell cf chatn chdate chftn chftnsep chftnsepc chpgn chtime colortbl cols colsx column comment creatim deff defformat deftab dn doccomm dy edmins enddoc endnhere endnotes expnd f facingp fdecor fi field flddirty fldedit fldinst fldlock fldpriv fldrslt fmodern fnil fonttbl footer footerf footerl footerr footery footnote fractwidth froman fs fscr/ & ;) Lz keyword tabl ÿÿ ÿÿÿÿ Contents ´ Messages ù Functions ´T DataStructures V Properties d Events m TMODELRecord r MODELFlags Vy TPROPINFORecord Å| PropertyDataTypeFlags ª PropertyFlags 6 TEVENTINFORecord ¢ ArgumentTypeFlags ¤ TPICRecord Pª TDATASTRUCTRecord H¬ TDRAGINFORecord TVBLinkData %¯ TModelInfo U° TDataAccess #µ Types ·¶ NPnt · About ?È Registration ò¥ÿvÚÿvØÿÿ ¸,Pk ÄÿFôFäFüVþ~Üvæ¹ ò¥ÇFÜ: ÇFÞ¬°ÿvèÿvæÿvÞÿvܱ ÄFæPÿvòÿvðègý Àté*ÿF9Fä|'ì
vÜü¹ ò¥ÿvÚÿvØز ÿFôFäFüVþÀ8&>. t!ÿvþÿvüÿvôÿvÿv¸¦. P¸è/ P® Äÿvòÿv𧳠ÄÿvÚÿvØâN ÄFô^_å]Ê Uìì+ÀFòFðÂ8&9.t¸ì. Pÿvÿv sµ ÄFðVòFð FòuÇFø( ÇFì ~ÿuPÇF ëIFìPFøP¸î. Pÿvòÿvð>´ Ä~ÿuFP¸õ. Pÿvòÿvðÿÿ Ä ÿvòÿv𥵠ÄÇFî ÇFüÿÿßFÜÄ8ÿÿ Fúÿvøÿvìÿvÿvÿv
ÿvèhýFô;F Fú9Fô|éÄ FîÿFî=# |#FþFøFöFìÿvøPÿvÿvÿv
ÿvè*ýé F9FôFü9Fô~FøFþFìFöFôFü~øu~ìuFú9Fô|`F9Fô~Fô+F¹2 ÷ù= }¸ FøFú9Fô}F+Fô¹2 ÷ù= }¸ )FøFø= }¸ FøFì9Fø~é ÿFøFìéÿÂ8&>. tE¸ø. Pÿvÿv ² ÄFðVò Ât(ÿvÿvìÿvø¸ú. PRÿvð³ Äÿvòÿvð³ Äå]Ê Uìì ÇFüÜÇFþü±¸/ Pÿv ÿv
çµ ÄFøVú¸/ PÿvÿvÞ³ ÄFôVöÿvúÿvø¸ PÿvþÿvüÁ° Ä
ÐtHÿvþÿvü*± Ä= wÿvþÿvü¸/ P¸è/ PO¶ Ä ë·FüVþ RPÿvöÿvôµ Äëÿvúÿvøm¶ ÄÿvöÿvôL´ Äå]Ê UììWV+öÄ^&ÿOxÄ^&?&ÿ&G&*äëÿvÿvô¶ ÄFü@ué¸ Fü= t;~é ÀtX= t=
tNëiÄ^&ÿOxÄ^&&W&ÿëÿvÿv· ÄÄ^&ÿOxÄ^&&W&ÿëÿvÿvÿÿ Ä öué\ÿÄ^ &Æ F Vë@ öuéFÿþFÄ^ Fü&F
H;Æ~é/ÿëÑ=
tÅ= uéqÿ= t¸= tÉëÎ öu´+À^_å]Ê
Uìì ¸ / Pÿv ÿv
«· ÄFüVþ¸#/ Pÿvÿvε ÄFøVúFü Fþu+Àé ôþP¸ÿ Pÿvþÿvüè¡þ Ðt`ôþP¸&/ Pÿvúÿvø4¸ Ä ¸*/ PôþP¸ ĸ,/ P+ÀPPà° ÄFôVö Ðt¡ÿvöP¸./ Pÿvúÿvø4¶ Ä ëÌÿvþÿvüR¸ Äÿvúÿvø_¶ ĸ å]Ê Uì~}+ÀëFH÷nNÑá+ÁH]Ê UììVvÄ^
&xÿ uþ~
ÿN^v
&Æ Ì8&>. tÿv ÿv
¸2/ Pÿvÿv ¹ Ä ëV¸ÿ +FP¸ PP¸6/ PFúPÿÿ ÄÇFø ë
vøÆBú0ÿFøvøzú tíÿv ÿv
FúP¸
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/