|
|
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:
Drives and Directories
ODBC Data Sources
HTML Structures (TBA)
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 |