Visual Prolog Universal Explorer

back to main page

This sample demonstrates how to use VIP Studio objects to build any Explorer-style applications. This applications allows you to explore:

  1. Drives and Directories

  2. ODBC Data Sources

  3. HTML Structures (TBA)

  4. FTP and WEB Sites (TBA)

1. Create window with custom control explorer_class

(click here to download VIP 5.2 source code - 98Kb)

How to use VIP Explroer Object inside your application:

 

VIP Explorer is pure Visual Prolog Application and doesn't use any custom controls and other objects.

2. Include support Objects:
System Object
,
Split Bar Object
,
Panel Object
,
Grid Object
,
Catalog Object
,
Split bar Object
,
Database Access Object

3. Add support code into window:e_create event:

 

win_visual_prolog_explorer_eh(_Win,e_Create(_),0):-!,
    get_initial_tree(_Win,BROWSELIST_ITEM),
    SystemObject = system_object::new(_Win),
    VIP_EXPLORER_DATA =
            vip_data(BROWSELIST_ITEM,
             property_callback,
             catalog_action_callback,
             grid_callback_handler),
    save_explorer_parameters(_Win,
             VIP_EXPLORER_DATA),

4. Write your callback functions for catalog view, data grid and property

property_callback

PROPERTY_CALLBACK

grid_callback_handler

GRID_CALLBACK

catalog_action_callback

BROWSELIST_INFORMATIONCALLBACK

 

 

Class Definitions:

class    vip_explorer:
grid_data
,catalog_control,separator_object

predicates   
procedure    new(
         WINDOW,
         BROWSELIST_ITEM,
         PROPERTY_CALLBACK,
         BROWSELIST_INFORMATIONCALLBACK,
         GRID_CALLBACK
)
procedure    delete()
procedure    object_resize(RCT)
procedure    set_callback(EHANDLER)
procedure    object_update(RCT)
procedure    vip_explorer_windows(
         WINDOW
CatalogWin,
         WINDOW
GRIDWIN,
         WINDOW
PROPERTY) - (o,o,o)
procedure    get_callback(EHANDLER OBJECT_CALLBACK) - (o)
endclass vip_explorer


Copyright 1998-2000 EDMGROUP (Australia)

Last Updated: March 20, 2002