******************************************************************* Confidential Trade Secret. Copyright (c) 1997 Data Access Corporation, Miami Florida All rights reserved. DataFlex is a registered trademark of Data Access Corporation. ******************************************************************* File : dbBitmap.pkg Version : 2.0 Created : 10/10/96 : DbBitmap class - data aware bitmap container Author : Michael Salzlechner / John Tuohy Rem : Bitmap the filename of a : bitmap in MS-Windows BMP-Format. : This class will automatically display : the stored bitmap when finding a record : Mouseclick on the object starts a common : filedialog to set a new bitmap : File name is bmap is stored and retrieved from appropriate data-fill Object xxx is a dbBitMap entry_Item File.Field // name of bitmap Set Size to height width Set Location to column row Set Store_with_Pathname_State to True|False Set NoPut_State to True |False Set Bitmap_Style to Style Set Allow_Select_Bitmap_State to True | False Set Dialog_Caption to "Name of for common file dialog" Set Initial_Folder to "intitial file directory" End_object Bitmap-styles are BITMAP_ACTUAL BITMAP_STRETCH BITMAP_TILE BITMAP_CENTER Function Select_Bitmap returns string By default this pops up a common file dialog allowing user to select a bitmap. This is suitable for augmentation. Return the file name of the bitmap to use. Invoked by double click. ******************************************************************* 2/26/2002 JJT - 8.2 clean up (indirect_file, local, self, etc.)

Dbbitmap.pkg (view source)

import declarations
- Dfbitmap.pkg (view source)
- nesting.pkg (view source)
- navigate.pkg (view source)
- Server.pkg (view source)
- refmodes.pkg (view source)
  refresh mode constants
dbBitmap : BitmapContainer
- Construct_Object()
  Inherited from BitmapContainer
  - integerPrivate.Data_File
  - integerPrivate.Data_Field
  - IntegerStore_With_Pathname_State
    This Property indicates if we should store the full pathname
  - IntegerNoPut_State
    indicates if this should be a noput field just like items
- integerValidate_Items(Integer Fg)
  It is unlikely you'll need to validate "items" in this bitmap class but you could...
- Entry_Display(integer file# integer flag)
  created for EntItem simulation and Server support: if file# = 0, display only if Target_File is in Done-array else display only if file# = Target_File
  - IntegerdFile
  - IntegerdField
  - StringsVal
- Entry_Clear(integer file#)
  created for EntItem simulation: file# <> 0 means use Cleared-array
- Entry_Clear_All(integer file#)
  created for EntItem simulation:
- Entry_Update(integer file# integer flag)
  created for EntItem simulation and Server support Normally entry_update gets called during saves and finds. When Save: file# = 0 flag = 3 Find: file# <> 0 flag = 1 Allow Update Rules: if Save update (file#=0, flag=3) Allow Update if not noput and Target_File is in Done-array and (new record or changed_state). else if Find_Update (file#=Target_File, Flag=1) or misc (file#=0) perform update Modified so that an unchanged item is moved to the field if the main file is a new record.
  - IntegerdFile
  - IntegerdField
  - IntegerC_Item
  - IntegerSrvr#
  - Integerok
  - IntegeriStat
  - StringsValue
- Read_Data()
  the read_data-message is sent when displaying a record (Entry_Display)
  - Stringfieldvalue
  - IntegerdFile
  - IntegerdField
- Clear_Data()
  the clear_data-message is sent when attempting to clear the screen
- Write_Data()
  the write_data-message is sent when saving a record (Entry_Update)
  - Stringfname
  - IntegerdFile
  - IntegerdField
- Bind_Data(integer File# Integer Field#)
- IntegerData_File(Integer Itm#)
- Set(integer item# integer File#)
  Inherited from server_mixin
- IntegerData_Field(Integer Itm#)
- Set(integer item# integer Field#)
  Inherited from server_mixin
- Refresh(integer notifyMode)
- Update_Dependent_Items()
- integerItem_Count()

Module Dbbitmap.pkg

References (1):

Field References (0):