Gupta.narod.ru - примеры программирования на Gupta Team Developer 2005 (GTD, CTD, TOM, Quest, SQLTalk, Report Builder, SQLWindows, SQLBase, Oracle, Web Developer, Team Object Manager)
Return to http://gupta.narod.ru/
.head 0 + Application Description: Centura SQLWindows/32 Standard Application Template
.head 1 - Outline Version - 4.0.27
.head 1 + Design-time Settings
.data VIEWINFO
0000: 6F00000001000000 FFFF01000D004347 5458566965775374 6174650400010000
0020: 0000000000B70000 002C000000020000 0003000000FFFFFF FFFFFFFFFFFCFFFF
0040: FFE9FFFFFFFFFFFF FF000000007C0200 004D010000010000 0000000000010000
0060: 000F4170706C6963 6174696F6E497465 6D0100000012496E 7465726E616C2046
0080: 756E6374696F6E73
.enddata
.head 2 - Outline Window State: Normal
.head 2 + Outline Window Location and Size
.data VIEWINFO
0000: 6600040003002D00 0000000000000000 0000B71E5D0E0500 1D00FFFF4D61696E
0020: 0000000000000000 0000000000000000 0000003B00010000 00000000000000E9
0040: 1E800A00008600FF FF496E7465726E61 6C2046756E637469 6F6E730000000000
0060: 0000000000000000 0000000000003200 0100000000000000 0000E91E800A0000
0080: DF00FFFF56617269 61626C6573000000 0000000000000000 0000000000000000
00A0: 3000010000000000 00000000F51E100D 0000F400FFFF436C 6173736573000000
00C0: 0000000000000000 0000000000000000
.enddata
.data VIEWSIZE
0000: D000
.enddata
.head 3 - Left: -0.013"
.head 3 - Top: 0.0"
.head 3 - Width: 8.013"
.head 3 - Height: 4.969"
.head 2 + Options Box Location
.data VIEWINFO
0000: D4180909B80B1A00
.enddata
.data VIEWSIZE
0000: 0800
.enddata
.head 3 - Visible? No
.head 3 - Left: 4.15"
.head 3 - Top: 1.885"
.head 3 - Width: 3.8"
.head 3 - Height: 2.073"
.head 2 + Class Editor Location
.head 3 - Visible? No
.head 3 - Left: 0.575"
.head 3 - Top: 0.094"
.head 3 - Width: 5.063"
.head 3 - Height: 2.719"
.head 2 + Tool Palette Location
.head 3 - Visible? No
.head 3 - Left: 6.388"
.head 3 - Top: 0.729"
.head 2 - Fully Qualified External References? Yes
.head 2 - Reject Multiple Window Instances? No
.head 2 - Enable Runtime Checks Of External References? Yes
.head 2 - Use Release 4.0 Scope Rules? No
.head 1 - Libraries
.head 1 + Global Declarations
.head 2 + Window Defaults
.head 3 + Tool Bar
.head 4 - Display Style? Etched
.head 4 - Font Name: MS Sans Serif
.head 4 - Font Size: 8
.head 4 - Font Enhancement: System Default
.head 4 - Text Color: System Default
.head 4 - Background Color: System Default
.head 3 + Form Window
.head 4 - Display Style? Etched
.head 4 - Font Name: MS Sans Serif
.head 4 - Font Size: 8
.head 4 - Font Enhancement: System Default
.head 4 - Text Color: System Default
.head 4 - Background Color: System Default
.head 3 + Dialog Box
.head 4 - Display Style? Etched
.head 4 - Font Name: MS Sans Serif
.head 4 - Font Size: 8
.head 4 - Font Enhancement: System Default
.head 4 - Text Color: System Default
.head 4 - Background Color: System Default
.head 3 + Top Level Table Window
.head 4 - Font Name: MS Sans Serif
.head 4 - Font Size: 8
.head 4 - Font Enhancement: System Default
.head 4 - Text Color: System Default
.head 4 - Background Color: System Default
.head 3 + Data Field
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Multiline Field
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Spin Field
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Background Text
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Pushbutton
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 3 + Radio Button
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Check Box
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Option Button
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 3 + Group Box
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Child Table Window
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + List Box
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Combo Box
.head 4 - Font Name: Use Parent
.head 4 - Font Size: Use Parent
.head 4 - Font Enhancement: Use Parent
.head 4 - Text Color: Use Parent
.head 4 - Background Color: Use Parent
.head 3 + Line
.head 4 - Line Color: Use Parent
.head 3 + Frame
.head 4 - Border Color: Use Parent
.head 4 - Background Color: 3D Face Color
.head 3 + Picture
.head 4 - Border Color: Use Parent
.head 4 - Background Color: Use Parent
.head 2 + Formats
.head 3 - Number: 0'%'
.head 3 - Number: #0
.head 3 - Number: ###000
.head 3 - Number: ###000;'($'###000')'
.head 3 - Date/Time: hh:mm:ss AMPM
.head 3 - Date/Time: M/d/yy
.head 3 - Date/Time: MM-dd-yy
.head 3 - Date/Time: dd-MMM-yyyy
.head 3 - Date/Time: MMM d, yyyy
.head 3 - Date/Time: MMM d, yyyy hh:mm AMPM
.head 3 - Date/Time: MMMM d, yyyy hh:mm AMPM
.head 2 - External Functions
.head 2 + Constants
.data CCDATA
0000: 3000000000000000 0000000000000000 00000000
.enddata
.data CCSIZE
0000: 1400
.enddata
.head 3 + System
.head 4 - ! ! ! ! ! ---------------------------------------------- TOOLTIPS ---------------------------------------------- !
.head 4 - ! ! ! ! ! - Styles
.head 4 - Number: TTS_ALWAYSTIP = 0x01
.head 4 - Number: TTS_NOPREFIX = 0x02
.head 4 - Number: TTS_NOANIMATE = 0x10
.head 4 - Number: TTS_NOFADE = 0x20
.head 4 - Number: TTS_BALLOON = 0x40
.head 4 - ! ! ! ! !
.head 4 - Number: TTF_IDISHWND = 0x0001
.head 4 - Number: TTF_CENTERTIP = 0x0002
.head 4 - Number: TTF_RTLREADING = 0x0004
.head 4 - Number: TTF_SUBCLASS = 0x0010
.head 4 - Number: TTF_TRACK = 0x0020
.head 4 - Number: TTF_ABSOLUTE = 0x0080
.head 4 - Number: TTF_TRANSPARENT = 0x0100
.head 4 - Number: TTF_DI_SETITEM = 0x8000
.head 4 - ! ! ! ! !
.head 4 - Number: TTDT_AUTOMATIC = 0
.head 4 - Number: TTDT_RESHOW = 1
.head 4 - Number: TTDT_AUTOPOP = 2
.head 4 - Number: TTDT_INITIAL = 3
.head 4 - ! ! ! ! !
.head 4 - Number: TTI_NONE = 0
.head 4 - Number: TTI_INFO = 1
.head 4 - Number: TTI_WARNING = 2
.head 4 - Number: TTI_ERROR = 3
.head 4 - ! ! ! ! ! - Messages (0x0400 is WM_USER)
.head 4 - Number: TTM_ACTIVATE = (0x0400 + 1)
.head 4 - Number: TTM_SETDELAYTIME = (0x0400 + 3)
.head 4 - Number: TTM_ADDTOOL = (0x0400 + 4)
.head 4 - Number: TTM_DELTOOL = (0x0400 + 5)
.head 4 - Number: TTM_NEWTOOLRECT = (0x0400 + 6)
.head 4 - Number: TTM_RELAYEVENT = (0x0400 + 7)
.head 4 - Number: TTM_GETTOOLINFO = (0x0400 + 8)
.head 4 - Number: TTM_SETTOOLINFO = (0x0400 + 9)
.head 4 - Number: TTM_HITTEST = (0x0400 + 10)
.head 4 - Number: TTM_GETTEXT = (0x0400 + 11)
.head 4 - Number: TTM_UPDATETIPTEXT = (0x0400 + 12)
.head 4 - Number: TTM_GETTOOLCOUNT = (0x0400 + 13)
.head 4 - Number: TTM_ENUMTOOLS = (0x0400 + 14)
.head 4 - Number: TTM_GETCURRENTTOOL = (0x0400 + 15)
.head 4 - Number: TTM_WINDOWFROMPOINT = (0x0400 + 16)
.head 4 - Number: TTM_TRACKACTIVATE = (0x0400 + 17)
.head 4 - Number: TTM_TRACKPOSITION = (0x0400 + 18)
.head 4 - Number: TTM_SETTIPBKCOLOR = (0x0400 + 19)
.head 4 - Number: TTM_SETTIPTEXTCOLOR = (0x0400 + 20)
.head 4 - Number: TTM_GETDELAYTIME = (0x0400 + 21)
.head 4 - Number: TTM_GETTIPBKCOLOR = (0x0400 + 22)
.head 4 - Number: TTM_GETTIPTEXTCOLOR = (0x0400 + 23)
.head 4 - Number: TTM_SETMAXTIPWIDTH = (0x0400 + 24)
.head 4 - Number: TTM_GETMAXTIPWIDTH = (0x0400 + 25)
.head 4 - Number: TTM_SETMARGIN = (0x0400 + 26)
.head 4 - Number: TTM_GETMARGIN = (0x0400 + 27)
.head 4 - Number: TTM_POP = (0x0400 + 28)
.head 4 - Number: TTM_UPDATE = (0x0400 + 29)
.head 4 - Number: TTM_GETBUBBLESIZE = (0x0400 + 30)
.head 4 - Number: TTM_ADJUSTRECT = (0x0400 + 31)
.head 4 - Number: TTM_SETTITLE = (0x0400 + 32)
.head 4 - ! ! ! ! ! - Notifications
.head 4 - Number: TTN_FIRST = (-520)
.head 4 - Number: TTN_LAST = (-549)
.head 4 - Number: TTN_GETDISPINFO = (TTN_FIRST - 0)
.head 4 - Number: TTN_SHOW = (TTN_FIRST - 1)
.head 4 - Number: TTN_POP = (TTN_FIRST - 2)
.head 4 - Number: LPSTR_TEXTCALLBACK = -1
.head 3 - User
.head 2 - Resources
.head 2 - Variables
.head 2 + Internal Functions
.head 3 - ! ! ToolTip
.head 3 + Function: SalTooltipAdd
.head 4 - Description: V1.01 12.2.2004 - tl
- Support for more than 255 chars
author: Andrew, http://gupta.narod.ru/ctd
date: 2002-10-08
version: 1.00
desc:
Creates a tooltip for a control
example:
Push Button: pbTest
On SAM_Create
Set hWndToolTip = SalTooltipAdd(hWndItem,'Iґm a ToolTip', TRUE )
On SAM_Click
Call SalTooltipSetText(hWndItem,hWndToolTip,'Iґm a new ToolTip', FALSE )
See also:
SalToolTipSetText
.head 4 + Returns
.head 5 - Window Handle:
.head 4 + Parameters
.head 5 - Window Handle: phWndItem
.head 5 - String: psTextTooltip
.head 5 - Boolean: pbStyleBalloon
.head 5 - Number: pnDelayMilliSec
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Window Handle: hWndTooltip
.head 5 - Number: nStyleTooltip
.head 5 - Number: nFlagsTooltip
.head 5 - String: sBuffer
.head 5 - Number: nAddr
.head 5 - Number: nAddrStringReturn
.head 5 - Number: nReturn
.head 5 - Window Handle: hTooltip
.head 4 + Actions
.head 5 + If psTextTooltip != ''
.head 6 + If pnDelayMilliSec < 1
.head 7 - Set pnDelayMilliSec = 500
.head 6 - Set nStyleTooltip = TTS_ALWAYSTIP
.head 6 + If pbStyleBalloon
.head 7 - Set nStyleTooltip = nStyleTooltip | TTS_BALLOON
.head 6 - Set nFlagsTooltip = TTF_SUBCLASS | TTF_IDISHWND
.head 6 - !
.head 6 - Set hWndTooltip = CreateWindowExA( 0, "tooltips_class32", "", nStyleTooltip , CW_USEDEFAULT,CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, hWndForm, 0x0000, GetWindowLongA( hWndForm, GWL_HINSTANCE ), 0)
.head 6 - Set nAddr = CStructAllocFarMem( 44 )
.head 6 - Call SalStrSetBufferLength( sBuffer, 44 )
.head 6 - Call CStructPutInt( sBuffer, 0, 44 )
.head 6 - Call CStructPutInt( sBuffer, 4, nFlagsTooltip )
.head 6 - Call CStructPutLong( sBuffer, 8, SalWindowHandleToNumber( phWndItem ) )
.head 6 - Call CStructPutLong( sBuffer, 12, SalWindowHandleToNumber( phWndItem ) )
.head 6 + If psTextTooltip != ""
.head 7 - ! Set nAddrStringReturn = CStructPutStringCustom( sBuffer, 36, psTextTooltip )
.head 7 - Set nAddrStringReturn = CStructPutLongStringCustom( sBuffer, 36, psTextTooltip )
.head 6 + Else
.head 7 - Call CStructPutLong( sBuffer, 36, LPSTR_TEXTCALLBACK )
.head 6 - Call CStructCopyToFarMem( nAddr, sBuffer, 44 )
.head 6 - Call SalSendMsg( hWndTooltip, TTM_ADDTOOL, 0,nAddr)
.head 6 - Call CStructFreeFarMem( nAddrStringReturn )
.head 6 - Call CStructFreeFarMem( nAddr )
.head 6 - Call SalSendMsg(hWndTooltip, TTM_SETDELAYTIME, TTDT_INITIAL, pnDelayMilliSec )
.head 6 - !
.head 6 - Call SalSendMsg( hWndTooltip, TTM_SETMAXTIPWIDTH, 0, 300)
.head 5 - Return hWndTooltip
.head 3 + Function: SalTooltipSetText
.head 4 - Description: V1.01 12.2.2004 - tl
- Support for more than 255 chars
author: Andrew, http://gupta.narod.ru/ctd
date: 2002-10-08
version: 1.00
desc:
udates a tooltip for a control
example:
Push Button: pbTest
On SAM_Create
Set hWndToolTip = SalTooltipAdd(hWndItem,'Iґm a ToolTip', TRUE )
On SAM_Click
Call SalTooltipSetText(hWndItem,hWndToolTip,'Iґm a new ToolTip', FALSE )
See also:
SalToolTipAdd
.head 4 - Returns
.head 4 + Parameters
.head 5 - Window Handle: phWndItem
.head 5 - Window Handle: phWndTooltip
.head 5 - String: psStringTooltip
.head 5 - Boolean: pbStyleBalloon
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Number: nStyleTooltip
.head 5 - Number: nFlagsTooltip
.head 5 - String: sBuffer
.head 5 - Number: nAddr
.head 5 - Number: nAddrStringReturn
.head 5 - Number: nReturn
.head 4 + Actions
.head 5 - Set nStyleTooltip = TTS_ALWAYSTIP
.head 5 + If pbStyleBalloon
.head 6 - Set nStyleTooltip = nStyleTooltip | TTS_BALLOON
.head 5 - Set nFlagsTooltip = TTF_SUBCLASS | TTF_IDISHWND
.head 5 - !
.head 5 - Set nAddr = CStructAllocFarMem( 44 )
.head 5 - Call SalStrSetBufferLength( sBuffer, 44 )
.head 5 - Call CStructPutInt( sBuffer, 0, 44 )
.head 5 - Call CStructPutInt( sBuffer, 4, nFlagsTooltip )
.head 5 - Call CStructPutLong( sBuffer, 8, SalWindowHandleToNumber( phWndItem ) )
.head 5 - Call CStructPutLong( sBuffer, 12, SalWindowHandleToNumber( phWndItem ) )
.head 5 + If psStringTooltip != ""
.head 6 - ! Set nAddrStringReturn = CStructPutStringCustom( sBuffer, 36, psStringTooltip )
.head 6 - Set nAddrStringReturn = CStructPutLongStringCustom( sBuffer, 36, psStringTooltip )
.head 5 + Else
.head 6 - Call CStructPutLong( sBuffer, 36, LPSTR_TEXTCALLBACK )
.head 5 - Call CStructCopyToFarMem( nAddr, sBuffer, 44 )
.head 5 - Call SalSendMsg( phWndTooltip, TTM_UPDATETIPTEXT, 0,nAddr)
.head 5 - Call CStructFreeFarMem( nAddrStringReturn )
.head 5 - Call CStructFreeFarMem( nAddr )
.head 3 + Function: SalTootipSetColor
.head 4 - Description: author: tl
date: 2004-07.01
version: 1.00
desc:
Sets individual colorproperties of a tooltip
.head 4 - Returns
.head 4 + Parameters
.head 5 - Window Handle: phWndTip
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: pnTextColor
.head 5 - Number: pnBKColor
.head 4 - Static Variables
.head 4 - Local variables
.head 4 + Actions
.head 5 + If pnTextColor != NUMBER_Null
.head 6 - Call SalSendMsg( phWndTip, TTM_SETTIPTEXTCOLOR, pnTextColor, 0)
.head 5 + If pnBKColor != NUMBER_Null
.head 6 - Call SalSendMsg( phWndTip, TTM_SETTIPBKCOLOR, pnBKColor, 0)
.head 5 - !
.head 3 + Function: SalTootipSetTitle
.head 4 - Description: author: tl
date: 2004-07.01
version: 1.00
desc:
Adds a icon and a title to a tooltip
.head 4 - Returns
.head 4 + Parameters
.head 5 - Window Handle: phWndTip
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: pnIcon
.head 5 - String: psTitle
.data INHERITPROPS
0000: 0100
.enddata
.head 4 - Static Variables
.head 4 - Local variables
.head 4 + Actions
.head 5 + Select Case pnIcon
.head 6 + Case MB_IconStop
.head 7 - Set pnIcon = 3
.head 7 - Break
.head 6 + Case MB_IconAsterisk
.head 7 - Set pnIcon = 1
.head 7 - Break
.head 6 + Case MB_IconExclamation
.head 7 - Set pnIcon = 2
.head 7 - Break
.head 6 + Default
.head 7 - Set pnIcon = 0
.head 5 - Call VisSendMsgString(phWndTip,TTM_SETTITLE,pnIcon,psTitle )
.head 3 + Function: SalTooltipShowCustom
.head 4 - Description: Shows a multiline custom tooltip on the screen
Parameter:
pbShow : show or hide
psText : Text
pnX : xCoordinate (when NUMBER_Null than MouseX is taken)
pnY : yCoordinate (when NUMBER_Null than MouseY is taken)
pnCol : Color (when 0 or NUMBER_Null than Std-Tooltip Yellow)
psFontName,pnFontSize,pnFontEnh : optionaler Font (wenn NULL than Default Arial 8 is taken)
Bsp:
Call SalShowTip( pbShow, 'Dies ist ein Standardtooltip' ,0,0,0, '',0,0) shows a standard tooltip
Call SalShowTip( pbShow, 'Dies ist ein individueller Tip ' ,SalColorFromRGB(230,230,230),250,140, 'Arial',14,FONT_EnhBold) shows a custom tootip
.head 4 + Returns
.head 5 - Window Handle:
.head 4 + Parameters
.head 5 - Boolean: pbShow
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Long String: psText
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: pnX
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: pnY
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: pnCol
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - String: psFontName
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: pnFontSize
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: pnFontEnh
.data INHERITPROPS
0000: 0100
.enddata
.head 4 + Static Variables
.head 5 - Boolean: lbTip
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Window Handle: hWndTip
.head 4 - Local variables
.head 4 + Actions
.head 5 + If pbShow
.head 6 + If psText != STRING_Null
.head 7 + If not lbTip
.head 8 - Set hWndTip= SalCreateWindow(dlgToolTip, hWndForm, psText,pnX,pnY,pnCol,psFontName,pnFontSize,pnFontEnh )
.head 8 - Set lbTip = TRUE
.head 7 + Else
.head 8 - Call SalBringWindowToTop(hWndTip)
.head 6 + Else
.head 7 + If lbTip
.head 8 + If SalWinExist( hWndTip )
.head 9 - Call SalDestroyWindow(hWndTip )
.head 8 - Set lbTip = FALSE
.head 8 - Set hWndTip = hWndNULL
.head 5 + Else
.head 6 + If lbTip
.head 7 + If SalWinExist( hWndTip )
.head 8 - Call SalDestroyWindow(dlgToolTip )
.head 7 - Set lbTip = FALSE
.head 7 - Set hWndTip = hWndNULL
.head 5 - Return hWndTip
.head 2 - Named Menus
.head 2 - Class Definitions
.head 2 + Default Classes
.head 3 - MDI Window: cBaseMDI
.head 3 - Form Window:
.head 3 - Dialog Box:
.head 3 - Table Window:
.head 3 - Quest Window:
.head 3 - Data Field:
.head 3 - Spin Field:
.head 3 - Multiline Field:
.head 3 - Pushbutton:
.head 3 - Radio Button:
.head 3 - Option Button:
.head 3 - Check Box:
.head 3 - Child Table:
.head 3 - Quest Child Window: cQuickDatabase
.head 3 - List Box:
.head 3 - Combo Box:
.head 3 - Picture:
.head 3 - Vertical Scroll Bar:
.head 3 - Horizontal Scroll Bar:
.head 3 - Column:
.head 3 - Background Text:
.head 3 - Group Box:
.head 3 - Line:
.head 3 - Frame:
.head 3 - Custom Control:
.head 3 - ActiveX:
.head 2 - Application Actions
.head 1 + Dialog Box: dlgToolTip
.head 2 - Class:
.head 2 - Property Template:
.head 2 - Class DLL Name:
.head 2 - Title:
.head 2 - Accesories Enabled? No
.head 2 - Visible? Yes
.head 2 - Display Settings
.head 3 - Display Style? Default
.head 3 - Visible at Design time? Yes
.head 3 - Type of Dialog: Modeless
.head 3 - Window Location and Size
.head 4 - Left: 1.725"
.head 4 - Top: 1.26"
.head 4 - Width: 1.517"
.head 4 - Width Editable? Yes
.head 4 - Height: 0.512"
.head 4 - Height Editable? Yes
.head 3 - Absolute Screen Location? Yes
.head 3 - Font Name: Arial
.head 3 - Font Size: 8
.head 3 - Font Enhancement: Default
.head 3 - Text Color: Default
.head 3 - Background Color: Maize
.head 2 - Description: Simulates a custom multiline tooltip
example:
Static: lbTip
if not lbTip
Call SalCreateWindow(dlgTip, hWndNULL, 'fdssfddfdfd')
Set lbTip = TRUE
Else
if lbTip
Call SalDestroyWindow(dlgTip)
.head 2 + Tool Bar
.head 3 - Display Settings
.head 4 - Display Style? Default
.head 4 - Location? Top
.head 4 - Visible? Yes
.head 4 - Size: Default
.head 4 - Size Editable? Yes
.head 4 - Font Name: Default
.head 4 - Font Size: Default
.head 4 - Font Enhancement: Default
.head 4 - Text Color: Default
.head 4 - Background Color: Default
.head 3 - Contents
.head 2 + Contents
.head 3 - Background Text: test
.head 4 - Resource Id: 54276
.head 4 - Class Child Ref Key: 0
.head 4 - Class ChildKey: 0
.head 4 - Class:
.head 4 - Window Location and Size
.head 5 - Left: 0.06"
.head 5 - Top: 0.04"
.head 5 - Width: 6.433"
.head 5 - Width Editable? Yes
.head 5 - Height: 2.024"
.head 5 - Height Editable? Yes
.head 4 - Visible? Yes
.head 4 - Justify: Left
.head 4 - Font Name: Arial
.head 4 - Font Size: Default
.head 4 - Font Enhancement: Default
.head 4 - Text Color: Default
.head 4 - Background Color: Default
.head 2 + Functions
.head 3 + Function: __Create
.head 4 - Description:
.head 4 - Returns
.head 4 - Parameters
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Number: nMouseX
.head 5 - Number: nMouseY
.head 5 - Number: hDC
.head 5 - Number: nTextWidth
.head 5 - Number: nTextHeight
.head 5 - Number: nScreenWidth
.head 5 - Number: nScreenHeight
.head 5 - Number: nFrameWidth
.head 5 - Number: nFrameHeight
.head 5 - Window Handle: hWndTip
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Boolean: bStaticsBefore
.head 5 - String: lsRows[*]
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: lnLineBreaks
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: lnX
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: lnY
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: lnMaxLength
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: lnMaxIdx
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - Number: lnIdx
.data INHERITPROPS
0000: 0100
.enddata
.head 4 + Actions
.head 5 - Call SalHideWindow(hWndForm)
.head 5 - Set bStaticsBefore = bStaticsAsWindows
.head 5 - Set bStaticsAsWindows = TRUE
.head 5 - Set nScreenWidth = GetSystemMetrics( 0 )
.head 5 - Set nScreenHeight = GetSystemMetrics( 1 )
.head 5 - ! ! //-- set the specific colors for the tooltip --//
.head 5 + If pnCol = NUMBER_Null or pnCol = 0
.head 6 - Set pnCol = 0xefffff
.head 5 - Call SalColorSet( hWndForm, COLOR_IndexWindow, pnCol )
.head 5 - ! !
.head 5 - ! Background Farbe
.head 5 - Set hWndTip = SalGetFirstChild( hWndForm, TYPE_BkgdText)
.head 5 - Call SalColorSet( hWndTip, COLOR_IndexWindow, pnCol )
.head 5 - Call SalColorSet( hWndTip, COLOR_IndexWindowText, 0x000000 )
.head 5 + If psFontName != STRING_Null
.head 6 - Call SalFontSet(hWndTip, psFontName, pnFontSize, pnFontEnh)
.head 5 - Call SalSetWindowText( hWndTip, psText)
.head 5 - ! Text aufteielen und lдngste Zeile suchen
.head 5 - Set lnLineBreaks = SalStrTokenize(psText, CRLF, CRLF, lsRows)
.head 5 + While lnIdx < lnLineBreaks
.head 6 + If SalStrLength(lsRows[lnIdx]) > lnMaxLength
.head 7 - Set lnMaxIdx = lnIdx
.head 7 - Set lnMaxLength = SalStrLength(lsRows[lnIdx])
.head 6 - Set lnIdx = lnIdx + 1
.head 5 - ! TextgrцЯe ermitteln
.head 5 - Set hDC = GetDC( hWndTip )
.head 5 - Call SelectObject( hDC, SalSendMsg( hWndTip, WM_GETFONT, 0, 0 ) )
.head 5 - Call GetTextExtentPoint32A( hDC, lsRows[lnMaxIdx], SalStrLength( lsRows[lnMaxIdx] ) + 1,
nTextWidth, nTextHeight )
.head 5 - Set nTextWidth = nTextWidth + 4
.head 5 - Set nTextHeight = (lnLineBreaks * 14) + 11
.head 5 - ! ------------------------------------------------------- !
.head 5 - Call ReleaseDC ( hWndTip, hDC )
.head 5 - ! ------------------------------------------------------- !
.head 5 - Call GetCursorPos( nMouseX, nMouseY )
.head 5 + If nMouseX + nTextWidth >= nScreenWidth
.head 6 - Set nMouseX = nScreenWidth - nTextWidth - 5
.head 5 + If nMouseY + nTextHeight + 18 > nScreenHeight
.head 6 - Set nMouseY = nMouseY - nTextHeight - 30
.head 5 - ! ! ------------------------------------------------------- !
.head 5 + If pnX != NUMBER_Null
.head 6 - Set nMouseX = SalPixelsToFormUnits( hWndNULL, nMouseX - 2, FALSE )
.head 5 + Else
.head 6 - Set nMouseX = pnX
.head 5 + If pnY != NUMBER_Null
.head 6 - Set nMouseY = SalPixelsToFormUnits( hWndNULL, nMouseY + 18, TRUE )
.head 5 + Else
.head 6 - Set nMouseY = pnY
.head 5 - Call SalSetWindowLoc( hWndForm, nMouseX, nMouseY )
.head 5 - ! ------------------------------------------------------- !
.head 5 - Set nFrameWidth = SalPixelsToFormUnits( hWndForm, nTextWidth, FALSE )
.head 5 - Set nFrameHeight = SalPixelsToFormUnits( hWndForm, nTextHeight, TRUE )
.head 5 - Set nTextWidth = SalPixelsToFormUnits( hWndForm, nTextWidth-4, FALSE )
.head 5 - Set nTextHeight = SalPixelsToFormUnits( hWndForm, nTextHeight-3, TRUE )
.head 5 - Call SalSetWindowSize( hWndTip, nTextWidth, nTextHeight )
.head 5 - Call SalSetWindowSize( hWndForm, nFrameWidth, nFrameHeight )
.head 5 - Call SalShowWindow(hWndForm)
.head 5 - Set bStaticsAsWindows = bStaticsBefore
.head 5 - ! -------------------------------------------------------- !
.head 5 - ! ! //-- show the tooltip --//
.head 5 - Call ShowWindow( hWndForm, SW_SHOWNOACTIVATE )
.head 2 + Window Parameters
.head 3 - Long String: psText
.data INHERITPROPS
0000: 0100
.enddata
.head 3 - Number: pnX
.data INHERITPROPS
0000: 0100
.enddata
.head 3 - Number: pnY
.data INHERITPROPS
0000: 0100
.enddata
.head 3 - Number: pnCol
.data INHERITPROPS
0000: 0100
.enddata
.head 3 - String: psFontName
.data INHERITPROPS
0000: 0100
.enddata
.head 3 - Number: pnFontSize
.data INHERITPROPS
0000: 0100
.enddata
.head 3 - Number: pnFontEnh
.data INHERITPROPS
0000: 0100
.enddata
.head 2 + Window Variables
.head 3 - Number: nStyle
.head 2 + Message Actions
.head 3 + On SAM_Create
.head 4 - Call __Create()
.head 3 + On WM_NCCREATE
.head 4 - ! ! //-- set the dialog ToolTip style --//
.head 4 - Call SetWindowLongA( hWndForm, GWL_STYLE, GetWindowLongA( hWndForm, GWL_STYLE)-WS_CAPTION + WS_BORDER )
.head 4 - Call SetWindowLongA( hWndForm, GWL_EXSTYLE, GetWindowLongA( hWndForm, GWL_EXSTYLE ) - WS_EX_DLGMODALFRAME )
Return to http://gupta.narod.ru/