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: 0000000000A50000 002C000000020000 0003000000FFFFFF FFFFFFFFFFFCFFFF
0040: FFE9FFFFFFFFFFFF FF000000007C0200 004D010000010000 0001000000010000
0060: 000F4170706C6963 6174696F6E497465 6D00000000
.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 3 - User
.head 2 - Resources
.head 2 - Variables
.head 2 + Internal Functions
.head 3 - ! ! List Box (Combo)
.head 3 + Function: SalListGetCurrentValue
.head 4 - Description:
author: tl
date: 2000
version: 1.00
desc:
Returns the value of the current selekted item
example:
Set lnID = SalListGetCurrentValue( cmb1 )
See also:
SalListSelectText
SalListGetCurrentText
SalListSelectValue
.head 4 + Returns
.head 5 - Number:
.head 4 + Parameters
.head 5 - Window Handle: phWndItem
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Number: lnIdx
.head 4 + Actions
.head 5 - Set lnIdx = SalListQuerySelection(phWndItem)
.head 5 + If lnIdx = LB_Err
.head 6 - Return NUMBER_Null
.head 5 + Else
.head 6 - Return VisListGetValue(phWndItem, lnIdx)
.head 3 + Function: SalListSelectValue
.head 4 - Description:
author: tl
date: 2000
version: 1.00
desc:
Selects an entry by the given value
example:
Call SalListSelectValue( cmb1, 232 )
See also:
SalListSelectText
SalListGetCurrentText
SalListGetCurrentValue
.head 4 - Returns
.head 4 + Parameters
.head 5 - Window Handle: phWndItem
.head 5 - Number: lnValue
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Number: lnIdx
.head 4 + Actions
.head 5 - Set lnIdx = VisListFindValue(phWndItem, -1, lnValue)
.head 5 - ! Eintrag nicht gefunden
.head 5 + If lnIdx = LB_Err
.head 6 - Call SalListSetSelect(phWndItem, -1)
.head 6 - Return TRUE
.head 5 - ! Eintrag setzen
.head 5 - Call SalListSetSelect(phWndItem, lnIdx)
.head 5 - Return TRUE
.head 3 + Function: SalListGetCurrentText
.head 4 - Description:
author: tl
date: 2000
version: 1.00
desc:
Returns the current selected String
example:
Set sMarkedEntry = SalListGetCurrentText( lb1 )
See also:
SalListSelectText
SalListSelectValue
SalListGetCurrentValue
.head 4 + Returns
.head 5 - String:
.head 4 + Parameters
.head 5 - Window Handle: phWndItem
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Number: lnIdx
.head 4 + Actions
.head 5 - Set lnIdx = SalListQuerySelection(phWndItem)
.head 5 + If lnIdx = LB_Err
.head 6 - Return STRING_Null
.head 5 + Else
.head 6 - Return VisListGetText( phWndItem, lnIdx )
.head 3 + Function: SalListSelectText
.head 4 - Description: author: tl
date: 2000
version: 1.00
desc:
Selects a string entry, by searhing he string EXACT.
note:
SalListSelectString does a substring search, get a problem on columndropdownlists
when you try to select '1' and you have '100', '1000', '1'.
The first value matching '1%' in this case '111' will be selected.
example:
Call SalListSelectText( lb1,'sdsdsdsdsd' )
See also:
SalListGetCurrentText
SalListSelectValue
SalListGetCurrentValue
.head 4 - Returns
.head 4 + Parameters
.head 5 - Window Handle: phWndItem
.head 5 - String: lsText
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Number: lnIdx
.head 4 + Actions
.head 5 + ! If SalListSelectString( phWndItem,0,lsText) > LB_Err
.head 6 - Return TRUE
.head 5 + While lnIdx < SalListQueryCount(phWndItem)
.head 6 + If SalListQueryTextX(phWndItem,lnIdx) = lsText
.head 7 - Call SalListSetSelect(phWndItem, lnIdx )
.head 7 - Return TRUE
.head 6 - Set lnIdx = lnIdx + 1
.head 5 - Return FALSE
.head 3 + Function: SalListDeleteSelected
.head 4 - Description:
author: tl
date: 2000
version: 1.00
desc:
Deletes all selected entries of a listbox. and returns the
number of deleted entries in list box.
example:
if SalListDeleteSelected( lb1) > 0
....
.head 4 - Returns
.head 4 + Parameters
.head 5 - Window Handle: hWndList
.data INHERITPROPS
0000: 0100
.enddata
.head 4 - Static Variables
.head 4 + Local variables
.head 5 - Number: lnIdx
.head 5 - Number: lnDeleted
.head 4 + Actions
.head 5 + If SalListQueryMultiCount( hWndList ) = LB_Err
.head 6 - ! single selection
.head 6 - Call SalListDelete( hWndList, SalListQuerySelection(hWndList) )
.head 6 - Set lnDeleted = 1
.head 5 + Else
.head 6 - ! multi selection
.head 6 - Set lnIdx = SalListQueryCount( hWndList) - 1
.head 6 + While lnIdx >= 0
.head 7 + If SalListQueryState(hWndList, lnIdx)
.head 8 - Set lnDeleted = lnDeleted + 1
.head 8 - Call SalListDelete( hWndList, lnIdx )
.head 7 - Set lnIdx = lnIdx - 1
.head 5 - !
.head 5 - Return lnDeleted
.head 3 + Function: SalListPopulateDirectory
.head 4 - Description: author: ???
date: 2001
version: 1.00
desc:
Fills a listbox with files and directories
parameter:
phWndList handle of the listbox
psPath path
pnFlags: DDL_READWRITE
DDL_READONLY
DDL_HIDDEN
DDL_SYSTEM
DDL_DIRECTORY
DDL_ARCHIVE
DDL_POSTMSGS
DDL_DRIVES
DDL_EXCLUSIVE
example:
SalListPopulateDirectory(lbFiles,'C:\\',DDL_DIRECTORY )
.head 4 + Returns
.head 5 - Number:
.head 4 + Parameters
.head 5 - Window Handle: phWndList
.data INHERITPROPS
0000: 0100
.enddata
.head 5 - String: psPath
.data INHERITPROPS
0000: 0100
.enddata
.head 5 + Number: pnFlags
.head 6 - ! Allowed:
DDL_READWRITE
DDL_READONLY
DDL_HIDDEN
DDL_SYSTEM
DDL_DIRECTORY
DDL_ARCHIVE
DDL_POSTMSGS
DDL_DRIVES
DDL_EXCLUSIVE
.head 4 - Static Variables
.head 4 - Local variables
.head 4 + Actions
.head 5 - Return DlgDirListA( SalParentWindow( phWndList ), psPath, GetDlgCtrlID( phWndList ), GetDlgCtrlID( hWndNULL ), pnFlags )
.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
Return to http://gupta.narod.ru/